@@ -801,7 +801,7 @@ elemIndex a = findIndex (==a)
801801--
802802{-# INLINE isPrefixOf #-}
803803isPrefixOf :: (Eq a, IsStream t, Monad m) => t m a -> t m a -> m Bool
804−isPrefixOf m1 m2 = S.isPrefixOf (toStreamD m1) (toStreamD m2)
804+isPrefixOf m1 m2 = D.isPrefixOf (toStreamD m1) (toStreamD m2)
805805
806806-- | Takes two streams and returns 'True' if all the elements of the
807807-- first stream occur, in order, in the second stream. The elements do
@@ -809,7 +809,7 @@ isPrefixOf m1 m2 = S.isPrefixOf (toStreamD m1) (toStreamD m2)
809809--
810810{-# INLINE isSubsequenceOf #-}
811811isSubsequenceOf :: (Eq a, IsStream t, Monad m) => t m a -> t m a -> m Bool
812−isSubsequenceOf m1 m2 = S.isSubsequenceOf (toStreamD m1) (toStreamD m2)
812+isSubsequenceOf m1 m2 = D.isSubsequenceOf (toStreamD m1) (toStreamD m2)
813813
814814-- | Drops the given prefix from a stream. Returns Nothing if the stream
815815-- doesn't start with the prefix given.
@@ -817,7 +817,7 @@ isSubsequenceOf m1 m2 = S.isSubsequenceOf (toStreamD m1) (toStreamD m2)
817817{-# INLINE stripPrefix #-}
818818stripPrefix :: (Eq a, IsStream t, Monad m) => t m a -> t m a -> m (Maybe (t m a))
819819stripPrefix m1 m2 = fmap (fmap fromStreamD) $
820− S.stripPrefix (toStreamD m1) (toStreamD m2)
820+ D.stripPrefix (toStreamD m1) (toStreamD m2)
821821
822822------------------------------------------------------------------------------
823823-- Map and Fold