author | sheepluva |
Sat, 07 Jun 2014 16:25:40 +0200 | |
changeset 10259 | c85d241d9cc9 |
parent 10258 | 4b7aa967f1e7 |
child 10260 | 25155aaede77 |
--- 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))