diff options
| author | hallgren <hallgren@chalmers.se> | 2014-10-16 14:03:57 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-10-16 14:03:57 +0000 |
| commit | c924491289259fa8a5a259ed97f2d9e817e3338c (patch) | |
| tree | 178f045daa6520ca0979d093167727511c06541e /src/compiler/GF/Interactive.hs | |
| parent | c0ebbc4edfeaf16a6a5f4392ea097ea3d72a0e06 (diff) | |
More haddock documentation improvements
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) |