diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs
index 1c68157b7..c6dbf3328 100644
--- a/src/Jobs/Handler/LMS.hs
+++ b/src/Jobs/Handler/LMS.hs
@@ -84,7 +84,7 @@ dispatchJobLmsEnqueue qid = JobHandlerAtomic act
                         -- E.&&. ((day_ (luser E.^. LmsUserNotified) E.+. E.interval remindPeriod) E.<. quser E.^. QualificationUserValidUntil) -- not sure whether may throw runtime errors, so we check in Haskell-Land instead
                   return (luser, quser E.^. QualificationUserValidUntil)
                 forM_ reminders $ \case
-                  (Entity _ (LmsUser{lmsUserUser=luser, lmsUserNotified=Just lnotified}), E.Value quValidUntil) 
+                  (Entity _ LmsUser{lmsUserUser=luser, lmsUserNotified=Just lnotified}, E.Value quValidUntil)
                     | addGregorianDurationClip remindPeriod (utctDay lnotified) < quValidUntil ->
                         queueDBJob JobSendNotification
                           { jRecipient    = luser