From 2b5197d61d69f3843c6de31c9e6aa21243f66cde Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 4 Jul 2007 14:10:41 +0000
Subject: tutorial exercises; put libdir in place in GF/src

---
 src/GF.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index 951bf4b52..30c9ab5a2 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -31,7 +31,7 @@ import GF.Shell.JGF
 import GF.System.Signal
 import GF.Text.UTF8
 
-import GF.Today (today,version)
+import GF.Today (today,version,libdir)
 import GF.System.Arch
 import System (getArgs,system,getEnv)
 import Control.Monad (foldM,liftM)
@@ -121,7 +121,7 @@ helpMsg = unlines [
 welcomeMsgLib = do
   lib <- catch 
     (getEnv "GF_LIB_PATH" >>= return . ("GF_LIB_PATH is set to" +++)) 
-    (const (return "Warning: GF_LIB_PATH is not defined."))
+    (const (return $ "GF_LIB_PATH is set to the default, " ++ libdir))
   return $ welcomeMsg lib
 
 welcomeMsg lib = 
-- 
cgit v1.2.3