Add comments

IntersectMBO · Nov 24, 2022 · c7f76ec · c7f76ec
1 parent 7e29a59
commit c7f76ec
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 0 deletions.
diff --git a/plutus-contract/src/Plutus/Contract/Wallet.hs b/plutus-contract/src/Plutus/Contract/Wallet.hs
@@ -282,6 +282,7 @@ toExportTxInput networkId Plutus.TxOutRef{Plutus.txOutRefId, Plutus.txOutRefIdx}
         <*> pure otherQuantities
 
 -- TODO: Here there's hidden error of script DCert missing its redeemer - this just counts as no DCert. Don't know if bad.
+-- TODO: Refactor with getGardanoTxRedeemers once we are ceady to move to Cardano Txs
 mkRedeemers :: P.Tx -> [ExportTxRedeemer]
 mkRedeemers = map (uncurry scriptPurposeToExportRedeemer) . Map.assocs . txRedeemers
 

diff --git a/plutus-contract/test/Spec/Contract/Tx/Constraints/RequiredSigner.hs b/plutus-contract/test/Spec/Contract/Tx/Constraints/RequiredSigner.hs
@@ -231,6 +231,8 @@ cardanoTxOtherWalletNoSigningProcess =
             void $ Trace.activateContractWallet w1 $ cardanoTxOwnWalletContract w2PubKey w2PubKey
             void Trace.nextSlot
     in checkPredicateOptions
+        -- Needed to manually balance the transaction
+        -- We may remove it once PLT-321
         (changeInitialWalletValue w1 (const $ Ada.adaValueOf 1000) defaultCheckOptions)
         "without Trace.setSigningProcess fails phase-1 validation"
         (assertFailedTransaction (\_ err -> case err of {Ledger.CardanoLedgerValidationError msg -> Text.isInfixOf "MissingRequiredSigners" msg; _ -> False  }))

diff --git a/plutus-tx-constraints/src/Ledger/Tx/Constraints.hs b/plutus-tx-constraints/src/Ledger/Tx/Constraints.hs
@@ -79,6 +79,7 @@ module Ledger.Tx.Constraints(
     , OC.plutusV2OtherScript
     , OC.otherData
     , OC.paymentPubKey
+    , OC.paymentPubKeyHash
     , OC.ownPaymentPubKeyHash
     , OC.ownStakingCredential
     -- * Deprecated

diff --git a/plutus-tx-constraints/src/Ledger/Tx/Constraints/OffChain.hs b/plutus-tx-constraints/src/Ledger/Tx/Constraints/OffChain.hs
@@ -34,6 +34,7 @@ module Ledger.Tx.Constraints.OffChain(
     , P.ownPaymentPubKeyHash
     , P.ownStakingCredential
     , P.paymentPubKey
+    , P.paymentPubKeyHash
     -- * Constraints resolution
     , P.SomeLookupsAndConstraints(..)
     , UnbalancedTx(..)