HistoryProviderServer: more debug logging

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