fix example

IntersectMBO · Jul 23, 2021 · ffe1406 · ffe1406
1 parent 40c6b38
commit ffe1406
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/TwoPhaseValidation.hs b/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/TwoPhaseValidation.hs
@@ -364,7 +364,7 @@ extraRedeemersTx pf =
     pf
     [ Body (extraRedeemersBody pf),
       Witnesses'
-        [ AddrWits [makeWitnessVKey (hashAnnotated (validatingBody pf)) (someKeys pf)],
+        [ AddrWits [makeWitnessVKey (hashAnnotated (extraRedeemersBody pf)) (someKeys pf)],
           ScriptWits [always 3 pf],
           DataWits [datumExample1],
           RdmrWits extraRedeemersEx