Ensure HealthChecks can be disabled

2019-05-26 17:18:15 +02:00 · 2019-05-26 17:18:15 +02:00 · f2ea8eb2cf
commit f2ea8eb2cf
parent 4a621cbb2f
1 changed files with 1 additions and 1 deletions
--- a/src/Settings.hs
+++ b/src/Settings.hs
@ -389,7 +389,7 @@ instance FromJSON AppSettings where
        appJwtExpiration          <- o .:? "jwt-expiration"
        appJwtEncoding            <- o .: "jwt-encoding"

-        appHealthCheckInterval    <- o .:  "health-check-interval"
+        appHealthCheckInterval    <- (assertM' (> 0) . ) <$> o .: "health-check-interval"
        appHealthCheckDelayNotify <- o .:  "health-check-delay-notify"
        appHealthCheckHTTP        <- o .:  "health-check-http"