git.iko.soy/text
on master help sign in
Data.Text.Fusion.Common.concat: use 'empty'.
b39bb25Nicolas Pouillard
Data/Text/Fusion/Common.hs+1−4
compare with master
unifiedsplit
@@ -376,10 +376,7 @@ intercalate s = concat . (L.intersperse s)
376
376
377-- | /O(n)/ Concatenate a list of streams. Subject to array fusion.
377-- | /O(n)/ Concatenate a list of streams. Subject to array fusion.
378concat :: [Stream Char] -> Stream Char
378concat :: [Stream Char] -> Stream Char
379−concat = L.foldr append (Stream next Done 0)
379+concat = L.foldr append empty
380− where
381− next Done = Done
382− next _ = internalError "concat"
383
380
384-- | Map a function over a stream that results in a stream and concatenate the
381-- | Map a function over a stream that results in a stream and concatenate the
385-- results.
382-- results.