tutorial exercises; put libdir in place in GF/src

1 files changed, 2 insertions, 2 deletions

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 =