[Haskell-cafe] How to redirect a handle within a thread (GHC 6.4.1 runtime)?