getLatestPactStateAt: exclude tables created after the particular blo…

…ckheight (#1821)

Change-Id: I1b6d2e1f53b10bd5578fdbee1a6bcd17d5bfd095

src/Chainweb/Pact/Backend/PactState.hs

@@ -236,8 +236,15 @@ getLatestPactStateAt db bh = do
 
   tables <- liftIO $ getPactTableNames db
 
+  tablesCreatedAfter <- liftIO $ do
+    let qryText = "SELECT tablename FROM VersionedTableCreation WHERE createBlockheight > ?1"
+    rows <- Pact.qry db qryText [SInt (int bh)] [RText]
+    forM rows $ \case
+      [SText tbl] -> pure tbl
+      _ -> error "getLatestPactStateAt.tablesCreatedAfter: expected text"
+
   forM_ tables $ \tbl -> do
-    when (tbl `notElem` excludedTables) $ do
+    when (tbl `notElem` (excludedTables ++ tablesCreatedAfter)) $ do
       let qryText = "SELECT rowkey, rowdata, txid FROM "
             <> "\"" <> tbl <> "\""
             <> " WHERE txid<?"