[Haskell-cafe] Race conditions with threadWait(Read/Write) and closeFdWith