gameServer/Actions.hs
changeset 10816 37410518628e
parent 10814 810ac1d21fd0
child 10944 c4b3440eeac6
equal deleted inserted replaced
10813:ba1a607a0c9a 10816:37410518628e
   354                             ++
   354                             ++
   355                             (map (\t -> AnswerClients [sendChan c] ["REMOVE_TEAM", t]) $ leftTeams gi)
   355                             (map (\t -> AnswerClients [sendChan c] ["REMOVE_TEAM", t]) $ leftTeams gi)
   356                         ) joinedMidGame
   356                         ) joinedMidGame
   357                      ) ri
   357                      ) ri
   358 
   358 
       
   359     rteams <- io $ room'sM rnc (L.nub . rejoinedTeams . fromJust . gameInfo) ri
       
   360     mapM_ (processAction . RemoveTeam) rteams
       
   361 
   359     mapM_ processAction $ (
   362     mapM_ processAction $ (
   360         SaveReplay
   363         SaveReplay
   361         : ModifyRoom
   364         : ModifyRoom
   362             (\r -> r{
   365             (\r -> r{
   363                 gameInfo = Nothing,
   366                 gameInfo = Nothing,