foundationSettingsFromConf :: Conf -> FoundationSettings
foundationSettingsFromConf conf =
    FoundationSettings (fromMaybe defaultApproot (cfg_approot conf))
    where defaultApproot = "http://localhost:" `mappend` T.pack (show (cfg_port conf))
foundationSettingsFromConf :: Conf -> FoundationSettings
foundationSettingsFromConf conf =
    FoundationSettings (fromMaybe defaultApproot (cfg_approot conf))
    where defaultApproot = "http://localhost:" `mappend` T.pack (show (cfg_port conf))
foundationSettingsFromConf conf =
    FoundationSettings (fromMaybe defaultApproot (cfg_approot conf))
    where defaultApproot = "http://localhost:" `mappend` T.pack (show (cfg_port conf))