From 91701962c33e12d4b9cb86fe8f552f94c854df75 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Thu, 5 Mar 2015 12:00:01 -0800
Subject: [PATCH] fix ActionWith usage

---
 mongoDB.cabal     | 2 +-
 test/QuerySpec.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/mongoDB.cabal b/mongoDB.cabal
index ed1206b..ad2174e 100644
--- a/mongoDB.cabal
+++ b/mongoDB.cabal
@@ -62,7 +62,7 @@ test-suite test
   build-depends:   mongoDB
                  , base
                  , mtl
-                 , hspec
+                 , hspec >= 2
 
   default-language: Haskell2010
   default-extensions: OverloadedStrings
diff --git a/test/QuerySpec.hs b/test/QuerySpec.hs
index 8615919..db619f0 100644
--- a/test/QuerySpec.hs
+++ b/test/QuerySpec.hs
@@ -15,8 +15,8 @@ db action = do
     close pipe
     return result
 
-withCleanDatabase :: IO a -> IO ()
-withCleanDatabase action = dropDB >> action >> dropDB >> return ()
+withCleanDatabase :: ActionWith () -> IO ()
+withCleanDatabase action = dropDB >> action () >> dropDB >> return ()
   where
     dropDB = db $ dropDatabase testDBName