diff -r 4c521c4ab2b6 -r d0f758d0ff91 gameServer/ClientIO.hs
--- 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