Fixed `scan`

The first `Char` of each output chunk is redundant (since it would have been
emitted by the previous chunk).  This removes the duplicate `Char`s.

Note that this bug was present in `pipes-bytestring` as well, and I fixed it
there, too.

diff --git a/Pipes/Text.hs b/Pipes/Text.hs
index eb72be25905d0552ad0152df3cdd84f73338730c..4b2d2b04261f9dfe8d565b5b04acfc7be95c67c6 100644 (file)
--- a/Pipes/Text.hs
+++ b/Pipes/Text.hs
@@ -485,13 +485,15 @@ filter predicate = P.map (T.filter predicate)
 scan
     :: (Monad m)
     => (Char -> Char -> Char) -> Char -> Pipe Text Text m r
-scan step begin = go begin
+scan step begin = do
+    yield (T.singleton begin)
+    go begin
   where
     go c = do
         txt <- await
         let txt' = T.scanl step c txt
             c' = T.last txt'
-        yield txt'
+        yield (T.tail txt')
         go c'
 {-# INLINABLE scan #-}