fix(lms): lms-direct/deletion-days setting now represent #days to presever lms (used to be #days+1)

src/Handler/Utils/LMS.hs

@@ -113,7 +113,7 @@ lmsDeletionDate = do
 lmsUserToDeleteExpr :: Day -> E.SqlExpr (Entity LmsUser) -> E.SqlExpr (E.Value Bool)
 lmsUserToDeleteExpr cutoff lmslist = E.isNothing (lmslist E.^. LmsUserEnded) 
   E.&&. E.not_ (E.isNothing $ lmslist E.^. LmsUserStatus)
-  E.&&. E.explicitUnsafeCoerceSqlExprValue "timestamp" ((lmslist E.^. LmsUserStatus) E.#>>. "{day}") E.<. E.val cutoff
+  E.&&. E.explicitUnsafeCoerceSqlExprValue "timestamp" ((lmslist E.^. LmsUserStatus) E.#>>. "{day}") E.<=. E.val cutoff
   
 -- | Is everything since cutoff day or before?
 lmsUserToDelete :: Day -> LmsUser -> Bool
@@ -179,4 +179,4 @@ lmsUserStatusWidget LmsUser{lmsUserStarted} =
   [whamlet|$newline never
     ^{formatTimeW SelFormatDate lmsUserStarted} 
     \ ^{icon IconWaitingForUser}
-  |]
+  |]