diff options
| author | hallgren <hallgren@chalmers.se> | 2015-08-12 11:01:45 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-08-12 11:01:45 +0000 |
| commit | 063912c3861d73c0b3cc036394476a4af8eec782 (patch) | |
| tree | 39fd69d74abf508dbe3cbbf33899a4f57c15f547 /src/compiler/GF/Interactive.hs | |
| parent | e50f92c41d2fdfda6d07a1aab0d3e375ab264617 (diff) | |
Move welcome message from GF.Interactive & GF.Interactive2 to GF.Command.Messages
...to avoid the duplication.
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index 57dfa5f57..d0311479f 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -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 ++ "> " |