Flush CONNECTED message, so client hasn't to wait for it on connect
authorunc0rr
Thu, 09 Oct 2008 21:00:42 +0000
changeset 1340 430d210d54ae
parent 1339 8a11157c6c81
child 1341 86d7d5ab22a2
Flush CONNECTED message, so client hasn't to wait for it on connect
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