[commit: packages/containers] ghc-head: Fix fromDistinctAscList benchmark. (a1de0dd)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/containers

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/containers.git;a=commit;h=a1de0dd0e33c75e42ba545bb6056990a190f38e1

>---------------------------------------------------------------

commit a1de0dd0e33c75e42ba545bb6056990a190f38e1
Author: Milan Straka <fox at ucw.cz>
Date:   Thu Aug 30 23:33:27 2012 +0200

    Fix fromDistinctAscList benchmark.
    
    It used fromAscList instead fromDistinctAscList.


>---------------------------------------------------------------

a1de0dd0e33c75e42ba545bb6056990a190f38e1
 benchmarks/IntMap.hs |    2 +-
 benchmarks/IntSet.hs |    2 +-
 benchmarks/Map.hs    |    2 +-
 benchmarks/Set.hs    |    2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/benchmarks/IntMap.hs b/benchmarks/IntMap.hs
index 99aaa01..87465a7 100644
--- a/benchmarks/IntMap.hs
+++ b/benchmarks/IntMap.hs
@@ -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
diff --git a/benchmarks/IntSet.hs b/benchmarks/IntSet.hs
index 9f68600..7c16c91 100644
--- a/benchmarks/IntSet.hs
+++ b/benchmarks/IntSet.hs
@@ -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]
diff --git a/benchmarks/Map.hs b/benchmarks/Map.hs
index 41211c6..5b4cf92 100644
--- a/benchmarks/Map.hs
+++ b/benchmarks/Map.hs
@@ -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
diff --git a/benchmarks/Set.hs b/benchmarks/Set.hs
index b76a6a2..8880869 100644
--- a/benchmarks/Set.hs
+++ b/benchmarks/Set.hs
@@ -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]