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