Fixed the keep temporaries thing so that it still keeps them when the compilation succeeds, not just when it dies

2008-02-27 19:58:32 +00:00 · 2008-02-27 19:58:32 +00:00 · 4a0d199406
commit 4a0d199406
parent 46de1956b3
1 changed files with 2 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@ -219,7 +219,8 @@ compileFull fn        = do optsPS <- lift get
                           
                           -- Finally, remove the temporary files:
                           tempFiles <- get
-                           liftIO $ removeFiles tempFiles
+                           when (not $ csKeepTemporaries optsPS) $
+                             liftIO $ removeFiles tempFiles
    
  where
    noteFile :: Monad m => FilePath -> StateT [FilePath] m ()