use the version number from Paths_gf

This commit is contained in:
kr.angelov
2008-05-23 14:37:39 +00:00
parent 61e4e6e483
commit 0b80bf17d9
3 changed files with 9 additions and 8 deletions

View File

@@ -11,6 +11,9 @@ import GF.System.Readline (fetchCommand)
import System.CPUTime
import Data.Version
import Paths_gf
mainGFI :: [String] -> IO ()
mainGFI xx = do
@@ -66,7 +69,7 @@ welcome = unlines [
" * * * ",
" * * * ",
" ",
"This is GF version 3.0 alpha. ",
"This is GF version "++showVersion version++". ",
"Some things may work. "
]