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

cleanup temporaries

Browse Source
This commit is contained in:
eagletmt 2012-02-14 19:14:21 +09:00
parent 1b1245577e
commit fab993acfa
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