@@ -997,6 +997,7 @@ data LongestRunner sL sR bL bR
998-- /Pre-release/
998-- /Pre-release/
1000+{-# INLINE longest #-}
1000longest :: Monad m => Fold m x a -> Fold m x b -> Fold m x (Either a b)
1001longest :: Monad m => Fold m x a -> Fold m x b -> Fold m x (Either a b)
1001longest (Fold stepL beginL doneL) (Fold stepR beginR doneR) =
1002longest (Fold stepL beginL doneL) (Fold stepR beginR doneR) =
1002 Fold step begin done
1003 Fold step begin done