equal
deleted
inserted
replaced
19 , dbName = value "dbName" cfg |
19 , dbName = value "dbName" cfg |
20 , dbLogin = value "dbLogin" cfg |
20 , dbLogin = value "dbLogin" cfg |
21 , dbPassword = value "dbPassword" cfg |
21 , dbPassword = value "dbPassword" cfg |
22 , serverMessage = value "sv_message" cfg |
22 , serverMessage = value "sv_message" cfg |
23 , serverMessageForOldVersions = value "sv_messageOld" cfg |
23 , serverMessageForOldVersions = value "sv_messageOld" cfg |
|
24 , bans = read . fromJust2 "bans" $ getValue "bans" cfg |
24 , latestReleaseVersion = read . fromJust $ getValue "sv_latestProto" cfg |
25 , latestReleaseVersion = read . fromJust $ getValue "sv_latestProto" cfg |
25 , serverConfig = Just cfg |
26 , serverConfig = Just cfg |
26 } |
27 } |
27 return si |
28 return si |
28 where |
29 where |
38 dbName = dn, |
39 dbName = dn, |
39 dbLogin = dl, |
40 dbLogin = dl, |
40 dbPassword = dp, |
41 dbPassword = dp, |
41 serverMessage = sm, |
42 serverMessage = sm, |
42 serverMessageForOldVersions = smo, |
43 serverMessageForOldVersions = smo, |
|
44 bans = b, |
43 latestReleaseVersion = ver, |
45 latestReleaseVersion = ver, |
44 serverConfig = Just cfg} |
46 serverConfig = Just cfg} |
45 = do |
47 = |
46 let newCfg = foldl (\c (n, v) -> repConfig n (B.unpack v) c) cfg entries |
48 writeConfig cfgFileName $ foldl1 (.) entries cfg |
47 writeConfig cfgFileName (repConfig "sv_latestProto" (show ver) newCfg) |
|
48 where |
49 where |
49 entries = [ |
50 entries = |
|
51 repConfig "sv_latestProto" (show ver) |
|
52 : repConfig "bans" (show b) |
|
53 : map (\(n, v) -> repConfig n (B.unpack v)) [ |
50 ("dbHost", dh) |
54 ("dbHost", dh) |
51 , ("dbName", dn) |
55 , ("dbName", dn) |
52 , ("dbLogin", dl) |
56 , ("dbLogin", dl) |
53 , ("dbPassword", dp) |
57 , ("dbPassword", dp) |
54 , ("sv_message", sm) |
58 , ("sv_message", sm) |
55 , ("sv_messageOld", smo) |
59 , ("sv_messageOld", smo) |
56 ] |
60 ] |
|
61 |