equal
deleted
inserted
replaced
12 let si = serverInfo'{ |
12 let si = serverInfo'{ |
13 dbHost = value "dbHost" cfg |
13 dbHost = value "dbHost" cfg |
14 , dbName = value "dbName" cfg |
14 , dbName = value "dbName" cfg |
15 , dbLogin = value "dbLogin" cfg |
15 , dbLogin = value "dbLogin" cfg |
16 , dbPassword = value "dbPassword" cfg |
16 , dbPassword = value "dbPassword" cfg |
|
17 , serverMessage = value "sv_message" cfg |
|
18 , serverMessageForOldVersions = value "sv_messageOld" cfg |
|
19 , latestReleaseVersion = read . fromJust $ getValue "sv_latestProto" cfg |
17 , serverConfig = Just cfg |
20 , serverConfig = Just cfg |
18 } |
21 } |
19 return si |
22 return si |
20 where |
23 where |
21 value n c = B.pack . fromJust $ getValue n c |
24 value n c = B.pack . fromJust2 n $ getValue n c |
|
25 fromJust2 n Nothing = error $ "Missing config entry " ++ n |
|
26 fromJust2 _ (Just a) = a |
22 |
27 |
23 writeServerConfig :: ServerInfo c -> IO () |
28 writeServerConfig :: ServerInfo c -> IO () |
24 writeServerConfig = undefined |
29 writeServerConfig = undefined |