diff -r 8a11157c6c81 -r 430d210d54ae netserver/newhwserv.hs --- a/netserver/newhwserv.hs Thu Oct 09 20:36:53 2008 +0000 +++ b/netserver/newhwserv.hs Thu Oct 09 21:00:42 2008 +0000 @@ -19,6 +19,7 @@ forkIO $ clientLoop cHandle cChan atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False) hPutStrLn cHandle "CONNECTED\n" + hFlush cHandle acceptLoop servSock acceptChan