# HG changeset patch
# User unc0rr
# Date 1300122533 -10800
# Node ID 8767878e08e215a9fa1b63c0368346f89f39e17c
# Parent  73c5839d4447db0faddd7ec8b1664f5d88551d01
No unblock needed

diff -r 73c5839d4447 -r 8767878e08e2 gameServer/ClientIO.hs
--- a/gameServer/ClientIO.hs	Mon Mar 14 20:04:51 2011 +0300
+++ b/gameServer/ClientIO.hs	Mon Mar 14 20:08:53 2011 +0300
@@ -47,7 +47,7 @@
 
 clientRecvLoop :: Socket -> Chan CoreMessage -> ClientIndex -> IO ()
 clientRecvLoop s chan ci =
-        (Exception.unblock $ listenLoop s chan ci >> return "Connection closed") `catch` (return . B.pack . show) >>= clientOff >> remove
+        (listenLoop s chan ci >> return "Connection closed") `catch` (return . B.pack . show) >>= clientOff >> remove
     where
         clientOff msg = writeChan chan $ ClientMessage (ci, ["QUIT", msg])
         remove = writeChan chan $ Remove ci