Depend on mtl >= 2 since it now has Applicative instance for ReaderT, ErrorT, etc.

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
+-- | MonadIO with extra Applicative and Functor superclasses
-	pure = return
-	(<*>) = ap
-
-instance (Monad m, Error e) => Applicative (ErrorT e m) where
-	pure = return
-	(<*>) = ap
-
 class (MonadIO m, Applicative m, Functor m) => MonadIO' m
 instance (MonadIO m, Applicative m, Functor m) => MonadIO' m
 

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,