9 

     9 

    10 readServerConfig serverInfo' = do

    10 readServerConfig serverInfo' = do

    11     cfg <- readConfig "hedgewars-server.ini"

    11     cfg <- readConfig "hedgewars-server.ini"

    12     let si = serverInfo'{

    12     let si = serverInfo'{

    13         dbHost = value "dbHost" cfg

    13         dbHost = value "dbHost" cfg

    14         , dbLogin = value "dbLogin" cfg

    15         , dbLogin = value "dbLogin" cfg

    15         , dbPassword = value "dbPassword" cfg

    16         , dbPassword = value "dbPassword" cfg

    16         , serverConfig = Just cfg

    17         , serverConfig = Just cfg

    17     }

    18     }

    18     return si

    19     return si