fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Debug LDAP lookups

Browse Source
This commit is contained in:
Gregor Kleen 2018-08-01 15:18:43 +02:00
parent 64ac12802a
commit ba3fd9d458
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Foundation.hs
View File

@ -1100,6 +1100,7 @@ instance YesodAuth UniWorX where
case appLdapConf of case appLdapConf of
Just ldapConf -> do Just ldapConf -> do
ldapData <- campusUser ldapConf $ Creds userPlugin userIdent credsExtra ldapData <- campusUser ldapConf $ Creds userPlugin userIdent credsExtra
$logDebugS "LDAP" $ "Successful LDAP lookup: " <> tshow ldapData
let let
userMatrikelnummer' = lookup (Attr "LMU-Stud-Matrikelnummer") ldapData userMatrikelnummer' = lookup (Attr "LMU-Stud-Matrikelnummer") ldapData