From b3effd44397a3a7a6eeeb6a35943ac9fb5d1b1af Mon Sep 17 00:00:00 2001
From: Victor Denisov <denisovenator@gmail.com>
Date: Wed, 27 Apr 2016 00:04:33 -0700
Subject: [PATCH] Increase benchmark size for better resolution

---
 Benchmark.hs  | 4 ++--
 mongoDB.cabal | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Benchmark.hs b/Benchmark.hs
index a299ad7..c32984a 100644
--- a/Benchmark.hs
+++ b/Benchmark.hs
@@ -11,11 +11,11 @@ import Database.MongoDB.Query
 import qualified Data.Text as T
 
 main = defaultMain [
-    bgroup "insert" [ bench "100" $ nfIO doInserts ]
+    bgroup "insert" [ bench "1000" $ nfIO doInserts ]
   ]
 
 doInserts = do
-    let docs = (flip map) [0..100] $ \i ->
+    let docs = (flip map) [0..1000] $ \i ->
             ["name" M.=: (T.pack $ "name " ++ (show i))]
 
     pipe <- M.connect (M.host "127.0.0.1")
diff --git a/mongoDB.cabal b/mongoDB.cabal
index d8354df..884be35 100644
--- a/mongoDB.cabal
+++ b/mongoDB.cabal
@@ -82,6 +82,8 @@ Benchmark bench
   type:               exitcode-stdio-1.0
   Build-depends:      array -any
                     , base < 5
+                    , base64-bytestring
+                    , base16-bytestring
                     , binary -any
                     , bson >= 0.3 && < 0.4
                     , text
@@ -90,6 +92,7 @@ Benchmark bench
                     , mtl >= 2
                     , cryptohash -any
                     , network -any
+                    , nonce
                     , parsec -any
                     , random -any
                     , random-shuffle -any