From c924491289259fa8a5a259ed97f2d9e817e3338c Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 16 Oct 2014 14:03:57 +0000 Subject: More haddock documentation improvements --- src/compiler/GF/Interactive.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/compiler/GF/Interactive.hs') 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) -- cgit v1.2.3