Increase benchmark size for better resolution
This commit is contained in:
parent
494bdcbe56
commit
b3effd4439
2 changed files with 5 additions and 2 deletions
|
@ -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")
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue