use the version number from Paths_gf

2008-05-23 14:37:39 +00:00
parent f21af43453
commit 64e31a1838
3 changed files with 9 additions and 8 deletions
--- a/src-3.0/GFI.hs
+++ b/src-3.0/GFI.hs
@@ -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.         "
  ]