# HG changeset patch
# User unc0rr
# Date 1300122291 -10800
# Node ID 73c5839d4447db0faddd7ec8b1664f5d88551d01
# Parent  af4e205e4b5a8d604a7b872f7cc036294f7e2db1
I must have been on drugs when wrote it

diff -r af4e205e4b5a -r 73c5839d4447 gameServer/ClientIO.hs
--- a/gameServer/ClientIO.hs	Sun Mar 13 20:34:27 2011 +0300
+++ b/gameServer/ClientIO.hs	Mon Mar 14 20:04:51 2011 +0300
@@ -46,10 +46,8 @@
         sendPacket packet = writeChan chan $ ClientMessage (ci, packet)
 
 clientRecvLoop :: Socket -> Chan CoreMessage -> ClientIndex -> IO ()
-clientRecvLoop s chan ci = Exception.block $
-        ((Exception.unblock $ listenLoop s chan ci >> return "Connection closed") `catch` (return . B.pack . show) >>= clientOff)
-    `Exception.finally`
-        remove
+clientRecvLoop s chan ci =
+        (Exception.unblock $ 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