From 798a4bdf0a3596049040d330637b8a7002ec370e Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 2 Jun 2023 09:28:34 +0000 Subject: [PATCH] chore(lms): filter lms by qualification id --- src/Jobs/Handler/LMS.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs index 1795167c0..46dafb10a 100644 --- a/src/Jobs/Handler/LMS.hs +++ b/src/Jobs/Handler/LMS.hs @@ -93,16 +93,16 @@ dispatchJobLmsEnqueue qid = JobHandlerAtomic act dispatchJobLmsEnqueueUser :: QualificationId -> UserId -> JobHandler UniWorX dispatchJobLmsEnqueueUser qid uid = JobHandlerAtomic act - where + where act :: YesodJobDB UniWorX () act = do identsInUseVs <- E.select $ do 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.^. 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.^. 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] pure lui now <- liftIO getCurrentTime