[Haskell-cafe] non-blocking Socket