more debugging log bulk inserts

kadena-io · Feb 2, 2024 · eeb91a5 · eeb91a5
1 parent 47914cb
commit eeb91a5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/exec/TXG.hs b/exec/TXG.hs
@@ -482,6 +482,7 @@ esPostReq :: MonadIO m => ElasticSearchConfig -> ChainwebVersion -> Logger Text
 esPostReq esConf version logger start end rks = do
     esReq <- liftIO $ mkElasticSearchRequest esConf version start end rks
     mgr <- asks confManager
+    liftIO $ loggerFunIO logger Debug $ "ElasticSearch request: " <> T.pack (show esReq)
     a :: Value <- liftIO $ httpJson mgr esReq
     liftIO $ loggerFunIO logger Debug $ "ElasticSearch response: " <> T.pack (show a)
     return ()