equal
deleted
inserted
replaced
115 writeChan (sendChan $ clients ! clID) ["WARNING", msg] |
115 writeChan (sendChan $ clients ! clID) ["WARNING", msg] |
116 return (clID, serverInfo, clients, rooms) |
116 return (clID, serverInfo, clients, rooms) |
117 |
117 |
118 |
118 |
119 processAction (clID, serverInfo, clients, rooms) (ByeClient msg) = do |
119 processAction (clID, serverInfo, clients, rooms) (ByeClient msg) = do |
|
120 infoM "Clients" ((show $ clientUID client) ++ " quits: " ++ msg) |
120 (_, _, newClients, newRooms) <- |
121 (_, _, newClients, newRooms) <- |
121 if roomID client /= 0 then |
122 if roomID client /= 0 then |
122 processAction (clID, serverInfo, clients, rooms) |
123 processAction (clID, serverInfo, clients, rooms) |
123 (if isMaster client then RemoveRoom else RemoveClientTeams clID) |
124 (if isMaster client then RemoveRoom else RemoveClientTeams clID) |
124 else |
125 else |