1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed e13e61c

Tix fypo

  • Participants
  • Parent commits aa02748
  • Branches default

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

View file
  • Ignore whitespace
       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)