ghc-mtl 1.1.0.0 → 1.2.0.0
raw patch · 2 files changed
+7/−4 lines, 2 filesdep ~exceptions
Dependency ranges changed: exceptions
Files
- Control/Monad/Ghc.hs +5/−2
- ghc-mtl.cabal +2/−2
Control/Monad/Ghc.hs view
@@ -58,8 +58,10 @@ liftIO = GHC.liftIO #endif -instance MonadCatch Ghc where+instance MonadThrow Ghc where throwM = liftIO . E.throwIO++instance MonadCatch Ghc where catch = GHC.gcatch #if __GLASGOW_HASKELL__ >= 700@@ -111,9 +113,10 @@ liftIO = MTL.liftIO #endif -instance (MonadIO m,MonadCatch m) => MonadCatch (GhcT m) where+instance MonadCatch m => MonadThrow (GhcT m) where throwM = lift . throwM +instance (MonadIO m,MonadCatch m) => MonadCatch (GhcT m) where m `catch` f = GhcT ((unGhcT m) `GHC.gcatch` (unGhcT . f)) mask f = wrap $ \s ->
ghc-mtl.cabal view
@@ -1,5 +1,5 @@ name: ghc-mtl-version: 1.1.0.0+version: 1.2.0.0 description: Provides an 'mtl' compatible version of the 'GhcT' monad-transformer defined in the 'GHC-API' since version 6.10.1.@@ -20,7 +20,7 @@ build-depends: base >= 4, base <= 5, ghc >= 6.10, mtl,- exceptions == 0.3.*,+ exceptions >= 0.4, extensible-exceptions exposed-modules: Control.Monad.Ghc extensions: GeneralizedNewtypeDeriving, CPP