393     mapM_ processAction $

   393     mapM_ processAction $

   394         ModifyRoom (\r -> r{

   394         ModifyRoom (\r -> r{

   395             teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r

   395             teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r

   396             , gameInfo = liftM (\g -> g{leftTeams = teamName : leftTeams g}) $ gameInfo r

   396             , gameInfo = liftM (\g -> g{leftTeams = teamName : leftTeams g}) $ gameInfo r

   397             })

   397             })

   398         : AnswerClients chans ["REMOVE_TEAM", teamName]

   399         : AnswerClients chans ["REMOVE_TEAM", teamName]

   399         : [SendTeamRemovalMessage teamName | inGame]

   400         : [SendTeamRemovalMessage teamName | inGame]

   400 

   401 

   401 

   402 

   402 processAction (RemoveClientTeams clId) = do

   403 processAction (RemoveClientTeams clId) = do