-
Notifications
You must be signed in to change notification settings - Fork 23
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #230 from input-output-hk/newhoggy/era-sensitive-t…
…ransaction-run-commands Era sensitive transaction run commands
- Loading branch information
Showing
120 changed files
with
11,744 additions
and
678 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
149 changes: 149 additions & 0 deletions
149
cardano-cli/src/Cardano/CLI/EraBased/Commands/Transaction.hs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,149 @@ | ||
| {-# LANGUAGE DataKinds #-} | ||
| {-# LANGUAGE LambdaCase #-} | ||
|
|
||
| module Cardano.CLI.EraBased.Commands.Transaction | ||
| ( TransactionCmds (..) | ||
| , renderTransactionCmds | ||
| ) where | ||
|
|
||
| import Cardano.Api.Shelley | ||
|
|
||
| import Cardano.CLI.Types.Common | ||
| import Cardano.CLI.Types.Governance | ||
|
|
||
| import Data.Text (Text) | ||
|
|
||
| data TransactionCmds era | ||
| = TxBuildRaw | ||
| (CardanoEra era) | ||
| (Maybe ScriptValidity) | ||
| -- ^ Mark script as expected to pass or fail validation | ||
| [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))] | ||
| -- ^ Transaction inputs with optional spending scripts | ||
| [TxIn] | ||
| -- ^ Read only reference inputs | ||
| [TxIn] | ||
| -- ^ Transaction inputs for collateral, only key witnesses, no scripts. | ||
| (Maybe TxOutAnyEra) | ||
| -- ^ Return collateral | ||
| (Maybe Lovelace) | ||
| -- ^ Total collateral | ||
| [RequiredSigner] | ||
| -- ^ Required signers | ||
| [TxOutAnyEra] | ||
| (Maybe (Value, [ScriptWitnessFiles WitCtxMint])) | ||
| -- ^ Multi-Asset value with script witness | ||
| (Maybe SlotNo) | ||
| -- ^ Transaction lower bound | ||
| (Maybe SlotNo) | ||
| -- ^ Transaction upper bound | ||
| (Maybe Lovelace) | ||
| -- ^ Tx fee | ||
| [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))] | ||
| -- ^ Certificates with potential script witness | ||
| [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))] | ||
| TxMetadataJsonSchema | ||
| [ScriptFile] | ||
| -- ^ Auxiliary scripts | ||
| [MetadataFile] | ||
| (Maybe ProtocolParamsFile) | ||
| (Maybe UpdateProposalFile) | ||
| (TxBodyFile Out) | ||
|
|
||
| -- | Like 'TxBuildRaw' but without the fee, and with a change output. | ||
| | TxBuild | ||
| (CardanoEra era) | ||
| SocketPath | ||
| AnyConsensusModeParams | ||
| NetworkId | ||
| (Maybe ScriptValidity) -- ^ Mark script as expected to pass or fail validation | ||
| (Maybe Word) | ||
| -- ^ Override the required number of tx witnesses | ||
| [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))] | ||
| -- ^ Transaction inputs with optional spending scripts | ||
| [TxIn] | ||
| -- ^ Read only reference inputs | ||
| [RequiredSigner] | ||
| -- ^ Required signers | ||
| [TxIn] | ||
| -- ^ Transaction inputs for collateral, only key witnesses, no scripts. | ||
| (Maybe TxOutAnyEra) | ||
| -- ^ Return collateral | ||
| (Maybe Lovelace) | ||
| -- ^ Total collateral | ||
| [TxOutAnyEra] | ||
| -- ^ Normal outputs | ||
| TxOutChangeAddress | ||
| -- ^ A change output | ||
| (Maybe (Value, [ScriptWitnessFiles WitCtxMint])) | ||
| -- ^ Multi-Asset value with script witness | ||
| (Maybe SlotNo) | ||
| -- ^ Transaction lower bound | ||
| (Maybe SlotNo) | ||
| -- ^ Transaction upper bound | ||
| [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))] | ||
| -- ^ Certificates with potential script witness | ||
| [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))] | ||
| -- ^ Withdrawals with potential script witness | ||
| TxMetadataJsonSchema | ||
| [ScriptFile] | ||
| -- ^ Auxiliary scripts | ||
| [MetadataFile] | ||
| (Maybe UpdateProposalFile) | ||
| [VoteFile In] | ||
| [ProposalFile In] | ||
| TxBuildOutputOptions | ||
| | TxSign | ||
| InputTxBodyOrTxFile | ||
| [WitnessSigningData] | ||
| (Maybe NetworkId) | ||
| (TxFile Out) | ||
| | TxCreateWitness | ||
| (TxBodyFile In) | ||
| WitnessSigningData | ||
| (Maybe NetworkId) | ||
| (File () Out) | ||
| | TxAssembleTxBodyWitness | ||
| (TxBodyFile In) | ||
| [WitnessFile] | ||
| (File () Out) | ||
| | TxSubmit | ||
| SocketPath | ||
| AnyConsensusModeParams | ||
| NetworkId | ||
| FilePath | ||
| | TxMintedPolicyId | ||
| ScriptFile | ||
| | TxCalculateMinFee | ||
| (TxBodyFile In) | ||
| NetworkId | ||
| ProtocolParamsFile | ||
| TxInCount | ||
| TxOutCount | ||
| TxShelleyWitnessCount | ||
| TxByronWitnessCount | ||
| | TxCalculateMinRequiredUTxO | ||
| (CardanoEra era) | ||
| ProtocolParamsFile | ||
| TxOutAnyEra | ||
| | TxHashScriptData | ||
| ScriptDataOrFile | ||
| | TxGetTxId | ||
| InputTxBodyOrTxFile | ||
| | TxView | ||
| InputTxBodyOrTxFile | ||
|
|
||
| renderTransactionCmds :: TransactionCmds era -> Text | ||
| renderTransactionCmds = \case | ||
| TxBuild {} -> "transaction build" | ||
| TxBuildRaw {} -> "transaction build-raw" | ||
| TxSign {} -> "transaction sign" | ||
| TxCreateWitness {} -> "transaction witness" | ||
| TxAssembleTxBodyWitness {} -> "transaction sign-witness" | ||
| TxSubmit {} -> "transaction submit" | ||
| TxMintedPolicyId {} -> "transaction policyid" | ||
| TxCalculateMinFee {} -> "transaction calculate-min-fee" | ||
| TxCalculateMinRequiredUTxO {} -> "transaction calculate-min-value" | ||
| TxHashScriptData {} -> "transaction hash-script-data" | ||
| TxGetTxId {} -> "transaction txid" | ||
| TxView {} -> "transaction view" |
Oops, something went wrong.