diff --git a/hydra-node/test/Hydra/BehaviorSpec.hs b/hydra-node/test/Hydra/BehaviorSpec.hs index c81a39db760..4fa1ce1cf10 100644 --- a/hydra-node/test/Hydra/BehaviorSpec.hs +++ b/hydra-node/test/Hydra/BehaviorSpec.hs @@ -1183,11 +1183,6 @@ openHead chain n1 n2 = do waitUntil [n1, n2] $ Committed testHeadId bob (utxoRef 2) waitUntil [n1, n2] $ HeadIsOpen{headId = testHeadId, utxo = utxoRefs [1, 2]} -matchFanout :: PostChainTx tx -> Bool -matchFanout = \case - FanoutTx{} -> True - _ -> False - assertHeadIsClosed :: (HasCallStack, MonadThrow m) => ServerOutput tx -> m () assertHeadIsClosed = \case HeadIsClosed{} -> pure ()