mitigating deprecation warnings

This commit is contained in:
nek0 2017-02-12 11:58:22 +01:00
parent 8098edd853
commit db8e561704

View file

@ -134,7 +134,7 @@ warpSettings foundation =
-- | For yesod devel, return the Warp settings and WAI Application.
getApplicationDev :: IO (Settings, Application)
getApplicationDev = do
settings <- loadAppSettings [configSettingsYml] [] useEnv
settings <- loadYamlSettings [configSettingsYml] [] useEnv
foundation <- makeFoundation settings
app <- makeApplication foundation
wsettings <- getDevSettings $ warpSettings foundation
@ -148,7 +148,7 @@ develMain = develMainHelper getApplicationDev
appMain :: IO ()
appMain = do
-- Get the settings from all relevant sources
settings <- loadAppSettingsArgs
settings <- loadYamlSettingsArgs
-- fall back to compile-time values, set to [] to require values at runtime
[configSettingsYmlValue]