GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Move welcome message from GF.Interactive & GF.Interactive2 to GF.Command.Messages

Browse Source 
...to avoid the duplication.
This commit is contained in:
hallgren
2015-08-12 11:01:45 +00:00
parent e50f92c41d
commit 063912c386
3 changed files with 28 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/compiler/GF/Interactive.hs
View File

@@ -49,9 +49,7 @@ import GF.Server(server)
#endif
import GF.System.Console(changeConsoleEncoding)
import GF.Infra.BuildInfo(buildInfo)
import Data.Version(showVersion)
import Paths_gf(version)
import GF.Command.Messages(welcome)
-- | Run the GF Shell in quiet mode (@gf -run@).
mainRunGFI :: Options -> [FilePath] -> IO ()
@@ -378,25 +376,6 @@ tryGetLine = do
Left (e :: SomeException) -> return "q"
Right l -> return l
welcome = unlines [
" ",
" * * * ",
" * * ",
" * * ",
" * ",
" * ",
" * * * * * * * ",
" * * * ",
" * * * * * * ",
" * * * ",
" * * * ",
" ",
"This is GF version "++showVersion version++". ",
buildInfo,
"License: see help -license. ",
"Bug reports: http://code.google.com/p/grammatical-framework/issues/list"
]
prompt env
| retain env || abs == wildCId = "> "
| otherwise = showCId abs ++ "> "