forked from GitHub/gf-core
Add build info to the GF shell welcome message
This commit is contained in:
7
src/compiler/GF/Infra/BuildInfo.hs
Normal file
7
src/compiler/GF/Infra/BuildInfo.hs
Normal 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
|
||||
@@ -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"
|
||||
]
|
||||
|
||||
Reference in New Issue
Block a user