From ff3a3843cdca7aeaf998147cceed6670a89c56c4 Mon Sep 17 00:00:00 2001
From: Sebastian Nagel <sebastian.nagel@ncoding.at>
Date: Thu, 20 Apr 2023 17:20:35 +0200
Subject: [PATCH] Remove now unused waitForHeadIsInitializing

---
 hydra-node/test/Hydra/Model.hs | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/hydra-node/test/Hydra/Model.hs b/hydra-node/test/Hydra/Model.hs
index 64f7259cfea..a15776e6f74 100644
--- a/hydra-node/test/Hydra/Model.hs
+++ b/hydra-node/test/Hydra/Model.hs
@@ -676,27 +676,6 @@ checkOutcome _st (Commit _party expectedCommitted) actualCommitted =
   expectedCommitted == actualCommitted
 checkOutcome _ _ _ = True
 
-waitForHeadIsInitializing ::
-  forall m tx.
-  MonadDelay m =>
-  Party ->
-  Map Party (TestHydraNode tx m) ->
-  m ()
-waitForHeadIsInitializing party nodes = do
-  -- The reason why we repeatedly query the server is because we could
-  -- miss some outputs _before_ we even call that function which will
-  -- lead to random failures.
-  outs <- serverOutputs (nodes ! party)
-  case find matchHeadIsInitializing outs of
-    Nothing ->
-      threadDelay 10 >> waitForHeadIsInitializing party nodes
-    Just{} ->
-      pure ()
- where
-  matchHeadIsInitializing = \case
-    HeadIsInitializing{} -> True
-    _ -> False
-
 waitForUTxOToSpend ::
   forall m.
   (MonadDelay m, MonadTimer m) =>