Fixed the keep temporaries thing so that it still keeps them when the compilation succeeds, not just when it dies
This commit is contained in:
parent
46de1956b3
commit
4a0d199406
1
Main.hs
1
Main.hs
|
@ -219,6 +219,7 @@ compileFull fn = do optsPS <- lift get
|
||||||
|
|
||||||
-- Finally, remove the temporary files:
|
-- Finally, remove the temporary files:
|
||||||
tempFiles <- get
|
tempFiles <- get
|
||||||
|
when (not $ csKeepTemporaries optsPS) $
|
||||||
liftIO $ removeFiles tempFiles
|
liftIO $ removeFiles tempFiles
|
||||||
|
|
||||||
where
|
where
|
||||||
|
|
Loading…
Reference in New Issue
Block a user