Tidyup

Author: noonio

hydra-cluster/src/Hydra/Cluster/Scenarios.hs

@@ -197,14 +197,11 @@ oneOfNNodesCanDropForAWhile tracer workDir cardanoNode hydraScriptsTxId = do
 
       -- Carol reconnects, and then the snapshot can be confirmed
       withHydraNode hydraTracer carolChainConfig workDir 3 carolSk [aliceVk, bobVk] [1, 2, 3] $ \n3 -> do
-        -- And then the Snapshot is confirmed
-        --
         -- Note: We can't use `waitForAlMatch` here as it expects them to
         -- emit the exact same datatype; but Carol will be behind in sequence
         -- numbers as she was offline.
-        --
         flip mapConcurrently_ [n1, n2, n3] $ \n ->
-          waitMatch (300 * blockTime) n $ \v -> do
+          waitMatch (200 * blockTime) n $ \v -> do
             guard $ v ^? key "tag" == Just "SnapshotConfirmed"
             guard $ v ^? key "snapshot" . key "number" == Just (toJSON (2 :: Integer))
  where