[Haskell-cafe] How to dynamically attach readers to streams?

Example: main = readFile "/dev/input/mouse" >>= mapM print . streamToEvents That's no easy. Now I want to listen to those events remotely using a network conncetion Data.Network does provide everything I need. Is this done by substituting the print function with something like sent event = do writers <- getWritersFromMVar mapM (sent event) writers and using another lightweight thread to add writers/connections to the MVar? Would you implement this in another way? Marc