author | unc0rr |
Thu, 09 Oct 2008 21:00:42 +0000 | |
changeset 1340 | 430d210d54ae |
parent 1339 | 8a11157c6c81 |
child 1341 | 86d7d5ab22a2 |
--- 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