equal
deleted
inserted
replaced
99 . (\ clID -> clients IntMap.! clID)) |
99 . (\ clID -> clients IntMap.! clID)) |
100 roomClientsIDs |
100 roomClientsIDs |
101 |
101 |
102 toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs |
102 toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs |
103 |
103 |
104 answerFullConfig = map toAnswer (leftConfigPart ++ rightConfigPart) |
104 answerFullConfig = map toAnswer ((Data.List.reverse . Data.List.sort $ leftConfigPart) ++ rightConfigPart) |
105 (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p /= "MAP") (Map.toList $ params jRoom) |
105 (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p == "MAP" || p == "MAPGEN") (Map.toList $ params jRoom) |
106 |
106 |
107 watchRound = if not $ gameinprogress jRoom then |
107 watchRound = if not $ gameinprogress jRoom then |
108 [] |
108 [] |
109 else |
109 else |
110 [AnswerThisClient ["RUN_GAME"], |
110 [AnswerThisClient ["RUN_GAME"], |