gameServer/ConfigFile.hs
changeset 4990 4b5d62ac01f7
parent 4989 4771fed9272e
child 4992 408301a9d2d6
--- a/gameServer/ConfigFile.hs	Sun Mar 06 21:54:37 2011 +0300
+++ b/gameServer/ConfigFile.hs	Sun Mar 06 21:55:44 2011 +0300
@@ -40,7 +40,7 @@
     serverConfig = Just cfg}
         = do
     let newCfg = foldl (\c (n, v) -> repConfig n (B.unpack v) c) cfg entries
-    writeConfig cfgFileName newCfg
+    writeConfig cfgFileName (repConfig "sv_latestProto" (show ver) cfg)
     where
         entries = [
             ("dbHost", dh)