@@ -1325,6 +1325,16 @@ groups = groupsBy (==)
1325------------------------------------------------------------------------------
1325------------------------------------------------------------------------------
1328+-- | Find the first occurrence of the specified sequence in the input stream
1329+-- and break the input stream into two parts, the first part consisting of the
1330+-- stream before the sequence and the second part consisting of the sequence
1331+-- and the rest of the stream.
1333+-- > let breakOn_ pat xs = FL.foldl' (FL.breakOn pat FL.toList FL.toList) $ S.fromList xs
1335+-- >>> breakOn_ "dear" "Hello dear world!"
1336+-- > ("Hello ","dear world!")
1328{-# INLINE breakOn #-}
1338{-# INLINE breakOn #-}
1329breakOn :: Monad m => Array a -> Fold m a b -> Fold m a c -> Fold m a (b,c)
1339breakOn :: Monad m => Array a -> Fold m a b -> Fold m a c -> Fold m a (b,c)
1330breakOn pat f m = undefined
1340breakOn pat f m = undefined