diff --git a/src/Chainweb/Pact5/Backend/ChainwebPactDb.hs b/src/Chainweb/Pact5/Backend/ChainwebPactDb.hs index abacd685f..80fbf4a18 100644 --- 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