netserver/hedgewars-server.hs
changeset 1500 5721af6d73f0
parent 1499 870305c40b81
child 1502 db1f1dd12321
--- a/netserver/hedgewars-server.hs	Mon Nov 17 18:24:34 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Nov 17 18:27:47 2008 +0000
@@ -85,7 +85,7 @@
 			do
 			forM_ answer (\str -> hPutStrLn ch str)
 			hPutStrLn ch ""
-			--hFlush ch
+			hFlush ch
 			if head answer == "BYE" then return [ch] else return []
 
 	let outHandles = concat clHandles'