Better support for 0.9.15
authorunc0rr
Sat, 05 Mar 2011 09:32:11 +0300
changeset 4983 1c9381181e85
parent 4982 3572eaf14340
child 4984 20da3c5c7dee
Better support for 0.9.15
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)