summaryrefslogtreecommitdiff
path: root/src-3.0/GF.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF.hs')
-rw-r--r--src-3.0/GF.hs41
1 files changed, 0 insertions, 41 deletions
diff --git a/src-3.0/GF.hs b/src-3.0/GF.hs
deleted file mode 100644
index 5b1776987..000000000
--- a/src-3.0/GF.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# OPTIONS -cpp #-}
-module Main where
-
-import GFC
-import GFI
-import GF.Data.ErrM
-import GF.Infra.Option
-import GF.Infra.UseIO
-import Paths_gf
-
-import Data.Version
-import System.Environment (getArgs)
-import System.Exit
-import System.IO
-#ifdef mingw32_HOST_OS
-import System.Win32.Console
-import System.Win32.NLS
-#endif
-
-main :: IO ()
-main = do
-#ifdef mingw32_HOST_OS
- codepage <- getACP
- setConsoleCP codepage
- setConsoleOutputCP codepage
-#endif
- args <- getArgs
- case parseOptions args of
- Ok (opts,files) -> mainOpts opts files
- Bad err -> do hPutStrLn stderr err
- hPutStrLn stderr "You may want to try --help."
- exitFailure
-
-mainOpts :: Options -> [FilePath] -> IO ()
-mainOpts opts files =
- case flag optMode opts of
- ModeVersion -> putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version
- ModeHelp -> putStrLn helpMessage
- ModeInteractive -> mainGFI opts files
- ModeCompiler -> dieIOE (mainGFC opts files)
-