# HG changeset patch
# User sheepluva
# Date 1402151140 -7200
# Node ID c85d241d9cc9c7141acefbc455ae5f328fd1ae91
# Parent  4b7aa967f1e7a3cf89ee7b69395813ed71e7e3c2
committing patch from issue 798, as requested by unC0Rr

diff -r 4b7aa967f1e7 -r c85d241d9cc9 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Jun 07 16:23:12 2014 +0200
+++ b/gameServer/Actions.hs	Sat Jun 07 16:25:40 2014 +0200
@@ -571,7 +571,7 @@
     si <- gets serverInfo
     newClId <- io $ do
         ci <- addClient rnc cl
-        _ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci)
+        _ <- Exception.mask (\x -> forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci x)
 
         infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl))