@@ -65,7 +65,7 @@ module Data.Text.Fusion.Common
6565 , scanl
6666
6767 -- ** Accumulating maps
68− , mapAccumL
68+ -- , mapAccumL
6969
7070 -- ** Generation and unfolding
7171 , replicate
@@ -552,6 +552,7 @@ scanl f z0 (Stream next0 s0 len) = Stream next (S1 :!: z0 :!: s0) (len+1) -- HIN
552552-- -----------------------------------------------------------------------------
553553-- ** Accumulating maps
554554
555+{-
555556-- | /O(n)/ Like a combination of 'map' and 'foldl'. Applies a
556557-- function to each element of a stream, passing an accumulating
557558-- parameter from left to right, and returns a final stream.
@@ -569,6 +570,7 @@ mapAccumL f z0 (Stream next0 s0 len) = Stream next (s0 :!: z0) len -- HINT depen
569570 Skip s' -> Skip (s' :!: z)
570571 Done -> Done
571572{-# INLINE [0] mapAccumL #-}
573+-}
572574
573575-- -----------------------------------------------------------------------------
574576-- ** Generating and unfolding streams