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

chore(lms): filter lms by qualification id

Browse Source
This commit is contained in:
Steffen Jost 2023-06-02 09:28:34 +00:00
parent a5dff16d35
commit 798a4bdf0a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Jobs/Handler/LMS.hs
View File

@ -98,11 +98,11 @@ dispatchJobLmsEnqueueUser qid uid = JobHandlerAtomic act
act = do act = do
identsInUseVs <- E.select $ do identsInUseVs <- E.select $ do
lui <- E.from $ lui <- E.from $
( (E.^. LmsUserlistIdent) <$> E.from (E.table @LmsUserlist) ) do { u <- E.from (E.table @LmsUserlist); E.where_ (u E.^. LmsUserlistQualification E.==. E.val qid); pure (u E.^. LmsUserlistIdent) }
`E.union_` `E.union_`
( (E.^. LmsResultIdent) <$> E.from (E.table @LmsResult) ) do { u <- E.from (E.table @LmsResult ); E.where_ (u E.^. LmsResultQualification E.==. E.val qid); pure (u E.^. LmsResultIdent) }
`E.union_` `E.union_`
( (E.^. LmsUserIdent) <$> E.from (E.table @LmsUser) ) do { u <- E.from (E.table @LmsUser ); E.where_ (u E.^. LmsUserQualification E.==. E.val qid); pure (u E.^. LmsUserIdent) }
E.orderBy [E.asc lui] E.orderBy [E.asc lui]
pure lui pure lui
now <- liftIO getCurrentTime now <- liftIO getCurrentTime