From ba3fd9d45837154ad5208abfaddadaaa7aa7031c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 1 Aug 2018 15:18:43 +0200
Subject: [PATCH] Debug LDAP lookups

---
 src/Foundation.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index af8334958..381aba0e1 100644
--- 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