diff options
Diffstat (limited to 'src/GF/Devel/GFC')
| -rw-r--r-- | src/GF/Devel/GFC/Main.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/src/GF/Devel/GFC/Main.hs b/src/GF/Devel/GFC/Main.hs deleted file mode 100644 index d9ceb8e70..000000000 --- a/src/GF/Devel/GFC/Main.hs +++ /dev/null @@ -1,28 +0,0 @@ -module GF.Devel.GFC.Main where - -import GF.Devel.GFC.Options - -import System.Environment -import System.Exit -import System.IO - - -version = "X.X" - -main :: IO () -main = - do args <- getArgs - case parseOptions args of - Ok (opts, files) -> - case optMode opts of - Version -> putStrLn $ "GF, version " ++ version - Help -> putStr helpMessage - Compiler -> gfcMain opts files - Errors errs -> - do mapM_ (hPutStrLn stderr) errs - exitFailure - -gfcMain :: Options -> [FilePath] -> IO () -gfcMain opts files = return () - - |
