equal
deleted
inserted
replaced
177 if isMaster cl && playersIn rm == readyPlayers rm && not (isJust $ gameInfo rm) then |
177 if isMaster cl && playersIn rm == readyPlayers rm && not (isJust $ gameInfo rm) then |
178 if enoughClans rm then |
178 if enoughClans rm then |
179 return [ |
179 return [ |
180 ModifyRoom |
180 ModifyRoom |
181 (\r -> r{ |
181 (\r -> r{ |
182 gameInfo = Just $ newGameInfo allPlayersRegistered (mapParams rm) (params rm) |
182 gameInfo = Just $ newGameInfo (teams rm) allPlayersRegistered (mapParams rm) (params rm) |
183 } |
183 } |
184 ), |
184 ), |
185 AnswerClients chans ["RUN_GAME"] |
185 AnswerClients chans ["RUN_GAME"] |
186 ] |
186 ] |
187 else |
187 else |