[Haskell-cafe] Space leak when returning pairs?

Henning Thielemann lemming at henning-thielemann.de
Fri May 19 05:16:13 EDT 2006


On Fri, 19 May 2006, Shin-Cheng Mu wrote:

>    idX :: [XMLEvent] -> ([XMLEvent], [XMLEvent])
>    idX [] = ([], [])
>    idX (StartEvent a : strm) =
>      let (ts, strm') = idX strm
>          (us, strm'') = idX strm'
>      in (StartEvent a [] : ts ++ EndEvent a : us, strm'')
>    idX (EndEvent _: strm) = ([], strm)
>    idX (TextEvent s : strm) =
>      let (ts, strm') = idX strm
>      in (TextEvent s : ts, strm')


let ~(ts, strm') = idX strm
    ~(us, strm'') = idX strm'

?



More information about the Haskell-Cafe mailing list