Data.Text.Fusion.Common.concat: use 'empty'.
--HG--
extra : convert_revision : c3f6a74bb2cff33d567f011c0ef65aead7dc2d6d
commitb39bb257b8b18595edeef61156cb036aed5bc659
authorNicolas Pouillard <nicolas.pouillard@gmail.com>
dateFri 6 Mar 2009, 10:54 (18 years ago)
parentabe55a2
Data/Text/Fusion/Common.hs+1−4
@@ -376,10 +376,7 @@ intercalate s = concat . (L.intersperse s)
376376
377377-- | /O(n)/ Concatenate a list of streams. Subject to array fusion.
378378concat :: [Stream Char] -> Stream Char
379−concat = L.foldr append (Stream next Done 0)
380− where
381− next Done = Done
382− next _ = internalError "concat"
379+concat = L.foldr append empty
383380
384381-- | Map a function over a stream that results in a stream and concatenate the
385382-- results.