equal
deleted
inserted
replaced
203 cl <- thisClient |
203 cl <- thisClient |
204 rm <- thisRoom |
204 rm <- thisRoom |
205 chans <- roomClientsChans |
205 chans <- roomClientsChans |
206 |
206 |
207 if isMaster cl && gameinprogress rm then |
207 if isMaster cl && gameinprogress rm then |
208 return $ ModifyRoom |
208 return $ |
|
209 ModifyRoom |
209 (\r -> r{ |
210 (\r -> r{ |
210 gameinprogress = False, |
211 gameinprogress = False, |
211 readyPlayers = 0, |
212 readyPlayers = 0, |
212 roundMsgs = empty, |
213 roundMsgs = empty, |
213 leftTeams = [], |
214 leftTeams = [], |