restore execNewBlock timeout logging

Change-Id: I98a97488cbdf85a25a3e2b8effb52bf34012dc5d
kadena-io · May 30, 2024 · 46f9163 · 46f9163
1 parent b0ffe46
commit 46f9163
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Chainweb/Pact/PactService.hs b/src/Chainweb/Pact/PactService.hs
@@ -606,6 +606,7 @@ execNewBlock mpAccess miner = do
                   go (BlockFill g rks' i) rest
                 Left (CommandInvalidTxTimeout (TxTimeout h)) -> do
                   liftIO $ Vec.push failures h
+                  liftPactServiceM $ logError $ "timed out on " <> sshow h
                   return (acc, True)
 
         enforceUnique rks rk