diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
| commit | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch) | |
| tree | 0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Devel/GFC | |
| parent | fe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff) | |
removed src for 2.9
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 () - - |
