From 630b558b93f24267d2d9bc9b918c7aeac9ad4b3c Mon Sep 17 00:00:00 2001
From: Tony Hannan <tony@10gen.com>
Date: Mon, 1 Nov 2010 10:25:46 -0400
Subject: [PATCH] Depend on mtl >= 2 since it now has Applicative instance for
 ReaderT, ErrorT, etc.

---
 Control/Monad/Util.hs | 9 +--------
 mongoDB.cabal         | 4 ++--
 2 files changed, 3 insertions(+), 10 deletions(-)

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,