X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FGHC.hs;h=00d5cbea0322cf1bdf9a0b67d3b1fc5a937a92ec;hb=3db6d1b8f2272f27e947e5347268a576452a6e77;hp=a5d82b86e0f392fe89b72ccd929f7e400d630710;hpb=2d4e1203c6a5ee5634c0af5404d9a8ad2b338cf1;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index a5d82b8..00d5cbe 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -373,7 +373,7 @@ defaultCleanupHandler :: (ExceptionMonad m, MonadIO m) =>
                          DynFlags -> m a -> m a
 defaultCleanupHandler dflags inner =
     -- make sure we clean up after ourselves
-    inner `gonException`
+    inner `gfinally`
           (liftIO $ do
               cleanTempFiles dflags
               cleanTempDirs dflags