changeset 10259 | c85d241d9cc9 |
parent 10216 | 6928a323097f |
child 10460 | 8dcea9087d75 |
--- 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))