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

Info Message for Ldap opening new connections

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-01 13:28:17 +02:00
parent 97c0c312b7
commit 309eb116f6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Ldap/Client/Pool.hs
View File

@ -92,6 +92,8 @@ createLdapPool host port stripes timeoutConn (round . (* 1e6) -> timeoutAct) lim
go Nothing ldap go Nothing ldap
withTimeout $ do withTimeout $ do
$logInfoS "Ldap" "Opening new connection"
setup <- newEmptyTMVarIO setup <- newEmptyTMVarIO
void . fork . flip runLoggingT logFunc $ do void . fork . flip runLoggingT logFunc $ do