Throw out PactService state changes in readFrom

Change-Id: Id2d8c18ab4e82aa0579ea48727d8f881887c7227
kadena-io · Mar 9, 2024 · e361bbf · e361bbf
1 parent c7311ec
commit e361bbf
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/Chainweb/Pact/PactService/Checkpointer.hs b/src/Chainweb/Pact/PactService/Checkpointer.hs
@@ -37,6 +37,7 @@ import Control.Lens hiding ((:>))
 import Control.Monad
 import Control.Monad.Catch
 import Control.Monad.Reader
+import Control.Monad.State
 
 import Data.IORef
 import Data.Maybe
@@ -128,9 +129,10 @@ readFrom
 readFrom ph doRead = do
     cp <- view psCheckpointer
     pactParent <- getPactParent ph
-    withPactState $ \runPact ->
-        _cpReadFrom (_cpReadCp cp) ph $
-            (\dbenv -> runPact $ runPactBlockM pactParent dbenv doRead)
+    s <- get
+    e <- ask
+    liftIO $ _cpReadFrom (_cpReadCp cp) ph $
+        (\dbenv -> evalPactServiceM s e $ runPactBlockM pactParent dbenv doRead)
 
 -- here we cheat, making the genesis block header's parent the genesis
 -- block header, only for Pact's information, *not* for the checkpointer;