Commit 2d7e006d authored by Michael Hanus 's avatar Michael Hanus
Browse files

cpm and currycheck updated

parent 57e98898
......@@ -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 ()
......
......@@ -1011,7 +1011,9 @@ main = do
genMainTestModule opts testmodname finaltestmodules
showGeneratedModule opts "main test" testmodname
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"
......
......@@ -1011,7 +1011,9 @@ main = do
genMainTestModule opts testmodname finaltestmodules
showGeneratedModule opts "main test" testmodname
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