GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

tutorial exercises; put libdir in place in GF/src

Browse Source
This commit is contained in:
aarne
2007-07-04 14:10:41 +00:00
parent aa5d9556ff
commit 8448623d36
4 changed files with 92 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF.hs
View File

@@ -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 =