msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

More detailed version info in the output of "gf -version"

Browse Source
This commit is contained in:
hallgren
2012-06-08 11:17:46 +00:00
parent 6a1e6eed29
commit 1aecfe605b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF.hs
View File

@@ -6,6 +6,7 @@ import GFI
import GF.Data.ErrM import GF.Data.ErrM
import GF.Infra.Option import GF.Infra.Option
import GF.Infra.UseIO import GF.Infra.UseIO
import GF.Infra.BuildInfo (buildInfo)
import Paths_gf import Paths_gf
import Data.Version import Data.Version
@@ -41,7 +42,7 @@ main = do
mainOpts :: Options -> [FilePath] -> IO () mainOpts :: Options -> [FilePath] -> IO ()
mainOpts opts files = mainOpts opts files =
case flag optMode opts of case flag optMode opts of
ModeVersion -> putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version ModeVersion -> putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version ++ "\n" ++ buildInfo
ModeHelp -> putStrLn helpMessage ModeHelp -> putStrLn helpMessage
ModeInteractive -> mainGFI opts files ModeInteractive -> mainGFI opts files
ModeRun -> mainRunGFI opts files ModeRun -> mainRunGFI opts files