# HG changeset patch
# User unc0rr
# Date 1299306731 -10800
# Node ID 1c9381181e85b3e76add295c1cdd53675533d8aa
# Parent  3572eaf1434001018c759977710bb9b5b4539463
Better support for 0.9.15

diff -r 3572eaf14340 -r 1c9381181e85 gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Fri Mar 04 22:45:28 2011 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Sat Mar 05 09:32:11 2011 +0300
@@ -110,7 +110,8 @@
             | clientProto cl < 38 = map (toAnswer cl) $
                  (map (\(a, b) -> (a, [b])) $ Map.toList mpr)
                  ++ (("SCHEME", pr Map.! "SCHEME")
-                 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr))
+                 ++ (("SEED", pr Map.! "SEED")
+                 : (filter (\(p, _) -> p /= "SCHEME" && p /= "SEED") $ Map.toList pr))
 
             | otherwise = map (toAnswer cl) $
                  ("FULLMAPCONFIG", Map.elems mpr)