From 309eb116f6169d0edb622a39421c7ddc0a9b2a4f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 1 May 2019 13:28:17 +0200
Subject: [PATCH] Info Message for Ldap opening new connections

---
 src/Ldap/Client/Pool.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Ldap/Client/Pool.hs b/src/Ldap/Client/Pool.hs
index 875078b6f..dbd5189e9 100644
--- 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