diff --git a/Control/Monad/Util.hs b/Control/Monad/Util.hs index 1cec095..502fd18 100644 --- a/Control/Monad/Util.hs +++ b/Control/Monad/Util.hs @@ -9,14 +9,7 @@ import Control.Arrow ((+++)) import Control.Monad.Reader import Control.Monad.Error -instance (Monad m) => Applicative (ReaderT r m) where - pure = return - (<*>) = ap - -instance (Monad m, Error e) => Applicative (ErrorT e m) where - pure = return - (<*>) = ap - +-- | MonadIO with extra Applicative and Functor superclasses class (MonadIO m, Applicative m, Functor m) => MonadIO' m instance (MonadIO m, Applicative m, Functor m) => MonadIO' m diff --git a/mongoDB.cabal b/mongoDB.cabal index 6860fed..fe12b10 100644 --- a/mongoDB.cabal +++ b/mongoDB.cabal @@ -1,5 +1,5 @@ name: mongoDB -version: 0.8 +version: 0.8.1 build-type: Simple license: OtherLicense license-file: LICENSE @@ -12,7 +12,7 @@ build-depends: bson -any, bytestring -any, containers -any, - mtl -any, + mtl >= 2, nano-md5 -any, network -any, parsec -any,