diff --git a/src/Handler/Utils/LMS.hs b/src/Handler/Utils/LMS.hs index e6f35e8e9..06fd53a7b 100644 --- a/src/Handler/Utils/LMS.hs +++ b/src/Handler/Utils/LMS.hs @@ -135,7 +135,7 @@ lmsDeletionDate mbMaxAuditMonths = do -- | Decide whether LMS platform should delete an identifier lmsUserToDeleteExpr :: UTCTime -> E.SqlExpr (Entity LmsUser) -> E.SqlExpr (E.Value Bool) lmsUserToDeleteExpr cutoff lmslist = E.isNothing (lmslist E.^. LmsUserEnded) - E.&&. E.isJust (lmslist E.^. LmsUserStatus) + -- E.&&. E.isJust (lmslist E.^. LmsUserStatus) E.&&. E.isJust (lmslist E.^. LmsUserStatusDay) E.&&. lmslist E.^. LmsUserStatusDay E.<=. E.justVal cutoff