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 d1b95cef99
commit 1b08ca8a61
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"
] ]