Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HWProtoLobbyState.hs
changeset 1871 ce5854fbc631
parent 1866 36aa0ca6e8af
child 1905 b1ec8db513f2 
--- a/gameServer/HWProtoLobbyState.hs	Sun Mar 08 16:01:06 2009 +0000
+++ b/gameServer/HWProtoLobbyState.hs	Sun Mar 08 16:47:22 2009 +0000
@@ -71,7 +71,7 @@
 		++ answerNicks
 		++ answerReady
 		++ [AnswerThisRoom ["NOT_READY", nick client]]
-		++ answerFullConfig jRoom
+		++ answerFullConfig
 		++ answerTeams
 		++ watchRound
 	where
@@ -90,7 +90,9 @@
 			map (\clID -> clients IntMap.! clID) roomClientsIDs
 
 		toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs
-		answerFullConfig room = map toAnswer (Map.toList $ params room)
+		
+		answerFullConfig = map toAnswer (leftConfigPart ++ rightConfigPart)
+		(leftConfigPart, rightConfigPart) = partition (\(p, _) -> p /= "MAP") (Map.toList $ params jRoom)
 
 		watchRound = if not $ gameinprogress jRoom then
 					[]
hedgewars