Info Message for Ldap opening new connections

2019-05-01 13:28:17 +02:00 · 2019-05-01 13:28:17 +02:00 · 309eb116f6
commit 309eb116f6
parent 97c0c312b7
1 changed files with 2 additions and 0 deletions
--- a/src/Ldap/Client/Pool.hs
+++ b/src/Ldap/Client/Pool.hs
@ -92,6 +92,8 @@ createLdapPool host port stripes timeoutConn (round . (* 1e6) -> timeoutAct) lim
              go Nothing ldap

      withTimeout $ do
+        $logInfoS "Ldap" "Opening new connection"
+
        setup <- newEmptyTMVarIO

        void . fork . flip runLoggingT logFunc $ do