[Haskell-cafe] Blocking problem reading a handle