Make plutus test pass with &&

cardano-scaling · Jul 29, 2021 · ab45e9e · ab45e9e
1 parent ce6e38c
commit ab45e9e
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/hydra-plutus/src/Hydra/Contract/OnChain.hs b/hydra-plutus/src/Hydra/Contract/OnChain.hs
@@ -88,13 +88,11 @@ hydraValidator HeadParameters{participants, policyId} s i ctx =
             Open committedOutputs
           amountPaid =
             foldMap txOutValue collectComUtxos
-       in and
-            [ mustBeSignedByOneOf participants ctx
-            , all (mustForwardParty ctx policyId) participants
-            , checkScriptContext @(RedeemerType Hydra) @(DatumType Hydra)
-                (mustPayToTheScript newState amountPaid)
-                ctx
-            ]
+        in mustBeSignedByOneOf participants ctx
+            && all (mustForwardParty ctx policyId) participants
+            && checkScriptContext @(RedeemerType Hydra) @(DatumType Hydra)
+              (mustPayToTheScript newState amountPaid)
+              ctx
     (Initial, Abort) ->
       let newState =
             Final