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