Review

Author: Soupstraw

libs/cardano-ledger-binary/testlib/Test/Cardano/Ledger/Binary/Cuddle.hs

@@ -279,11 +279,8 @@ huddleRoundTripGenValidate gen version ruleName =
             let
               bs = serialize' version val
               res = validateCBOR bs (Name ruleName) (mapIndex cddl)
-            if isValid res
-              then pure ()
-              else
-                expectationFailure $
-                  "CBOR Validation failed\nError:\n" <> showValidationTrace res
+            unless (isValid res) . expectationFailure $
+              "CBOR Validation failed\nError:\n" <> showValidationTrace res
 
 huddleRoundTripArbitraryValidate ::
   forall a.