@@ -423,7 +423,7 @@ where
423423
424424#include "inline.hs"
425425
426−import Control.Applicative (liftA2)
426+-- import Control.Applicative (liftA2)
427427import Control.Monad ((>=>))
428428import Data.Bifunctor (Bifunctor(..))
429429import Data.Either (fromLeft, fromRight, isLeft, isRight)
@@ -860,6 +860,11 @@ split_ (Fold stepL initialL _) (Fold stepR initialR extractR) =
860860 Partial sR -> extractR sR
861861 Done rR -> return rR
862862
863+-- Disabled because this uses the non-CPS style splitWith operation. We should
864+-- use a CPS style operation to be compatible with parsers. For fused
865+-- applicative we can use a separate (Split) newtype instead.
866+
867+{-
863868-- | 'Applicative' form of 'splitWith'. Split the input serially over two
864869-- folds.
865870instance Monad m => Applicative (Fold m a) where
@@ -874,6 +879,7 @@ instance Monad m => Applicative (Fold m a) where
874879
875880 {-# INLINE liftA2 #-}
876881 liftA2 f x = (<*>) (fmap f x)
882+-}
877883
878884{-# ANN type TeeState Fuse #-}
879885data TeeState sL sR bL bR