group package:streaming

group :: (Monad m, Eq a) => Stream (Of a) m r -> Stream (Stream (Of a) m) m r
streaming Streaming.Prelude
Group successive equal items together 
>>> S.toList $ mapped S.toList $ S.group $ each "baaaaad"
["b","aaaaa","d"] :> ()

>>> S.toList $ concats $ maps (S.drained . S.splitAt 1) $ S.group $ each "baaaaaaad"
"bad" :> ()
groups :: (Monad m, Functor f, Functor g) => Stream (Sum f g) m r -> Stream (Sum (Stream f m) (Stream g m)) m r
streaming Streaming Streaming.Internal
Group layers in an alternating stream into adjoining sub-streams of one type or another.
groupBy :: Monad m => (a -> a -> Bool) -> Stream (Of a) m r -> Stream (Stream (Of a) m) m r
streaming Streaming.Prelude
Group elements of a stream in accordance with the supplied comparison. 
>>> S.print $ mapped S.toList $ S.groupBy (>=) $ each [1,2,3,1,2,3,4,3,2,4,5,6,7,6,5]
[1]
[2]
[3,1,2,3]
[4,3,2,4]
[5]
[6]
[7,6,5]