@@ -250,14 +250,14 @@ words = foldWords A.write
250250-- >>> S.toList $ unlines $ S.fromList ["lines", "this", "string"]
251251-- "lines\nthis\nstring\n"
252252--
253−-- > unlines = AS.unlinesBy '\n'
253+-- > unlines = A.concatWithSuffix '\n'
254254--
255255-- Note that, in general
256256--
257257-- > unlines . lines /= id
258258{-# INLINE unlines #-}
259259unlines :: (MonadIO m, IsStream t) => t m (Array Char) -> t m Char
260−unlines = AS.unlinesBy '\n'
260+unlines = A.concatWithSuffix '\n'
261261
262262-- | Flattens the stream of @Array Char@, after appending a separating
263263-- space to each string.
@@ -268,7 +268,7 @@ unlines = AS.unlinesBy '\n'
268268-- "unwords this string"
269269--
270270--
271−-- > unwords = AS.flatten . (S.intersperse (A.fromList " "))
271+-- > unwords = A.concat . (S.intersperse (A.fromList " "))
272272--
273273-- Note that, in general
274274--