From dba1b7291311243dd7d991582a5ea4bebbe7b991 Mon Sep 17 00:00:00 2001 From: Noon van der Silk Date: Fri, 10 Jan 2025 14:40:06 +0000 Subject: [PATCH] Tidyup --- hydra-cluster/src/Hydra/Cluster/Scenarios.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs index 1efba91683f..bb37223d9ae 100644 --- a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs +++ b/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