From 4b0fb6ba92180fa3e6661d494e6014908dead1a7 Mon Sep 17 00:00:00 2001 From: Sasha Bogicevic Date: Thu, 9 Mar 2023 12:23:04 +0100 Subject: [PATCH] Sort the parties before comparing --- hydra-node/exe/hydra-node/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hydra-node/exe/hydra-node/Main.hs b/hydra-node/exe/hydra-node/Main.hs index 1d1dc6041ac..e9b12e5fe0e 100644 --- a/hydra-node/exe/hydra-node/Main.hs +++ b/hydra-node/exe/hydra-node/Main.hs @@ -139,7 +139,7 @@ main = do let res = flip execState [] $ do when (Hydra.Chain.contestationPeriod params /= cp) $ modify (\s -> s <> ["Contestation period does not match. "]) - when (Hydra.Chain.parties params /= envParties) $ + when (sort (Hydra.Chain.parties params) /= sort envParties) $ modify (\s -> s <> ["Parties mismatch. "]) in case res of [] -> []