Commits

Nicolas Pouillard committed 6033bfd

Data.Text.Fusion.Common.concat: use 'empty'.

  • Participants
  • Parent commits deaf0b3

Comments (0)

Files changed (1)

Data/Text/Fusion/Common.hs

 
 -- | /O(n)/ Concatenate a list of streams. Subject to array fusion.
 concat :: [Stream Char] -> Stream Char
-concat = L.foldr append (Stream next Done 0)
-    where
-      next Done = Done
-      next _    = internalError "concat"
+concat = L.foldr append empty
 
 -- | Map a function over a stream that results in a stream and concatenate the
 -- results.