Block until a read or write operation on a socket would succeed

On most platforms this uses threadWaitRead or threadWaitWrite, but on Windows we need to do something different.

See http://hackage.haskell.org/trac/ghc/ticket/5797.