From e9bbeffd7edea390c0c8b844f1bb69c7cd99036e Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Sun, 28 Jan 2024 12:45:59 +0100
Subject: [PATCH] chore(auth): campusLogin->ldapLogin

---
 src/Auth/LDAP.hs | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/Auth/LDAP.hs b/src/Auth/LDAP.hs
index f3e690e85..b7a03d4a9 100644
--- a/src/Auth/LDAP.hs
+++ b/src/Auth/LDAP.hs
@@ -7,7 +7,7 @@
 module Auth.LDAP
   ( apLdap
   , ADError(..), ADInvalidCredentials(..)
-  , campusLogin
+  , ldapLogin
   , CampusUserException(..)
   , ldapUser, ldapUser', ldapUser''
   , ldapUserReTest, ldapUserReTest'
@@ -263,18 +263,18 @@ campusForm = do
    <*> areq passwordField (fslpI MsgCampusPassword (mr MsgCampusPasswordPlaceholder) & addAttr "autocomplete" "current-password") Nothing
 
 
-campusLogin :: forall site.
-               ( YesodAuth site
-               , RenderMessage site CampusMessage
-               , RenderAFormSite site
-               , RenderMessage site (ValueRequired site)
-               , RenderMessage site ADInvalidCredentials
-               , Button site ButtonSubmit
-               )
-            => Failover (LdapConf, LdapPool)
-            -> FailoverMode
-            -> AuthPlugin site
-campusLogin pool mode = AuthPlugin{..}
+ldapLogin :: forall site.
+             ( YesodAuth site
+             , RenderMessage site CampusMessage
+             , RenderAFormSite site
+             , RenderMessage site (ValueRequired site)
+             , RenderMessage site ADInvalidCredentials
+             , Button site ButtonSubmit
+             )
+          => (LdapConf, LdapPool) -- TODO: reintroduce Failover
+          -> FailoverMode
+          -> AuthPlugin site
+ldapLogin pool mode = AuthPlugin{..}
   where
     apName :: Text
     apName = apLdap
@@ -285,7 +285,7 @@ campusLogin pool mode = AuthPlugin{..}
       tp <- getRouteToParent
 
       resp <- formResultMaybe loginRes $ \CampusLogin{ campusIdent = CI.original -> campusIdent, ..} -> Just <$> do
-        ldapResult <- withLdapFailover _2 pool mode $ \(conf@LdapConf{..}, ldap) -> liftIO $ do
+        ldapResult <- withLdap _2 pool mode $ \(conf@LdapConf{..}, ldap) -> liftIO $ do
           Ldap.bind ldap ldapDn ldapPassword
           searchResults <- findUser conf ldap campusIdent [ldapUserPrincipalName]
           case searchResults of