Oops, accidentaly commented hFlush out
authorunc0rr
Mon, 17 Nov 2008 18:27:47 +0000
changeset 1500 5721af6d73f0
parent 1499 870305c40b81
child 1501 a0e56fdf10cd
Oops, accidentaly commented hFlush out
netserver/hedgewars-server.hs
--- 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'