From 0b80bf17d97fe5410c4e6697b6325c777dfee5b0 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Fri, 23 May 2008 14:37:39 +0000
Subject: use the version number from Paths_gf

---
 src-3.0/GFI.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src-3.0/GFI.hs')

diff --git a/src-3.0/GFI.hs b/src-3.0/GFI.hs
index b85d38a61..0761ace5f 100644
--- 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.         "
   ]
 
-- 
cgit v1.2.3