From 57896933a48eafe8ba05bbce11df60aaf3a834da Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Tue, 21 Jan 2025 21:55:38 +0700
Subject: [PATCH] BrokerClient: more debug

---
 src/ATrade/Broker/Client.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs
index c02fb0e..5dc08c6 100644
--- a/src/ATrade/Broker/Client.hs
+++ b/src/ATrade/Broker/Client.hs
@@ -157,6 +157,7 @@ brokerClientThread socketIdentity ep cmd comp killMv notificationCallbacks logge
     handleMessage respVar (IncomingResponse resp)    = do
       log Debug "Broker.Client" $ TL.toStrict $ [t|Incoming message: %?|] resp
       (req, respVar, _) <- takeMVar respVar
+      log Debug "Broker.Client" $ TL.toStrict $ [t|Pending request: %?|] req
       if getRequestId req == getResponseRequestId resp
         then putMVar respVar resp
         else log Warning "Broker.Client" $ TL.toStrict $ [t|Request ID mismatch: %?/%?|] (getRequestId req) (getResponseRequestId resp)