From 063912c3861d73c0b3cc036394476a4af8eec782 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 12 Aug 2015 11:01:45 +0000 Subject: Move welcome message from GF.Interactive & GF.Interactive2 to GF.Command.Messages ...to avoid the duplication. --- src/compiler/GF/Interactive.hs | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'src/compiler/GF/Interactive.hs') 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 ++ "> " -- cgit v1.2.3