Fix miner errors in pact4->5 transition

Change-Id: Id0000000457a9ac3d35b2a3b5376bfcb7554f51b
kadena-io · Jan 27, 2025 · 259aa86 · 259aa86
1 parent 2c0bd70
commit 259aa86
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Chainweb/Pact/PactService.hs b/src/Chainweb/Pact/PactService.hs
@@ -569,8 +569,8 @@ execContinueBlock mpAccess blockInProgress = pactLabel "execNewBlock" $ do
         case _blockInProgressPactVersion blockInProgress of
             -- TODO: after the Pact 5 fork is complete, the Pact 4 case below will
             -- be unnecessary; the genesis blocks are already handled by 'execNewGenesisBlock'.
-            Pact4T -> SomeBlockM $ Pair (Pact4.continueBlock mpAccess blockInProgress) (error "pact5")
-            Pact5T -> SomeBlockM $ Pair (error "pact4") (Pact5.continueBlock mpAccess blockInProgress)
+            Pact4T -> SomeBlockM $ Pair (Pact4.continueBlock mpAccess blockInProgress) (return blockInProgress)
+            Pact5T -> SomeBlockM $ Pair (return blockInProgress) (Pact5.continueBlock mpAccess blockInProgress)
     where
     newBlockParent = _blockInProgressParentHeader blockInProgress