# HG changeset patch
# User unc0rr
# Date 1296243247 -10800
# Node ID d0f758d0ff91221f7c36d62b9b6fcaa5cbc06f43
# Parent  4c521c4ab2b6ae511d4f379f56f9e19fde2dcd3d
Make client quit on send exception (was commented due to another approach in handling connection lost)

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