@@ -1318,9 +1318,8 @@ groupsByGT = S.drain . S.groupsBy (>) FL.drain
13181318
13191319{-# INLINE groupsByEq #-}
13201320groupsByEq :: MonadIO m => SerialT m Int -> m ()
1321−groupsByEq = S.drain . S.groupsBy (>) FL.drain
1321+groupsByEq = S.drain . S.groupsBy (==) FL.drain
13221322
1323−-- XXX Change this test when the order of comparison is later changed
13241323{-# INLINE groupsByRollingLT #-}
13251324groupsByRollingLT :: MonadIO m => SerialT m Int -> m ()
13261325groupsByRollingLT =
@@ -1329,11 +1328,10 @@ groupsByRollingLT =
13291328{-# INLINE groupsByRollingEq #-}
13301329groupsByRollingEq :: MonadIO m => SerialT m Int -> m ()
13311330groupsByRollingEq =
1332− S.drain . S.groupsByRolling (>) FL.drain
1331+ S.drain . S.groupsByRolling (==) FL.drain
13331332
13341333o_1_space_grouping :: Int -> [Benchmark]
13351334o_1_space_grouping value =
1336− -- Buffering operations using heap proportional to group/window sizes.
13371335 [ bgroup "grouping"
13381336 [ benchIOSink value "groups" groups
13391337 , benchIOSink value "groupsByGT" groupsByGT
@@ -2109,6 +2107,9 @@ main = do
21092107 , o_1_space_indexing size
21102108 , o_1_space_indexingX4 size
21112109
2110+ -- grouping
2111+ , o_1_space_grouping size
2112+
21122113 -- pipes
21132114 , o_1_space_pipes size
21142115 , o_1_space_pipesX4 size