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

Improve deletion of auxiliary files

parent 5aad52f8
......@@ -842,18 +842,17 @@ compileMainExpression rst exp runrmexec = do
then execCommandWithPath rst timecompilecmd [] >> return ()
else do writeVerboseInfo rst 2 $ "Executing: " ++ timecompilecmd
system timecompilecmd >> return ()
ec <- if runrmexec
then do
execcmd <- getTimeCmd rst "Execution"
(unwords ["./" ++ mainexpmod, rtsArgs rst])
writeVerboseInfo rst 2 $ "Executing: " ++ execcmd
ecx <- system execcmd
unlessKeepFiles rst $
removeFileIfExists mainexpmod -- remove executable
return ecx
else return 0
cleanModule rst mainexpmod
return ec
if runrmexec
then do
execcmd <- getTimeCmd rst "Execution"
(unwords ["./" ++ mainexpmod, rtsArgs rst])
writeVerboseInfo rst 2 $ "Executing: " ++ execcmd
ecx <- system execcmd
unlessKeepFiles rst $
removeFileIfExists mainexpmod -- remove executable
return ecx
else return 0
generateMainExpFile = do
unlessKeepFiles rst $ removeFileIfExists $ acyFileName rst (mainExpMod rst)
......
Supports Markdown
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