From 9fafb0b7c3a13209be8a8d37c0c99c46608c9a81 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 8 Feb 2023 10:06:44 +0100 Subject: [PATCH] fix(ldap): improve debug message --- src/Jobs/Handler/SynchroniseLdap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Jobs/Handler/SynchroniseLdap.hs b/src/Jobs/Handler/SynchroniseLdap.hs index 9e72713b2..52572d879 100644 --- a/src/Jobs/Handler/SynchroniseLdap.hs +++ b/src/Jobs/Handler/SynchroniseLdap.hs @@ -50,7 +50,7 @@ dispatchJobSynchroniseLdapUser jUser = JobHandlerException $ do runDB . void . runMaybeT . handleExc $ do user@User{userIdent,userLdapPrimaryKey} <- MaybeT $ get jUser let upsertIdent = maybe userIdent CI.mk userLdapPrimaryKey - $logInfoS "SynchroniseLdap" [st|Synchronising #{userIdent}|] + $logInfoS "SynchroniseLdap" [st|Synchronising #{upsertIdent}|] reTestAfter <- getsYesod $ view _appLdapReTestFailover ldapAttrs <- MaybeT $ campusUserReTest' ldapPool ((>= reTestAfter) . realToFrac) FailoverUnlimited user