Simon Marlow wrote: > -- | Takes an output stream and an input stream, and pipes all the > -- data from the former into the latter. > streamConnect :: (OutputStream o, InputStream i) => o -> i -> IO () That's the wrong way around, of course :-) It pipes everything from the input stream to the output stream. Cheers, Simon