1
0
forked from GitHub/gf-core

Add build info to the GF shell welcome message

This commit is contained in:
hallgren
2011-04-04 19:52:07 +00:00
parent 544010b36f
commit 1677df78c9
2 changed files with 9 additions and 0 deletions

View File

@@ -0,0 +1,7 @@
module GF.Infra.BuildInfo where
import System.Info
import Data.Version(showVersion)
buildInfo =
"Built on "++os++"/"++arch
++" with "++compilerName++"-"++showVersion compilerVersion

View File

@@ -20,6 +20,7 @@ import GF.Infra.CheckM
import GF.Infra.UseIO import GF.Infra.UseIO
import GF.Infra.Option import GF.Infra.Option
import GF.Infra.Modules (greatestResource, modules, emptyModInfo) import GF.Infra.Modules (greatestResource, modules, emptyModInfo)
import GF.Infra.BuildInfo (buildInfo)
import qualified System.Console.Haskeline as Haskeline import qualified System.Console.Haskeline as Haskeline
import GF.Text.Coding import GF.Text.Coding
@@ -279,6 +280,7 @@ welcome = unlines [
" * * * ", " * * * ",
" ", " ",
"This is GF version "++showVersion version++". ", "This is GF version "++showVersion version++". ",
buildInfo,
"License: see help -license. ", "License: see help -license. ",
"Bug reports: http://code.google.com/p/grammatical-framework/issues/list" "Bug reports: http://code.google.com/p/grammatical-framework/issues/list"
] ]