Commit 40dce80d authored by John van Groningen's avatar John van Groningen

fix program return code of cpm and BatchBuild

parent 5c03b98e
......@@ -39,7 +39,7 @@ pinit force_rebuild ps
= BringProjectUptoDate force_rebuild cleanup ps
where
cleanup exepath bool1 bool2 ps
= abortLog False "" ps
= abortLog (not bool2) "" ps
wAbort message world
// # (console,world) = stdio world
......
......@@ -121,7 +121,7 @@ doProjectAction cleanhome pwd pn (BuildProject force ideenvs) world
= gst_world
where
pinit force_rebuild gst = BringProjectUptoDate force_rebuild cleanup gst
cleanup exepath bool1 bool2 ps = abortLog False "" ps
cleanup exepath bool1 bool2 ps = abortLog (not bool2) "" ps
doProjectAction cleanhome pwd pn (ProjectPath pa) world
# (proj_path, project, ok, world) = openProject pwd pn cleanhome world
......
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