Fix faulty benchmark

haskell-unordered-containers · Jul 15, 2011 · eaeb7fb · eaeb7fb
1 parent bfa4ecd
commit eaeb7fb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/benchmarks/Benchmarks.hs b/benchmarks/Benchmarks.hs
@@ -51,8 +51,8 @@ main = do
             , bench "ByteStringString" $ whnf (insertM elemsBS) M.empty
             ]
           , bgroup "delete"
-            [ bench "String" $ whnf (deleteM elems) M.empty
-            , bench "ByteString" $ whnf (deleteM elemsBS) M.empty
+            [ bench "String" $ whnf (deleteM keys) m
+            , bench "ByteString" $ whnf (deleteM keysBS) mbs
             ]
           ]