Debug LDAP lookups

2018-08-01 15:18:43 +02:00 · 2018-08-01 15:18:43 +02:00 · ba3fd9d458
commit ba3fd9d458
parent 64ac12802a
1 changed files with 1 additions and 0 deletions
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@ -1100,6 +1100,7 @@ instance YesodAuth UniWorX where
      case appLdapConf of
        Just ldapConf -> do
          ldapData <- campusUser ldapConf $ Creds userPlugin userIdent credsExtra
+          $logDebugS "LDAP" $ "Successful LDAP lookup: " <> tshow ldapData

          let
            userMatrikelnummer' = lookup (Attr "LMU-Stud-Matrikelnummer") ldapData