Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/ClientIO.hs
branchserver_refactor
changeset 4608 d0f758d0ff91
parent 4585 6e747aef012f
child 4904 0eab727d4717 
--- a/gameServer/ClientIO.hs	Fri Jan 28 22:21:29 2011 +0300
+++ b/gameServer/ClientIO.hs	Fri Jan 28 22:34:07 2011 +0300
@@ -73,7 +73,8 @@
         clientSendLoop s tId coreChan chan ci
 
     where
-        --sendQuit e = writeChan coreChan $ ClientMessage (ci, ["QUIT", B.pack $ show e])
-        sendQuit e = putStrLn $ show e
+        sendQuit e = do
+            putStrLn $ show e
+            writeChan coreChan $ ClientMessage (ci, ["QUIT", B.pack $ show e])
         isQuit ("BYE":xs) = True
         isQuit _ = False
hedgewars