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.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"
|
||||||
]
|
]
|
||||||
|
|||||||
Reference in New Issue
Block a user