From dfa774f6557153803cb233318be714812b705c38 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Tue, 30 Jan 2024 21:54:20 +0100
Subject: [PATCH] chore(users): campusUser->ldapUser

---
 src/Handler/Users.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs
index 9baf06c62..0a893e211 100644
--- a/src/Handler/Users.hs
+++ b/src/Handler/Users.hs
@@ -532,13 +532,13 @@ postAdminUserR uuid = do
           redirect $ AdminUserR uuid
 
         userAuthenticationAction = \case
-          BtnAuthLDAP -> do
+          BtnAuthLDAP -> do -- TODO WIP
             let
               campusHandler :: MonadPlus m => Auth.CampusUserException -> m a
               campusHandler _ = mzero
             campusResult <- runMaybeT . handle campusHandler $ do
                 Just pool <- getsYesod $ view _appLdapPool
-                void . lift . Auth.campusUser pool FailoverUnlimited $ Creds Auth.apLdap (CI.original userIdent) []
+                void . lift . Auth.ldapUser pool $ Creds Auth.apLdap (CI.original userIdent) []
             case campusResult of
               Nothing -> addMessageI Error MsgAuthLDAPInvalidLookup
               _other