[Haskell-cafe] Fwd: Safe TCP accept loop