Fix accounting for genesis blocks when rolling back to genesis

IntersectMBO · Jun 6, 2023 · da8d646 · da8d646
1 parent bcb1060
commit da8d646
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cardano-db/src/Cardano/Db/Query.hs b/cardano-db/src/Cardano/Db/Query.hs
@@ -590,7 +590,8 @@ queryCountSlotNosGreaterThan slotNo = do
 queryCountSlotNo :: MonadIO m => ReaderT SqlBackend m Word64
 queryCountSlotNo = do
   res <- select $ do
-    _ <- from $ table @Block
+    blk <- from $ table @Block
+    where_ (isJust $ blk ^. BlockSlotNo)
     pure countRows
   pure $ maybe 0 unValue (listToMaybe res)