From 4a0d1994062c9a2c86fda3c237dee1c40bff3cf2 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 27 Feb 2008 19:58:32 +0000
Subject: [PATCH] Fixed the keep temporaries thing so that it still keeps them
 when the compilation succeeds, not just when it dies

---
 Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index 7f2119f..286b57b 100644
--- 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 ()