equal
deleted
inserted
replaced
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, |