hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #44 from eagletmt/cleanup-temporaries

Browse Source 
Cleanup temporaries
This commit is contained in:
Kazu Yamamoto 2012-02-14 05:23:51 -08:00
commit 575bdc4889
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GHCApi.hs
View File

@ -12,7 +12,9 @@ import Types
---------------------------------------------------------------- ----------------------------------------------------------------
withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a) 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 where
ignore :: (MonadPlus m) => SomeException -> IO (m a) ignore :: (MonadPlus m) => SomeException -> IO (m a)
ignore _ = return mzero ignore _ = return mzero