diff --git a/src/Application.hs b/src/Application.hs index 0181d2cf0..6592a8342 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -551,7 +551,7 @@ warpSettings foundation = defaultSettings atomically $ do results <- readTVar $ foundation ^. _appHealthReport guard $ activeChecks == Set.map (classifyHealthReport . snd) results - guard . (/= Min HealthFailure) $ foldMap (Min . healthReportStatus . snd) results + guard . (== Min HealthSuccess) $ foldMap (Min . healthReportStatus . snd) results notifyReady | otherwise -> notifyReady diff --git a/src/Jobs/Handler/SynchroniseAvs.hs b/src/Jobs/Handler/SynchroniseAvs.hs index 0a3281f07..2693da5cc 100644 --- a/src/Jobs/Handler/SynchroniseAvs.hs +++ b/src/Jobs/Handler/SynchroniseAvs.hs @@ -47,8 +47,8 @@ dispatchJobSynchroniseAvs numIterations epoch iteration pause dispatchJobSynchroniseAvsId :: AvsPersonId -> Maybe Day -> JobHandler UniWorX dispatchJobSynchroniseAvsId apid pause = JobHandlerException $ do - ok <- runDB $ - getBy (UniqueUserAvsId apid) >>= \case + ok <- runDB $ getBy (UniqueUserAvsId apid) >>= + \case (Just Entity{entityVal=UserAvs{userAvsUser=uid}}) -> do -- known user workJobSychronizeAvs uid pause return True