More PR feedback

IntersectMBO · Sep 29, 2022 · 8fe1f4e · 8fe1f4e
1 parent f418fa1
commit 8fe1f4e
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/plutus-ledger-constraints/src/Ledger/Constraints/OnChain/V2.hs b/plutus-ledger-constraints/src/Ledger/Constraints/OnChain/V2.hs
@@ -108,9 +108,6 @@ checkTxConstraint ctx@ScriptContext{scriptContextTxInfo} = \case
         $ maybe False (isNoOutputDatum . txOutDatum . txInInfoResolved) (PV2.findTxInByTxOutRef txOutRef scriptContextTxInfo)
     MustSpendScriptOutput txOutRef rdmr mRefTxOutRef ->
         traceIfFalse "L8" -- "Script output not spent"
-        -- Unfortunately we can't check the redeemer, because TxInfo only
-        -- gives us the redeemer's hash, but 'MustSpendScriptOutput' gives
-        -- us the full redeemer
         $ rdmr `elem` (txInfoRedeemers scriptContextTxInfo)
           && isJust (PV2.findTxInByTxOutRef txOutRef scriptContextTxInfo)
           && maybe True (\ref -> isJust (PV2.findTxRefInByTxOutRef ref scriptContextTxInfo)) mRefTxOutRef