netserver/hedgewars-server.hs
changeset 1403 b8c921ed0f13
parent 1398 29eedf717d0f
child 1461 87e5a6c3882c
--- a/netserver/hedgewars-server.hs	Wed Oct 22 21:41:00 2008 +0000
+++ b/netserver/hedgewars-server.hs	Thu Oct 23 15:12:38 2008 +0000
@@ -25,7 +25,7 @@
 	hFlush cHandle
 	cChan <- atomically newTChan
 	forkIO $ clientLoop cHandle cChan
-	atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False False)
+	atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False False False)
 	acceptLoop servSock acceptChan