Commits

Bryan O'Sullivan committed ca37756

Correct the order of partition results for great justice.

  • Participants
  • Parent commits e6b1893

Comments (0)

Files changed (1)

File src/Network/Riak/Monoid.hs

   go acc [] = return . map snd . sortBy (compare `on` fst) $ acc
   go acc puts = do
     rs <- doPut conn bucket (map snd puts) w dw
-    let (ok, conflicts) = partition isConflict $ zip (map fst puts) rs
+    let (conflicts, ok) = partition isConflict $ zip (map fst puts) rs
         isConflict (_,(_:_:_,_)) = True
         isConflict  _            = False
     go (map (second (first mconcat)) ok++acc) (map asPut conflicts)