diff options
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index 745f64f84..5944d04a7 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -53,11 +53,13 @@ import GF.Infra.BuildInfo(buildInfo) import Data.Version(showVersion) import Paths_gf(version) +-- | Run the GF Shell in quiet mode mainRunGFI :: Options -> [FilePath] -> IO () mainRunGFI opts files = shell (beQuiet opts) files beQuiet = addOptions (modifyFlags (\f -> f{optVerbosity=Quiet})) +-- | Run the interactive GF Shell mainGFI :: Options -> [FilePath] -> IO () mainGFI opts files = do P.putStrLn welcome @@ -66,6 +68,7 @@ mainGFI opts files = do shell opts files = loop opts =<< runSIO (importInEnv emptyGFEnv opts files) #ifdef SERVER_MODE +-- | Start GF Server mainServerGFI opts0 port files = server port root (execute1 opts) =<< runSIO (importInEnv emptyGFEnv opts files) |