@@ -1036,12 +1036,10 @@ splitAt n fld = splitWith (,) (takeLE n fld)
10361036{-# INLINE sliceSepBy #-}
10371037sliceSepBy :: Monad m => (a -> Bool) -> Fold m a b -> Fold m a b
10381038sliceSepBy predicate (Fold fstep finitial fextract) =
1039− Fold step initial fextract
1039+ Fold step finitial fextract
10401040
10411041 where
10421042
1043− initial = finitial
1044−
10451043 step s a =
10461044 if not (predicate a)
10471045 then fstep s a
@@ -1060,12 +1058,10 @@ sliceSepBy predicate (Fold fstep finitial fextract) =
10601058{-# INLINE sliceEndWith #-}
10611059sliceEndWith :: Monad m => (a -> Bool) -> Fold m a b -> Fold m a b
10621060sliceEndWith predicate (Fold fstep finitial fextract) =
1063− Fold step initial fextract
1061+ Fold step finitial fextract
10641062
10651063 where
10661064
1067− initial = finitial
1068−
10691065 step s a = do
10701066 res <- fstep s a
10711067 if not (predicate a)