bump

IntersectMBO · Mar 25, 2023 · 0763766 · 0763766
1 parent c05248e
commit 0763766
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/cardano-client-demo/LedgerEvents.hs b/cardano-client-demo/LedgerEvents.hs
@@ -59,12 +59,11 @@ main = do
   !_ <- fmap f . runExceptT $ foldBlocks
          (conf args)
          (socket args)
-         QuickValidation
+         FullValidation
          ()
          (\_
            _
            events
            (BlockInMode (Block (BlockHeader slot _blockHeaderHash _blockNo) _txs) _era)
-           -- _ -> mapM_ myEvents events)
-            _ -> mapM_ (putStrLn . displayEventType) events)
+            _ -> if (slot == targetSlot) then mapM_ myEvents events else pure ())
   return ()