From a8df40d9f8943f2e0c4e219074486dbbf0eaf0fe Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 12 Jul 2023 11:16:22 +0000 Subject: [PATCH] fix(lms): add safeguard to LmsUserlist dispatch running twice, thus ending LMS prematurely --- src/Jobs/Handler/LMS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs index 933cfa867..04eb37018 100644 --- a/src/Jobs/Handler/LMS.hs +++ b/src/Jobs/Handler/LMS.hs @@ -304,7 +304,7 @@ dispatchJobLmsUserlist :: QualificationId -> JobHandler UniWorX dispatchJobLmsUserlist qid = JobHandlerAtomic act where act :: YesodJobDB UniWorX () - act = do + act = whenM (exists [LmsUserlistQualification ==. qid]) $ do -- safeguard against multiple calls, which would close all learners due to first case below now <- liftIO getCurrentTime -- result :: [(Entity LmsUser, Entity LmsUserlist)] results <- E.select $ do