diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs index f1b38f662..f2010fe4a 100644 --- a/src/Jobs/Handler/LMS.hs +++ b/src/Jobs/Handler/LMS.hs @@ -127,11 +127,14 @@ dispatchJobLmsEnqueueUser qid uid = JobHandlerAtomic act act = do identsInUseVs <- E.select $ do lui <- E.from $ - ( (E.^. LmsUserlistIdent) <$> E.from (E.table @LmsUserlist) ) -- no filter by Qid, since LmsIdents must be unique across all + + ( (E.^. LmsUserIdent) <$> E.from (E.table @LmsUser ) ) -- no filter by Qid, since LmsIdents must be unique across all `E.union_` - ( (E.^. LmsResultIdent) <$> E.from (E.table @LmsResult ) ) + ( (E.^. LmsReportIdent) <$> E.from (E.table @LmsReport ) ) -- V2 `E.union_` - ( (E.^. LmsUserIdent) <$> E.from (E.table @LmsUser ) ) + ( (E.^. LmsResultIdent) <$> E.from (E.table @LmsResult ) ) -- V1 DEPRECATED + `E.union_` + ( (E.^. LmsUserlistIdent) <$> E.from (E.table @LmsUserlist) ) -- V1 DEPRECATED E.orderBy [E.asc lui] pure lui now <- liftIO getCurrentTime