managed 1.0.6 → 1.0.7

raw patch · 2 files changed

+11/−1 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Control.Monad.Managed: instance Data.Semigroup.Semigroup a => Data.Semigroup.Semigroup (Control.Monad.Managed.Managed a)

+ Control.Monad.Managed: class Monad m => MonadIO (m :: Type -> Type)

+ Control.Monad.Managed: instance Control.Monad.Fail.MonadFail Control.Monad.Managed.Managed

+ Control.Monad.Managed: instance GHC.Base.Semigroup a => GHC.Base.Semigroup (Control.Monad.Managed.Managed a)

+ Control.Monad.Managed: liftIO :: MonadIO m => IO a -> m a

+ Control.Monad.Managed.Safe: class Monad m => MonadIO (m :: Type -> Type)

+ Control.Monad.Managed.Safe: liftIO :: MonadIO m => IO a -> m a

Files

managed.cabal +1/−1
src/Control/Monad/Managed.hs +10/−0

managed.cabal view

@@ -1,5 +1,5 @@ Name: managed-Version: 1.0.6+Version: 1.0.7 Cabal-Version: >=1.8.0.2 Build-Type: Simple License: BSD3

src/Control/Monad/Managed.hs view

@@ -108,6 +108,9 @@     ) where  import Control.Monad.IO.Class (MonadIO(liftIO))+#if MIN_VERSION_base(4,9,0)+import Control.Monad.Fail as MonadFail (MonadFail(..))+#endif import Control.Monad.Trans.Class (lift)  #if MIN_VERSION_base(4,8,0)@@ -165,6 +168,13 @@     liftIO m = Managed (\return_ -> do         a <- m         return_ a )++#if MIN_VERSION_base(4,9,0)+instance MonadFail Managed where+    fail s = Managed (\return_ -> do+        a <- MonadFail.fail s+        return_ a )+#endif  instance Semigroup a => Semigroup (Managed a) where     (<>) = liftA2 (<>)