equal
deleted
inserted
replaced
26 | MoveToLobby |
26 | MoveToLobby |
27 | ProtocolError String |
27 | ProtocolError String |
28 | Warning String |
28 | Warning String |
29 | ByeClient String |
29 | ByeClient String |
30 | KickClient Int -- clID |
30 | KickClient Int -- clID |
|
31 | BanClient String -- nick |
31 | ModifyClient (ClientInfo -> ClientInfo) |
32 | ModifyClient (ClientInfo -> ClientInfo) |
32 | ModifyRoom (RoomInfo -> RoomInfo) |
33 | ModifyRoom (RoomInfo -> RoomInfo) |
33 | AddRoom String String |
34 | AddRoom String String |
34 | CheckRegistered |
35 | CheckRegistered |
35 | ProcessAccountInfo AccountInfo |
36 | ProcessAccountInfo AccountInfo |
230 processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["REMOVE_TEAM", teamName] |
231 processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["REMOVE_TEAM", teamName] |
231 return $ |
232 return $ |
232 adjust (\r -> r{teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r}) rID rooms |
233 adjust (\r -> r{teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r}) rID rooms |
233 else |
234 else |
234 do |
235 do |
235 processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["GAMEMSG", rmTeamMsg] |
236 processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["EM", rmTeamMsg] |
236 return $ |
237 return $ |
237 adjust (\r -> r{ |
238 adjust (\r -> r{ |
238 teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r, |
239 teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r, |
239 leftTeams = teamName : leftTeams r, |
240 leftTeams = teamName : leftTeams r, |
240 roundMsgs = roundMsgs r Seq.|> rmTeamMsg |
241 roundMsgs = roundMsgs r Seq.|> rmTeamMsg |