# HG changeset patch
# User unc0rr
# Date 1299437744 -10800
# Node ID 4b5d62ac01f77e2fc2450ed5aeced6f482e390be
# Parent  4771fed9272ef1e59a394bb7332537fa0ebb2784
Write latest protocol version too

diff -r 4771fed9272e -r 4b5d62ac01f7 gameServer/ConfigFile.hs
--- 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)