From 820b1926de00f5e1549fff22e45af6f5ffe43995 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 24 Apr 2023 12:18:59 +0700
Subject: [PATCH] HistoryProviderServer: more debug logging

---
 src/HistoryProviderServer.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/HistoryProviderServer.hs b/src/HistoryProviderServer.hs
index 420a0b7..f693932 100644
--- a/src/HistoryProviderServer.hs
+++ b/src/HistoryProviderServer.hs
@@ -209,6 +209,7 @@ workThread = do
   liftIO $ bind sock $ T.unpack ep
   whileM $ do
     incomingData <- liftIO . receiveMulti $ sock
+    log Debug "HistoryProviderServer.WorkThread" $ "Incoming data: " <> (T.pack . show) incomingData
     case incomingData of
       (sender:_:rawRq:_) ->
         case eitherDecode $ BL.fromStrict rawRq of