fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(health): more generous healthchecks

Browse Source
This commit is contained in:
Gregor Kleen 2020-04-21 10:51:45 +02:00
parent e8c2dc5aaa
commit 466203d866
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Application.hs
View File

@ -502,7 +502,7 @@ appMain = runResourceT $ do
where where
go :: Maybe (Set (UTCTime, HealthReport)) -> m' a go :: Maybe (Set (UTCTime, HealthReport)) -> m' a
go pResults = do go pResults = do
let delay = floor $ wInterval % 2 let delay = floor $ wInterval % 4
d <- liftIO $ newDelay delay d <- liftIO $ newDelay delay
$logDebugS "Notify" $ "Waiting up to " <> tshow delay <> "µs..." $logDebugS "Notify" $ "Waiting up to " <> tshow delay <> "µs..."

2
src/Model/Types/Health.hs
View File

@ -90,5 +90,5 @@ healthReportStatus = \case
HealthSMTPConnect (Just False) -> HealthFailure HealthSMTPConnect (Just False) -> HealthFailure
HealthWidgetMemcached (Just False) -> HealthFailure -- TODO: investigate this failure mode; do we just handle it gracefully? HealthWidgetMemcached (Just False) -> HealthFailure -- TODO: investigate this failure mode; do we just handle it gracefully?
HealthActiveJobExecutors (Just prop ) HealthActiveJobExecutors (Just prop )
| prop < 1 -> HealthFailure | prop <= 0 -> HealthFailure
_other -> maxBound -- Minimum badness _other -> maxBound -- Minimum badness