haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-25 18:31:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Better development setting propagation

Browse Source
This commit is contained in:
Michael Snoyman 2017-12-08 10:02:32 +02:00
parent e607494a08
commit 950cb7ef6d
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Settings.hs
View File

@ -68,13 +68,15 @@ instance FromJSON AppSettings where
appIpFromHeader <- o .: "ip-from-header" appIpFromHeader <- o .: "ip-from-header"
appPostgresString <- o .: "postgres-string" appPostgresString <- o .: "postgres-string"
appDetailedRequestLogging <- o .:? "detailed-logging" .!= defaultDev dev <- o .: "development" .!= defaultDev
appShouldLogAll <- o .:? "should-log-all" .!= defaultDev
appReloadTemplates <- o .:? "reload-templates" .!= defaultDev appDetailedRequestLogging <- o .:? "detailed-logging" .!= dev
appMutableStatic <- o .:? "mutable-static" .!= defaultDev appShouldLogAll <- o .:? "should-log-all" .!= dev
appSkipCombining <- o .:? "skip-combining" .!= defaultDev appReloadTemplates <- o .:? "reload-templates" .!= dev
appForceSsl <- o .:? "force-ssl" .!= not defaultDev appMutableStatic <- o .:? "mutable-static" .!= dev
appDevDownload <- o .:? "dev-download" .!= defaultDev appSkipCombining <- o .:? "skip-combining" .!= dev
appForceSsl <- o .:? "force-ssl" .!= not dev
appDevDownload <- o .:? "dev-download" .!= dev
return AppSettings {..} return AppSettings {..}