chore(users): campusUser->ldapUser

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