X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=169a99f44c470b773268b97bca2dc41276fadb06;hb=80ce44f764633347ea15b570e3f758b6e7aecd63;hp=6855f94ccf00a232f2fb22a85e6b51804eda4927;hpb=9a37b33443be07667867dabb5b67b1319231e648;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 6855f94..169a99f 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -339,9 +339,8 @@ defaultErrorHandler dflags inner =
 defaultCleanupHandler :: DynFlags -> IO a -> IO a
 defaultCleanupHandler dflags inner = 
     -- make sure we clean up after ourselves
-    later (unless (dopt Opt_KeepTmpFiles dflags) $
-               do cleanTempFiles dflags
-                  cleanTempDirs dflags
+    later (do cleanTempFiles dflags
+              cleanTempDirs dflags
           )
           -- exceptions will be blocked while we clean the temporary files,
           -- so there shouldn't be any difficulty if we receive further