blob: 0381ceb449b2bb8e178427837370552c545b66c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
diff --git a/gameServer/Actions.hs b/gameServer/Actions.hs
index 2cebe4f..355ee26 100644
--- a/gameServer/Actions.hs
+++ b/gameServer/Actions.hs
@@ -562,7 +562,7 @@ processAction (AddClient cl) = do
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))
|