Attachment #388552 for bug #247114

Lines 562-568 processAction (AddClient cl) = do Link Here

(-)a/gameServer/Actions.hs (-1 / +1 lines)
562	si <- gets serverInfo	562	si <- gets serverInfo
563	newClId <- io $ do	563	newClId <- io $ do
564	ci <- addClient rnc cl	564	ci <- addClient rnc cl
565	_ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci)	565	_ <- Exception.mask (\x -> forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci x)
566		566
567	infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl))	567	infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl))

Return to bug 247114