withServer was missing its loop
Documentation: Control.Proxy.Network.TCP
Documentation: Control.Proxy.Safe.Network.TCP
serve{WriterD,ReaderS} now actually accept a single connection