# HG changeset patch
# User unc0rr
# Date 1299306861 -10800
# Node ID 20da3c5c7dee9de25b29b32b5d360f5ff9bf67bd
# Parent  1c9381181e85b3e76add295c1cdd53675533d8aa
Fix build

diff -r 1c9381181e85 -r 20da3c5c7dee 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)