Show progress of --store-ledger every 1000 blocks

IntersectMBO · Oct 6, 2021 · d90ade0 · d90ade0
1 parent a6d4fcd
commit d90ade0
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/ouroboros-consensus-cardano/tools/db-analyser/Analysis.hs b/ouroboros-consensus-cardano/tools/db-analyser/Analysis.hs
@@ -211,17 +211,20 @@ storeLedgerStateAt slotNo (AnalysisEnv { db, registry, initLedger, cfg, limit, l
           newLedger     = either (error . show) lrResult $ runExcept $ appliedResult
       when (blockSlot blk >= slotNo) $ storeLedgerState blk newLedger
       when (blockSlot blk > slotNo) $ issueWarning blk
+      when ((unBlockNo $ blockNo blk) `mod` 1000 == 0) $ reportProgress blk
       return (continue blk, newLedger)
 
     continue :: blk -> NextStep
     continue blk
       | blockSlot blk >= slotNo = Stop
       | otherwise               = Continue
 
-    issueWarning blk = putStrLn $ "Snapshot was created at " <>
-                         show (blockSlot blk) <> " " <>
-                         "because there was no block forged at requested " <>
-                         show slotNo <> ". "
+    issueWarning blk   = putStrLn $ "Snapshot was created at " <>
+                           show (blockSlot blk) <> " " <>
+                           "because there was no block forged at requested " <>
+                           show slotNo <> ". "
+    reportProgress blk = putStrLn $ "... reached slot " <>
+                           show (blockSlot blk)
 
     storeLedgerState ::
          blk