Repository : ssh://[email protected]/containers On branch : ghc-head Link : http://git.haskell.org/?p=packages/containers.git;a=commit;h=a1de0dd0e33c75e42ba545bb6056990a190f38e1
>--------------------------------------------------------------- commit a1de0dd0e33c75e42ba545bb6056990a190f38e1 Author: Milan Straka <[email protected]> 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] _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
