diff --git a/src/Handler/Utils/LMS.hs b/src/Handler/Utils/LMS.hs index cb803a89d..56be1763b 100644 --- a/src/Handler/Utils/LMS.hs +++ b/src/Handler/Utils/LMS.hs @@ -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