equal
deleted
inserted
replaced
21 |
21 |
22 handleCmd_inRoom clID clients rooms ["PART"] = |
22 handleCmd_inRoom clID clients rooms ["PART"] = |
23 if isMaster client then |
23 if isMaster client then |
24 [RemoveRoom] |
24 [RemoveRoom] |
25 else |
25 else |
26 RoomRemoveThisClient |
26 removeClientTeams ++ |
27 : removeClientTeams |
27 [RoomRemoveThisClient] |
28 where |
28 where |
29 client = clients IntMap.! clID |
29 client = clients IntMap.! clID |
30 room = rooms IntMap.! (roomID client) |
30 room = rooms IntMap.! (roomID client) |
31 clientTeams = filter (\t -> teamowner t == nick client) $ teams room |
31 clientTeams = filter (\t -> teamowner t == nick client) $ teams room |
32 removeClientTeams = map (RemoveTeam . teamname) clientTeams |
32 removeClientTeams = map (RemoveTeam . teamname) clientTeams |