Fix format of returned txlogs

kadena-io · Dec 13, 2023 · 1412876 · 1412876
1 parent 280322c
commit 1412876
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pact-core/Pact/Core/Persistence/SQLite.hs b/pact-core/Pact/Core/Persistence/SQLite.hs
@@ -101,7 +101,7 @@ getTxLog serial db currTxId txLog tab txId = do
         SQL.Done -> pure acc
         SQL.Row -> do
           [SQL.SQLText key, SQL.SQLBlob value] <- SQL.columns stmt
-          collect stmt (TxLog (_tableName tab) key value:acc)
+          collect stmt (TxLog (toUserTable tab) key value:acc)
 
 readKeys :: forall k v b i. SQL.Database -> Domain k v b i -> IO [k]
 readKeys db = \case