fix(lms): negate learner locking condition

This commit is contained in:
Steffen Jost 2023-08-30 07:44:38 +00:00
parent 172b5086dc
commit a452b032c4

View File

@ -161,7 +161,7 @@ lmsUserToResetTries LmsUser{..} = lmsUserResetTries && lmsUserLocked &&
-- | Answers "Should the LMS lock a user out?"
-- Note that LmsUserLocked only logs the current LMS state, not what it should be.
lmsUserToLock :: LmsUser -> Bool
lmsUserToLock LmsUser{..} = isNothing lmsUserStatus -- only open LMS should be accessible
lmsUserToLock LmsUser{..} = isJust lmsUserStatus -- only open LMS should be accessible
lmsUserStaff :: LmsUser -> Bool
lmsUserStaff = const False -- legacy, currently ignored