Commits

Bryan O'Sullivan committed e13e61c

Tix fypo

  • Participants
  • Parent commits aa02748

Comments (0)

Files changed (1)

Data/Text/Fusion.hs

       next Done = Done
       next _    = internalError "concat"
 
--- | Map a function over a stream that results in a steram and concatenate the
+-- | Map a function over a stream that results in a stream and concatenate the
 -- results.
 concatMap :: (Char -> Stream Char) -> Stream Char -> Stream Char
 concatMap f = foldr (append . f) (stream empty)