From a452b032c43dbdfd086ffa4793c83ecc32c450f8 Mon Sep 17 00:00:00 2001
From: Steffen Jost <s.jost@fraport.de>
Date: Wed, 30 Aug 2023 07:44:38 +0000
Subject: [PATCH] fix(lms): negate learner locking condition

---
 src/Handler/Utils/LMS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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