Commit c4bf7546 authored by Michael Hanus 's avatar Michael Hanus
Browse files

Small fix for CURRYPATH starting with ':'

parent dd06d45a
......@@ -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