[Haskell-cafe] network-conduit proxy

[grant]

I've tried running the code with runTCPServer first but I get
 "recv: invalid argument (Bad file descriptor)" on ubuntu (virtualbox) 
and when running on windows 
I get "Network.Socket.ByteString.recv: failed (Unknown error)".

Also, it seems odd that when I run this code   https://gist.github.com/2010354   
that it doesn't print "END   serverSrc clientSink". 
Is this the expected behaviour or are resources not being closed?
Again the same thing happens when running on Ubuntu.

{- here is the output ...
C:\haskell>netproxy4
START clientSrc serverSink
START serverSrc clientSink
END   clientSrc serverSink
START serverSrc clientSink
START clientSrc serverSink
END   clientSrc serverSink
-}

Thanks for any ideas.
Grant