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