Seems to work perfectly for me. The statement you're expecting to be printed won't be printed until the original server (running on 5000) closes its socket. If I connect it to Warp, this takes about 30 seconds, which is the slowloris timeout period.
On Sat, Mar 10, 2012 at 10:01 PM, grant <[email protected]> wrote: > Unfortunately I don't have a solution to this. > > Here is some code and output that hopefully explains what is happening > https://gist.github.com/2012723 > > The problem is that the clientSrc $$ serverSink appears to run and according > to > Alexander, the socket closes. But the thread seems to hang inside > the "clientSrc $$ serverSink" command and then nothing after that command is > run > (until the process is terminated). > > I would have expected the register command to run and the statement > "END clientSrc serverSink" to display. > When I kill the process on Ubuntu all three exceptions are then thrown at once > and the rest of the thread continue. > > Thanks for taking a look at this, > Grant > > > > _______________________________________________ > Haskell-Cafe mailing list > [email protected] > http://www.haskell.org/mailman/listinfo/haskell-cafe _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
