equal
deleted
inserted
replaced
38 serverMessageForOldVersions = smo, |
38 serverMessageForOldVersions = smo, |
39 latestReleaseVersion = ver, |
39 latestReleaseVersion = ver, |
40 serverConfig = Just cfg} |
40 serverConfig = Just cfg} |
41 = do |
41 = do |
42 let newCfg = foldl (\c (n, v) -> repConfig n (B.unpack v) c) cfg entries |
42 let newCfg = foldl (\c (n, v) -> repConfig n (B.unpack v) c) cfg entries |
43 writeConfig cfgFileName newCfg |
43 writeConfig cfgFileName (repConfig "sv_latestProto" (show ver) cfg) |
44 where |
44 where |
45 entries = [ |
45 entries = [ |
46 ("dbHost", dh) |
46 ("dbHost", dh) |
47 , ("dbName", dn) |
47 , ("dbName", dn) |
48 , ("dbLogin", dl) |
48 , ("dbLogin", dl) |