insert into cache on reads too

Change-Id: Id00000007f84d7de38391d240b94068587588764
kadena-io · Jan 17, 2025 · 17a28e9 · 17a28e9
1 parent 7c0eb95
commit 17a28e9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Chainweb/Pact5/Backend/ChainwebPactDb.hs b/src/Chainweb/Pact5/Backend/ChainwebPactDb.hs
@@ -372,6 +372,8 @@ doReadRow mlim d k = do
                         Pact.DModules ->
                             BlockHandler $ lift $ lift
                                 $ Pact.chargeGasM (Pact.GModuleOp (Pact.MOpLoadModule (BS.length encodedValue)))
+                        Pact.DUserTables {} -> do
+                            bsPendingTx . _Just . _1 . pendingWrites %= InMem.insert d k (InMem.ReadEntry encodedValue decodedValue)
                         _ -> return ()
                     return (Just decodedValue)
   where