Merge pull request #44 from eagletmt/cleanup-temporaries

Cleanup temporaries
2012-02-14 05:23:51 -08:00 · 2012-02-14 05:23:51 -08:00 · 575bdc4889
commit 575bdc4889
parent 1b1245577e fab993acfa
1 changed files with 3 additions and 1 deletions
--- a/GHCApi.hs
+++ b/GHCApi.hs
@ -12,7 +12,9 @@ import Types
 ----------------------------------------------------------------

 withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a)
-withGHC body = ghandle ignore $ runGhc (Just libdir) body
+withGHC body = ghandle ignore $ runGhc (Just libdir) $ do
+    dflags <- getSessionDynFlags
+    defaultCleanupHandler dflags body
  where
    ignore :: (MonadPlus m) => SomeException -> IO (m a)
    ignore _ = return mzero