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

chore(health): minor change treating HealthInactive

Browse Source
This commit is contained in:
Steffen Jost 2023-07-12 12:51:34 +00:00
parent 2e59d3c2ea
commit 57842a53e7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Application.hs
View File

@ -551,7 +551,7 @@ warpSettings foundation = defaultSettings
atomically $ do atomically $ do
results <- readTVar $ foundation ^. _appHealthReport results <- readTVar $ foundation ^. _appHealthReport
guard $ activeChecks == Set.map (classifyHealthReport . snd) results guard $ activeChecks == Set.map (classifyHealthReport . snd) results
guard . (/= Min HealthFailure) $ foldMap (Min . healthReportStatus . snd) results guard . (== Min HealthSuccess) $ foldMap (Min . healthReportStatus . snd) results
notifyReady notifyReady
| otherwise | otherwise
-> notifyReady -> notifyReady

4
src/Jobs/Handler/SynchroniseAvs.hs
View File

@ -47,8 +47,8 @@ dispatchJobSynchroniseAvs numIterations epoch iteration pause
dispatchJobSynchroniseAvsId :: AvsPersonId -> Maybe Day -> JobHandler UniWorX dispatchJobSynchroniseAvsId :: AvsPersonId -> Maybe Day -> JobHandler UniWorX
dispatchJobSynchroniseAvsId apid pause = JobHandlerException $ do dispatchJobSynchroniseAvsId apid pause = JobHandlerException $ do
ok <- runDB $ ok <- runDB $ getBy (UniqueUserAvsId apid) >>=
getBy (UniqueUserAvsId apid) >>= \case \case
(Just Entity{entityVal=UserAvs{userAvsUser=uid}}) -> do -- known user (Just Entity{entityVal=UserAvs{userAvsUser=uid}}) -> do -- known user
workJobSychronizeAvs uid pause workJobSychronizeAvs uid pause
return True return True