Commit 7905bc4f authored by Michael Hanus 's avatar Michael Hanus
Browse files

cpm and currycheck updated

parent 03cfac7f
......@@ -33,7 +33,9 @@ import List ( intercalate, splitOn )
--- Joins a list of directories into a search path.
joinSearchPath :: [FilePath] -> String
joinSearchPath dirs = intercalate [searchPathSeparator] dirs
joinSearchPath = intercalate [searchPathSeparator] . map emptyPath2Dot
where
emptyPath2Dot p = if null p then "." else p
--- Recursively copies a directory structure.
copyDirectory :: String -> String -> IO ()
......
......@@ -928,7 +928,9 @@ main = do
"Generating main test module '"++testmodname++"'..."
genMainTestModule opts testmodname finaltestmodules
putStrIfNormal opts $ withColor opts blue $ "and compiling it...\n"
currypath <- getEnviron "CURRYPATH"
ecurrypath <- getEnviron "CURRYPATH"
let currypath = case ecurrypath of ':':_ -> '.':ecurrypath
_ -> ecurrypath
let runcmd = unwords $
[ installDir </> "bin" </> "curry"
, "--noreadline"
......
......@@ -928,7 +928,9 @@ main = do
"Generating main test module '"++testmodname++"'..."
genMainTestModule opts testmodname finaltestmodules
putStrIfNormal opts $ withColor opts blue $ "and compiling it...\n"
currypath <- getEnviron "CURRYPATH"
ecurrypath <- getEnviron "CURRYPATH"
let currypath = case ecurrypath of ':':_ -> '.':ecurrypath
_ -> ecurrypath
let runcmd = unwords $
[ installDir </> "bin" </> "curry"
, "--noreadline"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment