Also print how many clients have not had a transaction seen

input-output-hk · Jul 27, 2021 · 7d8936f · 7d8936f
1 parent 3e64582
commit 7d8936f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/exe/tail/Main.hs b/exe/tail/Main.hs
@@ -25,6 +25,7 @@ import Hydra.Tail.Simulation.Options (
  )
 import Hydra.Tail.Simulation.SlotNo (unSlotNo)
 import Text.Pretty.Simple (pPrint)
+import qualified Data.Map as Map
 
 main :: IO ()
 main = do
@@ -41,8 +42,9 @@ main = do
       pPrint summary
 
       let trace = runSimulation options events
-      txs <- withProgressReport (lastSlot summary) options $ \reportProgress ->
-        analyzeSimulation reportProgress trace
+      txs <- withProgressReport (lastSlot summary) options $ \reportProgress -> do
+        let fn = \balances -> (numberOfClients summary - fromIntegral (Map.size balances), balances)
+        analyzeSimulation (\sn x -> reportProgress sn (fn <$> x)) trace
       pPrint $ mkAnalyze defaultAnalyzeOptions txs
 
       let res = resultName options summary

diff --git a/hydra-sim.cabal b/hydra-sim.cabal
@@ -120,6 +120,7 @@ executable hydra-tail-simulation
   build-depends:       base
                      , hydra-sim -any
                      , pretty-simple
+                     , containers
   ghc-options:         -O2 -threaded -rtsopts
 
 executable hydra-head-simulation