Fix fromDistinctAscList benchmark.
authorMilan Straka <fox@ucw.cz>
Thu, 30 Aug 2012 21:33:27 +0000 (23:33 +0200)
committerMilan Straka <fox@ucw.cz>
Thu, 30 Aug 2012 21:33:27 +0000 (23:33 +0200)
It used fromAscList instead fromDistinctAscList.

benchmarks/IntMap.hs
benchmarks/IntSet.hs
benchmarks/Map.hs
benchmarks/Set.hs

index 99aaa01..87465a7 100644 (file)
@@ -41,7 +41,7 @@ main = do
         , bench "mapMaybeWithKey" $ whnf (M.mapMaybeWithKey (const maybeDel)) m
         , bench "fromList" $ whnf M.fromList elems
         , bench "fromAscList" $ whnf M.fromAscList elems
-        , bench "fromDistinctAscList" $ whnf M.fromAscList elems
+        , bench "fromDistinctAscList" $ whnf M.fromDistinctAscList elems
         ]
   where
     elems = zip keys values
index 9f68600..7c16c91 100644 (file)
@@ -34,7 +34,7 @@ main = do
         , bench "intersection" $ whnf (S.intersection s) s_even
         , bench "fromList" $ whnf S.fromList elems
         , bench "fromAscList" $ whnf S.fromAscList elems
-        , bench "fromDistinctAscList" $ whnf S.fromAscList elems
+        , bench "fromDistinctAscList" $ whnf S.fromDistinctAscList elems
         ]
   where
     elems = [1..2^12]
index 41211c6..5b4cf92 100644 (file)
@@ -60,7 +60,7 @@ main = do
         , bench "split" $ whnf (M.split (bound `div` 2)) m
         , bench "fromList" $ whnf M.fromList elems
         , bench "fromAscList" $ whnf M.fromAscList elems
-        , bench "fromDistinctAscList" $ whnf M.fromAscList elems
+        , bench "fromDistinctAscList" $ whnf M.fromDistinctAscList elems
         ]
   where
     bound = 2^12
index b76a6a2..8880869 100644 (file)
@@ -35,7 +35,7 @@ main = do
         , bench "intersection" $ whnf (S.intersection s) s_even
         , bench "fromList" $ whnf S.fromList elems
         , bench "fromAscList" $ whnf S.fromAscList elems
-        , bench "fromDistinctAscList" $ whnf S.fromAscList elems
+        , bench "fromDistinctAscList" $ whnf S.fromDistinctAscList elems
         ]
   where
     elems = [1..2^12]