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

fix(avs): background synch was only triggerd by manual synchs

Browse Source
This commit is contained in:
Steffen Jost 2023-12-07 16:58:04 +01:00
parent 0b9a1257db
commit 48ef25aa8f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,6 +27,7 @@ dispatchJobSynchroniseAvs numIterations epoch iteration pause
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
todos <- runConduit $ readUsers .| filterIteration now .| sinkList todos <- runConduit $ readUsers .| filterIteration now .| sinkList
putMany todos putMany todos
void $ queueJob JobSynchroniseAvsQueue
where where
readUsers :: ConduitT () UserId _ () readUsers :: ConduitT () UserId _ ()
readUsers = selectKeys [] [] readUsers = selectKeys [] []