equal
deleted
inserted
replaced
569 processAction (AddClient cl) = do |
569 processAction (AddClient cl) = do |
570 rnc <- gets roomsClients |
570 rnc <- gets roomsClients |
571 si <- gets serverInfo |
571 si <- gets serverInfo |
572 newClId <- io $ do |
572 newClId <- io $ do |
573 ci <- addClient rnc cl |
573 ci <- addClient rnc cl |
574 _ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci) |
574 _ <- Exception.mask (\x -> forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci x) |
575 |
575 |
576 infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl)) |
576 infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl)) |
577 |
577 |
578 return ci |
578 return ci |
579 |
579 |