equal
deleted
inserted
replaced
413 |
413 |
414 |
414 |
415 processAction RemoveClientTeams = do |
415 processAction RemoveClientTeams = do |
416 (Just ci) <- gets clientIndex |
416 (Just ci) <- gets clientIndex |
417 rnc <- gets roomsClients |
417 rnc <- gets roomsClients |
|
418 n <- client's nick |
418 |
419 |
419 removeTeamActions <- io $ do |
420 removeTeamActions <- io $ do |
420 rId <- clientRoomM rnc ci |
421 rId <- clientRoomM rnc ci |
421 roomTeams <- room'sM rnc teams rId |
422 roomTeams <- room'sM rnc teams rId |
422 return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamownerId t == ci) $ roomTeams |
423 return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamowner t == n) $ roomTeams |
423 |
424 |
424 mapM_ processAction removeTeamActions |
425 mapM_ processAction removeTeamActions |
425 |
426 |
426 |
427 |
427 |
428 |