fix(health): more generous healthchecks

src/Application.hs

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

src/Model/Types/Health.hs

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