Increase benchmark size for better resolution

This commit is contained in:
Victor Denisov 2016-04-27 00:04:33 -07:00
parent 494bdcbe56
commit b3effd4439
2 changed files with 5 additions and 2 deletions

View File

@ -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")

View File

@ -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