[commit: packages/containers] changelog-foldtree, cleaned_bugfix394, master, merge-doc-target, merge-fixes-5.9, merge-restrict-fix-5.8, revert-184-generic, revert-408-bugfix_394: Make sure arguments are in correct order. (e9ec4c2)

[git at git.haskell.org]

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

On branches: changelog-foldtree,cleaned_bugfix394,master,merge-doc-target,merge-fixes-5.9,merge-restrict-fix-5.8,revert-184-generic,revert-408-bugfix_394
Link       : http://git.haskell.org/packages/containers.git/commitdiff/e9ec4c273fd36ac517078f4495fa6b0ae8ef4015

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

commit e9ec4c273fd36ac517078f4495fa6b0ae8ef4015
Author: Milan Straka <milan at strakovi.com>
Date:   Thu Feb 11 08:13:08 2016 +0100

    Make sure arguments are in correct order.


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

e9ec4c273fd36ac517078f4495fa6b0ae8ef4015
 benchmarks/SetOperations/SetOperations.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/benchmarks/SetOperations/SetOperations.hs b/benchmarks/SetOperations/SetOperations.hs
index 0eced65..eb3465c 100644
--- a/benchmarks/SetOperations/SetOperations.hs
+++ b/benchmarks/SetOperations/SetOperations.hs
@@ -19,7 +19,7 @@ benchmark fromList swap methods = do
              | (mode_str, (left, right)) <- [ ("disj_nn", disj_nn), ("disj_ns", disj_ns), ("disj_nt", disj_nt)
                                             , ("common_nn", common_nn), ("common_ns", common_ns), ("common_nt", common_nt)
                                             , ("mix_nn", mix_nn), ("mix_ns", mix_ns), ("mix_nt", mix_nt)
-                                            , ("block_nn", block_nn), ("block_sn", block_ns)
+                                            , ("block_nn", block_nn), ("block_ns", block_ns)
                                             ]
 
              , (mode_str, left, right) <- replicate 2 (mode_str, left, right) ++
@@ -35,11 +35,11 @@ benchmark fromList swap methods = do
     !common_nn = seqPair $ (all_n, fromList [2,4..n])
     !common_ns = seqPair $ (all_n, fromList [0,1+n`div`s..n])
     !common_nt = seqPair $ (all_n, fromList [0,1+n`div`t..n])
-    !mix_nn = seqPair $ fromLists $ partition ((== 0) . (`mod` 2)) [1..n+n]
-    !mix_ns = seqPair $ fromLists $ partition ((== 0) . (`mod` (1 + n`div`s))) [1..s+n]
-    !mix_nt = seqPair $ fromLists $ partition ((== 0) . (`mod` (1 + n`div`t))) [1..t+n]
-    !block_nn = seqPair $ fromLists $ partition ((< t) . (`mod` (t * 2))) [1..n+n]
-    !block_ns = seqPair $ fromLists $ partition ((< t) . (`mod` (t * (1 + n`div`s)))) [1..s+n]
+    !mix_nn = seqPair $ fromLists $ partition ((/= 0) . (`mod` 2)) [1..n+n]
+    !mix_ns = seqPair $ fromLists $ partition ((/= 0) . (`mod` (1 + n`div`s))) [1..s+n]
+    !mix_nt = seqPair $ fromLists $ partition ((/= 0) . (`mod` (1 + n`div`t))) [1..t+n]
+    !block_nn = seqPair $ fromLists $ partition ((>= t) . (`mod` (t * 2))) [1..n+n]
+    !block_ns = seqPair $ fromLists $ partition ((>= t) . (`mod` (t * (1 + n`div`s)))) [1..s+n]
 
     fromLists (xs, ys) = (fromList xs, fromList ys)
     seqPair pair@(xs, ys) = xs `seq` ys `seq` pair