equal
deleted
inserted
replaced
393 processAction (AddClient cl) = do |
393 processAction (AddClient cl) = do |
394 rnc <- gets roomsClients |
394 rnc <- gets roomsClients |
395 si <- gets serverInfo |
395 si <- gets serverInfo |
396 newClId <- io $ do |
396 newClId <- io $ do |
397 ci <- addClient rnc cl |
397 ci <- addClient rnc cl |
398 _ <- Exception.block . forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci |
398 _ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci) |
399 |
399 |
400 infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl)) |
400 infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl)) |
401 |
401 |
402 return ci |
402 return ci |
403 |
403 |