From 4956e6bf57458a5e76efc582f6127b84a055c4de Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 19 Jun 2023 16:47:25 +0000 Subject: [PATCH] fix(lint): remove redundant parenthesis --- 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 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