author | unc0rr |
Mon, 17 Nov 2008 18:27:47 +0000 | |
changeset 1500 | 5721af6d73f0 |
parent 1499 | 870305c40b81 |
child 1501 | a0e56fdf10cd |
--- 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'