Fix build
authorunc0rr
Sat, 05 Mar 2011 09:34:21 +0300
changeset 4984 20da3c5c7dee
parent 4983 1c9381181e85
child 4985 304d149bb3dd
Fix build
gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Sat Mar 05 09:32:11 2011 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Sat Mar 05 09:34:21 2011 +0300
@@ -108,10 +108,9 @@
 
         answerFullConfig cl mpr pr
             | clientProto cl < 38 = map (toAnswer cl) $
-                 (map (\(a, b) -> (a, [b])) $ Map.toList mpr)
+                 (reverse . map (\(a, b) -> (a, [b])) $ Map.toList mpr)
                  ++ (("SCHEME", pr Map.! "SCHEME")
-                 ++ (("SEED", pr Map.! "SEED")
-                 : (filter (\(p, _) -> p /= "SCHEME" && p /= "SEED") $ Map.toList pr))
+                 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr))
 
             | otherwise = map (toAnswer cl) $
                  ("FULLMAPCONFIG", Map.elems mpr)