Add --limit option so that user can control number of blocks they wan…

…t to process
IntersectMBO · Sep 28, 2021 · 65148e8 · 65148e8
1 parent e0487a5
commit 65148e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-consensus-cardano/tools/db-analyser/Analysis.hs b/ouroboros-consensus-cardano/tools/db-analyser/Analysis.hs
@@ -305,7 +305,7 @@ processAllImmutableDB immutableDB rr blockComponent limit initState callback = d
     go :: ImmutableDB.Iterator IO blk b -> Limit -> st -> IO st
     go itr lt !st = case decreaseLimit lt of
       Nothing               -> return st
-      Just decreasedLimit -> do
+      Just decreasedLimit   -> do
         itrResult <- ImmutableDB.iteratorNext itr
         case itrResult of
           ImmutableDB.IteratorExhausted -> return st