equal
deleted
inserted
replaced
203 [] |
203 [] |
204 else |
204 else |
205 if (kickID == clID) || (roomID client /= roomID kickClient) then |
205 if (kickID == clID) || (roomID client /= roomID kickClient) then |
206 [] |
206 [] |
207 else |
207 else |
208 [RemoveClientTeams kickID, |
208 [KickRoomClient kickID] |
209 KickRoomClient kickID] |
|
210 where |
209 where |
211 client = clients IntMap.! clID |
210 client = clients IntMap.! clID |
212 maybeClient = Foldable.find (\cl -> kickNick == nick cl) clients |
211 maybeClient = Foldable.find (\cl -> kickNick == nick cl) clients |
213 noSuchClient = isNothing maybeClient |
212 noSuchClient = isNothing maybeClient |
214 kickClient = fromJust maybeClient |
213 kickClient = fromJust maybeClient |