From de4c0ca8d35eaf450c2fcabdf7b02205c66d3859 Mon Sep 17 00:00:00 2001 From: "github-merge-queue[bot]" Date: Fri, 17 Nov 2023 15:53:03 +0000 Subject: [PATCH] deploy: 4dcfd599a5a57ac1c560d6191762262e59b9a4f9 --- .nojekyll | 0 ...7e6dcfe26a9f27c564c2b1312c9b11b185e26.json | 1 + ...f4f1cbc1cd091a8b89edfca1c643e978be649.json | 1 + ...7cf4b21234e6f3f477a9ac2308f2ce9cc56ee.json | 1 + .../lib/Cardano-CLI-Byron-Commands.html | 1 + .../lib/Cardano-CLI-Byron-Delegation.html | 4 + .../lib/Cardano-CLI-Byron-Genesis.html | 8 + cardano-cli/lib/Cardano-CLI-Byron-Key.html | 3 + cardano-cli/lib/Cardano-CLI-Byron-Legacy.html | 6 + .../lib/Cardano-CLI-Byron-Parsers.html | 1 + cardano-cli/lib/Cardano-CLI-Byron-Run.html | 2 + cardano-cli/lib/Cardano-CLI-Byron-Tx.html | 9 + .../lib/Cardano-CLI-Byron-UpdateProposal.html | 1 + cardano-cli/lib/Cardano-CLI-Byron-Vote.html | 1 + cardano-cli/lib/Cardano-CLI-Environment.html | 3 + ...Cardano-CLI-EraBased-Commands-Address.html | 1 + ...Cardano-CLI-EraBased-Commands-Genesis.html | 1 + ...-EraBased-Commands-Governance-Actions.html | 1 + ...raBased-Commands-Governance-Committee.html | 1 + ...CLI-EraBased-Commands-Governance-DRep.html | 1 + ...CLI-EraBased-Commands-Governance-Hash.html | 1 + ...CLI-EraBased-Commands-Governance-Poll.html | 1 + ...CLI-EraBased-Commands-Governance-Vote.html | 1 + ...dano-CLI-EraBased-Commands-Governance.html | 1 + .../Cardano-CLI-EraBased-Commands-Key.html | 7 + .../Cardano-CLI-EraBased-Commands-Node.html | 1 + .../Cardano-CLI-EraBased-Commands-Query.html | 1 + ...no-CLI-EraBased-Commands-StakeAddress.html | 1 + ...rdano-CLI-EraBased-Commands-StakePool.html | 1 + ...ardano-CLI-EraBased-Commands-TextView.html | 1 + ...ano-CLI-EraBased-Commands-Transaction.html | 1 + .../lib/Cardano-CLI-EraBased-Commands.html | 1 + .../Cardano-CLI-EraBased-Options-Address.html | 1 + .../Cardano-CLI-EraBased-Options-Common.html | 2 + .../Cardano-CLI-EraBased-Options-Genesis.html | 1 + ...I-EraBased-Options-Governance-Actions.html | 1 + ...EraBased-Options-Governance-Committee.html | 1 + ...-CLI-EraBased-Options-Governance-DRep.html | 1 + ...-CLI-EraBased-Options-Governance-Hash.html | 1 + ...-CLI-EraBased-Options-Governance-Poll.html | 1 + ...-CLI-EraBased-Options-Governance-Vote.html | 1 + ...rdano-CLI-EraBased-Options-Governance.html | 1 + .../lib/Cardano-CLI-EraBased-Options-Key.html | 1 + .../Cardano-CLI-EraBased-Options-Node.html | 1 + .../Cardano-CLI-EraBased-Options-Query.html | 1 + ...ano-CLI-EraBased-Options-StakeAddress.html | 1 + ...ardano-CLI-EraBased-Options-StakePool.html | 1 + ...Cardano-CLI-EraBased-Options-TextView.html | 1 + ...dano-CLI-EraBased-Options-Transaction.html | 1 + ...Cardano-CLI-EraBased-Run-Address-Info.html | 1 + .../lib/Cardano-CLI-EraBased-Run-Address.html | 1 + .../lib/Cardano-CLI-EraBased-Run-Genesis.html | 1 + ...o-CLI-EraBased-Run-Governance-Actions.html | 1 + ...CLI-EraBased-Run-Governance-Committee.html | 1 + ...dano-CLI-EraBased-Run-Governance-DRep.html | 1 + ...nance-GenesisKeyDelegationCertificate.html | 1 + ...dano-CLI-EraBased-Run-Governance-Hash.html | 1 + ...dano-CLI-EraBased-Run-Governance-Poll.html | 1 + ...dano-CLI-EraBased-Run-Governance-Vote.html | 1 + .../Cardano-CLI-EraBased-Run-Governance.html | 1 + .../lib/Cardano-CLI-EraBased-Run-Key.html | 1 + .../lib/Cardano-CLI-EraBased-Run-Node.html | 1 + .../lib/Cardano-CLI-EraBased-Run-Query.html | 9 + ...Cardano-CLI-EraBased-Run-StakeAddress.html | 2 + .../Cardano-CLI-EraBased-Run-StakePool.html | 3 + .../Cardano-CLI-EraBased-Run-TextView.html | 1 + .../Cardano-CLI-EraBased-Run-Transaction.html | 1 + cardano-cli/lib/Cardano-CLI-EraBased-Run.html | 1 + cardano-cli/lib/Cardano-CLI-Helpers.html | 1 + cardano-cli/lib/Cardano-CLI-IO-GitRev.html | 1 + cardano-cli/lib/Cardano-CLI-IO-Lazy.html | 3 + .../lib/Cardano-CLI-Json-Friendly.html | 1 + .../Cardano-CLI-Legacy-Commands-Address.html | 1 + .../Cardano-CLI-Legacy-Commands-Genesis.html | 1 + ...ardano-CLI-Legacy-Commands-Governance.html | 1 + .../lib/Cardano-CLI-Legacy-Commands-Key.html | 1 + .../lib/Cardano-CLI-Legacy-Commands-Node.html | 1 + .../Cardano-CLI-Legacy-Commands-Query.html | 1 + ...dano-CLI-Legacy-Commands-StakeAddress.html | 1 + ...Cardano-CLI-Legacy-Commands-StakePool.html | 1 + .../Cardano-CLI-Legacy-Commands-TextView.html | 1 + ...rdano-CLI-Legacy-Commands-Transaction.html | 1 + .../lib/Cardano-CLI-Legacy-Commands.html | 1 + .../lib/Cardano-CLI-Legacy-Options-Key.html | 1 + .../lib/Cardano-CLI-Legacy-Options.html | 1 + .../lib/Cardano-CLI-Legacy-Run-Address.html | 1 + .../lib/Cardano-CLI-Legacy-Run-Genesis.html | 1 + .../Cardano-CLI-Legacy-Run-Governance.html | 1 + .../lib/Cardano-CLI-Legacy-Run-Key.html | 1 + .../lib/Cardano-CLI-Legacy-Run-Node.html | 1 + .../lib/Cardano-CLI-Legacy-Run-Query.html | 1 + .../Cardano-CLI-Legacy-Run-StakeAddress.html | 1 + .../lib/Cardano-CLI-Legacy-Run-StakePool.html | 1 + .../lib/Cardano-CLI-Legacy-Run-TextView.html | 1 + .../Cardano-CLI-Legacy-Run-Transaction.html | 1 + cardano-cli/lib/Cardano-CLI-Legacy-Run.html | 1 + cardano-cli/lib/Cardano-CLI-OS-Posix.html | 1 + cardano-cli/lib/Cardano-CLI-Options.html | 1 + cardano-cli/lib/Cardano-CLI-Parser.html | 1 + cardano-cli/lib/Cardano-CLI-Pretty.html | 1 + cardano-cli/lib/Cardano-CLI-Read.html | 14 + cardano-cli/lib/Cardano-CLI-Render.html | 4 + cardano-cli/lib/Cardano-CLI-Run-Ping.html | 1 + cardano-cli/lib/Cardano-CLI-Run.html | 1 + cardano-cli/lib/Cardano-CLI-TopHandler.html | 4 + cardano-cli/lib/Cardano-CLI-Types-Common.html | 33 + ...dano-CLI-Types-Errors-AddressCmdError.html | 1 + ...ano-CLI-Types-Errors-AddressInfoError.html | 1 + ...LI-Types-Errors-BootstrapWitnessError.html | 3 + ...rdanoAddressSigningKeyConversionError.html | 3 + .../Cardano-CLI-Types-Errors-CmdError.html | 1 + ...dano-CLI-Types-Errors-DelegationError.html | 1 + ...dano-CLI-Types-Errors-GenesisCmdError.html | 1 + ...I-Types-Errors-GovernanceActionsError.html | 1 + ...o-CLI-Types-Errors-GovernanceCmdError.html | 1 + ...Types-Errors-GovernanceCommitteeError.html | 1 + ...-CLI-Types-Errors-GovernanceHashError.html | 1 + ...CLI-Types-Errors-GovernanceQueryError.html | 1 + ...I-Types-Errors-GovernanceVoteCmdError.html | 1 + ...LI-Types-Errors-ItnKeyConversionError.html | 2 + .../Cardano-CLI-Types-Errors-KeyCmdError.html | 2 + ...Cardano-CLI-Types-Errors-NodeCmdError.html | 1 + ...CLI-Types-Errors-NodeEraMismatchError.html | 1 + ...-CLI-Types-Errors-ProtocolParamsError.html | 1 + ...ardano-CLI-Types-Errors-QueryCmdError.html | 1 + ...s-Errors-QueryCmdLocalStateQueryError.html | 2 + ...no-CLI-Types-Errors-RegistrationError.html | 1 + ...no-CLI-Types-Errors-ScriptDecodeError.html | 1 + ...CLI-Types-Errors-StakeAddressCmdError.html | 1 + ...es-Errors-StakeAddressDelegationError.html | 1 + ...-Errors-StakeAddressRegistrationError.html | 1 + ...CLI-Types-Errors-StakeCredentialError.html | 1 + ...no-CLI-Types-Errors-StakePoolCmdError.html | 1 + ...no-CLI-Types-Errors-TextViewFileError.html | 1 + .../Cardano-CLI-Types-Errors-TxCmdError.html | 1 + ...no-CLI-Types-Errors-TxValidationError.html | 1 + .../lib/Cardano-CLI-Types-Governance.html | 1 + ...Cardano-CLI-Types-Key-VerificationKey.html | 2 + cardano-cli/lib/Cardano-CLI-Types-Key.html | 22 + cardano-cli/lib/Cardano-CLI-Types-Output.html | 5 + .../lib/Cardano-CLI-Types-TxFeature.html | 2 + cardano-cli/lib/Paths_cardano_cli.html | 1 + cardano-cli/lib/cardano-cli.haddock | Bin 0 -> 167657 bytes cardano-cli/lib/doc-index-36.html | 1 + cardano-cli/lib/doc-index-A.html | 1 + cardano-cli/lib/doc-index-All.html | 1 + cardano-cli/lib/doc-index-B.html | 1 + cardano-cli/lib/doc-index-C.html | 1 + cardano-cli/lib/doc-index-D.html | 1 + cardano-cli/lib/doc-index-E.html | 1 + cardano-cli/lib/doc-index-F.html | 1 + cardano-cli/lib/doc-index-G.html | 1 + cardano-cli/lib/doc-index-H.html | 1 + cardano-cli/lib/doc-index-I.html | 1 + cardano-cli/lib/doc-index-K.html | 1 + cardano-cli/lib/doc-index-L.html | 1 + cardano-cli/lib/doc-index-M.html | 1 + cardano-cli/lib/doc-index-N.html | 1 + cardano-cli/lib/doc-index-O.html | 1 + cardano-cli/lib/doc-index-P.html | 1 + cardano-cli/lib/doc-index-Q.html | 1 + cardano-cli/lib/doc-index-R.html | 1 + cardano-cli/lib/doc-index-S.html | 1 + cardano-cli/lib/doc-index-T.html | 1 + cardano-cli/lib/doc-index-U.html | 1 + cardano-cli/lib/doc-index-V.html | 1 + cardano-cli/lib/doc-index-W.html | 1 + cardano-cli/lib/doc-index-Y.html | 1 + cardano-cli/lib/doc-index.html | 1 + cardano-cli/lib/doc-index.json | 1 + cardano-cli/lib/haddock-bundle.min.js | 2 + cardano-cli/lib/index.html | 1 + cardano-cli/lib/linuwial.css | 877 ++ cardano-cli/lib/meta.json | 1 + cardano-cli/lib/quick-jump.css | 221 + cardano-cli/lib/quick-jump.min.js | 2 + .../lib/src/Cardano.CLI.Byron.Commands.html | 182 + .../lib/src/Cardano.CLI.Byron.Delegation.html | 333 + .../lib/src/Cardano.CLI.Byron.Genesis.html | 612 ++ .../lib/src/Cardano.CLI.Byron.Key.html | 398 + .../lib/src/Cardano.CLI.Byron.Legacy.html | 183 + .../lib/src/Cardano.CLI.Byron.Parsers.html | 2015 ++++ .../lib/src/Cardano.CLI.Byron.Run.html | 829 ++ cardano-cli/lib/src/Cardano.CLI.Byron.Tx.html | 744 ++ .../src/Cardano.CLI.Byron.UpdateProposal.html | 271 + .../lib/src/Cardano.CLI.Byron.Vote.html | 250 + .../lib/src/Cardano.CLI.Environment.html | 243 + ...Cardano.CLI.EraBased.Commands.Address.html | 60 + ...Cardano.CLI.EraBased.Commands.Genesis.html | 314 + ....EraBased.Commands.Governance.Actions.html | 437 + ...raBased.Commands.Governance.Committee.html | 255 + ...CLI.EraBased.Commands.Governance.DRep.html | 131 + ...CLI.EraBased.Commands.Governance.Hash.html | 65 + ...CLI.EraBased.Commands.Governance.Poll.html | 166 + ...CLI.EraBased.Commands.Governance.Vote.html | 72 + ...dano.CLI.EraBased.Commands.Governance.html | 102 + .../Cardano.CLI.EraBased.Commands.Key.html | 239 + .../Cardano.CLI.EraBased.Commands.Node.html | 200 + .../Cardano.CLI.EraBased.Commands.Query.html | 774 ++ ...no.CLI.EraBased.Commands.StakeAddress.html | 93 + ...rdano.CLI.EraBased.Commands.StakePool.html | 197 + ...ardano.CLI.EraBased.Commands.TextView.html | 38 + ...ano.CLI.EraBased.Commands.Transaction.html | 460 + .../src/Cardano.CLI.EraBased.Commands.html | 343 + .../Cardano.CLI.EraBased.Options.Address.html | 174 + .../Cardano.CLI.EraBased.Options.Common.html | 8993 +++++++++++++++++ .../Cardano.CLI.EraBased.Options.Genesis.html | 901 ++ ...I.EraBased.Options.Governance.Actions.html | 1237 +++ ...EraBased.Options.Governance.Committee.html | 408 + ....CLI.EraBased.Options.Governance.DRep.html | 460 + ....CLI.EraBased.Options.Governance.Hash.html | 105 + ....CLI.EraBased.Options.Governance.Poll.html | 231 + ....CLI.EraBased.Options.Governance.Vote.html | 209 + ...rdano.CLI.EraBased.Options.Governance.html | 288 + .../src/Cardano.CLI.EraBased.Options.Key.html | 694 ++ .../Cardano.CLI.EraBased.Options.Node.html | 319 + .../Cardano.CLI.EraBased.Options.Query.html | 1238 +++ ...ano.CLI.EraBased.Options.StakeAddress.html | 536 + ...ardano.CLI.EraBased.Options.StakePool.html | 262 + ...Cardano.CLI.EraBased.Options.TextView.html | 56 + ...dano.CLI.EraBased.Options.Transaction.html | 972 ++ ...Cardano.CLI.EraBased.Run.Address.Info.html | 188 + .../src/Cardano.CLI.EraBased.Run.Address.html | 791 ++ .../src/Cardano.CLI.EraBased.Run.Genesis.html | 5006 +++++++++ ...o.CLI.EraBased.Run.Governance.Actions.html | 1202 +++ ...CLI.EraBased.Run.Governance.Committee.html | 593 ++ ...dano.CLI.EraBased.Run.Governance.DRep.html | 539 + ...nance.GenesisKeyDelegationCertificate.html | 147 + ...dano.CLI.EraBased.Run.Governance.Hash.html | 167 + ...dano.CLI.EraBased.Run.Governance.Poll.html | 567 ++ ...dano.CLI.EraBased.Run.Governance.Vote.html | 354 + .../Cardano.CLI.EraBased.Run.Governance.html | 438 + .../lib/src/Cardano.CLI.EraBased.Run.Key.html | 1571 +++ .../src/Cardano.CLI.EraBased.Run.Node.html | 962 ++ .../src/Cardano.CLI.EraBased.Run.Query.html | 6040 +++++++++++ ...Cardano.CLI.EraBased.Run.StakeAddress.html | 1004 ++ .../Cardano.CLI.EraBased.Run.StakePool.html | 785 ++ .../Cardano.CLI.EraBased.Run.TextView.html | 72 + .../Cardano.CLI.EraBased.Run.Transaction.html | 4988 +++++++++ .../lib/src/Cardano.CLI.EraBased.Run.html | 154 + cardano-cli/lib/src/Cardano.CLI.Helpers.html | 354 + .../lib/src/Cardano.CLI.IO.GitRev.html | 69 + cardano-cli/lib/src/Cardano.CLI.IO.Lazy.html | 190 + .../lib/src/Cardano.CLI.Json.Friendly.html | 2039 ++++ .../Cardano.CLI.Legacy.Commands.Address.html | 59 + .../Cardano.CLI.Legacy.Commands.Genesis.html | 118 + ...ardano.CLI.Legacy.Commands.Governance.html | 87 + .../src/Cardano.CLI.Legacy.Commands.Key.html | 74 + .../src/Cardano.CLI.Legacy.Commands.Node.html | 48 + .../Cardano.CLI.Legacy.Commands.Query.html | 654 ++ ...dano.CLI.Legacy.Commands.StakeAddress.html | 74 + ...Cardano.CLI.Legacy.Commands.StakePool.html | 85 + .../Cardano.CLI.Legacy.Commands.TextView.html | 35 + ...rdano.CLI.Legacy.Commands.Transaction.html | 165 + .../lib/src/Cardano.CLI.Legacy.Commands.html | 86 + .../src/Cardano.CLI.Legacy.Options.Key.html | 619 ++ .../lib/src/Cardano.CLI.Legacy.Options.html | 3827 +++++++ .../src/Cardano.CLI.Legacy.Run.Address.html | 135 + .../src/Cardano.CLI.Legacy.Run.Genesis.html | 605 ++ .../Cardano.CLI.Legacy.Run.Governance.html | 463 + .../lib/src/Cardano.CLI.Legacy.Run.Key.html | 251 + .../lib/src/Cardano.CLI.Legacy.Run.Node.html | 88 + .../lib/src/Cardano.CLI.Legacy.Run.Query.html | 629 ++ .../Cardano.CLI.Legacy.Run.StakeAddress.html | 213 + .../src/Cardano.CLI.Legacy.Run.StakePool.html | 305 + .../src/Cardano.CLI.Legacy.Run.TextView.html | 33 + .../Cardano.CLI.Legacy.Run.Transaction.html | 976 ++ .../lib/src/Cardano.CLI.Legacy.Run.html | 116 + cardano-cli/lib/src/Cardano.CLI.OS.Posix.html | 15 + cardano-cli/lib/src/Cardano.CLI.Options.html | 249 + cardano-cli/lib/src/Cardano.CLI.Parser.html | 293 + cardano-cli/lib/src/Cardano.CLI.Pretty.html | 142 + cardano-cli/lib/src/Cardano.CLI.Read.html | 3504 +++++++ cardano-cli/lib/src/Cardano.CLI.Render.html | 142 + cardano-cli/lib/src/Cardano.CLI.Run.Ping.html | 629 ++ cardano-cli/lib/src/Cardano.CLI.Run.html | 300 + .../lib/src/Cardano.CLI.TopHandler.html | 166 + .../lib/src/Cardano.CLI.Types.Common.html | 1535 +++ ...dano.CLI.Types.Errors.AddressCmdError.html | 83 + ...ano.CLI.Types.Errors.AddressInfoError.html | 32 + ...LI.Types.Errors.BootstrapWitnessError.html | 43 + ...rdanoAddressSigningKeyConversionError.html | 72 + .../Cardano.CLI.Types.Errors.CmdError.html | 168 + ...dano.CLI.Types.Errors.DelegationError.html | 70 + ...dano.CLI.Types.Errors.GenesisCmdError.html | 240 + ...I.Types.Errors.GovernanceActionsError.html | 84 + ...o.CLI.Types.Errors.GovernanceCmdError.html | 264 + ...Types.Errors.GovernanceCommitteeError.html | 66 + ....CLI.Types.Errors.GovernanceHashError.html | 46 + ...CLI.Types.Errors.GovernanceQueryError.html | 76 + ...I.Types.Errors.GovernanceVoteCmdError.html | 81 + ...LI.Types.Errors.ItnKeyConversionError.html | 83 + .../Cardano.CLI.Types.Errors.KeyCmdError.html | 113 + ...Cardano.CLI.Types.Errors.NodeCmdError.html | 83 + ...CLI.Types.Errors.NodeEraMismatchError.html | 16 + ....CLI.Types.Errors.ProtocolParamsError.html | 41 + ...ardano.CLI.Types.Errors.QueryCmdError.html | 235 + ...s.Errors.QueryCmdLocalStateQueryError.html | 54 + ...no.CLI.Types.Errors.RegistrationError.html | 61 + ...no.CLI.Types.Errors.ScriptDecodeError.html | 46 + ...CLI.Types.Errors.StakeAddressCmdError.html | 61 + ...es.Errors.StakeAddressDelegationError.html | 54 + ....Errors.StakeAddressRegistrationError.html | 29 + ...CLI.Types.Errors.StakeCredentialError.html | 38 + ...no.CLI.Types.Errors.StakePoolCmdError.html | 63 + ...no.CLI.Types.Errors.TextViewFileError.html | 49 + .../Cardano.CLI.Types.Errors.TxCmdError.html | 496 + ...no.CLI.Types.Errors.TxValidationError.html | 1128 +++ .../lib/src/Cardano.CLI.Types.Governance.html | 95 + ...Cardano.CLI.Types.Key.VerificationKey.html | 59 + .../lib/src/Cardano.CLI.Types.Key.html | 954 ++ .../lib/src/Cardano.CLI.Types.Output.html | 1129 +++ .../lib/src/Cardano.CLI.Types.TxFeature.html | 122 + cardano-cli/lib/src/Paths_cardano_cli.html | 179 + cardano-cli/lib/src/highlight.js | 27 + cardano-cli/lib/src/style.css | 97 + cardano-cli/lib/synopsis.png | Bin 0 -> 11327 bytes .../Test-Cardano-CLI-Aeson.html | 5 + .../Test-Cardano-CLI-Util.html | 1 + .../cardano-cli.haddock | Bin 0 -> 3522 bytes .../lib_cardano-cli-test-lib/doc-index.html | 1 + .../lib_cardano-cli-test-lib/doc-index.json | 1 + .../haddock-bundle.min.js | 2 + .../lib_cardano-cli-test-lib/index.html | 1 + .../lib_cardano-cli-test-lib/linuwial.css | 877 ++ .../lib_cardano-cli-test-lib/meta.json | 1 + .../lib_cardano-cli-test-lib/quick-jump.css | 221 + .../quick-jump.min.js | 2 + .../src/Test.Cardano.CLI.Aeson.html | 336 + .../src/Test.Cardano.CLI.Util.html | 772 ++ .../lib_cardano-cli-test-lib/src/highlight.js | 27 + .../lib_cardano-cli-test-lib/src/style.css | 97 + .../lib_cardano-cli-test-lib/synopsis.png | Bin 0 -> 11327 bytes doc-index-36.html | 1 + doc-index-A.html | 1 + doc-index-All.html | 1 + doc-index-B.html | 1 + doc-index-C.html | 1 + doc-index-D.html | 1 + doc-index-E.html | 1 + doc-index-F.html | 1 + doc-index-G.html | 1 + doc-index-H.html | 1 + doc-index-I.html | 1 + doc-index-K.html | 1 + doc-index-L.html | 1 + doc-index-M.html | 1 + doc-index-N.html | 1 + doc-index-O.html | 1 + doc-index-P.html | 1 + doc-index-Q.html | 1 + doc-index-R.html | 1 + doc-index-S.html | 1 + doc-index-T.html | 1 + doc-index-U.html | 1 + doc-index-V.html | 1 + doc-index-W.html | 1 + doc-index-Y.html | 1 + doc-index.html | 1 + doc-index.json | 5894 +++++++++++ haddock-bundle.min.js | 2 + index.html | 1 + linuwial.css | 877 ++ quick-jump.css | 221 + quick-jump.min.js | 2 + synopsis.png | Bin 0 -> 11327 bytes 366 files changed, 89438 insertions(+) create mode 100644 .nojekyll create mode 100644 _plan/2f650ce6cdbb805bfbca4dafb4a7e6dcfe26a9f27c564c2b1312c9b11b185e26.json create mode 100644 _plan/305e804cb7a439dbc29edcb96acf4f1cbc1cd091a8b89edfca1c643e978be649.json create mode 100644 _plan/74e27620300b37a72b539de4a227cf4b21234e6f3f477a9ac2308f2ce9cc56ee.json create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Commands.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Delegation.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Legacy.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Parsers.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Run.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Tx.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-UpdateProposal.html create mode 100644 cardano-cli/lib/Cardano-CLI-Byron-Vote.html create mode 100644 cardano-cli/lib/Cardano-CLI-Environment.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Address.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Node.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Query.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakeAddress.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakePool.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-TextView.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands-Transaction.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Commands.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Address.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Common.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Actions.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Committee.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-DRep.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Hash.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Poll.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Vote.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Node.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Query.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-StakeAddress.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-StakePool.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-TextView.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Options-Transaction.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Address-Info.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Address.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Actions.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Committee.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-DRep.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Hash.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Poll.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Vote.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Node.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Query.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-StakeAddress.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-StakePool.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-TextView.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run-Transaction.html create mode 100644 cardano-cli/lib/Cardano-CLI-EraBased-Run.html create mode 100644 cardano-cli/lib/Cardano-CLI-Helpers.html create mode 100644 cardano-cli/lib/Cardano-CLI-IO-GitRev.html create mode 100644 cardano-cli/lib/Cardano-CLI-IO-Lazy.html create mode 100644 cardano-cli/lib/Cardano-CLI-Json-Friendly.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Address.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Node.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Query.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakeAddress.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakePool.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-TextView.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands-Transaction.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Commands.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Options-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Options.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Address.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Genesis.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Node.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Query.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-StakeAddress.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-StakePool.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-TextView.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run-Transaction.html create mode 100644 cardano-cli/lib/Cardano-CLI-Legacy-Run.html create mode 100644 cardano-cli/lib/Cardano-CLI-OS-Posix.html create mode 100644 cardano-cli/lib/Cardano-CLI-Options.html create mode 100644 cardano-cli/lib/Cardano-CLI-Parser.html create mode 100644 cardano-cli/lib/Cardano-CLI-Pretty.html create mode 100644 cardano-cli/lib/Cardano-CLI-Read.html create mode 100644 cardano-cli/lib/Cardano-CLI-Render.html create mode 100644 cardano-cli/lib/Cardano-CLI-Run-Ping.html create mode 100644 cardano-cli/lib/Cardano-CLI-Run.html create mode 100644 cardano-cli/lib/Cardano-CLI-TopHandler.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Common.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-AddressCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-AddressInfoError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-CmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-DelegationError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GenesisCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceActionsError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCommitteeError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceHashError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceQueryError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-KeyCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-NodeCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-NodeEraMismatchError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-RegistrationError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-ScriptDecodeError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressDelegationError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-StakeCredentialError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-TextViewFileError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-TxCmdError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Errors-TxValidationError.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Governance.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Key-VerificationKey.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Key.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-Output.html create mode 100644 cardano-cli/lib/Cardano-CLI-Types-TxFeature.html create mode 100644 cardano-cli/lib/Paths_cardano_cli.html create mode 100644 cardano-cli/lib/cardano-cli.haddock create mode 100644 cardano-cli/lib/doc-index-36.html create mode 100644 cardano-cli/lib/doc-index-A.html create mode 100644 cardano-cli/lib/doc-index-All.html create mode 100644 cardano-cli/lib/doc-index-B.html create mode 100644 cardano-cli/lib/doc-index-C.html create mode 100644 cardano-cli/lib/doc-index-D.html create mode 100644 cardano-cli/lib/doc-index-E.html create mode 100644 cardano-cli/lib/doc-index-F.html create mode 100644 cardano-cli/lib/doc-index-G.html create mode 100644 cardano-cli/lib/doc-index-H.html create mode 100644 cardano-cli/lib/doc-index-I.html create mode 100644 cardano-cli/lib/doc-index-K.html create mode 100644 cardano-cli/lib/doc-index-L.html create mode 100644 cardano-cli/lib/doc-index-M.html create mode 100644 cardano-cli/lib/doc-index-N.html create mode 100644 cardano-cli/lib/doc-index-O.html create mode 100644 cardano-cli/lib/doc-index-P.html create mode 100644 cardano-cli/lib/doc-index-Q.html create mode 100644 cardano-cli/lib/doc-index-R.html create mode 100644 cardano-cli/lib/doc-index-S.html create mode 100644 cardano-cli/lib/doc-index-T.html create mode 100644 cardano-cli/lib/doc-index-U.html create mode 100644 cardano-cli/lib/doc-index-V.html create mode 100644 cardano-cli/lib/doc-index-W.html create mode 100644 cardano-cli/lib/doc-index-Y.html create mode 100644 cardano-cli/lib/doc-index.html create mode 100644 cardano-cli/lib/doc-index.json create mode 100644 cardano-cli/lib/haddock-bundle.min.js create mode 100644 cardano-cli/lib/index.html create mode 100644 cardano-cli/lib/linuwial.css create mode 100644 cardano-cli/lib/meta.json create mode 100644 cardano-cli/lib/quick-jump.css create mode 100644 cardano-cli/lib/quick-jump.min.js create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Commands.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Delegation.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Legacy.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Parsers.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Run.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Tx.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.UpdateProposal.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Byron.Vote.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Environment.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Address.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Actions.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Committee.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.DRep.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Hash.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Poll.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Vote.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Node.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Query.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakeAddress.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakePool.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.TextView.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Transaction.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Address.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Common.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Actions.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Committee.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.DRep.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Hash.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Poll.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Vote.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Node.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Query.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakeAddress.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakePool.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.TextView.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Transaction.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.Info.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Actions.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Committee.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.DRep.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Hash.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Poll.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Vote.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Node.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Query.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakeAddress.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakePool.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.TextView.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Transaction.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.EraBased.Run.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Helpers.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.IO.GitRev.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.IO.Lazy.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Json.Friendly.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Address.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Node.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Query.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakeAddress.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakePool.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.TextView.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Transaction.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Options.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Options.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Address.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Genesis.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Node.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Query.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakeAddress.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakePool.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.TextView.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Transaction.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Legacy.Run.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.OS.Posix.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Options.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Parser.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Pretty.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Read.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Render.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Run.Ping.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Run.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.TopHandler.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Common.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressInfoError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.BootstrapWitnessError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.CmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.DelegationError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GenesisCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceActionsError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCommitteeError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceHashError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceQueryError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceVoteCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.ItnKeyConversionError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.KeyCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeEraMismatchError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.ProtocolParamsError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.RegistrationError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.ScriptDecodeError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressDelegationError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressRegistrationError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeCredentialError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakePoolCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.TextViewFileError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxCmdError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxValidationError.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Governance.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Key.VerificationKey.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Key.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.Output.html create mode 100644 cardano-cli/lib/src/Cardano.CLI.Types.TxFeature.html create mode 100644 cardano-cli/lib/src/Paths_cardano_cli.html create mode 100644 cardano-cli/lib/src/highlight.js create mode 100644 cardano-cli/lib/src/style.css create mode 100644 cardano-cli/lib/synopsis.png create mode 100644 cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/cardano-cli.haddock create mode 100644 cardano-cli/lib_cardano-cli-test-lib/doc-index.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/doc-index.json create mode 100644 cardano-cli/lib_cardano-cli-test-lib/haddock-bundle.min.js create mode 100644 cardano-cli/lib_cardano-cli-test-lib/index.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/linuwial.css create mode 100644 cardano-cli/lib_cardano-cli-test-lib/meta.json create mode 100644 cardano-cli/lib_cardano-cli-test-lib/quick-jump.css create mode 100644 cardano-cli/lib_cardano-cli-test-lib/quick-jump.min.js create mode 100644 cardano-cli/lib_cardano-cli-test-lib/src/Test.Cardano.CLI.Aeson.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/src/Test.Cardano.CLI.Util.html create mode 100644 cardano-cli/lib_cardano-cli-test-lib/src/highlight.js create mode 100644 cardano-cli/lib_cardano-cli-test-lib/src/style.css create mode 100644 cardano-cli/lib_cardano-cli-test-lib/synopsis.png create mode 100644 doc-index-36.html create mode 100644 doc-index-A.html create mode 100644 doc-index-All.html create mode 100644 doc-index-B.html create mode 100644 doc-index-C.html create mode 100644 doc-index-D.html create mode 100644 doc-index-E.html create mode 100644 doc-index-F.html create mode 100644 doc-index-G.html create mode 100644 doc-index-H.html create mode 100644 doc-index-I.html create mode 100644 doc-index-K.html create mode 100644 doc-index-L.html create mode 100644 doc-index-M.html create mode 100644 doc-index-N.html create mode 100644 doc-index-O.html create mode 100644 doc-index-P.html create mode 100644 doc-index-Q.html create mode 100644 doc-index-R.html create mode 100644 doc-index-S.html create mode 100644 doc-index-T.html create mode 100644 doc-index-U.html create mode 100644 doc-index-V.html create mode 100644 doc-index-W.html create mode 100644 doc-index-Y.html create mode 100644 doc-index.html create mode 100644 doc-index.json create mode 100644 haddock-bundle.min.js create mode 100644 index.html create mode 100644 linuwial.css create mode 100644 quick-jump.css create mode 100644 quick-jump.min.js create mode 100644 synopsis.png diff --git a/.nojekyll b/.nojekyll new file mode 100644 index 0000000000..e69de29bb2 diff --git a/_plan/2f650ce6cdbb805bfbca4dafb4a7e6dcfe26a9f27c564c2b1312c9b11b185e26.json b/_plan/2f650ce6cdbb805bfbca4dafb4a7e6dcfe26a9f27c564c2b1312c9b11b185e26.json new file mode 100644 index 0000000000..ef211f1a30 --- /dev/null +++ b/_plan/2f650ce6cdbb805bfbca4dafb4a7e6dcfe26a9f27c564c2b1312c9b11b185e26.json @@ -0,0 +1 @@ +{"dist-dir":"/home/runner/work/cardano-cli/cardano-cli/dist-newstyle/build/x86_64-linux/ghc-9.2.7/cardano-cli-8.14.0.0/noopt","pkg-name":"cardano-cli","component-name":"lib"} diff --git a/_plan/305e804cb7a439dbc29edcb96acf4f1cbc1cd091a8b89edfca1c643e978be649.json b/_plan/305e804cb7a439dbc29edcb96acf4f1cbc1cd091a8b89edfca1c643e978be649.json new file mode 100644 index 0000000000..13ded9539a --- /dev/null +++ b/_plan/305e804cb7a439dbc29edcb96acf4f1cbc1cd091a8b89edfca1c643e978be649.json @@ -0,0 +1 @@ +{"dist-dir":"/home/runner/work/cardano-cli/cardano-cli/dist-newstyle/build/x86_64-linux/ghc-9.2.7/cardano-cli-8.14.0.0/l/cardano-cli-test-lib/noopt","pkg-name":"cardano-cli","component-name":"lib_cardano-cli-test-lib"} diff --git a/_plan/74e27620300b37a72b539de4a227cf4b21234e6f3f477a9ac2308f2ce9cc56ee.json b/_plan/74e27620300b37a72b539de4a227cf4b21234e6f3f477a9ac2308f2ce9cc56ee.json new file mode 100644 index 0000000000..fe45b89d10 --- /dev/null +++ b/_plan/74e27620300b37a72b539de4a227cf4b21234e6f3f477a9ac2308f2ce9cc56ee.json @@ -0,0 +1 @@ +{"dist-dir":"/home/runner/work/cardano-cli/cardano-cli/dist-newstyle/build/x86_64-linux/ghc-9.2.7/cardano-cli-8.14.0.0/x/cardano-cli/noopt","pkg-name":"cardano-cli","component-name":"exe_cardano-cli"} diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Commands.html b/cardano-cli/lib/Cardano-CLI-Byron-Commands.html new file mode 100644 index 0000000000..d3bd676fd8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Commands.html @@ -0,0 +1 @@ +Cardano.CLI.Byron.Commands
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Commands

Documentation

data ByronCommand Source #

Constructors

NodeCmds NodeCmds 
Genesis NewDirectory GenesisParameters 
PrintGenesisHash GenesisFile 
Keygen NewSigningKeyFile 
ToVerification ByronKeyFormat (SigningKeyFile In) NewVerificationKeyFile 
PrettySigningKeyPublic ByronKeyFormat (SigningKeyFile In) 
MigrateDelegateKeyFrom 

Fields

PrintSigningKeyAddress ByronKeyFormat NetworkId (SigningKeyFile In) 
SubmitTx SocketPath NetworkId (TxFile In)

Filepath of transaction to submit.

SpendGenesisUTxO 

Fields

SpendUTxO 

Fields

GetTxId (TxFile In) 
ValidateCBOR 

Fields

PrettyPrintCBOR FilePath 

Instances

Instances details
Show ByronCommand Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

showsPrec ∷ Int → ByronCommand → ShowS Source #

show ∷ ByronCommand → String Source #

showList ∷ [ByronCommand] → ShowS Source #

data NodeCmds Source #

Constructors

CreateVote 

Fields

UpdateProposal NetworkId (SigningKeyFile In) ProtocolVersion SoftwareVersion SystemTag InstallerHash FilePath ByronProtocolParametersUpdate 
SubmitUpdateProposal SocketPath NetworkId FilePath

Update proposal filepath.

SubmitVote SocketPath NetworkId FilePath

Vote filepath.

Instances

Instances details
Show NodeCmds Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

showsPrec ∷ Int → NodeCmds → ShowS Source #

show ∷ NodeCmds → String Source #

showList ∷ [NodeCmds] → ShowS Source #

type VerificationKeyFile = File (VerificationKey ()) Source #

newtype NewVerificationKeyFile Source #

Constructors

NewVerificationKeyFile FilePath 

Instances

Instances details
IsString NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

fromString ∷ String → NewVerificationKeyFile Source #

Show NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

showsPrec ∷ Int → NewVerificationKeyFile → ShowS Source #

show ∷ NewVerificationKeyFile → String Source #

showList ∷ [NewVerificationKeyFile] → ShowS Source #

Eq NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

(==) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(/=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

Ord NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

compare ∷ NewVerificationKeyFile → NewVerificationKeyFile → Ordering Source #

(<) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(<=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(>) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(>=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

max ∷ NewVerificationKeyFile → NewVerificationKeyFile → NewVerificationKeyFile Source #

min ∷ NewVerificationKeyFile → NewVerificationKeyFile → NewVerificationKeyFile Source #

newtype CertificateFile Source #

Constructors

CertificateFile 

Fields

Instances

Instances details
Show CertificateFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → CertificateFile → ShowS Source #

show ∷ CertificateFile → String Source #

showList ∷ [CertificateFile] → ShowS Source #

Eq CertificateFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ CertificateFile → CertificateFile → Bool Source #

(/=) ∷ CertificateFile → CertificateFile → Bool Source #

newtype NewCertificateFile Source #

Constructors

NewCertificateFile 

Fields

Instances

Instances details
IsString NewCertificateFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

fromString ∷ String → NewCertificateFile Source #

Show NewCertificateFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

showsPrec ∷ Int → NewCertificateFile → ShowS Source #

show ∷ NewCertificateFile → String Source #

showList ∷ [NewCertificateFile] → ShowS Source #

Eq NewCertificateFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

(==) ∷ NewCertificateFile → NewCertificateFile → Bool Source #

(/=) ∷ NewCertificateFile → NewCertificateFile → Bool Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Delegation.html b/cardano-cli/lib/Cardano-CLI-Byron-Delegation.html new file mode 100644 index 0000000000..bbe82c5eba --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Delegation.html @@ -0,0 +1,4 @@ +Cardano.CLI.Byron.Delegation
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Delegation

Documentation

data ByronDelegationError Source #

Constructors

CertificateValidationErrors !FilePath ![Text] 
DlgCertificateDeserialisationFailed !FilePath !Text 
ByronDelegationKeyError !ByronKeyFailure 

Instances

Instances details
Show ByronDelegationError Source # 
Instance details

Defined in Cardano.CLI.Byron.Delegation

Methods

showsPrec ∷ Int → ByronDelegationError → ShowS Source #

show ∷ ByronDelegationError → String Source #

showList ∷ [ByronDelegationError] → ShowS Source #

checkByronGenesisDelegation ∷ CertificateFile → ProtocolMagicId → VerificationKey → VerificationKey → ExceptT ByronDelegationError IO () Source #

Verify that a certificate signifies genesis delegation by assumed genesis key + to a delegate key, for a given protocol magic. + If certificate fails validation, throw an error.

issueByronGenesisDelegation ∷ ProtocolMagicId → EpochNumber → SigningKey → VerificationKey → Certificate Source #

Issue a certificate for genesis delegation to a delegate key, signed by the + issuer key, for a given protocol magic and coming into effect at given epoch.

renderByronDelegationError ∷ ByronDelegationError → Text Source #

serialiseDelegationCert ∷ Certificate → ByteString Source #

serialiseByronWitness ∷ SomeByronSigningKey → ByteString Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Genesis.html b/cardano-cli/lib/Cardano-CLI-Byron-Genesis.html new file mode 100644 index 0000000000..03e1abfcb4 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Genesis.html @@ -0,0 +1,8 @@ +Cardano.CLI.Byron.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Genesis

Documentation

data ByronGenesisError Source #

Constructors

ByronDelegationCertSerializationError !ByronDelegationError 
ByronDelegationKeySerializationError ByronDelegationError 
GenesisGenerationError !GenesisDataGenerationError 
GenesisOutputDirAlreadyExists FilePath 
GenesisReadError !FilePath !GenesisDataError 
GenesisSpecError !Text 
MakeGenesisDelegationError !GenesisDelegationError 
NoGenesisDelegationForKey !Text 
ProtocolParametersParseFailed !FilePath !Text 
PoorKeyFailure !ByronKeyFailure 

Instances

Instances details
Show ByronGenesisError Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

showsPrec ∷ Int → ByronGenesisError → ShowS Source #

show ∷ ByronGenesisError → String Source #

showList ∷ [ByronGenesisError] → ShowS Source #

data GenesisParameters Source #

Parameters required for generation of new genesis.

Constructors

GenesisParameters 

Fields

Instances

Instances details
Show GenesisParameters Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

showsPrec ∷ Int → GenesisParameters → ShowS Source #

show ∷ GenesisParameters → String Source #

showList ∷ [GenesisParameters] → ShowS Source #

newtype NewDirectory Source #

Constructors

NewDirectory FilePath 

Instances

Instances details
IsString NewDirectory Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

fromString ∷ String → NewDirectory Source #

Show NewDirectory Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

showsPrec ∷ Int → NewDirectory → ShowS Source #

show ∷ NewDirectory → String Source #

showList ∷ [NewDirectory] → ShowS Source #

Eq NewDirectory Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

(==) ∷ NewDirectory → NewDirectory → Bool Source #

(/=) ∷ NewDirectory → NewDirectory → Bool Source #

Ord NewDirectory Source # 
Instance details

Defined in Cardano.CLI.Byron.Genesis

Methods

compare ∷ NewDirectory → NewDirectory → Ordering Source #

(<) ∷ NewDirectory → NewDirectory → Bool Source #

(<=) ∷ NewDirectory → NewDirectory → Bool Source #

(>) ∷ NewDirectory → NewDirectory → Bool Source #

(>=) ∷ NewDirectory → NewDirectory → Bool Source #

max ∷ NewDirectory → NewDirectory → NewDirectory Source #

min ∷ NewDirectory → NewDirectory → NewDirectory Source #

dumpGenesis ∷ NewDirectory → GenesisData → GeneratedSecrets → ExceptT ByronGenesisError IO () Source #

Write out genesis into a directory that must not yet exist. An error is + thrown if the directory already exists, or the genesis has delegate keys that + are not delegated to.

mkGenesis ∷ GenesisParameters → ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets) Source #

Generate a genesis, for given blockchain start time, protocol parameters, + security parameter, protocol magic, testnet balance options, fake AVVM options, + AVVM balance factor and seed. Throw an error in the following cases: if the + protocol parameters file can't be read or fails parse, if genesis delegation + couldn't be generated, if the parameter-derived genesis specification is wrong, + or if the genesis fails generation.

readGenesis ∷ GenesisFile → NetworkId → ExceptT ByronGenesisError IO Config Source #

Read genesis from a file.

renderByronGenesisError ∷ ByronGenesisError → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Key.html b/cardano-cli/lib/Cardano-CLI-Byron-Key.html new file mode 100644 index 0000000000..0c888bc6e2 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Key.html @@ -0,0 +1,3 @@ +Cardano.CLI.Byron.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Key

Contents

Keys

data ByronKeyFailure Source #

Constructors

ReadSigningKeyFailure !FilePath !Text 
ReadVerificationKeyFailure !FilePath !Text 
LegacySigningKeyDeserialisationFailed !FilePath 
SigningKeyDeserialisationFailed !FilePath 
VerificationKeyDeserialisationFailed !FilePath !Text 
CannotMigrateFromNonLegacySigningKey !FilePath 

Instances

Instances details
Show ByronKeyFailure Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

showsPrec ∷ Int → ByronKeyFailure → ShowS Source #

show ∷ ByronKeyFailure → String Source #

showList ∷ [ByronKeyFailure] → ShowS Source #

newtype NewSigningKeyFile Source #

Constructors

NewSigningKeyFile FilePath 

Instances

Instances details
IsString NewSigningKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

fromString ∷ String → NewSigningKeyFile Source #

Show NewSigningKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

showsPrec ∷ Int → NewSigningKeyFile → ShowS Source #

show ∷ NewSigningKeyFile → String Source #

showList ∷ [NewSigningKeyFile] → ShowS Source #

Eq NewSigningKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

(==) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

(/=) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

Ord NewSigningKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

compare ∷ NewSigningKeyFile → NewSigningKeyFile → Ordering Source #

(<) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

(<=) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

(>) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

(>=) ∷ NewSigningKeyFile → NewSigningKeyFile → Bool Source #

max ∷ NewSigningKeyFile → NewSigningKeyFile → NewSigningKeyFile Source #

min ∷ NewSigningKeyFile → NewSigningKeyFile → NewSigningKeyFile Source #

newtype NewVerificationKeyFile Source #

Constructors

NewVerificationKeyFile FilePath 

Instances

Instances details
IsString NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

fromString ∷ String → NewVerificationKeyFile Source #

Show NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

showsPrec ∷ Int → NewVerificationKeyFile → ShowS Source #

show ∷ NewVerificationKeyFile → String Source #

showList ∷ [NewVerificationKeyFile] → ShowS Source #

Eq NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

(==) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(/=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

Ord NewVerificationKeyFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Key

Methods

compare ∷ NewVerificationKeyFile → NewVerificationKeyFile → Ordering Source #

(<) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(<=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(>) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

(>=) ∷ NewVerificationKeyFile → NewVerificationKeyFile → Bool Source #

max ∷ NewVerificationKeyFile → NewVerificationKeyFile → NewVerificationKeyFile Source #

min ∷ NewVerificationKeyFile → NewVerificationKeyFile → NewVerificationKeyFile Source #

type VerificationKeyFile = File (VerificationKey ()) Source #

prettyPublicKey ∷ VerificationKey ByronKey → Text Source #

Print some invariant properties of a public key: + its hash and formatted view.

readByronSigningKey ∷ ByronKeyFormat → SigningKeyFile In → ExceptT ByronKeyFailure IO SomeByronSigningKey Source #

Read signing key from a file.

readPaymentVerificationKey ∷ VerificationKeyFile In → ExceptT ByronKeyFailure IO VerificationKey Source #

Read verification key from a file. Throw an error if the file can't be read + or the key fails to deserialise.

renderByronKeyFailure ∷ ByronKeyFailure → Text Source #

byronWitnessToVerKey ∷ SomeByronSigningKey → VerificationKey ByronKey Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Legacy.html b/cardano-cli/lib/Cardano-CLI-Byron-Legacy.html new file mode 100644 index 0000000000..c961b2ef08 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Legacy.html @@ -0,0 +1,6 @@ +Cardano.CLI.Byron.Legacy
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Legacy

Documentation

newtype LegacyDelegateKey Source #

LegacyDelegateKey is a subset of the UserSecret's from the legacy codebase: + 1. the VSS keypair must be present + 2. the signing key must be present + 3. the rest must be absent (Nothing)

Legacy reference: https://github.com/input-output-hk/cardano-sl/blob/release/3.0.1/lib/src/Pos/Util/UserSecret.hs#L189

Constructors

LegacyDelegateKey 

Fields

encodeLegacyDelegateKey ∷ LegacyDelegateKey → Encoding Source #

Encoder for a Byron/Classic signing key. + Lifted from cardano-sl legacy codebase.

decodeLegacyDelegateKey ∷ Decoder s LegacyDelegateKey Source #

Decoder for a Byron/Classic signing key. + Lifted from cardano-sl legacy codebase.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Parsers.html b/cardano-cli/lib/Cardano-CLI-Byron-Parsers.html new file mode 100644 index 0000000000..b833850931 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Parsers.html @@ -0,0 +1 @@ +Cardano.CLI.Byron.Parsers
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Parsers

Documentation

data ByronCommand Source #

Constructors

NodeCmds NodeCmds 
Genesis NewDirectory GenesisParameters 
PrintGenesisHash GenesisFile 
Keygen NewSigningKeyFile 
ToVerification ByronKeyFormat (SigningKeyFile In) NewVerificationKeyFile 
PrettySigningKeyPublic ByronKeyFormat (SigningKeyFile In) 
MigrateDelegateKeyFrom 

Fields

PrintSigningKeyAddress ByronKeyFormat NetworkId (SigningKeyFile In) 
SubmitTx SocketPath NetworkId (TxFile In)

Filepath of transaction to submit.

SpendGenesisUTxO 

Fields

SpendUTxO 

Fields

GetTxId (TxFile In) 
ValidateCBOR 

Fields

PrettyPrintCBOR FilePath 

Instances

Instances details
Show ByronCommand Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

showsPrec ∷ Int → ByronCommand → ShowS Source #

show ∷ ByronCommand → String Source #

showList ∷ [ByronCommand] → ShowS Source #

data NodeCmds Source #

Constructors

CreateVote 

Fields

UpdateProposal NetworkId (SigningKeyFile In) ProtocolVersion SoftwareVersion SystemTag InstallerHash FilePath ByronProtocolParametersUpdate 
SubmitUpdateProposal SocketPath NetworkId FilePath

Update proposal filepath.

SubmitVote SocketPath NetworkId FilePath

Vote filepath.

Instances

Instances details
Show NodeCmds Source # 
Instance details

Defined in Cardano.CLI.Byron.Commands

Methods

showsPrec ∷ Int → NodeCmds → ShowS Source #

show ∷ NodeCmds → String Source #

showList ∷ [NodeCmds] → ShowS Source #

backwardsCompatibilityCommands ∷ EnvCli → Parser ClientCommand Source #

parseByronCommands ∷ EnvCli → Parser ByronCommand Source #

parseHeavyDelThd ∷ Parser LovelacePortion Source #

parseInstallerHash ∷ Parser InstallerHash Source #

parseMaxBlockSize ∷ Parser Natural Source #

parseMaxHeaderSize ∷ Parser Natural Source #

parseMaxTxSize ∷ Parser Natural Source #

parseMaxProposalSize ∷ Parser Natural Source #

parseMpcThd ∷ Parser LovelacePortion Source #

parseScriptVersion ∷ Parser Word16 Source #

parseSlotDuration ∷ Parser Natural Source #

parseSoftforkRule ∷ Parser SoftforkRule Source #

parseSystemTag ∷ Parser SystemTag Source #

parseTxFeePolicy ∷ Parser TxFeePolicy Source #

parseUpdateProposalThd ∷ Parser LovelacePortion Source #

parseUpdateProposalTTL ∷ Parser SlotNumber Source #

parseUnlockStakeEpoch ∷ Parser EpochNumber Source #

parseUpdateVoteThd ∷ Parser LovelacePortion Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Run.html b/cardano-cli/lib/Cardano-CLI-Byron-Run.html new file mode 100644 index 0000000000..8f0d030da1 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Run.html @@ -0,0 +1,2 @@ +Cardano.CLI.Byron.Run
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Run

Documentation

data ByronClientCmdError Source #

Data type that encompasses all the possible errors of the + Byron client.

Instances

Instances details
Show ByronClientCmdError Source # 
Instance details

Defined in Cardano.CLI.Byron.Run

Methods

showsPrec ∷ Int → ByronClientCmdError → ShowS Source #

show ∷ ByronClientCmdError → String Source #

showList ∷ [ByronClientCmdError] → ShowS Source #

renderByronClientCmdError ∷ ByronClientCmdError → Text Source #

runByronClientCommand ∷ ByronCommand → ExceptT ByronClientCmdError IO () Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Tx.html b/cardano-cli/lib/Cardano-CLI-Byron-Tx.html new file mode 100644 index 0000000000..bbeb7775d1 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Tx.html @@ -0,0 +1,9 @@ +Cardano.CLI.Byron.Tx
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Tx

Documentation

data ByronTxError Source #

Constructors

TxDeserialisationFailed !FilePath !DecoderError 
ByronTxSubmitError !Text 
ByronTxSubmitErrorEraMismatch !EraMismatch 

Instances

Instances details
Show ByronTxError Source # 
Instance details

Defined in Cardano.CLI.Byron.Tx

Methods

showsPrec ∷ Int → ByronTxError → ShowS Source #

show ∷ ByronTxError → String Source #

showList ∷ [ByronTxError] → ShowS Source #

data Tx era Source #

Instances

Instances details
Show (InAnyCardanoEra Tx) 
Instance details

Defined in Cardano.Api.Tx

Methods

showsPrec ∷ Int → InAnyCardanoEra Tx → ShowS Source #

show ∷ InAnyCardanoEra Tx → String Source #

showList ∷ [InAnyCardanoEra Tx] → ShowS Source #

Show (Tx era) 
Instance details

Defined in Cardano.Api.Tx

Methods

showsPrec ∷ Int → Tx era → ShowS Source #

show ∷ Tx era → String Source #

showList ∷ [Tx era] → ShowS Source #

HasTypeProxy era ⇒ HasTypeProxy (Tx era) 
Instance details

Defined in Cardano.Api.Tx

Associated Types

data AsType (Tx era) Source #

Methods

proxyToAsType ∷ Proxy (Tx era) → AsType (Tx era) Source #

IsCardanoEra era ⇒ SerialiseAsCBOR (Tx era) 
Instance details

Defined in Cardano.Api.Tx

Methods

serialiseToCBOR ∷ Tx era → ByteString Source #

deserialiseFromCBOR ∷ AsType (Tx era) → ByteString → Either DecoderError (Tx era) Source #

IsCardanoEra era ⇒ HasTextEnvelope (Tx era) 
Instance details

Defined in Cardano.Api.Tx

Methods

textEnvelopeType ∷ AsType (Tx era) → TextEnvelopeType Source #

textEnvelopeDefaultDescr ∷ Tx era → TextEnvelopeDescr Source #

Eq (InAnyCardanoEra Tx) 
Instance details

Defined in Cardano.Api.Tx

Methods

(==) ∷ InAnyCardanoEra Tx → InAnyCardanoEra Tx → Bool Source #

(/=) ∷ InAnyCardanoEra Tx → InAnyCardanoEra Tx → Bool Source #

Eq (Tx era) 
Instance details

Defined in Cardano.Api.Tx

Methods

(==) ∷ Tx era → Tx era → Bool Source #

(/=) ∷ Tx era → Tx era → Bool Source #

data AsType (Tx era) 
Instance details

Defined in Cardano.Api.Tx

data AsType (Tx era) = AsTx (AsType era)

type TxFile = File (Tx ()) Source #

newtype NewTxFile Source #

Constructors

NewTxFile FilePath 

Instances

Instances details
IsString NewTxFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Tx

Methods

fromString ∷ String → NewTxFile Source #

Show NewTxFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Tx

Methods

showsPrec ∷ Int → NewTxFile → ShowS Source #

show ∷ NewTxFile → String Source #

showList ∷ [NewTxFile] → ShowS Source #

Eq NewTxFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Tx

Methods

(==) ∷ NewTxFile → NewTxFile → Bool Source #

(/=) ∷ NewTxFile → NewTxFile → Bool Source #

Ord NewTxFile Source # 
Instance details

Defined in Cardano.CLI.Byron.Tx

Methods

compare ∷ NewTxFile → NewTxFile → Ordering Source #

(<) ∷ NewTxFile → NewTxFile → Bool Source #

(<=) ∷ NewTxFile → NewTxFile → Bool Source #

(>) ∷ NewTxFile → NewTxFile → Bool Source #

(>=) ∷ NewTxFile → NewTxFile → Bool Source #

max ∷ NewTxFile → NewTxFile → NewTxFile Source #

min ∷ NewTxFile → NewTxFile → NewTxFile Source #

prettyAddress ∷ Address ByronAddr → Text Source #

Pretty-print an address in its Base58 form, and also + its full structure.

readByronTx ∷ TxFile In → ExceptT ByronTxError IO (ATxAux ByteString) Source #

normalByronTxToGenTx ∷ ATxAux ByteString → GenTx ByronBlock Source #

The GenTx is all the kinds of transactions that can be submitted + and "normal" Byron transactions are just one of the kinds.

txSpendGenesisUTxOByronPBFT ∷ Config → NetworkId → SomeByronSigningKey → Address ByronAddr → [TxOut CtxTx ByronEra] → Tx ByronEra Source #

Generate a transaction spending genesis UTxO at a given address, + to given outputs, signed by the given key.

txSpendUTxOByronPBFT ∷ NetworkId → SomeByronSigningKey → [TxIn] → [TxOut CtxTx ByronEra] → Tx ByronEra Source #

Generate a transaction from given Tx inputs to outputs, + signed by the given key.

nodeSubmitTx ∷ SocketPath → NetworkId → GenTx ByronBlock → ExceptT ByronTxError IO () Source #

Submit a transaction to a node specified by topology info.

renderByronTxError ∷ ByronTxError → Text Source #

fromCborTxAux ∷ ByteString → Either DecoderError (ATxAux ByteString) Source #

toCborTxAux ∷ ATxAux ByteString → ByteString Source #

data ScriptValidity Source #

Indicates whether a script is expected to fail or pass validation.

Constructors

ScriptInvalid

Script is expected to fail validation. + Transactions marked as such can include scripts that fail validation. + Such transactions may be submitted to the chain, in which case the + collateral will be taken upon on chain script validation failure.

ScriptValid

Script is expected to pass validation. + Transactions marked as such cannot include scripts that fail validation.

Instances

Instances details
Show ScriptValidity 
Instance details

Defined in Cardano.Api.TxBody

Methods

showsPrec ∷ Int → ScriptValidity → ShowS Source #

show ∷ ScriptValidity → String Source #

showList ∷ [ScriptValidity] → ShowS Source #

DecCBOR ScriptValidity 
Instance details

Defined in Cardano.Api.TxBody

Methods

decCBOR ∷ Decoder s ScriptValidity Source #

dropCBOR ∷ Proxy ScriptValidity → Decoder s () Source #

label ∷ Proxy ScriptValidity → Text Source #

EncCBOR ScriptValidity 
Instance details

Defined in Cardano.Api.TxBody

Methods

encCBOR ∷ ScriptValidity → Encoding Source #

encodedSizeExpr ∷ (∀ t. EncCBOR t ⇒ Proxy t → Size) → Proxy ScriptValidity → Size Source #

encodedListSizeExpr ∷ (∀ t. EncCBOR t ⇒ Proxy t → Size) → Proxy [ScriptValidity] → Size Source #

Eq ScriptValidity 
Instance details

Defined in Cardano.Api.TxBody

Methods

(==) ∷ ScriptValidity → ScriptValidity → Bool Source #

(/=) ∷ ScriptValidity → ScriptValidity → Bool Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-UpdateProposal.html b/cardano-cli/lib/Cardano-CLI-Byron-UpdateProposal.html new file mode 100644 index 0000000000..01afba9a41 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-UpdateProposal.html @@ -0,0 +1 @@ +Cardano.CLI.Byron.UpdateProposal
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.UpdateProposal

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Byron-Vote.html b/cardano-cli/lib/Cardano-CLI-Byron-Vote.html new file mode 100644 index 0000000000..be2e2fc305 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Byron-Vote.html @@ -0,0 +1 @@ +Cardano.CLI.Byron.Vote
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Byron.Vote

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Environment.html b/cardano-cli/lib/Cardano-CLI-Environment.html new file mode 100644 index 0000000000..cee4ce40d2 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Environment.html @@ -0,0 +1,3 @@ +Cardano.CLI.Environment
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Environment

Description

This module defines constants derived from the environment.

Documentation

data EnvCli Source #

Constructors

EnvCli 

Fields

envCliAnyShelleyBasedEra ∷ EnvCli → Maybe (EraInEon ShelleyBasedEra) Source #

envCliAnyShelleyToBabbageEra ∷ EnvCli → Maybe (EraInEon ShelleyToBabbageEra) Source #

getEnvCli ∷ IO EnvCli Source #

getEnvNetworkId ∷ IO (Maybe NetworkId) Source #

If the environment variable CARDANO_NODE_NETWORK_ID is set, then return the network id therein. + Otherwise, return Nothing.

getEnvSocketPath ∷ IO (Maybe FilePath) Source #

If the environment variable CARDANO_NODE_SOCKET_PATH is set, then return the set value. + Otherwise, return Nothing.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Address.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Address.html new file mode 100644 index 0000000000..af7b040f75 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Address.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Address
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Address

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Genesis.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Genesis.html new file mode 100644 index 0000000000..48f897fe4b --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Genesis.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Genesis

Documentation

data GenesisCmds era Source #

Constructors

GenesisCreate !GenesisCreateCmdArgs 
GenesisCreateCardano !GenesisCreateCardanoCmdArgs 
GenesisCreateStaked !GenesisCreateStakedCmdArgs 
GenesisKeyGenGenesis !GenesisKeyGenGenesisCmdArgs 
GenesisKeyGenDelegate !GenesisKeyGenDelegateCmdArgs 
GenesisKeyGenUTxO !GenesisKeyGenUTxOCmdArgs 
GenesisCmdKeyHash !(VerificationKeyFile In) 
GenesisVerKey !GenesisVerKeyCmdArgs 
GenesisTxIn !GenesisTxInCmdArgs 
GenesisAddr !GenesisAddrCmdArgs 
GenesisHashFile !GenesisFile 

Instances

Instances details
Show (GenesisCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisCmds era → ShowS Source #

show ∷ GenesisCmds era → String Source #

showList ∷ [GenesisCmds era] → ShowS Source #

data GenesisCreateCmdArgs Source #

Constructors

GenesisCreateCmdArgs 

Fields

Instances

Instances details
Show GenesisCreateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisCreateCmdArgs → ShowS Source #

show ∷ GenesisCreateCmdArgs → String Source #

showList ∷ [GenesisCreateCmdArgs] → ShowS Source #

data GenesisCreateCardanoCmdArgs Source #

Constructors

GenesisCreateCardanoCmdArgs 

Fields

Instances

Instances details
Show GenesisCreateCardanoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisCreateCardanoCmdArgs → ShowS Source #

show ∷ GenesisCreateCardanoCmdArgs → String Source #

showList ∷ [GenesisCreateCardanoCmdArgs] → ShowS Source #

data GenesisCreateStakedCmdArgs Source #

Constructors

GenesisCreateStakedCmdArgs 

Fields

Instances

Instances details
Show GenesisCreateStakedCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisCreateStakedCmdArgs → ShowS Source #

show ∷ GenesisCreateStakedCmdArgs → String Source #

showList ∷ [GenesisCreateStakedCmdArgs] → ShowS Source #

data GenesisKeyGenGenesisCmdArgs Source #

Constructors

GenesisKeyGenGenesisCmdArgs 

Fields

Instances

Instances details
Show GenesisKeyGenGenesisCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisKeyGenGenesisCmdArgs → ShowS Source #

show ∷ GenesisKeyGenGenesisCmdArgs → String Source #

showList ∷ [GenesisKeyGenGenesisCmdArgs] → ShowS Source #

data GenesisKeyGenDelegateCmdArgs Source #

Constructors

GenesisKeyGenDelegateCmdArgs 

Fields

Instances

Instances details
Show GenesisKeyGenDelegateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisKeyGenDelegateCmdArgs → ShowS Source #

show ∷ GenesisKeyGenDelegateCmdArgs → String Source #

showList ∷ [GenesisKeyGenDelegateCmdArgs] → ShowS Source #

data GenesisKeyGenUTxOCmdArgs Source #

Constructors

GenesisKeyGenUTxOCmdArgs 

Fields

Instances

Instances details
Show GenesisKeyGenUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisKeyGenUTxOCmdArgs → ShowS Source #

show ∷ GenesisKeyGenUTxOCmdArgs → String Source #

showList ∷ [GenesisKeyGenUTxOCmdArgs] → ShowS Source #

data GenesisVerKeyCmdArgs Source #

Constructors

GenesisVerKeyCmdArgs 

Fields

Instances

Instances details
Show GenesisVerKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisVerKeyCmdArgs → ShowS Source #

show ∷ GenesisVerKeyCmdArgs → String Source #

showList ∷ [GenesisVerKeyCmdArgs] → ShowS Source #

data GenesisTxInCmdArgs Source #

Constructors

GenesisTxInCmdArgs 

Fields

Instances

Instances details
Show GenesisTxInCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisTxInCmdArgs → ShowS Source #

show ∷ GenesisTxInCmdArgs → String Source #

showList ∷ [GenesisTxInCmdArgs] → ShowS Source #

data GenesisAddrCmdArgs Source #

Constructors

GenesisAddrCmdArgs 

Fields

Instances

Instances details
Show GenesisAddrCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Genesis

Methods

showsPrec ∷ Int → GenesisAddrCmdArgs → ShowS Source #

show ∷ GenesisAddrCmdArgs → String Source #

showList ∷ [GenesisAddrCmdArgs] → ShowS Source #

renderGenesisCmds ∷ GenesisCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html new file mode 100644 index 0000000000..608c720593 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.Actions
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.Actions

Synopsis

Documentation

data GovernanceActionCmds era Source #

Constructors

GovernanceActionCreateConstitutionCmd !(GovernanceActionCreateConstitutionCmdArgs era) 
GoveranceActionUpdateCommitteeCmd !(GoveranceActionUpdateCommitteeCmdArgs era) 
GovernanceActionCreateNoConfidenceCmd !(GovernanceActionCreateNoConfidenceCmdArgs era) 
GovernanceActionProtocolParametersUpdateCmd !(GovernanceActionProtocolParametersUpdateCmdArgs era) 
GovernanceActionTreasuryWithdrawalCmd !(GovernanceActionTreasuryWithdrawalCmdArgs era) 
GovernanceActionInfoCmd !(GovernanceActionInfoCmdArgs era) 
GovernanceActionViewCmd !(GovernanceActionViewCmdArgs era) 

Instances

Instances details
Show (GovernanceActionCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionCmds era → ShowS Source #

show ∷ GovernanceActionCmds era → String Source #

showList ∷ [GovernanceActionCmds era] → ShowS Source #

data GoveranceActionUpdateCommitteeCmdArgs era Source #

Constructors

GoveranceActionUpdateCommitteeCmdArgs 

Fields

Instances

Instances details
Show (GoveranceActionUpdateCommitteeCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GoveranceActionUpdateCommitteeCmdArgs era → ShowS Source #

show ∷ GoveranceActionUpdateCommitteeCmdArgs era → String Source #

showList ∷ [GoveranceActionUpdateCommitteeCmdArgs era] → ShowS Source #

data GovernanceActionCreateConstitutionCmdArgs era Source #

Constructors

GovernanceActionCreateConstitutionCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionCreateConstitutionCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionCreateConstitutionCmdArgs era → ShowS Source #

show ∷ GovernanceActionCreateConstitutionCmdArgs era → String Source #

showList ∷ [GovernanceActionCreateConstitutionCmdArgs era] → ShowS Source #

data GovernanceActionCreateNoConfidenceCmdArgs era Source #

Constructors

GovernanceActionCreateNoConfidenceCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionCreateNoConfidenceCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionCreateNoConfidenceCmdArgs era → ShowS Source #

show ∷ GovernanceActionCreateNoConfidenceCmdArgs era → String Source #

showList ∷ [GovernanceActionCreateNoConfidenceCmdArgs era] → ShowS Source #

data GovernanceActionInfoCmdArgs era Source #

Datatype to carry data for the create-info governance action

Constructors

GovernanceActionInfoCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionInfoCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionInfoCmdArgs era → ShowS Source #

show ∷ GovernanceActionInfoCmdArgs era → String Source #

showList ∷ [GovernanceActionInfoCmdArgs era] → ShowS Source #

data GovernanceActionViewCmdArgs era Source #

Constructors

GovernanceActionViewCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionViewCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionViewCmdArgs era → ShowS Source #

show ∷ GovernanceActionViewCmdArgs era → String Source #

showList ∷ [GovernanceActionViewCmdArgs era] → ShowS Source #

data GovernanceActionProtocolParametersUpdateCmdArgs era Source #

Constructors

GovernanceActionProtocolParametersUpdateCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionProtocolParametersUpdateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionProtocolParametersUpdateCmdArgs era → ShowS Source #

show ∷ GovernanceActionProtocolParametersUpdateCmdArgs era → String Source #

showList ∷ [GovernanceActionProtocolParametersUpdateCmdArgs era] → ShowS Source #

data GovernanceActionTreasuryWithdrawalCmdArgs era Source #

Constructors

GovernanceActionTreasuryWithdrawalCmdArgs 

Fields

Instances

Instances details
Show (GovernanceActionTreasuryWithdrawalCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → GovernanceActionTreasuryWithdrawalCmdArgs era → ShowS Source #

show ∷ GovernanceActionTreasuryWithdrawalCmdArgs era → String Source #

showList ∷ [GovernanceActionTreasuryWithdrawalCmdArgs era] → ShowS Source #

data UpdateProtocolParametersConwayOnwards era Source #

Constructors

UpdateProtocolParametersConwayOnwards 

Fields

Instances

Instances details
Show (UpdateProtocolParametersConwayOnwards era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → UpdateProtocolParametersConwayOnwards era → ShowS Source #

show ∷ UpdateProtocolParametersConwayOnwards era → String Source #

showList ∷ [UpdateProtocolParametersConwayOnwards era] → ShowS Source #

data UpdateProtocolParametersPreConway era Source #

Constructors

UpdateProtocolParametersPreConway 

Fields

Instances

Instances details
Show (UpdateProtocolParametersPreConway era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Actions

Methods

showsPrec ∷ Int → UpdateProtocolParametersPreConway era → ShowS Source #

show ∷ UpdateProtocolParametersPreConway era → String Source #

showList ∷ [UpdateProtocolParametersPreConway era] → ShowS Source #

renderGovernanceActionCmds ∷ GovernanceActionCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html new file mode 100644 index 0000000000..be2e88468d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.Committee
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.Committee

Documentation

data GovernanceCommitteeCmds era Source #

Constructors

GovernanceCommitteeKeyGenColdCmd (GovernanceCommitteeKeyGenColdCmdArgs era) 
GovernanceCommitteeKeyGenHotCmd (GovernanceCommitteeKeyGenHotCmdArgs era) 
GovernanceCommitteeKeyHashCmd (GovernanceCommitteeKeyHashCmdArgs era) 
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd (GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era) 
GovernanceCommitteeCreateColdKeyResignationCertificateCmd (GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era) 

Instances

Instances details
Show (GovernanceCommitteeCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeCmds era → ShowS Source #

show ∷ GovernanceCommitteeCmds era → String Source #

showList ∷ [GovernanceCommitteeCmds era] → ShowS Source #

data GovernanceCommitteeKeyGenColdCmdArgs era Source #

Constructors

GovernanceCommitteeKeyGenColdCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCommitteeKeyGenColdCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeKeyGenColdCmdArgs era → ShowS Source #

show ∷ GovernanceCommitteeKeyGenColdCmdArgs era → String Source #

showList ∷ [GovernanceCommitteeKeyGenColdCmdArgs era] → ShowS Source #

data GovernanceCommitteeKeyGenHotCmdArgs era Source #

Constructors

GovernanceCommitteeKeyGenHotCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCommitteeKeyGenHotCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeKeyGenHotCmdArgs era → ShowS Source #

show ∷ GovernanceCommitteeKeyGenHotCmdArgs era → String Source #

showList ∷ [GovernanceCommitteeKeyGenHotCmdArgs era] → ShowS Source #

data GovernanceCommitteeKeyHashCmdArgs era Source #

Constructors

GovernanceCommitteeKeyHashCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCommitteeKeyHashCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeKeyHashCmdArgs era → ShowS Source #

show ∷ GovernanceCommitteeKeyHashCmdArgs era → String Source #

showList ∷ [GovernanceCommitteeKeyHashCmdArgs era] → ShowS Source #

data GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era Source #

Constructors

GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era → ShowS Source #

show ∷ GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era → String Source #

showList ∷ [GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era] → ShowS Source #

data GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era Source #

Constructors

GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Committee

Methods

showsPrec ∷ Int → GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era → ShowS Source #

show ∷ GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era → String Source #

showList ∷ [GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era] → ShowS Source #

renderGovernanceCommitteeCmds ∷ GovernanceCommitteeCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html new file mode 100644 index 0000000000..205a2cc765 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.DRep
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.DRep

Documentation

data GovernanceDRepCmds era Source #

Constructors

GovernanceDRepKeyGenCmd !(GovernanceDRepKeyGenCmdArgs era) 
GovernanceDRepIdCmd !(GovernanceDRepIdCmdArgs era) 
GovernanceDRepRegistrationCertificateCmd !(GovernanceDRepRegistrationCertificateCmdArgs era) 
GovernanceDRepRetirementCertificateCmd !(GovernanceDRepRetirementCertificateCmdArgs era) 
GovernanceDRepMetadataHashCmd !(GovernanceDRepMetadataHashCmdArgs era) 

renderGovernanceDRepCmds ∷ GovernanceDRepCmds era → Text Source #

data GovernanceDRepKeyGenCmdArgs era Source #

Constructors

GovernanceDRepKeyGenCmdArgs 

Fields

data GovernanceDRepIdCmdArgs era Source #

Constructors

GovernanceDRepIdCmdArgs 

Fields

data GovernanceDRepRegistrationCertificateCmdArgs era Source #

Constructors

GovernanceDRepRegistrationCertificateCmdArgs 

Fields

data GovernanceDRepRetirementCertificateCmdArgs era Source #

Constructors

GovernanceDRepRetirementCertificateCmdArgs 

Fields

data GovernanceDRepMetadataHashCmdArgs era Source #

Constructors

GovernanceDRepMetadataHashCmdArgs 

Fields

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html new file mode 100644 index 0000000000..c4a7e584c1 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.Hash
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.Hash

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html new file mode 100644 index 0000000000..6cd3c08058 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.Poll
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.Poll

Documentation

data GovernancePollCmds era Source #

Constructors

GovernanceCreatePoll !(GovernanceCreatePollCmdArgs era) 
GovernanceAnswerPoll !(GovernanceAnswerPollCmdArgs era) 
GovernanceVerifyPoll !(GovernanceVerifyPollCmdArgs era) 

renderGovernancePollCmds ∷ GovernancePollCmds era → Text Source #

data GovernanceCreatePollCmdArgs era Source #

Create a SPO poll

Constructors

GovernanceCreatePollCmdArgs 

Fields

Instances

Instances details
Show (GovernanceCreatePollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

showsPrec ∷ Int → GovernanceCreatePollCmdArgs era → ShowS Source #

show ∷ GovernanceCreatePollCmdArgs era → String Source #

showList ∷ [GovernanceCreatePollCmdArgs era] → ShowS Source #

Eq (GovernanceCreatePollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

(==) ∷ GovernanceCreatePollCmdArgs era → GovernanceCreatePollCmdArgs era → Bool Source #

(/=) ∷ GovernanceCreatePollCmdArgs era → GovernanceCreatePollCmdArgs era → Bool Source #

data GovernanceAnswerPollCmdArgs era Source #

Answer a SPO poll

Constructors

GovernanceAnswerPollCmdArgs 

Fields

Instances

Instances details
Show (GovernanceAnswerPollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

showsPrec ∷ Int → GovernanceAnswerPollCmdArgs era → ShowS Source #

show ∷ GovernanceAnswerPollCmdArgs era → String Source #

showList ∷ [GovernanceAnswerPollCmdArgs era] → ShowS Source #

Eq (GovernanceAnswerPollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

(==) ∷ GovernanceAnswerPollCmdArgs era → GovernanceAnswerPollCmdArgs era → Bool Source #

(/=) ∷ GovernanceAnswerPollCmdArgs era → GovernanceAnswerPollCmdArgs era → Bool Source #

data GovernanceVerifyPollCmdArgs era Source #

Verify answer to a given SPO poll

Constructors

GovernanceVerifyPollCmdArgs 

Fields

Instances

Instances details
Show (GovernanceVerifyPollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

showsPrec ∷ Int → GovernanceVerifyPollCmdArgs era → ShowS Source #

show ∷ GovernanceVerifyPollCmdArgs era → String Source #

showList ∷ [GovernanceVerifyPollCmdArgs era] → ShowS Source #

Eq (GovernanceVerifyPollCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Governance.Poll

Methods

(==) ∷ GovernanceVerifyPollCmdArgs era → GovernanceVerifyPollCmdArgs era → Bool Source #

(/=) ∷ GovernanceVerifyPollCmdArgs era → GovernanceVerifyPollCmdArgs era → Bool Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html new file mode 100644 index 0000000000..aae6d173ae --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance.Vote
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance.Vote

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance.html new file mode 100644 index 0000000000..538c7cd2f3 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Governance

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Key.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Key.html new file mode 100644 index 0000000000..d353f7731f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Key.html @@ -0,0 +1,7 @@ +Cardano.CLI.EraBased.Commands.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Key

Synopsis

Documentation

data KeyCmds era Source #

Constructors

KeyVerificationKeyCmd !KeyVerificationKeyCmdArgs 
KeyNonExtendedKeyCmd !KeyNonExtendedKeyCmdArgs 
KeyConvertByronKeyCmd !KeyConvertByronKeyCmdArgs 
KeyConvertByronGenesisVKeyCmd !KeyConvertByronGenesisVKeyCmdArgs 
KeyConvertITNKeyCmd !KeyConvertITNKeyCmdArgs 
KeyConvertITNExtendedKeyCmd !KeyConvertITNExtendedKeyCmdArgs 
KeyConvertITNBip32KeyCmd !KeyConvertITNBip32KeyCmdArgs 
KeyConvertCardanoAddressKeyCmd !KeyConvertCardanoAddressKeyCmdArgs 

Instances

Instances details
Show (KeyCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyCmds era → ShowS Source #

show ∷ KeyCmds era → String Source #

showList ∷ [KeyCmds era] → ShowS Source #

data KeyVerificationKeyCmdArgs Source #

Get a verification key from a signing key. This supports all key types

Constructors

KeyVerificationKeyCmdArgs 

Fields

Instances

Instances details
Show KeyVerificationKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyVerificationKeyCmdArgs → ShowS Source #

show ∷ KeyVerificationKeyCmdArgs → String Source #

showList ∷ [KeyVerificationKeyCmdArgs] → ShowS Source #

data KeyNonExtendedKeyCmdArgs Source #

Get a non-extended verification key from an extended verification key. This + supports all extended key types.

Constructors

KeyNonExtendedKeyCmdArgs 

Fields

Instances

Instances details
Show KeyNonExtendedKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyNonExtendedKeyCmdArgs → ShowS Source #

show ∷ KeyNonExtendedKeyCmdArgs → String Source #

showList ∷ [KeyNonExtendedKeyCmdArgs] → ShowS Source #

data KeyConvertByronKeyCmdArgs Source #

Convert a Byron payment, genesis or genesis delegate key (signing or + verification) to a corresponding Shelley-format key.

Constructors

KeyConvertByronKeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertByronKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertByronKeyCmdArgs → ShowS Source #

show ∷ KeyConvertByronKeyCmdArgs → String Source #

showList ∷ [KeyConvertByronKeyCmdArgs] → ShowS Source #

data KeyConvertByronGenesisVKeyCmdArgs Source #

Constructors

KeyConvertByronGenesisVKeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertByronGenesisVKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertByronGenesisVKeyCmdArgs → ShowS Source #

show ∷ KeyConvertByronGenesisVKeyCmdArgs → String Source #

showList ∷ [KeyConvertByronGenesisVKeyCmdArgs] → ShowS Source #

data KeyConvertITNKeyCmdArgs Source #

Convert an Incentivized Testnet (ITN) non-extended (Ed25519) signing or + verification key to a corresponding Shelley stake key

Constructors

KeyConvertITNKeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertITNKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertITNKeyCmdArgs → ShowS Source #

show ∷ KeyConvertITNKeyCmdArgs → String Source #

showList ∷ [KeyConvertITNKeyCmdArgs] → ShowS Source #

data KeyConvertITNExtendedKeyCmdArgs Source #

Convert an Incentivized Testnet (ITN) extended (Ed25519Extended) signing key + to a corresponding Shelley stake signing key

Constructors

KeyConvertITNExtendedKeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertITNExtendedKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertITNExtendedKeyCmdArgs → ShowS Source #

show ∷ KeyConvertITNExtendedKeyCmdArgs → String Source #

showList ∷ [KeyConvertITNExtendedKeyCmdArgs] → ShowS Source #

data KeyConvertITNBip32KeyCmdArgs Source #

Convert an Incentivized Testnet (ITN) BIP32 (Ed25519Bip32) signing key to a + corresponding Shelley stake signing key

Constructors

KeyConvertITNBip32KeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertITNBip32KeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertITNBip32KeyCmdArgs → ShowS Source #

show ∷ KeyConvertITNBip32KeyCmdArgs → String Source #

showList ∷ [KeyConvertITNBip32KeyCmdArgs] → ShowS Source #

data KeyConvertCardanoAddressKeyCmdArgs Source #

Convert a cardano-address extended signing key to a corresponding + Shelley-format key

Constructors

KeyConvertCardanoAddressKeyCmdArgs 

Fields

Instances

Instances details
Show KeyConvertCardanoAddressKeyCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Key

Methods

showsPrec ∷ Int → KeyConvertCardanoAddressKeyCmdArgs → ShowS Source #

show ∷ KeyConvertCardanoAddressKeyCmdArgs → String Source #

showList ∷ [KeyConvertCardanoAddressKeyCmdArgs] → ShowS Source #

renderKeyCmds ∷ KeyCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Node.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Node.html new file mode 100644 index 0000000000..7654bc38d4 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Node.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Node
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Node

Documentation

data NodeCmds era Source #

Constructors

NodeKeyGenColdCmd !NodeKeyGenColdCmdArgs 
NodeKeyGenKESCmd !NodeKeyGenKESCmdArgs 
NodeKeyGenVRFCmd !NodeKeyGenVRFCmdArgs 
NodeKeyHashVRFCmd !NodeKeyHashVRFCmdArgs 
NodeNewCounterCmd !NodeNewCounterCmdArgs 
NodeIssueOpCertCmd !NodeIssueOpCertCmdArgs 

Instances

Instances details
Show (NodeCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeCmds era → ShowS Source #

show ∷ NodeCmds era → String Source #

showList ∷ [NodeCmds era] → ShowS Source #

renderNodeCmds ∷ NodeCmds era → Text Source #

data NodeKeyGenColdCmdArgs Source #

Constructors

NodeKeyGenColdCmdArgs 

Fields

Instances

Instances details
Show NodeKeyGenColdCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeKeyGenColdCmdArgs → ShowS Source #

show ∷ NodeKeyGenColdCmdArgs → String Source #

showList ∷ [NodeKeyGenColdCmdArgs] → ShowS Source #

data NodeKeyGenKESCmdArgs Source #

Constructors

NodeKeyGenKESCmdArgs 

Fields

Instances

Instances details
Show NodeKeyGenKESCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeKeyGenKESCmdArgs → ShowS Source #

show ∷ NodeKeyGenKESCmdArgs → String Source #

showList ∷ [NodeKeyGenKESCmdArgs] → ShowS Source #

data NodeKeyGenVRFCmdArgs Source #

Constructors

NodeKeyGenVRFCmdArgs 

Fields

Instances

Instances details
Show NodeKeyGenVRFCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeKeyGenVRFCmdArgs → ShowS Source #

show ∷ NodeKeyGenVRFCmdArgs → String Source #

showList ∷ [NodeKeyGenVRFCmdArgs] → ShowS Source #

data NodeKeyHashVRFCmdArgs Source #

Constructors

NodeKeyHashVRFCmdArgs 

Fields

Instances

Instances details
Show NodeKeyHashVRFCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeKeyHashVRFCmdArgs → ShowS Source #

show ∷ NodeKeyHashVRFCmdArgs → String Source #

showList ∷ [NodeKeyHashVRFCmdArgs] → ShowS Source #

data NodeNewCounterCmdArgs Source #

Constructors

NodeNewCounterCmdArgs 

Fields

Instances

Instances details
Show NodeNewCounterCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeNewCounterCmdArgs → ShowS Source #

show ∷ NodeNewCounterCmdArgs → String Source #

showList ∷ [NodeNewCounterCmdArgs] → ShowS Source #

data NodeIssueOpCertCmdArgs Source #

Constructors

NodeIssueOpCertCmdArgs 

Fields

Instances

Instances details
Show NodeIssueOpCertCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Node

Methods

showsPrec ∷ Int → NodeIssueOpCertCmdArgs → ShowS Source #

show ∷ NodeIssueOpCertCmdArgs → String Source #

showList ∷ [NodeIssueOpCertCmdArgs] → ShowS Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Query.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Query.html new file mode 100644 index 0000000000..604513a02d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Query.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Query
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Query

Documentation

data QueryCmds era Source #

Constructors

QueryLeadershipScheduleCmd !QueryLeadershipScheduleCmdArgs 
QueryProtocolParametersCmd !QueryProtocolParametersCmdArgs 
QueryConstitutionHashCmd !QueryConstitutionHashCmdArgs 
QueryTipCmd !QueryTipCmdArgs 
QueryStakePoolsCmd !QueryStakePoolsCmdArgs 
QueryStakeDistributionCmd !QueryStakeDistributionCmdArgs 
QueryStakeAddressInfoCmd !QueryStakeAddressInfoCmdArgs 
QueryUTxOCmd !QueryUTxOCmdArgs 
QueryLedgerStateCmd !QueryLedgerStateCmdArgs 
QueryProtocolStateCmd !QueryProtocolStateCmdArgs 
QueryStakeSnapshotCmd !QueryStakeSnapshotCmdArgs 
QueryKesPeriodInfoCmd !QueryKesPeriodInfoCmdArgs 
QueryPoolStateCmd !QueryPoolStateCmdArgs 
QueryTxMempoolCmd !QueryTxMempoolCmdArgs 
QuerySlotNumberCmd !QuerySlotNumberCmdArgs 
QueryConstitutionCmd !(QueryNoArgCmdArgs era) 
QueryGovStateCmd !(QueryNoArgCmdArgs era) 
QueryDRepStateCmd !(QueryDRepStateCmdArgs era) 
QueryDRepStakeDistributionCmd !(QueryDRepStakeDistributionCmdArgs era) 
QueryCommitteeMembersStateCmd !(QueryCommitteeMembersStateCmdArgs era) 

Instances

Instances details
Generic (QueryCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep (QueryCmds era) ∷ Type → Type Source #

Methods

from ∷ QueryCmds era → Rep (QueryCmds era) x Source #

to ∷ Rep (QueryCmds era) x → QueryCmds era Source #

Show (QueryCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryCmds era → ShowS Source #

show ∷ QueryCmds era → String Source #

showList ∷ [QueryCmds era] → ShowS Source #

type Rep (QueryCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep (QueryCmds era) = D1 ('MetaData "QueryCmds" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) ((((C1 ('MetaCons "QueryLeadershipScheduleCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryLeadershipScheduleCmdArgs)) :+: C1 ('MetaCons "QueryProtocolParametersCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryProtocolParametersCmdArgs))) :+: (C1 ('MetaCons "QueryConstitutionHashCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryConstitutionHashCmdArgs)) :+: (C1 ('MetaCons "QueryTipCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryTipCmdArgs)) :+: C1 ('MetaCons "QueryStakePoolsCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryStakePoolsCmdArgs))))) :+: ((C1 ('MetaCons "QueryStakeDistributionCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryStakeDistributionCmdArgs)) :+: C1 ('MetaCons "QueryStakeAddressInfoCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryStakeAddressInfoCmdArgs))) :+: (C1 ('MetaCons "QueryUTxOCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryUTxOCmdArgs)) :+: (C1 ('MetaCons "QueryLedgerStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryLedgerStateCmdArgs)) :+: C1 ('MetaCons "QueryProtocolStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryProtocolStateCmdArgs)))))) :+: (((C1 ('MetaCons "QueryStakeSnapshotCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryStakeSnapshotCmdArgs)) :+: C1 ('MetaCons "QueryKesPeriodInfoCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryKesPeriodInfoCmdArgs))) :+: (C1 ('MetaCons "QueryPoolStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryPoolStateCmdArgs)) :+: (C1 ('MetaCons "QueryTxMempoolCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryTxMempoolCmdArgs)) :+: C1 ('MetaCons "QuerySlotNumberCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QuerySlotNumberCmdArgs))))) :+: ((C1 ('MetaCons "QueryConstitutionCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (QueryNoArgCmdArgs era))) :+: C1 ('MetaCons "QueryGovStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (QueryNoArgCmdArgs era)))) :+: (C1 ('MetaCons "QueryDRepStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (QueryDRepStateCmdArgs era))) :+: (C1 ('MetaCons "QueryDRepStakeDistributionCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (QueryDRepStakeDistributionCmdArgs era))) :+: C1 ('MetaCons "QueryCommitteeMembersStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (QueryCommitteeMembersStateCmdArgs era))))))))

data QueryCommitteeMembersStateCmdArgs era Source #

Constructors

QueryCommitteeMembersStateCmdArgs 

Fields

Instances

Instances details
Show (QueryCommitteeMembersStateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryCommitteeMembersStateCmdArgs era → ShowS Source #

show ∷ QueryCommitteeMembersStateCmdArgs era → String Source #

showList ∷ [QueryCommitteeMembersStateCmdArgs era] → ShowS Source #

data QueryLeadershipScheduleCmdArgs Source #

Constructors

QueryLeadershipScheduleCmdArgs 

Fields

Instances

Instances details
Generic QueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryLeadershipScheduleCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryLeadershipScheduleCmdArgs → Rep QueryLeadershipScheduleCmdArgs x Source #

to ∷ Rep QueryLeadershipScheduleCmdArgs x → QueryLeadershipScheduleCmdArgs Source #

Show QueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryLeadershipScheduleCmdArgs → ShowS Source #

show ∷ QueryLeadershipScheduleCmdArgs → String Source #

showList ∷ [QueryLeadershipScheduleCmdArgs] → ShowS Source #

type Rep QueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryLeadershipScheduleCmdArgs = D1 ('MetaData "QueryLeadershipScheduleCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryLeadershipScheduleCmdArgs" 'PrefixI 'True) (((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "genesisFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 GenesisFile))) :*: ((S1 ('MetaSel ('Just "poolColdVerKeyFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (VerificationKeyOrHashOrFile StakePoolKey)) :*: S1 ('MetaSel ('Just "vrkSkeyFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (SigningKeyFile 'In))) :*: (S1 ('MetaSel ('Just "whichSchedule") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EpochLeadershipSchedule) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QueryProtocolParametersCmdArgs Source #

Constructors

QueryProtocolParametersCmdArgs 

Fields

Instances

Instances details
Generic QueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryProtocolParametersCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryProtocolParametersCmdArgs → Rep QueryProtocolParametersCmdArgs x Source #

to ∷ Rep QueryProtocolParametersCmdArgs x → QueryProtocolParametersCmdArgs Source #

Show QueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryProtocolParametersCmdArgs → ShowS Source #

show ∷ QueryProtocolParametersCmdArgs → String Source #

showList ∷ [QueryProtocolParametersCmdArgs] → ShowS Source #

type Rep QueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryProtocolParametersCmdArgs = D1 ('MetaData "QueryProtocolParametersCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryProtocolParametersCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryConstitutionHashCmdArgs Source #

Constructors

QueryConstitutionHashCmdArgs 

Fields

Instances

Instances details
Generic QueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryConstitutionHashCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryConstitutionHashCmdArgs → Rep QueryConstitutionHashCmdArgs x Source #

to ∷ Rep QueryConstitutionHashCmdArgs x → QueryConstitutionHashCmdArgs Source #

Show QueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryConstitutionHashCmdArgs → ShowS Source #

show ∷ QueryConstitutionHashCmdArgs → String Source #

showList ∷ [QueryConstitutionHashCmdArgs] → ShowS Source #

type Rep QueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryConstitutionHashCmdArgs = D1 ('MetaData "QueryConstitutionHashCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryConstitutionHashCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryTipCmdArgs Source #

Constructors

QueryTipCmdArgs 

Fields

Instances

Instances details
Generic QueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryTipCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryTipCmdArgs → Rep QueryTipCmdArgs x Source #

to ∷ Rep QueryTipCmdArgs x → QueryTipCmdArgs Source #

Show QueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryTipCmdArgs → ShowS Source #

show ∷ QueryTipCmdArgs → String Source #

showList ∷ [QueryTipCmdArgs] → ShowS Source #

type Rep QueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryTipCmdArgs = D1 ('MetaData "QueryTipCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryTipCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryStakePoolsCmdArgs Source #

Constructors

QueryStakePoolsCmdArgs 

Fields

Instances

Instances details
Generic QueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryStakePoolsCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryStakePoolsCmdArgs → Rep QueryStakePoolsCmdArgs x Source #

to ∷ Rep QueryStakePoolsCmdArgs x → QueryStakePoolsCmdArgs Source #

Show QueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryStakePoolsCmdArgs → ShowS Source #

show ∷ QueryStakePoolsCmdArgs → String Source #

showList ∷ [QueryStakePoolsCmdArgs] → ShowS Source #

type Rep QueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryStakePoolsCmdArgs = D1 ('MetaData "QueryStakePoolsCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryStakePoolsCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryStakeDistributionCmdArgs Source #

Constructors

QueryStakeDistributionCmdArgs 

Fields

Instances

Instances details
Generic QueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryStakeDistributionCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryStakeDistributionCmdArgs → Rep QueryStakeDistributionCmdArgs x Source #

to ∷ Rep QueryStakeDistributionCmdArgs x → QueryStakeDistributionCmdArgs Source #

Show QueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryStakeDistributionCmdArgs → ShowS Source #

show ∷ QueryStakeDistributionCmdArgs → String Source #

showList ∷ [QueryStakeDistributionCmdArgs] → ShowS Source #

type Rep QueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryStakeDistributionCmdArgs = D1 ('MetaData "QueryStakeDistributionCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryStakeDistributionCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryStakeAddressInfoCmdArgs Source #

Constructors

QueryStakeAddressInfoCmdArgs 

Fields

Instances

Instances details
Generic QueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryStakeAddressInfoCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryStakeAddressInfoCmdArgs → Rep QueryStakeAddressInfoCmdArgs x Source #

to ∷ Rep QueryStakeAddressInfoCmdArgs x → QueryStakeAddressInfoCmdArgs Source #

Show QueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryStakeAddressInfoCmdArgs → ShowS Source #

show ∷ QueryStakeAddressInfoCmdArgs → String Source #

showList ∷ [QueryStakeAddressInfoCmdArgs] → ShowS Source #

type Rep QueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryStakeAddressInfoCmdArgs = D1 ('MetaData "QueryStakeAddressInfoCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryStakeAddressInfoCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "addr") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 StakeAddress) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QueryUTxOCmdArgs Source #

Constructors

QueryUTxOCmdArgs 

Fields

Instances

Instances details
Generic QueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryUTxOCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryUTxOCmdArgs → Rep QueryUTxOCmdArgs x Source #

to ∷ Rep QueryUTxOCmdArgs x → QueryUTxOCmdArgs Source #

Show QueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryUTxOCmdArgs → ShowS Source #

show ∷ QueryUTxOCmdArgs → String Source #

showList ∷ [QueryUTxOCmdArgs] → ShowS Source #

type Rep QueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryUTxOCmdArgs = D1 ('MetaData "QueryUTxOCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryUTxOCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "queryFilter") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryUTxOFilter) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QueryLedgerStateCmdArgs Source #

Constructors

QueryLedgerStateCmdArgs 

Fields

Instances

Instances details
Generic QueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryLedgerStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryLedgerStateCmdArgs → Rep QueryLedgerStateCmdArgs x Source #

to ∷ Rep QueryLedgerStateCmdArgs x → QueryLedgerStateCmdArgs Source #

Show QueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryLedgerStateCmdArgs → ShowS Source #

show ∷ QueryLedgerStateCmdArgs → String Source #

showList ∷ [QueryLedgerStateCmdArgs] → ShowS Source #

type Rep QueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryLedgerStateCmdArgs = D1 ('MetaData "QueryLedgerStateCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryLedgerStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryProtocolStateCmdArgs Source #

Constructors

QueryProtocolStateCmdArgs 

Fields

Instances

Instances details
Generic QueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryProtocolStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryProtocolStateCmdArgs → Rep QueryProtocolStateCmdArgs x Source #

to ∷ Rep QueryProtocolStateCmdArgs x → QueryProtocolStateCmdArgs Source #

Show QueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryProtocolStateCmdArgs → ShowS Source #

show ∷ QueryProtocolStateCmdArgs → String Source #

showList ∷ [QueryProtocolStateCmdArgs] → ShowS Source #

type Rep QueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryProtocolStateCmdArgs = D1 ('MetaData "QueryProtocolStateCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryProtocolStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data QueryStakeSnapshotCmdArgs Source #

Constructors

QueryStakeSnapshotCmdArgs 

Fields

Instances

Instances details
Generic QueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryStakeSnapshotCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryStakeSnapshotCmdArgs → Rep QueryStakeSnapshotCmdArgs x Source #

to ∷ Rep QueryStakeSnapshotCmdArgs x → QueryStakeSnapshotCmdArgs Source #

Show QueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryStakeSnapshotCmdArgs → ShowS Source #

show ∷ QueryStakeSnapshotCmdArgs → String Source #

showList ∷ [QueryStakeSnapshotCmdArgs] → ShowS Source #

type Rep QueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryStakeSnapshotCmdArgs = D1 ('MetaData "QueryStakeSnapshotCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryStakeSnapshotCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "allOrOnlyPoolIds") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (AllOrOnly [Hash StakePoolKey])) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QueryKesPeriodInfoCmdArgs Source #

Constructors

QueryKesPeriodInfoCmdArgs 

Fields

Instances

Instances details
Generic QueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryKesPeriodInfoCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryKesPeriodInfoCmdArgs → Rep QueryKesPeriodInfoCmdArgs x Source #

to ∷ Rep QueryKesPeriodInfoCmdArgs x → QueryKesPeriodInfoCmdArgs Source #

Show QueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryKesPeriodInfoCmdArgs → ShowS Source #

show ∷ QueryKesPeriodInfoCmdArgs → String Source #

showList ∷ [QueryKesPeriodInfoCmdArgs] → ShowS Source #

type Rep QueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryKesPeriodInfoCmdArgs = D1 ('MetaData "QueryKesPeriodInfoCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryKesPeriodInfoCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "nodeOpCertFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (File () 'In)) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QueryPoolStateCmdArgs Source #

Constructors

QueryPoolStateCmdArgs 

Fields

Instances

Instances details
Generic QueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryPoolStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryPoolStateCmdArgs → Rep QueryPoolStateCmdArgs x Source #

to ∷ Rep QueryPoolStateCmdArgs x → QueryPoolStateCmdArgs Source #

Show QueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryPoolStateCmdArgs → ShowS Source #

show ∷ QueryPoolStateCmdArgs → String Source #

showList ∷ [QueryPoolStateCmdArgs] → ShowS Source #

type Rep QueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryPoolStateCmdArgs = D1 ('MetaData "QueryPoolStateCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryPoolStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "poolIds") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [Hash StakePoolKey]))))

data QueryTxMempoolCmdArgs Source #

Constructors

QueryTxMempoolCmdArgs 

Fields

Instances

Instances details
Generic QueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QueryTxMempoolCmdArgs ∷ Type → Type Source #

Methods

from ∷ QueryTxMempoolCmdArgs → Rep QueryTxMempoolCmdArgs x Source #

to ∷ Rep QueryTxMempoolCmdArgs x → QueryTxMempoolCmdArgs Source #

Show QueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryTxMempoolCmdArgs → ShowS Source #

show ∷ QueryTxMempoolCmdArgs → String Source #

showList ∷ [QueryTxMempoolCmdArgs] → ShowS Source #

type Rep QueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QueryTxMempoolCmdArgs = D1 ('MetaData "QueryTxMempoolCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QueryTxMempoolCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "query") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TxMempoolQuery) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data QuerySlotNumberCmdArgs Source #

Constructors

QuerySlotNumberCmdArgs 

Fields

Instances

Instances details
Generic QuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Associated Types

type Rep QuerySlotNumberCmdArgs ∷ Type → Type Source #

Methods

from ∷ QuerySlotNumberCmdArgs → Rep QuerySlotNumberCmdArgs x Source #

to ∷ Rep QuerySlotNumberCmdArgs x → QuerySlotNumberCmdArgs Source #

Show QuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QuerySlotNumberCmdArgs → ShowS Source #

show ∷ QuerySlotNumberCmdArgs → String Source #

showList ∷ [QuerySlotNumberCmdArgs] → ShowS Source #

type Rep QuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

type Rep QuerySlotNumberCmdArgs = D1 ('MetaData "QuerySlotNumberCmdArgs" "Cardano.CLI.EraBased.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "QuerySlotNumberCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "utcTime") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))

data QueryNoArgCmdArgs era Source #

Constructors

QueryNoArgCmdArgs 

Fields

Instances

Instances details
Show (QueryNoArgCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryNoArgCmdArgs era → ShowS Source #

show ∷ QueryNoArgCmdArgs era → String Source #

showList ∷ [QueryNoArgCmdArgs era] → ShowS Source #

data QueryDRepStateCmdArgs era Source #

Constructors

QueryDRepStateCmdArgs 

Fields

Instances

Instances details
Show (QueryDRepStateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryDRepStateCmdArgs era → ShowS Source #

show ∷ QueryDRepStateCmdArgs era → String Source #

showList ∷ [QueryDRepStateCmdArgs era] → ShowS Source #

data QueryDRepStakeDistributionCmdArgs era Source #

Constructors

QueryDRepStakeDistributionCmdArgs 

Fields

Instances

Instances details
Show (QueryDRepStakeDistributionCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Query

Methods

showsPrec ∷ Int → QueryDRepStakeDistributionCmdArgs era → ShowS Source #

show ∷ QueryDRepStakeDistributionCmdArgs era → String Source #

showList ∷ [QueryDRepStakeDistributionCmdArgs era] → ShowS Source #

renderQueryCmds ∷ QueryCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakeAddress.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakeAddress.html new file mode 100644 index 0000000000..4b72a0dd1a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakeAddress.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.StakeAddress
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.StakeAddress

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakePool.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakePool.html new file mode 100644 index 0000000000..2127305fc0 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-StakePool.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.StakePool
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.StakePool

Documentation

data StakePoolCmds era Source #

Constructors

StakePoolDeregistrationCertificateCmd !(StakePoolDeregistrationCertificateCmdArgs era) 
StakePoolIdCmd !(StakePoolIdCmdArgs era) 
StakePoolMetadataHashCmd !(StakePoolMetadataHashCmdArgs era) 
StakePoolRegistrationCertificateCmd !(StakePoolRegistrationCertificateCmdArgs era) 

Instances

Instances details
Show (StakePoolCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.StakePool

Methods

showsPrec ∷ Int → StakePoolCmds era → ShowS Source #

show ∷ StakePoolCmds era → String Source #

showList ∷ [StakePoolCmds era] → ShowS Source #

renderStakePoolCmds ∷ StakePoolCmds era → Text Source #

data StakePoolDeregistrationCertificateCmdArgs era Source #

Constructors

StakePoolDeregistrationCertificateCmdArgs 

Fields

Instances

Instances details
Show (StakePoolDeregistrationCertificateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.StakePool

Methods

showsPrec ∷ Int → StakePoolDeregistrationCertificateCmdArgs era → ShowS Source #

show ∷ StakePoolDeregistrationCertificateCmdArgs era → String Source #

showList ∷ [StakePoolDeregistrationCertificateCmdArgs era] → ShowS Source #

data StakePoolIdCmdArgs era Source #

Constructors

StakePoolIdCmdArgs 

Fields

Instances

Instances details
Show (StakePoolIdCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.StakePool

Methods

showsPrec ∷ Int → StakePoolIdCmdArgs era → ShowS Source #

show ∷ StakePoolIdCmdArgs era → String Source #

showList ∷ [StakePoolIdCmdArgs era] → ShowS Source #

data StakePoolMetadataHashCmdArgs era Source #

Constructors

StakePoolMetadataHashCmdArgs 

Fields

Instances

Instances details
Show (StakePoolMetadataHashCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.StakePool

Methods

showsPrec ∷ Int → StakePoolMetadataHashCmdArgs era → ShowS Source #

show ∷ StakePoolMetadataHashCmdArgs era → String Source #

showList ∷ [StakePoolMetadataHashCmdArgs era] → ShowS Source #

data StakePoolRegistrationCertificateCmdArgs era Source #

Constructors

StakePoolRegistrationCertificateCmdArgs 

Fields

Instances

Instances details
Show (StakePoolRegistrationCertificateCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.StakePool

Methods

showsPrec ∷ Int → StakePoolRegistrationCertificateCmdArgs era → ShowS Source #

show ∷ StakePoolRegistrationCertificateCmdArgs era → String Source #

showList ∷ [StakePoolRegistrationCertificateCmdArgs era] → ShowS Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-TextView.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-TextView.html new file mode 100644 index 0000000000..6c7e057c4f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-TextView.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.TextView
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.TextView

Documentation

data TextViewCmds era Source #

Constructors

TextViewInfo !FilePath (Maybe (File () Out)) 

Instances

Instances details
Show (TextViewCmds era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.TextView

Methods

showsPrec ∷ Int → TextViewCmds era → ShowS Source #

show ∷ TextViewCmds era → String Source #

showList ∷ [TextViewCmds era] → ShowS Source #

renderTextViewCmds ∷ TextViewCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Transaction.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Transaction.html new file mode 100644 index 0000000000..8998fc81bf --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands-Transaction.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands.Transaction
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands.Transaction

Synopsis

Documentation

data TransactionCmds era Source #

Constructors

TransactionBuildRawCmd !(TransactionBuildRawCmdArgs era) 
TransactionBuildCmd !(TransactionBuildCmdArgs era) 
TransactionSignCmd !TransactionSignCmdArgs 
TransactionWitnessCmd !TransactionWitnessCmdArgs 
TransactionSignWitnessCmd !TransactionSignWitnessCmdArgs 
TransactionSubmitCmd !TransactionSubmitCmdArgs 
TransactionPolicyIdCmd !TransactionPolicyIdCmdArgs 
TransactionCalculateMinFeeCmd !TransactionCalculateMinFeeCmdArgs 
TransactionCalculateMinValueCmd !(TransactionCalculateMinValueCmdArgs era) 
TransactionHashScriptDataCmd !TransactionHashScriptDataCmdArgs 
TransactionTxIdCmd !TransactionTxIdCmdArgs 
TransactionViewCmd !TransactionViewCmdArgs 

data TransactionBuildRawCmdArgs era Source #

Constructors

TransactionBuildRawCmdArgs 

Fields

Instances

Instances details
Show (TransactionBuildRawCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionBuildRawCmdArgs era → ShowS Source #

show ∷ TransactionBuildRawCmdArgs era → String Source #

showList ∷ [TransactionBuildRawCmdArgs era] → ShowS Source #

data TransactionBuildCmdArgs era Source #

Like TransactionBuildRaw but without the fee, and with a change output.

Constructors

TransactionBuildCmdArgs 

Fields

Instances

Instances details
Show (TransactionBuildCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionBuildCmdArgs era → ShowS Source #

show ∷ TransactionBuildCmdArgs era → String Source #

showList ∷ [TransactionBuildCmdArgs era] → ShowS Source #

data TransactionSignCmdArgs Source #

Constructors

TransactionSignCmdArgs 

Fields

Instances

Instances details
Show TransactionSignCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionSignCmdArgs → ShowS Source #

show ∷ TransactionSignCmdArgs → String Source #

showList ∷ [TransactionSignCmdArgs] → ShowS Source #

data TransactionWitnessCmdArgs Source #

Constructors

TransactionWitnessCmdArgs 

Fields

Instances

Instances details
Show TransactionWitnessCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionWitnessCmdArgs → ShowS Source #

show ∷ TransactionWitnessCmdArgs → String Source #

showList ∷ [TransactionWitnessCmdArgs] → ShowS Source #

data TransactionSignWitnessCmdArgs Source #

Constructors

TransactionSignWitnessCmdArgs 

Fields

Instances

Instances details
Show TransactionSignWitnessCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionSignWitnessCmdArgs → ShowS Source #

show ∷ TransactionSignWitnessCmdArgs → String Source #

showList ∷ [TransactionSignWitnessCmdArgs] → ShowS Source #

data TransactionSubmitCmdArgs Source #

Constructors

TransactionSubmitCmdArgs 

Fields

Instances

Instances details
Show TransactionSubmitCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionSubmitCmdArgs → ShowS Source #

show ∷ TransactionSubmitCmdArgs → String Source #

showList ∷ [TransactionSubmitCmdArgs] → ShowS Source #

newtype TransactionPolicyIdCmdArgs Source #

Constructors

TransactionPolicyIdCmdArgs 

Fields

Instances

Instances details
Show TransactionPolicyIdCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionPolicyIdCmdArgs → ShowS Source #

show ∷ TransactionPolicyIdCmdArgs → String Source #

showList ∷ [TransactionPolicyIdCmdArgs] → ShowS Source #

data TransactionCalculateMinFeeCmdArgs Source #

Constructors

TransactionCalculateMinFeeCmdArgs 

Fields

Instances

Instances details
Show TransactionCalculateMinFeeCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionCalculateMinFeeCmdArgs → ShowS Source #

show ∷ TransactionCalculateMinFeeCmdArgs → String Source #

showList ∷ [TransactionCalculateMinFeeCmdArgs] → ShowS Source #

data TransactionCalculateMinValueCmdArgs era Source #

Constructors

TransactionCalculateMinValueCmdArgs 

Fields

Instances

Instances details
Show (TransactionCalculateMinValueCmdArgs era) Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionCalculateMinValueCmdArgs era → ShowS Source #

show ∷ TransactionCalculateMinValueCmdArgs era → String Source #

showList ∷ [TransactionCalculateMinValueCmdArgs era] → ShowS Source #

newtype TransactionHashScriptDataCmdArgs Source #

Constructors

TransactionHashScriptDataCmdArgs 

Fields

Instances

Instances details
Show TransactionHashScriptDataCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionHashScriptDataCmdArgs → ShowS Source #

show ∷ TransactionHashScriptDataCmdArgs → String Source #

showList ∷ [TransactionHashScriptDataCmdArgs] → ShowS Source #

newtype TransactionTxIdCmdArgs Source #

Constructors

TransactionTxIdCmdArgs 

Fields

Instances

Instances details
Show TransactionTxIdCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionTxIdCmdArgs → ShowS Source #

show ∷ TransactionTxIdCmdArgs → String Source #

showList ∷ [TransactionTxIdCmdArgs] → ShowS Source #

data TransactionViewCmdArgs Source #

Constructors

TransactionViewCmdArgs 

Fields

Instances

Instances details
Show TransactionViewCmdArgs Source # 
Instance details

Defined in Cardano.CLI.EraBased.Commands.Transaction

Methods

showsPrec ∷ Int → TransactionViewCmdArgs → ShowS Source #

show ∷ TransactionViewCmdArgs → String Source #

showList ∷ [TransactionViewCmdArgs] → ShowS Source #

renderTransactionCmds ∷ TransactionCmds era → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Commands.html b/cardano-cli/lib/Cardano-CLI-EraBased-Commands.html new file mode 100644 index 0000000000..8edc2bf154 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Commands.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Commands
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Commands

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Address.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Address.html new file mode 100644 index 0000000000..3d15f4453e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Address.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Address
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Address

Documentation

pAddressCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (AddressCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Common.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Common.html new file mode 100644 index 0000000000..41405fe55e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Common.html @@ -0,0 +1,2 @@ +Cardano.CLI.EraBased.Options.Common
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Common

Synopsis

Documentation

defaultShelleyBasedEra ∷ EraInEon ShelleyBasedEra Source #

defaultShelleyToBabbageEra ∷ EraInEon ShelleyToBabbageEra Source #

command' ∷ String → String → Parser a → Mod CommandFields a Source #

prefixFlag ∷ Maybe String → String → String Source #

prefixFlag Nothing bar is bar, while prefixFlag (Just "foo") bar is foo-bar. + This function is used to optionally prefix some long flags

pNetworkId ∷ EnvCli → Parser NetworkId Source #

toUnitIntervalOrErr ∷ Rational → UnitInterval Source #

pConsensusModeParams ∷ Parser ConsensusModeParams Source #

defaultByronEpochSlots ∷ Word64 Source #

pEpochSlots ∷ Parser EpochSlots Source #

pSocketPath ∷ EnvCli → Parser SocketPath Source #

readerFromParsecParser ∷ Parser a → ReadM a Source #

parseTxIn ∷ Parser TxIn Source #

parseTxId ∷ Parser TxId Source #

parseTxIx ∷ Parser TxIx Source #

decimal ∷ Parser Integer Source #

pStakeIdentifier ∷ Parser StakeIdentifier Source #

pStakeVerifier ∷ Parser StakeVerifier Source #

pStakeAddress ∷ Parser StakeAddress Source #

parseStakeAddress ∷ Parser StakeAddress Source #

pStakeVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakeKey) Source #

First argument is the optional prefix

pScriptFor ∷ String → Maybe String → String → Parser ScriptFile Source #

pStakeVerificationKey ∷ Maybe String → Parser (VerificationKey StakeKey) Source #

The first argument is the optional prefix.

readVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → ReadM (VerificationKey keyrole) Source #

Read a Bech32 or hex-encoded verification key.

pStakeVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In) Source #

The first argument is the optional prefix.

subParser ∷ String → ParserInfo a → Parser a Source #

subInfoParser ∷ String → InfoMod a → [Maybe (Parser a)] → Maybe (Parser a) Source #

pAnyShelleyBasedEra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pAnyShelleyToBabbageEra ∷ EnvCli → Parser (EraInEon ShelleyToBabbageEra) Source #

pShelleyBasedShelley ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pShelleyBasedAllegra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pShelleyBasedMary ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pShelleyBasedAlonzo ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pShelleyBasedBabbage ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pShelleyBasedConway ∷ EnvCli → Parser (EraInEon ShelleyBasedEra) Source #

pFileOutDirection ∷ String → String → Parser (File a Out) Source #

pFileInDirection ∷ String → String → Parser (File a In) Source #

parseLovelace ∷ Parser Lovelace Source #

pStakePoolVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakePoolKey) Source #

The first argument is the optional prefix.

pStakePoolVerificationKey ∷ Maybe String → Parser (VerificationKey StakePoolKey) Source #

The first argument is the optional prefix.

pStakePoolVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In) Source #

The first argument is the optional prefix.

pOutputFile ∷ Parser (File content Out) Source #

pMIRPot ∷ Parser MIRPot Source #

pRewardAmt ∷ Parser Lovelace Source #

pTransferAmt ∷ Parser Lovelace Source #

pHexHash ∷ SerialiseAsRawBytes (Hash a) ⇒ AsType a → ReadM (Hash a) Source #

pBech32KeyHash ∷ SerialiseAsBech32 (Hash a) ⇒ AsType a → ReadM (Hash a) Source #

pGenesisDelegateVerificationKey ∷ Parser (VerificationKey GenesisDelegateKey) Source #

pColdVerificationKeyOrFile ∷ Maybe String → Parser ColdVerificationKeyOrFile Source #

The first argument is the optional prefix.

pColdVerificationKeyFile ∷ Parser (VerificationKeyFile direction) Source #

pColdSigningKeyFile ∷ Parser (File (SigningKey keyrole) direction) Source #

pVerificationKeyFileOut ∷ Parser (File (VerificationKey keyrole) Out) Source #

pSigningKeyFileOut ∷ Parser (File (SigningKey keyrole) Out) Source #

pOperatorCertIssueCounterFile ∷ Parser (File OpCertCounter direction) Source #

pAddCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey) Source #

pAddCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey) Source #

pAddCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey) Source #

pAddCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey) Source #

pAddCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In) Source #

pRemoveCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey) Source #

pRemoveCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey) Source #

pRemoveCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey) Source #

pRemoveCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey) Source #

pRemoveCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In) Source #

pCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey) Source #

pCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey) Source #

pCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey) Source #

pCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey) Source #

pCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In) Source #

pVerificationKeyFileIn ∷ Parser (VerificationKeyFile In) Source #

pAnyVerificationKeyFileIn ∷ String → Parser (VerificationKeyFile In) Source #

pAnyVerificationKeyText ∷ String → Parser AnyVerificationKeyText Source #

pAnyVerificationKeySource ∷ String → Parser AnyVerificationKeySource Source #

pCommitteeHotKey ∷ Parser (VerificationKey CommitteeHotKey) Source #

pCommitteeHotVerificationKey ∷ Parser (VerificationKey CommitteeHotKey) Source #

deserialiseHotCCKeyFromHex ∷ String → Either String (VerificationKey CommitteeHotKey) Source #

pCommitteeHotKeyFile ∷ Parser (VerificationKeyFile In) Source #

pCommitteeHotVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pCommitteeHotKeyHash ∷ Maybe String → Parser (Hash CommitteeHotKey) Source #

The first argument is the optional prefix.

pCommitteeHotKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeHotKey) Source #

pCommitteeHotKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey) Source #

pCommitteeHotVerificationKeyOrHashOrVerificationFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey) Source #

catCommands ∷ [Parser a] → Maybe (Parser a) Source #

pConstitutionUrl ∷ Parser ConstitutionUrl Source #

pConstitutionHashSource ∷ Parser ConstitutionHashSource Source #

pConstitutionHash ∷ Parser (SafeHash StandardCrypto AnchorData) Source #

pUrl ∷ String → String → Parser Url Source #

pGovActionDeposit ∷ Parser Lovelace Source #

pStakeVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakeKey) Source #

First argument is the optional prefix

pStakeVerificationKeyHash ∷ Maybe String → Parser (Hash StakeKey) Source #

First argument is the optional prefix

pStakePoolVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakePoolKey) Source #

The first argument is the optional prefix.

pCombinedStakePoolVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile StakePoolKey) Source #

pCombinedStakePoolVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakePoolKey) Source #

pCombinedStakePoolVerificationKeyHash ∷ Parser (Hash StakePoolKey) Source #

pCombinedStakePoolVerificationKey ∷ Parser (VerificationKey StakePoolKey) Source #

pCombinedStakePoolVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pCBORInFile ∷ Parser FilePath Source #

pPollQuestion ∷ Parser Text Source #

pPollAnswer ∷ Parser Text Source #

pPollAnswerIndex ∷ Parser Word Source #

pPollFile ∷ Parser (File GovernancePoll In) Source #

pPollTxFile ∷ Parser (TxFile In) Source #

pPollNonce ∷ Parser Word Source #

pScriptWitnessFiles Source #

Arguments

∷ ∀ witctx. WitCtx witctx 
→ BalanceTxExecUnits

Use the execution-units flag.

→ String

Script flag prefix

→ Maybe String 
→ String 
→ Parser (ScriptWitnessFiles witctx) 

pExecutionUnits ∷ String → Parser ExecutionUnits Source #

pScriptRedeemerOrFile ∷ String → Parser ScriptDataOrFile Source #

pScriptDatumOrFile ∷ String → WitCtx witctx → Parser (ScriptDatumOrFile witctx) Source #

pScriptDataOrFile ∷ String → String → String → Parser ScriptDataOrFile Source #

pPaymentVerifier ∷ Parser PaymentVerifier Source #

pPaymentVerificationKeyTextOrFile ∷ Parser VerificationKeyTextOrFile Source #

pPaymentVerificationKeyText ∷ Parser Text Source #

pPaymentVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pScript ∷ Parser ScriptFile Source #

pReferenceTxIn ∷ String → String → Parser TxIn Source #

pReadOnlyReferenceTxIn ∷ Parser TxIn Source #

pAddressKeyType ∷ Parser AddressKeyType Source #

pProtocolParamsFile ∷ Parser ProtocolParamsFile Source #

pCalculatePlutusScriptCost ∷ Parser TxBuildOutputOptions Source #

pCertificateFile ∷ BalanceTxExecUnits → Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake)) Source #

pPoolMetadataFile ∷ Parser (StakePoolMetadataFile In) Source #

pTxMetadataJsonSchema ∷ Parser TxMetadataJsonSchema Source #

convertTime ∷ String → UTCTime Source #

pMetadataFile ∷ Parser MetadataFile Source #

pWithdrawal ∷ BalanceTxExecUnits → Parser (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake)) Source #

pPlutusStakeReferenceScriptWitnessFiles Source #

Arguments

∷ String 
→ BalanceTxExecUnits

Use the execution-units flag.

→ Parser (ScriptWitnessFiles WitCtxStake) 

pPlutusScriptLanguage ∷ String → Parser AnyScriptLanguage Source #

pUpdateProposalFile ∷ Parser UpdateProposalFile Source #

pRequiredSigner ∷ Parser RequiredSigner Source #

pVrfSigningKeyFile ∷ Parser (SigningKeyFile In) Source #

pWhichLeadershipSchedule ∷ Parser EpochLeadershipSchedule Source #

pWitnessSigningData ∷ Parser WitnessSigningData Source #

pSigningKeyFileIn ∷ Parser (SigningKeyFile In) Source #

pKesPeriod ∷ Parser KESPeriod Source #

pEpochNo ∷ String → Parser EpochNo Source #

pEpochNoUpdateProp ∷ Parser EpochNo Source #

pGenesisFile ∷ String → Parser GenesisFile Source #

pOperationalCertificateFile ∷ Parser (File () direction) Source #

pKeyOutputFormat ∷ Parser KeyOutputFormat Source #

pPoolIdOutputFormat ∷ Parser IdOutputFormat Source #

pTxViewOutputFormat ∷ Parser TxViewOutputFormat Source #

pGovernanceActionViewOutputFormat ∷ Parser GovernanceActionViewOutputFormat Source #

pMaybeOutputFile ∷ Parser (Maybe (File content Out)) Source #

pVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKey keyrole) Source #

pVerificationKeyOrFileIn ∷ SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKeyOrFile keyrole) Source #

pExtendedVerificationKeyFileIn ∷ Parser (VerificationKeyFile In) Source #

pGenesisVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pGenesisVerificationKeyHash ∷ Parser (Hash GenesisKey) Source #

pGenesisVerificationKey ∷ Parser (VerificationKey GenesisKey) Source #

pGenesisVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisKey) Source #

pGenesisVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisKey) Source #

pGenesisDelegateVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pGenesisDelegateVerificationKeyHash ∷ Parser (Hash GenesisDelegateKey) Source #

pGenesisDelegateVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisDelegateKey) Source #

pGenesisDelegateVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisDelegateKey) Source #

pKesVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile KesKey) Source #

pKesVerificationKey ∷ Parser (VerificationKey KesKey) Source #

pKesVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pTxSubmitFile ∷ Parser FilePath Source #

pTxIn ∷ BalanceTxExecUnits → Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn)) Source #

pTxInCollateral ∷ Parser TxIn Source #

pReturnCollateral ∷ Parser TxOutAnyEra Source #

pTotalCollateral ∷ Parser Lovelace Source #

pWitnessOverride ∷ Parser Word Source #

pTxOut ∷ Parser TxOutAnyEra Source #

pTxOutDatum ∷ Parser TxOutDatumAnyEra Source #

pRefScriptFp ∷ Parser ReferenceScriptAnyEra Source #

pMintMultiAsset ∷ BalanceTxExecUnits → Parser (Value, [ScriptWitnessFiles WitCtxMint]) Source #

pPolicyId ∷ Parser PolicyId Source #

pInvalidBefore ∷ Parser SlotNo Source #

pLegacyInvalidHereafter ∷ Parser SlotNo Source #

pInvalidHereafter ∷ CardanoEra era → Parser (TxValidityUpperBound era) Source #

pTxFee ∷ Parser Lovelace Source #

pWitnessFile ∷ Parser WitnessFile Source #

pTxBodyFileIn ∷ Parser (TxBodyFile In) Source #

pTxBodyFileOut ∷ Parser (TxBodyFile Out) Source #

pTxFileIn ∷ Parser (TxFile In) Source #

pTxFileOut ∷ Parser (TxFile Out) Source #

pInputTxOrTxBodyFile ∷ Parser InputTxBodyOrTxFile Source #

pTxInCount ∷ Parser TxInCount Source #

pTxOutCount ∷ Parser TxOutCount Source #

pTxShelleyWitnessCount ∷ Parser TxShelleyWitnessCount Source #

pTxByronWitnessCount ∷ Parser TxByronWitnessCount Source #

pQueryUTxOFilter ∷ Parser QueryUTxOFilter Source #

pFilterByStakeAddress ∷ Parser StakeAddress Source #

pByronAddress ∷ Parser (Address ByronAddr) Source #

pAddress ∷ Parser Text Source #

pStakePoolVerificationKeyHash ∷ Maybe String → Parser (Hash StakePoolKey) Source #

First argument is the prefix to use

pVrfVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pVrfVerificationKeyHash ∷ Parser (Hash VrfKey) Source #

pVrfVerificationKey ∷ Parser (VerificationKey VrfKey) Source #

pVrfVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile VrfKey) Source #

pVrfVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile VrfKey) Source #

pRewardAcctVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pRewardAcctVerificationKey ∷ Parser (VerificationKey StakeKey) Source #

pRewardAcctVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey) Source #

pPoolOwnerVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pPoolOwnerVerificationKey ∷ Parser (VerificationKey StakeKey) Source #

pPoolOwnerVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey) Source #

pPoolPledge ∷ Parser Lovelace Source #

pPoolCost ∷ Parser Lovelace Source #

pRational ∷ String → String → Parser Rational Source #

pPoolMargin ∷ Parser Rational Source #

pPoolRelay ∷ Parser StakePoolRelay Source #

pMultiHostName ∷ Parser StakePoolRelay Source #

pSingleHostName ∷ Parser StakePoolRelay Source #

pSingleHostAddress ∷ Parser StakePoolRelay Source #

pIpV4 ∷ Parser IPv4 Source #

pIpV6 ∷ Parser IPv6 Source #

pPort ∷ Parser PortNumber Source #

pStakePoolMetadataReference ∷ Parser (Maybe StakePoolMetadataReference) Source #

pStakePoolMetadataUrl ∷ Parser Text Source #

pStakePoolMetadataHash ∷ Parser (Hash StakePoolMetadata) Source #

pStakePoolRegistrationParserRequirements ∷ EnvCli → Parser StakePoolRegistrationParserRequirements Source #

pProtocolParametersUpdate ∷ Parser ProtocolParametersUpdate Source #

pCostModels ∷ Parser FilePath Source #

pMinFeePerByteFactor ∷ Parser Lovelace Source #

pMinFeeConstantFactor ∷ Parser Lovelace Source #

pMinUTxOValue ∷ Parser Lovelace Source #

pMinPoolCost ∷ Parser Lovelace Source #

pMaxBodySize ∷ Parser Natural Source #

pMaxTransactionSize ∷ Parser Natural Source #

pMaxBlockHeaderSize ∷ Parser Natural Source #

pKeyRegistDeposit ∷ Parser Lovelace Source #

pDrepDeposit ∷ Parser Lovelace Source #

pPoolDeposit ∷ Parser Lovelace Source #

pEpochBoundRetirement ∷ Parser EpochNo Source #

pNumberOfPools ∷ Parser Natural Source #

pPoolInfluence ∷ Parser Rational Source #

pTreasuryExpansion ∷ Parser Rational Source #

pMonetaryExpansion ∷ Parser Rational Source #

pDecentralParam ∷ Parser Rational Source #

pExtraEntropy ∷ Parser (Maybe PraosNonce) Source #

pUTxOCostPerByte ∷ Parser Lovelace Source #

pExecutionUnitPrices ∷ Parser ExecutionUnitPrices Source #

pMaxTxExecutionUnits ∷ Parser ExecutionUnits Source #

pMaxBlockExecutionUnits ∷ Parser ExecutionUnits Source #

pMaxValueSize ∷ Parser Natural Source #

pCollateralPercent ∷ Parser Natural Source #

pMaxCollateralInputs ∷ Parser Natural Source #

pProtocolVersion ∷ Parser (Natural, Natural) Source #

pPoolVotingThresholds ∷ Parser PoolVotingThresholds Source #

pDRepVotingThresholds ∷ Parser DRepVotingThresholds Source #

pMinCommitteeSize ∷ Parser Natural Source #

pCommitteeTermLength ∷ Parser Natural Source #

pGovActionLifetime ∷ Parser EpochNo Source #

pDRepDeposit ∷ Parser Lovelace Source #

pDRepActivity ∷ Parser EpochNo Source #

parseTxOutAnyEra ∷ Parser (TxOutDatumAnyEra → ReferenceScriptAnyEra → TxOutAnyEra) Source #

pVoteChoice ∷ Parser Vote Source #

pVoterType ∷ Parser VType Source #

pVotingCredential ∷ Parser (VerificationKeyOrFile StakePoolKey) Source #

pVoteDelegationTarget ∷ Parser VoteDelegationTarget Source #

pAlwaysAbstain ∷ Parser () Source #

pVoteAnchor ∷ Parser (VoteUrl, SafeHash StandardCrypto AnchorData) Source #

pVoteAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData) Source #

pAlwaysNoConfidence ∷ Parser () Source #

pDRepHashSource ∷ Parser DRepHashSource Source #

pDRepScriptHash ∷ Parser ScriptHash Source #

pDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey) Source #

pCombinedDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey) Source #

pCombinedDRepVerificationKeyHash ∷ Parser (Hash DRepKey) Source #

pCombinedDRepVerificationKey ∷ Parser (VerificationKey DRepKey) Source #

pCombinedDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey) Source #

pCombinedDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pDRepVerificationKeyHash ∷ Parser (Hash DRepKey) Source #

pDRepVerificationKey ∷ Parser (VerificationKey DRepKey) Source #

pDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey) Source #

pDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In) Source #

pAnchorUrl ∷ Parser ProposalUrl Source #

pAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData) Source #

pPreviousGovernanceAction ∷ Parser (Maybe (TxId, Word32)) Source #

pGovernanceActionId ∷ Parser (TxId, Word32) Source #

pWord32 ∷ String → String → Parser Word32 Source #

pTxId ∷ String → String → Parser TxId Source #

pFeatured ∷ Eon eon ⇒ ToCardanoEra peon ⇒ peon era → Parser a → Parser (Maybe (Featured eon era a)) Source #

hiddenSubParser ∷ String → ParserInfo a → Parser a Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Genesis.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Genesis.html new file mode 100644 index 0000000000..5dd600201a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Genesis.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Genesis

Documentation

pGenesisCmds ∷ EnvCli → Maybe (Parser (GenesisCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Actions.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Actions.html new file mode 100644 index 0000000000..c9fad0a01b --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Actions.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.Actions
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.Actions

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Committee.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Committee.html new file mode 100644 index 0000000000..5fae169b08 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Committee.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.Committee
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.Committee

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-DRep.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-DRep.html new file mode 100644 index 0000000000..3b57dbfd3b --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-DRep.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.DRep
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.DRep

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Hash.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Hash.html new file mode 100644 index 0000000000..f038879a90 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Hash.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.Hash
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.Hash

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Poll.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Poll.html new file mode 100644 index 0000000000..b0eb9d3778 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Poll.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.Poll
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.Poll

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Vote.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Vote.html new file mode 100644 index 0000000000..894c98529e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance-Vote.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance.Vote
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance.Vote

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance.html new file mode 100644 index 0000000000..40d7b58fe1 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Governance

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Key.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Key.html new file mode 100644 index 0000000000..a39c584533 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Key.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Key

Documentation

pKeyCmds ∷ Maybe (Parser (KeyCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Node.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Node.html new file mode 100644 index 0000000000..1dc5fd96fd --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Node.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Node
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Node

Documentation

pNodeCmds ∷ Maybe (Parser (NodeCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Query.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Query.html new file mode 100644 index 0000000000..fafa6e7dfa --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Query.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Query
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Query

Documentation

pQueryCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (QueryCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakeAddress.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakeAddress.html new file mode 100644 index 0000000000..228b73e406 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakeAddress.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.StakeAddress
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.StakeAddress

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakePool.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakePool.html new file mode 100644 index 0000000000..91ca0add6f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-StakePool.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.StakePool
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.StakePool

Documentation

pStakePoolCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (StakePoolCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-TextView.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-TextView.html new file mode 100644 index 0000000000..08143873c8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-TextView.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.TextView
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.TextView

Documentation

pTextViewCmds ∷ Maybe (Parser (TextViewCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Options-Transaction.html b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Transaction.html new file mode 100644 index 0000000000..41fd94c561 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Options-Transaction.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Options.Transaction
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Options.Transaction

Documentation

pTransactionCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (TransactionCmds era)) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address-Info.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address-Info.html new file mode 100644 index 0000000000..e7b5f37c9e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address-Info.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Address.Info
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Address.Info

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address.html new file mode 100644 index 0000000000..c556afb93c --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Address.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Address
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Address

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Genesis.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Genesis.html new file mode 100644 index 0000000000..5239181845 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Genesis.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Genesis

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Actions.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Actions.html new file mode 100644 index 0000000000..a6fad9d1b6 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Actions.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.Actions
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.Actions

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Committee.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Committee.html new file mode 100644 index 0000000000..660f7e1c9a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Committee.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.Committee
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.Committee

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-DRep.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-DRep.html new file mode 100644 index 0000000000..93b12be2f7 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-DRep.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.DRep
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.DRep

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html new file mode 100644 index 0000000000..80c22fb568 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Hash.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Hash.html new file mode 100644 index 0000000000..c105fdfa0e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Hash.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.Hash
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.Hash

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Poll.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Poll.html new file mode 100644 index 0000000000..ab4af8597e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Poll.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.Poll
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.Poll

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Vote.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Vote.html new file mode 100644 index 0000000000..061e78241f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance-Vote.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance.Vote
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance.Vote

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance.html new file mode 100644 index 0000000000..8601c14dd6 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Governance

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Key.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Key.html new file mode 100644 index 0000000000..5103c65609 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Key.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Key

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Node.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Node.html new file mode 100644 index 0000000000..924c00e882 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Node.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Node
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Node

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Query.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Query.html new file mode 100644 index 0000000000..4cae6b0f8b --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Query.html @@ -0,0 +1,9 @@ +Cardano.CLI.EraBased.Run.Query
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Query

Synopsis

Documentation

runQueryCmds ∷ QueryCmds era → ExceptT QueryCmdError IO () Source #

runQueryConstitutionHashCmd ∷ QueryConstitutionHashCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryKesPeriodInfoCmd ∷ QueryKesPeriodInfoCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryLeadershipScheduleCmd ∷ QueryLeadershipScheduleCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryLedgerStateCmd ∷ QueryLedgerStateCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryPoolStateCmd ∷ QueryPoolStateCmdArgs → ExceptT QueryCmdError IO () Source #

Query the current and future parameters for a stake pool, including the retirement date. + Any of these may be empty (in which case a null will be displayed).

runQueryProtocolParametersCmd ∷ QueryProtocolParametersCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryProtocolStateCmd ∷ QueryProtocolStateCmdArgs → ExceptT QueryCmdError IO () Source #

runQuerySlotNumberCmd ∷ QuerySlotNumberCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryStakeAddressInfoCmd ∷ QueryStakeAddressInfoCmdArgs → ExceptT QueryCmdError IO () Source #

Query the current delegations and reward accounts, filtered by a given + set of addresses, from a Shelley node via the local state query protocol.

runQueryStakeDistributionCmd ∷ QueryStakeDistributionCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryStakePoolsCmd ∷ QueryStakePoolsCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryStakeSnapshotCmd ∷ QueryStakeSnapshotCmdArgs → ExceptT QueryCmdError IO () Source #

Obtain stake snapshot information for a pool, plus information about the total active stake. + This information can be used for leader slot calculation, for example, and has been requested by SPOs. + Obtaining the information directly is significantly more time and memory efficient than using a full ledger state dump.

runQueryTipCmd ∷ QueryTipCmdArgs → ExceptT QueryCmdError IO () Source #

runQueryTxMempoolCmd ∷ QueryTxMempoolCmdArgs → ExceptT QueryCmdError IO () Source #

Query the local mempool state

runQueryUTxOCmd ∷ QueryUTxOCmdArgs → ExceptT QueryCmdError IO () Source #

Query the UTxO, filtered by a given set of addresses, from a Shelley node + via the local state query protocol.

newtype DelegationsAndRewards Source #

A mapping of Shelley reward accounts to both the stake pool that they + delegate to and their reward account balance. + TODO: Move to cardano-api

Constructors

DelegationsAndRewards (Map StakeAddress Lovelace, Map StakeAddress PoolId) 

Instances

Instances details
FromJSON DelegationsAndRewards 
Instance details

Defined in Cardano.Api.Rewards

Methods

parseJSON ∷ Value → Parser DelegationsAndRewards Source #

parseJSONList ∷ Value → Parser [DelegationsAndRewards] Source #

ToJSON DelegationsAndRewards 
Instance details

Defined in Cardano.Api.Rewards

Methods

toJSON ∷ DelegationsAndRewards → Value Source #

toEncoding ∷ DelegationsAndRewards → Encoding Source #

toJSONList ∷ [DelegationsAndRewards] → Value Source #

toEncodingList ∷ [DelegationsAndRewards] → Encoding Source #

Show DelegationsAndRewards 
Instance details

Defined in Cardano.Api.Rewards

Methods

showsPrec ∷ Int → DelegationsAndRewards → ShowS Source #

show ∷ DelegationsAndRewards → String Source #

showList ∷ [DelegationsAndRewards] → ShowS Source #

Eq DelegationsAndRewards 
Instance details

Defined in Cardano.Api.Rewards

Methods

(==) ∷ DelegationsAndRewards → DelegationsAndRewards → Bool Source #

(/=) ∷ DelegationsAndRewards → DelegationsAndRewards → Bool Source #

renderQueryCmdError ∷ QueryCmdError → Text Source #

renderLocalStateQueryError ∷ QueryCmdLocalStateQueryError → Text Source #

renderOpCertIntervalInformation ∷ FilePath → OpCertIntervalInformation → String Source #

percentage Source #

Arguments

∷ RelativeTime

tolerance. If b - a < tolerance, then 100% is reported. This even if we are tolerance seconds + behind, we are still considered fully synced.

→ RelativeTime

nowTime. The time of the most recently synced block.

→ RelativeTime

tipTime. The time of the tip of the block chain to which we need to sync.

→ Text 

Calculate the percentage sync rendered as text.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakeAddress.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakeAddress.html new file mode 100644 index 0000000000..555e2d9a18 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakeAddress.html @@ -0,0 +1,2 @@ +Cardano.CLI.EraBased.Run.StakeAddress
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.StakeAddress

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakePool.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakePool.html new file mode 100644 index 0000000000..6f1dbc9e0b --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-StakePool.html @@ -0,0 +1,3 @@ +Cardano.CLI.EraBased.Run.StakePool
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.StakePool

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-TextView.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-TextView.html new file mode 100644 index 0000000000..1e86c51012 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-TextView.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.TextView
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.TextView

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run-Transaction.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Transaction.html new file mode 100644 index 0000000000..3d54c20757 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run-Transaction.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run.Transaction
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run.Transaction

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-EraBased-Run.html b/cardano-cli/lib/Cardano-CLI-EraBased-Run.html new file mode 100644 index 0000000000..96afc601f8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-EraBased-Run.html @@ -0,0 +1 @@ +Cardano.CLI.EraBased.Run
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.EraBased.Run

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Helpers.html b/cardano-cli/lib/Cardano-CLI-Helpers.html new file mode 100644 index 0000000000..406cd33c59 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Helpers.html @@ -0,0 +1 @@ +Cardano.CLI.Helpers
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Helpers

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-IO-GitRev.html b/cardano-cli/lib/Cardano-CLI-IO-GitRev.html new file mode 100644 index 0000000000..234ce8b779 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-IO-GitRev.html @@ -0,0 +1 @@ +Cardano.CLI.IO.GitRev
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.IO.GitRev

Documentation

gitRev ∷ Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-IO-Lazy.html b/cardano-cli/lib/Cardano-CLI-IO-Lazy.html new file mode 100644 index 0000000000..480a7e5f5c --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-IO-Lazy.html @@ -0,0 +1,3 @@ +Cardano.CLI.IO.Lazy
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.IO.Lazy

Synopsis

Documentation

replicateM ∷ MonadUnliftIO m ⇒ Int → m a → m [a] Source #

sequenceM ∷ MonadUnliftIO m ⇒ [m a] → m [a] Source #

traverseM ∷ MonadUnliftIO m ⇒ (a → m b) → [a] → m [b] Source #

Traverses the function over the list and produces a lazy list in a + monadic context.

It is intended to be like the "standard" traverse except + that the list is generated lazily.

traverseStateM ∷ ∀ m s a b. MonadUnliftIO m ⇒ s → (s → a → m (s, b)) → [a] → m [b] Source #

forM ∷ MonadUnliftIO m ⇒ [a] → (a → m b) → m [b] Source #

forStateM ∷ MonadUnliftIO m ⇒ s → [a] → (s → a → m (s, b)) → m [b] Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Json-Friendly.html b/cardano-cli/lib/Cardano-CLI-Json-Friendly.html new file mode 100644 index 0000000000..60f7d73e56 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Json-Friendly.html @@ -0,0 +1 @@ +Cardano.CLI.Json.Friendly
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Json.Friendly

Description

User-friendly pretty-printing for textual user interfaces (TUI)

Documentation

friendlyTx ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → Tx era → m (Either (FileError e) ()) Source #

friendlyTxBody ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → TxBody era → m (Either (FileError e) ()) Source #

friendlyProposal ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → ConwayEraOnwards era → Proposal era → m (Either (FileError e) ()) Source #

data FriendlyFormat Source #

Constructors

FriendlyJson 
FriendlyYaml 
\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Address.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Address.html new file mode 100644 index 0000000000..f5bddd9672 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Address.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Address
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Address

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Genesis.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Genesis.html new file mode 100644 index 0000000000..d9ce93f6ee --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Genesis.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Genesis

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Governance.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Governance.html new file mode 100644 index 0000000000..8cfa8b20a0 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Governance

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Key.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Key.html new file mode 100644 index 0000000000..e117d0f565 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Key.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Key

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Node.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Node.html new file mode 100644 index 0000000000..0508a1baf5 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Node.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Node
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Node

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Query.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Query.html new file mode 100644 index 0000000000..1e2211b761 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Query.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Query
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Query

Documentation

data LegacyQueryCmds Source #

Constructors

QueryLeadershipScheduleCmd !LegacyQueryLeadershipScheduleCmdArgs 
QueryProtocolParametersCmd !LegacyQueryProtocolParametersCmdArgs 
QueryConstitutionHashCmd !LegacyQueryConstitutionHashCmdArgs 
QueryTipCmd !LegacyQueryTipCmdArgs 
QueryStakePoolsCmd !LegacyQueryStakePoolsCmdArgs 
QueryStakeDistributionCmd !LegacyQueryStakeDistributionCmdArgs 
QueryStakeAddressInfoCmd !LegacyQueryStakeAddressInfoCmdArgs 
QueryUTxOCmd !LegacyQueryUTxOCmdArgs 
QueryLedgerStateCmd !LegacyQueryLedgerStateCmdArgs 
QueryProtocolStateCmd !LegacyQueryProtocolStateCmdArgs 
QueryStakeSnapshotCmd !LegacyQueryStakeSnapshotCmdArgs 
QueryKesPeriodInfoCmd !LegacyQueryKesPeriodInfoCmdArgs 
QueryPoolStateCmd !LegacyQueryPoolStateCmdArgs 
QueryTxMempoolCmd !LegacyQueryTxMempoolCmdArgs 
QuerySlotNumberCmd !LegacyQuerySlotNumberCmdArgs 

Instances

Instances details
Generic LegacyQueryCmds Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryCmds ∷ Type → Type Source #

Methods

from ∷ LegacyQueryCmds → Rep LegacyQueryCmds x Source #

to ∷ Rep LegacyQueryCmds x → LegacyQueryCmds Source #

Show LegacyQueryCmds Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryCmds → ShowS Source #

show ∷ LegacyQueryCmds → String Source #

showList ∷ [LegacyQueryCmds] → ShowS Source #

type Rep LegacyQueryCmds Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryCmds = D1 ('MetaData "LegacyQueryCmds" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (((C1 ('MetaCons "QueryLeadershipScheduleCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryLeadershipScheduleCmdArgs)) :+: (C1 ('MetaCons "QueryProtocolParametersCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryProtocolParametersCmdArgs)) :+: C1 ('MetaCons "QueryConstitutionHashCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryConstitutionHashCmdArgs)))) :+: ((C1 ('MetaCons "QueryTipCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryTipCmdArgs)) :+: C1 ('MetaCons "QueryStakePoolsCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryStakePoolsCmdArgs))) :+: (C1 ('MetaCons "QueryStakeDistributionCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryStakeDistributionCmdArgs)) :+: C1 ('MetaCons "QueryStakeAddressInfoCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryStakeAddressInfoCmdArgs))))) :+: (((C1 ('MetaCons "QueryUTxOCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryUTxOCmdArgs)) :+: C1 ('MetaCons "QueryLedgerStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryLedgerStateCmdArgs))) :+: (C1 ('MetaCons "QueryProtocolStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryProtocolStateCmdArgs)) :+: C1 ('MetaCons "QueryStakeSnapshotCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryStakeSnapshotCmdArgs)))) :+: ((C1 ('MetaCons "QueryKesPeriodInfoCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryKesPeriodInfoCmdArgs)) :+: C1 ('MetaCons "QueryPoolStateCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryPoolStateCmdArgs))) :+: (C1 ('MetaCons "QueryTxMempoolCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQueryTxMempoolCmdArgs)) :+: C1 ('MetaCons "QuerySlotNumberCmd" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LegacyQuerySlotNumberCmdArgs))))))

data LegacyQueryLeadershipScheduleCmdArgs Source #

Constructors

LegacyQueryLeadershipScheduleCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryLeadershipScheduleCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryLeadershipScheduleCmdArgs → Rep LegacyQueryLeadershipScheduleCmdArgs x Source #

to ∷ Rep LegacyQueryLeadershipScheduleCmdArgs x → LegacyQueryLeadershipScheduleCmdArgs Source #

Show LegacyQueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryLeadershipScheduleCmdArgs → ShowS Source #

show ∷ LegacyQueryLeadershipScheduleCmdArgs → String Source #

showList ∷ [LegacyQueryLeadershipScheduleCmdArgs] → ShowS Source #

type Rep LegacyQueryLeadershipScheduleCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryLeadershipScheduleCmdArgs = D1 ('MetaData "LegacyQueryLeadershipScheduleCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryLeadershipScheduleCmdArgs" 'PrefixI 'True) (((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "genesisFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 GenesisFile))) :*: ((S1 ('MetaSel ('Just "poolColdVerKeyFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (VerificationKeyOrHashOrFile StakePoolKey)) :*: S1 ('MetaSel ('Just "vrkSkeyFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (SigningKeyFile 'In))) :*: (S1 ('MetaSel ('Just "whichSchedule") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EpochLeadershipSchedule) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQueryProtocolParametersCmdArgs Source #

Constructors

LegacyQueryProtocolParametersCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryProtocolParametersCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryProtocolParametersCmdArgs → Rep LegacyQueryProtocolParametersCmdArgs x Source #

to ∷ Rep LegacyQueryProtocolParametersCmdArgs x → LegacyQueryProtocolParametersCmdArgs Source #

Show LegacyQueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryProtocolParametersCmdArgs → ShowS Source #

show ∷ LegacyQueryProtocolParametersCmdArgs → String Source #

showList ∷ [LegacyQueryProtocolParametersCmdArgs] → ShowS Source #

type Rep LegacyQueryProtocolParametersCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryProtocolParametersCmdArgs = D1 ('MetaData "LegacyQueryProtocolParametersCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryProtocolParametersCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryConstitutionHashCmdArgs Source #

Constructors

LegacyQueryConstitutionHashCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryConstitutionHashCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryConstitutionHashCmdArgs → Rep LegacyQueryConstitutionHashCmdArgs x Source #

to ∷ Rep LegacyQueryConstitutionHashCmdArgs x → LegacyQueryConstitutionHashCmdArgs Source #

Show LegacyQueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryConstitutionHashCmdArgs → ShowS Source #

show ∷ LegacyQueryConstitutionHashCmdArgs → String Source #

showList ∷ [LegacyQueryConstitutionHashCmdArgs] → ShowS Source #

type Rep LegacyQueryConstitutionHashCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryConstitutionHashCmdArgs = D1 ('MetaData "LegacyQueryConstitutionHashCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryConstitutionHashCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryTipCmdArgs Source #

Constructors

LegacyQueryTipCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryTipCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryTipCmdArgs → Rep LegacyQueryTipCmdArgs x Source #

to ∷ Rep LegacyQueryTipCmdArgs x → LegacyQueryTipCmdArgs Source #

Show LegacyQueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryTipCmdArgs → ShowS Source #

show ∷ LegacyQueryTipCmdArgs → String Source #

showList ∷ [LegacyQueryTipCmdArgs] → ShowS Source #

type Rep LegacyQueryTipCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryTipCmdArgs = D1 ('MetaData "LegacyQueryTipCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryTipCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryStakePoolsCmdArgs Source #

Constructors

LegacyQueryStakePoolsCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryStakePoolsCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryStakePoolsCmdArgs → Rep LegacyQueryStakePoolsCmdArgs x Source #

to ∷ Rep LegacyQueryStakePoolsCmdArgs x → LegacyQueryStakePoolsCmdArgs Source #

Show LegacyQueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryStakePoolsCmdArgs → ShowS Source #

show ∷ LegacyQueryStakePoolsCmdArgs → String Source #

showList ∷ [LegacyQueryStakePoolsCmdArgs] → ShowS Source #

type Rep LegacyQueryStakePoolsCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryStakePoolsCmdArgs = D1 ('MetaData "LegacyQueryStakePoolsCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryStakePoolsCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryStakeDistributionCmdArgs Source #

Constructors

LegacyQueryStakeDistributionCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryStakeDistributionCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryStakeDistributionCmdArgs → Rep LegacyQueryStakeDistributionCmdArgs x Source #

to ∷ Rep LegacyQueryStakeDistributionCmdArgs x → LegacyQueryStakeDistributionCmdArgs Source #

Show LegacyQueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryStakeDistributionCmdArgs → ShowS Source #

show ∷ LegacyQueryStakeDistributionCmdArgs → String Source #

showList ∷ [LegacyQueryStakeDistributionCmdArgs] → ShowS Source #

type Rep LegacyQueryStakeDistributionCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryStakeDistributionCmdArgs = D1 ('MetaData "LegacyQueryStakeDistributionCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryStakeDistributionCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryStakeAddressInfoCmdArgs Source #

Constructors

LegacyQueryStakeAddressInfoCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryStakeAddressInfoCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryStakeAddressInfoCmdArgs → Rep LegacyQueryStakeAddressInfoCmdArgs x Source #

to ∷ Rep LegacyQueryStakeAddressInfoCmdArgs x → LegacyQueryStakeAddressInfoCmdArgs Source #

Show LegacyQueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryStakeAddressInfoCmdArgs → ShowS Source #

show ∷ LegacyQueryStakeAddressInfoCmdArgs → String Source #

showList ∷ [LegacyQueryStakeAddressInfoCmdArgs] → ShowS Source #

type Rep LegacyQueryStakeAddressInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryStakeAddressInfoCmdArgs = D1 ('MetaData "LegacyQueryStakeAddressInfoCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryStakeAddressInfoCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "addr") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 StakeAddress) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQueryUTxOCmdArgs Source #

Constructors

LegacyQueryUTxOCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryUTxOCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryUTxOCmdArgs → Rep LegacyQueryUTxOCmdArgs x Source #

to ∷ Rep LegacyQueryUTxOCmdArgs x → LegacyQueryUTxOCmdArgs Source #

Show LegacyQueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryUTxOCmdArgs → ShowS Source #

show ∷ LegacyQueryUTxOCmdArgs → String Source #

showList ∷ [LegacyQueryUTxOCmdArgs] → ShowS Source #

type Rep LegacyQueryUTxOCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryUTxOCmdArgs = D1 ('MetaData "LegacyQueryUTxOCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryUTxOCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "queryFilter") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 QueryUTxOFilter) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQueryLedgerStateCmdArgs Source #

Constructors

LegacyQueryLedgerStateCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryLedgerStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryLedgerStateCmdArgs → Rep LegacyQueryLedgerStateCmdArgs x Source #

to ∷ Rep LegacyQueryLedgerStateCmdArgs x → LegacyQueryLedgerStateCmdArgs Source #

Show LegacyQueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryLedgerStateCmdArgs → ShowS Source #

show ∷ LegacyQueryLedgerStateCmdArgs → String Source #

showList ∷ [LegacyQueryLedgerStateCmdArgs] → ShowS Source #

type Rep LegacyQueryLedgerStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryLedgerStateCmdArgs = D1 ('MetaData "LegacyQueryLedgerStateCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryLedgerStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryProtocolStateCmdArgs Source #

Constructors

LegacyQueryProtocolStateCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryProtocolStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryProtocolStateCmdArgs → Rep LegacyQueryProtocolStateCmdArgs x Source #

to ∷ Rep LegacyQueryProtocolStateCmdArgs x → LegacyQueryProtocolStateCmdArgs Source #

Show LegacyQueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryProtocolStateCmdArgs → ShowS Source #

show ∷ LegacyQueryProtocolStateCmdArgs → String Source #

showList ∷ [LegacyQueryProtocolStateCmdArgs] → ShowS Source #

type Rep LegacyQueryProtocolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryProtocolStateCmdArgs = D1 ('MetaData "LegacyQueryProtocolStateCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryProtocolStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out))))))

data LegacyQueryStakeSnapshotCmdArgs Source #

Constructors

LegacyQueryStakeSnapshotCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryStakeSnapshotCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryStakeSnapshotCmdArgs → Rep LegacyQueryStakeSnapshotCmdArgs x Source #

to ∷ Rep LegacyQueryStakeSnapshotCmdArgs x → LegacyQueryStakeSnapshotCmdArgs Source #

Show LegacyQueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryStakeSnapshotCmdArgs → ShowS Source #

show ∷ LegacyQueryStakeSnapshotCmdArgs → String Source #

showList ∷ [LegacyQueryStakeSnapshotCmdArgs] → ShowS Source #

type Rep LegacyQueryStakeSnapshotCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryStakeSnapshotCmdArgs = D1 ('MetaData "LegacyQueryStakeSnapshotCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryStakeSnapshotCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "allOrOnlyPoolIds") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (AllOrOnly [Hash StakePoolKey])) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQueryKesPeriodInfoCmdArgs Source #

Constructors

LegacyQueryKesPeriodInfoCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryKesPeriodInfoCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryKesPeriodInfoCmdArgs → Rep LegacyQueryKesPeriodInfoCmdArgs x Source #

to ∷ Rep LegacyQueryKesPeriodInfoCmdArgs x → LegacyQueryKesPeriodInfoCmdArgs Source #

Show LegacyQueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryKesPeriodInfoCmdArgs → ShowS Source #

show ∷ LegacyQueryKesPeriodInfoCmdArgs → String Source #

showList ∷ [LegacyQueryKesPeriodInfoCmdArgs] → ShowS Source #

type Rep LegacyQueryKesPeriodInfoCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryKesPeriodInfoCmdArgs = D1 ('MetaData "LegacyQueryKesPeriodInfoCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryKesPeriodInfoCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "nodeOpCertFp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (File () 'In)) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQueryPoolStateCmdArgs Source #

Constructors

LegacyQueryPoolStateCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryPoolStateCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryPoolStateCmdArgs → Rep LegacyQueryPoolStateCmdArgs x Source #

to ∷ Rep LegacyQueryPoolStateCmdArgs x → LegacyQueryPoolStateCmdArgs Source #

Show LegacyQueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryPoolStateCmdArgs → ShowS Source #

show ∷ LegacyQueryPoolStateCmdArgs → String Source #

showList ∷ [LegacyQueryPoolStateCmdArgs] → ShowS Source #

type Rep LegacyQueryPoolStateCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryPoolStateCmdArgs = D1 ('MetaData "LegacyQueryPoolStateCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryPoolStateCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "poolIds") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [Hash StakePoolKey]))))

data LegacyQueryTxMempoolCmdArgs Source #

Constructors

LegacyQueryTxMempoolCmdArgs 

Fields

Instances

Instances details
Generic LegacyQueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQueryTxMempoolCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQueryTxMempoolCmdArgs → Rep LegacyQueryTxMempoolCmdArgs x Source #

to ∷ Rep LegacyQueryTxMempoolCmdArgs x → LegacyQueryTxMempoolCmdArgs Source #

Show LegacyQueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQueryTxMempoolCmdArgs → ShowS Source #

show ∷ LegacyQueryTxMempoolCmdArgs → String Source #

showList ∷ [LegacyQueryTxMempoolCmdArgs] → ShowS Source #

type Rep LegacyQueryTxMempoolCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQueryTxMempoolCmdArgs = D1 ('MetaData "LegacyQueryTxMempoolCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQueryTxMempoolCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: (S1 ('MetaSel ('Just "query") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TxMempoolQuery) :*: S1 ('MetaSel ('Just "mOutFile") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (File () 'Out)))))))

data LegacyQuerySlotNumberCmdArgs Source #

Constructors

LegacyQuerySlotNumberCmdArgs 

Fields

Instances

Instances details
Generic LegacyQuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Associated Types

type Rep LegacyQuerySlotNumberCmdArgs ∷ Type → Type Source #

Methods

from ∷ LegacyQuerySlotNumberCmdArgs → Rep LegacyQuerySlotNumberCmdArgs x Source #

to ∷ Rep LegacyQuerySlotNumberCmdArgs x → LegacyQuerySlotNumberCmdArgs Source #

Show LegacyQuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

Methods

showsPrec ∷ Int → LegacyQuerySlotNumberCmdArgs → ShowS Source #

show ∷ LegacyQuerySlotNumberCmdArgs → String Source #

showList ∷ [LegacyQuerySlotNumberCmdArgs] → ShowS Source #

type Rep LegacyQuerySlotNumberCmdArgs Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.Query

type Rep LegacyQuerySlotNumberCmdArgs = D1 ('MetaData "LegacyQuerySlotNumberCmdArgs" "Cardano.CLI.Legacy.Commands.Query" "cardano-cli-8.14.0.0-inplace" 'False) (C1 ('MetaCons "LegacyQuerySlotNumberCmdArgs" 'PrefixI 'True) ((S1 ('MetaSel ('Just "nodeSocketPath") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SocketPath) :*: S1 ('MetaSel ('Just "consensusModeParams") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ConsensusModeParams)) :*: (S1 ('MetaSel ('Just "networkId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NetworkId) :*: S1 ('MetaSel ('Just "utcTime") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))

renderLegacyQueryCmds ∷ LegacyQueryCmds → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakeAddress.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakeAddress.html new file mode 100644 index 0000000000..6ab9ec2adf --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakeAddress.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.StakeAddress
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.StakeAddress

Description

Shelley CLI command types

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakePool.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakePool.html new file mode 100644 index 0000000000..39caa10697 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-StakePool.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.StakePool
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.StakePool

Documentation

data LegacyStakePoolCmds Source #

Constructors

StakePoolDeregistrationCertificateCmd 

Fields

StakePoolIdCmd (VerificationKeyOrFile StakePoolKey) IdOutputFormat (Maybe (File () Out)) 
StakePoolMetadataHashCmd (StakePoolMetadataFile In) (Maybe (File () Out)) 
StakePoolRegistrationCertificateCmd 

Fields

Instances

Instances details
Show LegacyStakePoolCmds Source # 
Instance details

Defined in Cardano.CLI.Legacy.Commands.StakePool

Methods

showsPrec ∷ Int → LegacyStakePoolCmds → ShowS Source #

show ∷ LegacyStakePoolCmds → String Source #

showList ∷ [LegacyStakePoolCmds] → ShowS Source #

renderLegacyStakePoolCmds ∷ LegacyStakePoolCmds → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-TextView.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-TextView.html new file mode 100644 index 0000000000..eb49d364a4 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-TextView.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.TextView
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.TextView

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Transaction.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Transaction.html new file mode 100644 index 0000000000..c4bb7cc09f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands-Transaction.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands.Transaction
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands.Transaction

Documentation

data LegacyTransactionCmds Source #

Constructors

TransactionBuildRawCmd 

Fields

TransactionBuildCmd

Like TransactionBuildRaw but without the fee, and with a change output.

Fields

TransactionSignCmd InputTxBodyOrTxFile [WitnessSigningData] (Maybe NetworkId) (TxFile Out) 
TransactionWitnessCmd (TxBodyFile In) WitnessSigningData (Maybe NetworkId) (File () Out) 
TransactionSignWitnessCmd (TxBodyFile In) [WitnessFile] (File () Out) 
TransactionSubmitCmd SocketPath ConsensusModeParams NetworkId FilePath 
TransactionPolicyIdCmd ScriptFile 
TransactionCalculateMinFeeCmd (TxBodyFile In) NetworkId ProtocolParamsFile TxInCount TxOutCount TxShelleyWitnessCount TxByronWitnessCount 
TransactionCalculateMinValueCmd AnyCardanoEra ProtocolParamsFile TxOutAnyEra 
TransactionHashScriptDataCmd ScriptDataOrFile 
TransactionTxIdCmd InputTxBodyOrTxFile 
TransactionViewCmd TxViewOutputFormat (Maybe (File () Out)) InputTxBodyOrTxFile 

renderLegacyTransactionCmds ∷ LegacyTransactionCmds → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Commands.html b/cardano-cli/lib/Cardano-CLI-Legacy-Commands.html new file mode 100644 index 0000000000..568be18ea8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Commands.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Commands
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Commands

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Options-Key.html b/cardano-cli/lib/Cardano-CLI-Legacy-Options-Key.html new file mode 100644 index 0000000000..d178029d02 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Options-Key.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Options.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Options.Key

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Options.html b/cardano-cli/lib/Cardano-CLI-Legacy-Options.html new file mode 100644 index 0000000000..1a398b9e4a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Options.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Options
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Options

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Address.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Address.html new file mode 100644 index 0000000000..c100ad0497 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Address.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Address
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Address

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Genesis.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Genesis.html new file mode 100644 index 0000000000..7b6d20d4ac --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Genesis.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Genesis
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Genesis

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Governance.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Governance.html new file mode 100644 index 0000000000..4985f5cd19 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Governance

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Key.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Key.html new file mode 100644 index 0000000000..129608e1c5 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Key.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Key

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Node.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Node.html new file mode 100644 index 0000000000..41b76c1980 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Node.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Node
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Node

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Query.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Query.html new file mode 100644 index 0000000000..440d3de768 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Query.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Query
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Query

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakeAddress.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakeAddress.html new file mode 100644 index 0000000000..4b83e9503c --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakeAddress.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.StakeAddress
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.StakeAddress

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakePool.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakePool.html new file mode 100644 index 0000000000..7e4d52ede8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-StakePool.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.StakePool
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.StakePool

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-TextView.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-TextView.html new file mode 100644 index 0000000000..3919ab608d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-TextView.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.TextView
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.TextView

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run-Transaction.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Transaction.html new file mode 100644 index 0000000000..ae6f22dfe9 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run-Transaction.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run.Transaction
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run.Transaction

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Legacy-Run.html b/cardano-cli/lib/Cardano-CLI-Legacy-Run.html new file mode 100644 index 0000000000..2467267a9e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Legacy-Run.html @@ -0,0 +1 @@ +Cardano.CLI.Legacy.Run
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Legacy.Run

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-OS-Posix.html b/cardano-cli/lib/Cardano-CLI-OS-Posix.html new file mode 100644 index 0000000000..ada4c35857 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-OS-Posix.html @@ -0,0 +1 @@ +Cardano.CLI.OS.Posix
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.OS.Posix

Documentation

module System.IO

module System.Posix.IO

module System.Posix.Files

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Options.html b/cardano-cli/lib/Cardano-CLI-Options.html new file mode 100644 index 0000000000..ce76de7ec9 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Options.html @@ -0,0 +1 @@ +Cardano.CLI.Options
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Options

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Parser.html b/cardano-cli/lib/Cardano-CLI-Parser.html new file mode 100644 index 0000000000..1f6f2658ee --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Parser.html @@ -0,0 +1 @@ +Cardano.CLI.Parser
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Parser

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Pretty.html b/cardano-cli/lib/Cardano-CLI-Pretty.html new file mode 100644 index 0000000000..1d5b0fbe2a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Pretty.html @@ -0,0 +1 @@ +Cardano.CLI.Pretty
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Pretty

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Read.html b/cardano-cli/lib/Cardano-CLI-Read.html new file mode 100644 index 0000000000..2fbae0b5cb --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Read.html @@ -0,0 +1,14 @@ +Cardano.CLI.Read
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Read

Synopsis

Metadata

data MetadataError Source #

Constructors

MetadataErrorFile (FileError ()) 
MetadataErrorJsonParseError !FilePath !String 
MetadataErrorConversionError !FilePath !TxMetadataJsonError 
MetadataErrorValidationError !FilePath ![(Word64, TxMetadataRangeError)] 
MetadataErrorDecodeError !FilePath !DecoderError 
MetadataErrorNotAvailableInEra AnyCardanoEra 

Instances

Instances details
Show MetadataError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → MetadataError → ShowS Source #

show ∷ MetadataError → String Source #

showList ∷ [MetadataError] → ShowS Source #

renderMetadataError ∷ MetadataError → Text Source #

readFileTxMetadata ∷ TxMetadataJsonSchema → MetadataFile → ExceptT MetadataError IO TxMetadata Source #

readTxMetadata ∷ CardanoEra era → TxMetadataJsonSchema → [MetadataFile] → IO (Either MetadataError (TxMetadataInEra era)) Source #

Script

data ScriptWitnessError Source #

Constructors

ScriptWitnessErrorFile (FileError ScriptDecodeError) 
ScriptWitnessErrorScriptLanguageNotSupportedInEra AnyScriptLanguage AnyCardanoEra 
ScriptWitnessErrorExpectedSimple !FilePath !AnyScriptLanguage 
ScriptWitnessErrorExpectedPlutus !FilePath !AnyScriptLanguage 
ScriptWitnessErrorReferenceScriptsNotSupportedInEra !AnyCardanoEra 
ScriptWitnessErrorScriptData ScriptDataError 

renderScriptWitnessError ∷ ScriptWitnessError → Text Source #

readScriptDataOrFile ∷ ScriptDataOrFile → ExceptT ScriptDataError IO HashableScriptData Source #

readScriptWitness ∷ CardanoEra era → ScriptWitnessFiles witctx → ExceptT ScriptWitnessError IO (ScriptWitness witctx era) Source #

readScriptWitnessFiles ∷ CardanoEra era → [(a, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))] Source #

readScriptWitnessFilesThruple ∷ CardanoEra era → [(a, b, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))] Source #

data ScriptDecodeError Source #

Constructors

ScriptDecodeTextEnvelopeError TextEnvelopeError 
ScriptDecodeSimpleScriptError JsonDecodeError 

Instances

Instances details
Show ScriptDecodeError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.ScriptDecodeError

Methods

showsPrec ∷ Int → ScriptDecodeError → ShowS Source #

show ∷ ScriptDecodeError → String Source #

showList ∷ [ScriptDecodeError] → ShowS Source #

Error ScriptDecodeError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.ScriptDecodeError

Methods

displayError ∷ ScriptDecodeError → String Source #

deserialiseScriptInAnyLang ∷ ByteString → Either ScriptDecodeError ScriptInAnyLang Source #

readFileScriptInAnyLang ∷ FilePath → ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang Source #

Read a script file. The file can either be in the text envelope format + wrapping the binary representation of any of the supported script languages, + or alternatively it can be a JSON format file for one of the simple script + language versions.

Script data (datums and redeemers)

data ScriptDataError Source #

Constructors

ScriptDataErrorFile (FileError ()) 
ScriptDataErrorJsonParse !FilePath !String 
ScriptDataErrorConversion !FilePath !ScriptDataJsonError 
ScriptDataErrorValidation !FilePath !ScriptDataRangeError 
ScriptDataErrorMetadataDecode !FilePath !DecoderError 
ScriptDataErrorJsonBytes !ScriptDataJsonBytesError 

readScriptDatumOrFile ∷ ScriptDatumOrFile witctx → ExceptT ScriptDataError IO (ScriptDatum witctx) Source #

readScriptRedeemerOrFile ∷ ScriptRedeemerOrFile → ExceptT ScriptDataError IO ScriptRedeemer Source #

renderScriptDataError ∷ ScriptDataError → Text Source #

Tx

data CddlError Source #

Constructors

CddlErrorTextEnv !(FileError TextEnvelopeError) !(FileError TextEnvelopeCddlError) 
CddlIOError (FileError TextEnvelopeError) 

Instances

Instances details
Show CddlError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → CddlError → ShowS Source #

show ∷ CddlError → String Source #

showList ∷ [CddlError] → ShowS Source #

Error CddlError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

displayError ∷ CddlError → String Source #

newtype CddlTx Source #

Constructors

CddlTx 

Fields

Instances

Instances details
Show CddlTx Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → CddlTx → ShowS Source #

show ∷ CddlTx → String Source #

showList ∷ [CddlTx] → ShowS Source #

Eq CddlTx Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

(==) ∷ CddlTx → CddlTx → Bool Source #

(/=) ∷ CddlTx → CddlTx → Bool Source #

data IncompleteTx Source #

Constructors

UnwitnessedCliFormattedTxBody (InAnyCardanoEra TxBody) 
IncompleteCddlFormattedTx (InAnyCardanoEra Tx) 

readFileTx ∷ FileOrPipe → IO (Either CddlError (InAnyCardanoEra Tx)) Source #

readFileTxBody ∷ FileOrPipe → IO (Either CddlError IncompleteTx) Source #

readCddlTx ∷ FileOrPipe → IO (Either (FileError TextEnvelopeCddlError) CddlTx) Source #

Tx witnesses

data ReadWitnessSigningDataError Source #

Constructors

ReadWitnessSigningDataSigningKeyDecodeError !(FileError InputDecodeError) 
ReadWitnessSigningDataScriptError !(FileError JsonDecodeError) 
ReadWitnessSigningDataSigningKeyAndAddressMismatch

A Byron address was specified alongside a non-Byron signing key.

Instances

Instances details
Show ReadWitnessSigningDataError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → ReadWitnessSigningDataError → ShowS Source #

show ∷ ReadWitnessSigningDataError → String Source #

showList ∷ [ReadWitnessSigningDataError] → ShowS Source #

renderReadWitnessSigningDataError ∷ ReadWitnessSigningDataError → Text Source #

Render an error message for a ReadWitnessSigningDataError.

data SomeSigningWitness Source #

Constructors

AByronSigningWitness (SigningKey ByronKey) (Maybe (Address ByronAddr)) 
APaymentSigningWitness (SigningKey PaymentKey) 
APaymentExtendedSigningWitness (SigningKey PaymentExtendedKey) 
AStakeSigningWitness (SigningKey StakeKey) 
AStakeExtendedSigningWitness (SigningKey StakeExtendedKey) 
AStakePoolSigningWitness (SigningKey StakePoolKey) 
AGenesisSigningWitness (SigningKey GenesisKey) 
AGenesisExtendedSigningWitness (SigningKey GenesisExtendedKey) 
AGenesisDelegateSigningWitness (SigningKey GenesisDelegateKey) 
AGenesisDelegateExtendedSigningWitness (SigningKey GenesisDelegateExtendedKey) 
AGenesisUTxOSigningWitness (SigningKey GenesisUTxOKey) 
ADRepSigningWitness (SigningKey DRepKey) 
ACommitteeColdSigningWitness (SigningKey CommitteeColdKey) 
ACommitteeHotSigningWitness (SigningKey CommitteeHotKey) 

Instances

Instances details
Show SomeSigningWitness Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → SomeSigningWitness → ShowS Source #

show ∷ SomeSigningWitness → String Source #

showList ∷ [SomeSigningWitness] → ShowS Source #

data ByronOrShelleyWitness Source #

Some kind of Byron or Shelley witness.

Constructors

AByronWitness !ShelleyBootstrapWitnessSigningKeyData 
AShelleyKeyWitness !ShelleyWitnessSigningKey 

data ShelleyBootstrapWitnessSigningKeyData Source #

Data required for constructing a Shelley bootstrap witness.

Constructors

ShelleyBootstrapWitnessSigningKeyData 

Fields

  • !(SigningKey ByronKey)

    Byron signing key.

  • !(Maybe (Address ByronAddr))

    An optionally specified Byron address.

    If specified, both the network ID and derivation path are extracted + from the address and used in the construction of the Byron witness.

data CddlWitnessError Source #

Constructors

CddlWitnessErrorTextEnv (FileError TextEnvelopeError) (FileError TextEnvelopeCddlError) 
CddlWitnessIOError (FileError TextEnvelopeError) 

Instances

Instances details
Show CddlWitnessError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → CddlWitnessError → ShowS Source #

show ∷ CddlWitnessError → String Source #

showList ∷ [CddlWitnessError] → ShowS Source #

Error CddlWitnessError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

displayError ∷ CddlWitnessError → String Source #

readFileTxKeyWitness ∷ FilePath → IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness)) Source #

readWitnessSigningData ∷ WitnessSigningData → IO (Either ReadWitnessSigningDataError SomeSigningWitness) Source #

Required signer

data RequiredSignerError Source #

Constructors

RequiredSignerErrorFile (FileError InputDecodeError) 
RequiredSignerErrorByronKey (SigningKeyFile In) 

Instances

Instances details
Show RequiredSignerError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → RequiredSignerError → ShowS Source #

show ∷ RequiredSignerError → String Source #

showList ∷ [RequiredSignerError] → ShowS Source #

Error RequiredSignerError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

displayError ∷ RequiredSignerError → String Source #

categoriseSomeSigningWitness ∷ SomeSigningWitness → ByronOrShelleyWitness Source #

readRequiredSigner ∷ RequiredSigner → IO (Either RequiredSignerError (Hash PaymentKey)) Source #

Governance related

data ConstitutionError Source #

Constructors

ConstitutionErrorFile (FileError TextEnvelopeError) 
ConstitutionNotSupportedInEra AnyCardanoEra 
ConstitutionNotUnicodeError UnicodeException 

Instances

Instances details
Show ConstitutionError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → ConstitutionError → ShowS Source #

show ∷ ConstitutionError → String Source #

showList ∷ [ConstitutionError] → ShowS Source #

data ProposalError Source #

Constructors

ProposalErrorFile (FileError TextEnvelopeError) 
ProposalNotSupportedInEra AnyCardanoEra 
ProposalNotUnicodeError UnicodeException 

Instances

Instances details
Show ProposalError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → ProposalError → ShowS Source #

show ∷ ProposalError → String Source #

showList ∷ [ProposalError] → ShowS Source #

data VoteError Source #

Constructors

VoteErrorFile (FileError TextEnvelopeError) 
VoteErrorTextNotUnicode UnicodeException 

Instances

Instances details
Show VoteError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → VoteError → ShowS Source #

show ∷ VoteError → String Source #

showList ∷ [VoteError] → ShowS Source #

Error VoteError Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

displayError ∷ VoteError → String Source #

readTxGovernanceActions ∷ CardanoEra era → [ProposalFile In] → IO (Either ConstitutionError [Proposal era]) Source #

constitutionHashSourceToHash ∷ ConstitutionHashSource → ExceptT ConstitutionError IO (SafeHash StandardCrypto AnchorData) Source #

readProposal ∷ ConwayEraOnwards era → ProposalFile In → IO (Either (FileError TextEnvelopeError) (Proposal era)) Source #

FileOrPipe

data FileOrPipe Source #

We need a type for handling files that may be actually be things like + pipes. Currently the CLI makes no guarantee that a "file" will only + be read once. This is a problem for a user who who expects to be able to pass + a pipe. To handle this, we have a type for representing either files or pipes + where the contents will be saved in memory if what we're reading is a pipe (so + it can be re-read later). Unfortunately this means we can't easily stream data + from pipes, but at present that's not an issue.

Instances

Instances details
Show FileOrPipe Source # 
Instance details

Defined in Cardano.CLI.Read

Methods

showsPrec ∷ Int → FileOrPipe → ShowS Source #

show ∷ FileOrPipe → String Source #

showList ∷ [FileOrPipe] → ShowS Source #

fileOrPipe ∷ FilePath → IO FileOrPipe Source #

fileOrPipePath ∷ FileOrPipe → FilePath Source #

Get the path backing a FileOrPipe. This should primarily be used when + generating error messages for a user. A user should not call directly + call a function like readFile on the result of this function

fileOrPipeCache ∷ FileOrPipe → IO (Maybe ByteString) Source #

readFileOrPipe ∷ FileOrPipe → IO ByteString Source #

Get the contents of a file or pipe. This function reads the entire + contents of the file or pipe, and is blocking.

Stake credentials

getStakeCredentialFromVerifier ∷ StakeVerifier → ExceptT StakeCredentialError IO StakeCredential Source #

getStakeCredentialFromIdentifier ∷ StakeIdentifier → ExceptT StakeCredentialError IO StakeCredential Source #

getStakeAddressFromVerifier ∷ NetworkId → StakeVerifier → ExceptT StakeCredentialError IO StakeAddress Source #

readVotingProceduresFiles ∷ ConwayEraOnwards era → [VoteFile In] → IO (Either VoteError (VotingProcedures era)) Source #

readVotingProceduresFile ∷ ConwayEraOnwards era → VoteFile In → IO (Either VoteError (VotingProcedures era)) Source #

DRep credentials

getDRepCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile DRepKey → ExceptT (FileError InputDecodeError) IO (Credential DRepRole StandardCrypto) Source #

Committee credentials

getCommitteeColdCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeColdKey → ExceptT (FileError InputDecodeError) IO (Credential ColdCommitteeRole StandardCrypto) Source #

getCommitteeHotCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeHotKey → ExceptT (FileError InputDecodeError) IO (Credential HotCommitteeRole StandardCrypto) Source #

data ReadSafeHashError Source #

Constructors

ReadSafeHashErrorNotHex ByteString String 
ReadSafeHashErrorInvalidHash Text 

readHexAsSafeHash ∷ Text → Either ReadSafeHashError (SafeHash StandardCrypto AnchorData) Source #

readSafeHash ∷ ReadM (SafeHash StandardCrypto AnchorData) Source #

scriptHashReader ∷ ReadM ScriptHash Source #

Update proposals

readTxUpdateProposal ∷ ShelleyToBabbageEra era → UpdateProposalFile → ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era) Source #

Vote related

readVoteDelegationTarget ∷ VoteDelegationTarget → ExceptT DelegationError IO (DRep StandardCrypto) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Render.html b/cardano-cli/lib/Cardano-CLI-Render.html new file mode 100644 index 0000000000..a16fb504ee --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Render.html @@ -0,0 +1,4 @@ +Cardano.CLI.Render
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Render

Documentation

customRenderHelp ∷ Int → ParserHelp → String Source #

Convert a help text to String. When the CLI_HELP_TRACE environment variable is set + to '1', the output will be in HTML so that it can be viewed in a browser where developer + tools can be used to inspect tracing that aids in describing the structure of the output + document.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Run-Ping.html b/cardano-cli/lib/Cardano-CLI-Run-Ping.html new file mode 100644 index 0000000000..0bed7bb4a9 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Run-Ping.html @@ -0,0 +1 @@ +Cardano.CLI.Run.Ping
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Run.Ping

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Run.html b/cardano-cli/lib/Cardano-CLI-Run.html new file mode 100644 index 0000000000..e008fb666e --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Run.html @@ -0,0 +1 @@ +Cardano.CLI.Run
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Run

Description

Dispatch for running all the CLI commands

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-TopHandler.html b/cardano-cli/lib/Cardano-CLI-TopHandler.html new file mode 100644 index 0000000000..a63dbe15eb --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-TopHandler.html @@ -0,0 +1,4 @@ +Cardano.CLI.TopHandler
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.TopHandler

Synopsis

Documentation

toplevelExceptionHandler ∷ IO a → IO a Source #

An exception handler to use for a program top level, as an alternative to + the default top level handler provided by GHC.

Use like:

main :: IO ()
+main = toplevelExceptionHandler $ do
+  ...
\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Common.html b/cardano-cli/lib/Cardano-CLI-Types-Common.html new file mode 100644 index 0000000000..19fc134dbf --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Common.html @@ -0,0 +1,33 @@ +Cardano.CLI.Types.Common
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Common

Synopsis

Documentation

data AllOrOnly a Source #

Constructors

All 
Only a 

Instances

Instances details
Show a ⇒ Show (AllOrOnly a) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → AllOrOnly a → ShowS Source #

show ∷ AllOrOnly a → String Source #

showList ∷ [AllOrOnly a] → ShowS Source #

Eq a ⇒ Eq (AllOrOnly a) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ AllOrOnly a → AllOrOnly a → Bool Source #

(/=) ∷ AllOrOnly a → AllOrOnly a → Bool Source #

data AddressKeyType Source #

Constructors

AddressKeyShelley 
AddressKeyShelleyExtended 
AddressKeyByron 

Instances

Instances details
Show AddressKeyType Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → AddressKeyType → ShowS Source #

show ∷ AddressKeyType → String Source #

showList ∷ [AddressKeyType] → ShowS Source #

data BalanceTxExecUnits Source #

A flag that differentiates between automatically + and manually balancing a tx.

Constructors

AutoBalance 
ManualBalance 

newtype BlockId Source #

Constructors

BlockId String 

Instances

Instances details
Show BlockId Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → BlockId → ShowS Source #

show ∷ BlockId → String Source #

showList ∷ [BlockId] → ShowS Source #

data ByronKeyFormat Source #

Constructors

NonLegacyByronKeyFormat 
LegacyByronKeyFormat 

Instances

Instances details
Show ByronKeyFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ByronKeyFormat → ShowS Source #

show ∷ ByronKeyFormat → String Source #

showList ∷ [ByronKeyFormat] → ShowS Source #

data ByronKeyType Source #

Constructors

ByronPaymentKey ByronKeyFormat 
ByronGenesisKey ByronKeyFormat 
ByronDelegateKey ByronKeyFormat 

Instances

Instances details
Show ByronKeyType Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ByronKeyType → ShowS Source #

show ∷ ByronKeyType → String Source #

showList ∷ [ByronKeyType] → ShowS Source #

data CardanoAddressKeyType Source #

The type of cardano-address key.

Constructors

CardanoAddressShelleyPaymentKey 
CardanoAddressShelleyStakeKey 
CardanoAddressIcarusPaymentKey 
CardanoAddressByronPaymentKey 

Instances

Instances details
Show CardanoAddressKeyType Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → CardanoAddressKeyType → ShowS Source #

show ∷ CardanoAddressKeyType → String Source #

showList ∷ [CardanoAddressKeyType] → ShowS Source #

data CBORObject Source #

Specify what the CBOR file is + i.e a block, a tx, etc

Constructors

CBORBlockByron EpochSlots 
CBORDelegationCertificateByron 
CBORTxByron 
CBORUpdateProposalByron 
CBORVoteByron 

Instances

Instances details
Show CBORObject Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → CBORObject → ShowS Source #

show ∷ CBORObject → String Source #

showList ∷ [CBORObject] → ShowS Source #

newtype CertificateFile Source #

Constructors

CertificateFile 

Fields

Instances

Instances details
Show CertificateFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → CertificateFile → ShowS Source #

show ∷ CertificateFile → String Source #

showList ∷ [CertificateFile] → ShowS Source #

Eq CertificateFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ CertificateFile → CertificateFile → Bool Source #

(/=) ∷ CertificateFile → CertificateFile → Bool Source #

data ConstitutionHashSource Source #

Constructors

ConstitutionHashSourceFile (File ConstitutionText In) 
ConstitutionHashSourceText Text 
ConstitutionHashSourceHash (SafeHash StandardCrypto AnchorData) 

Instances

Instances details
Show ConstitutionHashSource Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ConstitutionHashSource → ShowS Source #

show ∷ ConstitutionHashSource → String Source #

showList ∷ [ConstitutionHashSource] → ShowS Source #

newtype ConstitutionText Source #

Constructors

ConstitutionText 

Fields

Instances

Instances details
Show ConstitutionText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ConstitutionText → ShowS Source #

show ∷ ConstitutionText → String Source #

showList ∷ [ConstitutionText] → ShowS Source #

Eq ConstitutionText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ConstitutionText → ConstitutionText → Bool Source #

(/=) ∷ ConstitutionText → ConstitutionText → Bool Source #

newtype ConstitutionUrl Source #

Constructors

ConstitutionUrl 

Fields

Instances

Instances details
Show ConstitutionUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ConstitutionUrl → ShowS Source #

show ∷ ConstitutionUrl → String Source #

showList ∷ [ConstitutionUrl] → ShowS Source #

Eq ConstitutionUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ConstitutionUrl → ConstitutionUrl → Bool Source #

(/=) ∷ ConstitutionUrl → ConstitutionUrl → Bool Source #

newtype CurrentKesPeriod Source #

Constructors

CurrentKesPeriod 

Fields

Instances

Instances details
FromJSON CurrentKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser CurrentKesPeriod Source #

parseJSONList ∷ Value → Parser [CurrentKesPeriod] Source #

ToJSON CurrentKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ CurrentKesPeriod → Value Source #

toEncoding ∷ CurrentKesPeriod → Encoding Source #

toJSONList ∷ [CurrentKesPeriod] → Value Source #

toEncodingList ∷ [CurrentKesPeriod] → Encoding Source #

Show CurrentKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → CurrentKesPeriod → ShowS Source #

show ∷ CurrentKesPeriod → String Source #

showList ∷ [CurrentKesPeriod] → ShowS Source #

Eq CurrentKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ CurrentKesPeriod → CurrentKesPeriod → Bool Source #

(/=) ∷ CurrentKesPeriod → CurrentKesPeriod → Bool Source #

data EpochLeadershipSchedule Source #

Which leadership schedule we are interested in. + TODO: Implement Previous and Next epochs

Constructors

CurrentEpoch 
NextEpoch 

Instances

Instances details
Show EpochLeadershipSchedule Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → EpochLeadershipSchedule → ShowS Source #

show ∷ EpochLeadershipSchedule → String Source #

showList ∷ [EpochLeadershipSchedule] → ShowS Source #

newtype File content (direction ∷ FileDirection) Source #

A file path with additional type information to indicate what the file is meant to + contain and whether it is to be used for reading or writing.

Constructors

File 

Fields

Instances

Instances details
FromJSON (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

parseJSON ∷ Value → Parser (File content direction) Source #

parseJSONList ∷ Value → Parser [File content direction] Source #

ToJSON (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

toJSON ∷ File content direction → Value Source #

toEncoding ∷ File content direction → Encoding Source #

toJSONList ∷ [File content direction] → Value Source #

toEncodingList ∷ [File content direction] → Encoding Source #

IsString (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

fromString ∷ String → File content direction Source #

Read (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

readsPrec ∷ Int → ReadS (File content direction) Source #

readList ∷ ReadS [File content direction] Source #

readPrec ∷ ReadPrec (File content direction) Source #

readListPrec ∷ ReadPrec [File content direction] Source #

Show (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

showsPrec ∷ Int → File content direction → ShowS Source #

show ∷ File content direction → String Source #

showList ∷ [File content direction] → ShowS Source #

Eq (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

(==) ∷ File content direction → File content direction → Bool Source #

(/=) ∷ File content direction → File content direction → Bool Source #

Ord (File content direction) 
Instance details

Defined in Cardano.Api.IO.Base

Methods

compare ∷ File content direction → File content direction → Ordering Source #

(<) ∷ File content direction → File content direction → Bool Source #

(<=) ∷ File content direction → File content direction → Bool Source #

(>) ∷ File content direction → File content direction → Bool Source #

(>=) ∷ File content direction → File content direction → Bool Source #

max ∷ File content direction → File content direction → File content direction Source #

min ∷ File content direction → File content direction → File content direction Source #

data FileDirection Source #

Constructors

In

Indicate the file is to be used for reading.

Out

Indicate the file is to be used for writing.

InOut

Indicate the file is to be used for both reading and writing.

newtype GenesisDir Source #

Constructors

GenesisDir FilePath 

Instances

Instances details
Show GenesisDir Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → GenesisDir → ShowS Source #

show ∷ GenesisDir → String Source #

showList ∷ [GenesisDir] → ShowS Source #

newtype GenesisFile Source #

Constructors

GenesisFile 

Fields

Instances

Instances details
FromJSON GenesisFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser GenesisFile Source #

parseJSONList ∷ Value → Parser [GenesisFile] Source #

IsString GenesisFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

fromString ∷ String → GenesisFile Source #

Show GenesisFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → GenesisFile → ShowS Source #

show ∷ GenesisFile → String Source #

showList ∷ [GenesisFile] → ShowS Source #

Eq GenesisFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ GenesisFile → GenesisFile → Bool Source #

(/=) ∷ GenesisFile → GenesisFile → Bool Source #

Ord GenesisFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

compare ∷ GenesisFile → GenesisFile → Ordering Source #

(<) ∷ GenesisFile → GenesisFile → Bool Source #

(<=) ∷ GenesisFile → GenesisFile → Bool Source #

(>) ∷ GenesisFile → GenesisFile → Bool Source #

(>=) ∷ GenesisFile → GenesisFile → Bool Source #

max ∷ GenesisFile → GenesisFile → GenesisFile Source #

min ∷ GenesisFile → GenesisFile → GenesisFile Source #

newtype GenesisKeyFile Source #

Constructors

GenesisKeyFile FilePath 

Instances

Instances details
Show GenesisKeyFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → GenesisKeyFile → ShowS Source #

show ∷ GenesisKeyFile → String Source #

showList ∷ [GenesisKeyFile] → ShowS Source #

data GovernanceActionViewOutputFormat Source #

Constructors

GovernanceActionViewOutputFormatJson 
GovernanceActionViewOutputFormatYaml 

Instances

Instances details
Show GovernanceActionViewOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → GovernanceActionViewOutputFormat → ShowS Source #

show ∷ GovernanceActionViewOutputFormat → String Source #

showList ∷ [GovernanceActionViewOutputFormat] → ShowS Source #

data InputTxBodyOrTxFile Source #

Constructors

InputTxBodyFile (TxBodyFile In) 
InputTxFile (TxFile In) 

Instances

Instances details
Show InputTxBodyOrTxFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → InputTxBodyOrTxFile → ShowS Source #

show ∷ InputTxBodyOrTxFile → String Source #

showList ∷ [InputTxBodyOrTxFile] → ShowS Source #

data KeyOutputFormat Source #

Constructors

KeyOutputFormatTextEnvelope 
KeyOutputFormatBech32 

Instances

Instances details
Show KeyOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → KeyOutputFormat → ShowS Source #

show ∷ KeyOutputFormat → String Source #

showList ∷ [KeyOutputFormat] → ShowS Source #

Eq KeyOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ KeyOutputFormat → KeyOutputFormat → Bool Source #

(/=) ∷ KeyOutputFormat → KeyOutputFormat → Bool Source #

data MetadataFile Source #

Constructors

MetadataFileJSON (File () In) 
MetadataFileCBOR (File () In) 

Instances

Instances details
Show MetadataFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → MetadataFile → ShowS Source #

show ∷ MetadataFile → String Source #

showList ∷ [MetadataFile] → ShowS Source #

data OpCertCounter Source #

type OpCertCounterFile = File OpCertCounter Source #

newtype OpCertEndingKesPeriod Source #

Constructors

OpCertEndingKesPeriod 

Fields

Instances

Instances details
FromJSON OpCertEndingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser OpCertEndingKesPeriod Source #

parseJSONList ∷ Value → Parser [OpCertEndingKesPeriod] Source #

ToJSON OpCertEndingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ OpCertEndingKesPeriod → Value Source #

toEncoding ∷ OpCertEndingKesPeriod → Encoding Source #

toJSONList ∷ [OpCertEndingKesPeriod] → Value Source #

toEncodingList ∷ [OpCertEndingKesPeriod] → Encoding Source #

Show OpCertEndingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertEndingKesPeriod → ShowS Source #

show ∷ OpCertEndingKesPeriod → String Source #

showList ∷ [OpCertEndingKesPeriod] → ShowS Source #

Eq OpCertEndingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertEndingKesPeriod → OpCertEndingKesPeriod → Bool Source #

(/=) ∷ OpCertEndingKesPeriod → OpCertEndingKesPeriod → Bool Source #

data OpCertIntervalInformation Source #

Constructors

OpCertWithinInterval OpCertStartingKesPeriod OpCertEndingKesPeriod CurrentKesPeriod SlotsTillKesKeyExpiry 
OpCertStartingKesPeriodIsInTheFuture OpCertStartingKesPeriod OpCertEndingKesPeriod CurrentKesPeriod 
OpCertExpired OpCertStartingKesPeriod OpCertEndingKesPeriod CurrentKesPeriod 
OpCertSomeOtherError OpCertStartingKesPeriod OpCertEndingKesPeriod CurrentKesPeriod

Shouldn't be possible

Instances

Instances details
Show OpCertIntervalInformation Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertIntervalInformation → ShowS Source #

show ∷ OpCertIntervalInformation → String Source #

showList ∷ [OpCertIntervalInformation] → ShowS Source #

Eq OpCertIntervalInformation Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertIntervalInformation → OpCertIntervalInformation → Bool Source #

(/=) ∷ OpCertIntervalInformation → OpCertIntervalInformation → Bool Source #

data OpCertNodeAndOnDiskCounterInformation Source #

Constructors

OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounter OpCertNodeStateCounter

The on disk operational certificate has a counter + that is equal to its corresponding counter in the + node state. The on disk operational certificate therefore + has a valid counter.

OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounter OpCertNodeStateCounter

The on disk operational certificate has a counter + that is ahead of the counter in the node state by 1. + The on disk operational certificate is invalid in + this case.

OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounter OpCertNodeStateCounter

The on disk operational certificate has a counter + that is less than the counter in the node state. The + on disk operational certificate is invalid in this case.

OpCertOnDiskCounterBehindNodeState OpCertOnDiskCounter OpCertNodeStateCounter

The corresponding counter for operational certificate + was not found in the node state. This means the relevant + stake pool has not minted a block yet. When the stake pool + has minted a block the corresponding operational certificate's + counter will be present in the node state.

OpCertNoBlocksMintedYet OpCertOnDiskCounter

The on disk operational certificate has a counter + that is ahead of the counter in the node state by more + than 1. The on disk operational certificate is invalid in + this case.

Instances

Instances details
Show OpCertNodeAndOnDiskCounterInformation Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertNodeAndOnDiskCounterInformation → ShowS Source #

show ∷ OpCertNodeAndOnDiskCounterInformation → String Source #

showList ∷ [OpCertNodeAndOnDiskCounterInformation] → ShowS Source #

Eq OpCertNodeAndOnDiskCounterInformation Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertNodeAndOnDiskCounterInformation → OpCertNodeAndOnDiskCounterInformation → Bool Source #

(/=) ∷ OpCertNodeAndOnDiskCounterInformation → OpCertNodeAndOnDiskCounterInformation → Bool Source #

newtype OpCertNodeStateCounter Source #

Constructors

OpCertNodeStateCounter 

Fields

Instances

Instances details
FromJSON OpCertNodeStateCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser OpCertNodeStateCounter Source #

parseJSONList ∷ Value → Parser [OpCertNodeStateCounter] Source #

ToJSON OpCertNodeStateCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ OpCertNodeStateCounter → Value Source #

toEncoding ∷ OpCertNodeStateCounter → Encoding Source #

toJSONList ∷ [OpCertNodeStateCounter] → Value Source #

toEncodingList ∷ [OpCertNodeStateCounter] → Encoding Source #

Show OpCertNodeStateCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertNodeStateCounter → ShowS Source #

show ∷ OpCertNodeStateCounter → String Source #

showList ∷ [OpCertNodeStateCounter] → ShowS Source #

Eq OpCertNodeStateCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertNodeStateCounter → OpCertNodeStateCounter → Bool Source #

(/=) ∷ OpCertNodeStateCounter → OpCertNodeStateCounter → Bool Source #

newtype OpCertOnDiskCounter Source #

Constructors

OpCertOnDiskCounter 

Fields

Instances

Instances details
FromJSON OpCertOnDiskCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser OpCertOnDiskCounter Source #

parseJSONList ∷ Value → Parser [OpCertOnDiskCounter] Source #

ToJSON OpCertOnDiskCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ OpCertOnDiskCounter → Value Source #

toEncoding ∷ OpCertOnDiskCounter → Encoding Source #

toJSONList ∷ [OpCertOnDiskCounter] → Value Source #

toEncodingList ∷ [OpCertOnDiskCounter] → Encoding Source #

Show OpCertOnDiskCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertOnDiskCounter → ShowS Source #

show ∷ OpCertOnDiskCounter → String Source #

showList ∷ [OpCertOnDiskCounter] → ShowS Source #

Eq OpCertOnDiskCounter Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertOnDiskCounter → OpCertOnDiskCounter → Bool Source #

(/=) ∷ OpCertOnDiskCounter → OpCertOnDiskCounter → Bool Source #

newtype OpCertStartingKesPeriod Source #

Constructors

OpCertStartingKesPeriod 

Fields

Instances

Instances details
FromJSON OpCertStartingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser OpCertStartingKesPeriod Source #

parseJSONList ∷ Value → Parser [OpCertStartingKesPeriod] Source #

ToJSON OpCertStartingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ OpCertStartingKesPeriod → Value Source #

toEncoding ∷ OpCertStartingKesPeriod → Encoding Source #

toJSONList ∷ [OpCertStartingKesPeriod] → Value Source #

toEncodingList ∷ [OpCertStartingKesPeriod] → Encoding Source #

Show OpCertStartingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → OpCertStartingKesPeriod → ShowS Source #

show ∷ OpCertStartingKesPeriod → String Source #

showList ∷ [OpCertStartingKesPeriod] → ShowS Source #

Eq OpCertStartingKesPeriod Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ OpCertStartingKesPeriod → OpCertStartingKesPeriod → Bool Source #

(/=) ∷ OpCertStartingKesPeriod → OpCertStartingKesPeriod → Bool Source #

data Params crypto Source #

This data structure is used to allow nicely formatted output in the query pool-params command. + params are the current pool parameter settings, futureparams are new parameters, retiringEpoch is the + epoch that has been set for pool retirement. Any of these may be Nothing.

Constructors

Params 

Fields

Instances

Instances details
Crypto crypto ⇒ ToJSON (Params crypto) Source #

Pretty printing for pool parameters

Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ Params crypto → Value Source #

toEncoding ∷ Params crypto → Encoding Source #

toJSONList ∷ [Params crypto] → Value Source #

toEncodingList ∷ [Params crypto] → Encoding Source #

Show (Params crypto) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → Params crypto → ShowS Source #

show ∷ Params crypto → String Source #

showList ∷ [Params crypto] → ShowS Source #

data ParserFileDirection Source #

Constructors

Input 
Output 

Instances

Instances details
Show ParserFileDirection Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ParserFileDirection → ShowS Source #

show ∷ ParserFileDirection → String Source #

showList ∷ [ParserFileDirection] → ShowS Source #

Eq ParserFileDirection Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ParserFileDirection → ParserFileDirection → Bool Source #

(/=) ∷ ParserFileDirection → ParserFileDirection → Bool Source #

data IdOutputFormat Source #

Some entities such as stake pools and dreps have a notion of an ID and that id can be + encoded as either a bech32 or hex string. This type is used to specify which encoding + to use.

Constructors

IdOutputFormatHex 
IdOutputFormatBech32 

Instances

Instances details
Show IdOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → IdOutputFormat → ShowS Source #

show ∷ IdOutputFormat → String Source #

showList ∷ [IdOutputFormat] → ShowS Source #

Eq IdOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ IdOutputFormat → IdOutputFormat → Bool Source #

(/=) ∷ IdOutputFormat → IdOutputFormat → Bool Source #

newtype PrivKeyFile Source #

Constructors

PrivKeyFile FilePath 

Instances

Instances details
Show PrivKeyFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → PrivKeyFile → ShowS Source #

show ∷ PrivKeyFile → String Source #

showList ∷ [PrivKeyFile] → ShowS Source #

type ProposalFile = File () Source #

newtype ProposalText Source #

Constructors

ProposalText 

Fields

Instances

Instances details
Show ProposalText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ProposalText → ShowS Source #

show ∷ ProposalText → String Source #

showList ∷ [ProposalText] → ShowS Source #

Eq ProposalText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ProposalText → ProposalText → Bool Source #

(/=) ∷ ProposalText → ProposalText → Bool Source #

newtype ProposalUrl Source #

Constructors

ProposalUrl 

Fields

Instances

Instances details
Show ProposalUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ProposalUrl → ShowS Source #

show ∷ ProposalUrl → String Source #

showList ∷ [ProposalUrl] → ShowS Source #

Eq ProposalUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ProposalUrl → ProposalUrl → Bool Source #

(/=) ∷ ProposalUrl → ProposalUrl → Bool Source #

newtype ProtocolParamsFile Source #

Constructors

ProtocolParamsFile FilePath 

Instances

Instances details
Show ProtocolParamsFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ProtocolParamsFile → ShowS Source #

show ∷ ProtocolParamsFile → String Source #

showList ∷ [ProtocolParamsFile] → ShowS Source #

Eq ProtocolParamsFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ProtocolParamsFile → ProtocolParamsFile → Bool Source #

(/=) ∷ ProtocolParamsFile → ProtocolParamsFile → Bool Source #

data ReferenceScriptAnyEra Source #

Constructors

ReferenceScriptAnyEraNone 
ReferenceScriptAnyEra FilePath 

Instances

Instances details
Show ReferenceScriptAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ReferenceScriptAnyEra → ShowS Source #

show ∷ ReferenceScriptAnyEra → String Source #

showList ∷ [ReferenceScriptAnyEra] → ShowS Source #

Eq ReferenceScriptAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ReferenceScriptAnyEra → ReferenceScriptAnyEra → Bool Source #

(/=) ∷ ReferenceScriptAnyEra → ReferenceScriptAnyEra → Bool Source #

data RequiredSigner Source #

Plutus script required signers

Constructors

RequiredSignerSkeyFile (SigningKeyFile In) 
RequiredSignerHash (Hash PaymentKey) 

Instances

Instances details
Show RequiredSigner Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → RequiredSigner → ShowS Source #

show ∷ RequiredSigner → String Source #

showList ∷ [RequiredSigner] → ShowS Source #

data ScriptDataOrFile Source #

Constructors

ScriptDataCborFile FilePath

By reference to a CBOR file

ScriptDataJsonFile FilePath

By reference to a JSON file

ScriptDataValue HashableScriptData

By value

Instances

Instances details
Show ScriptDataOrFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ScriptDataOrFile → ShowS Source #

show ∷ ScriptDataOrFile → String Source #

showList ∷ [ScriptDataOrFile] → ShowS Source #

Eq ScriptDataOrFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ScriptDataOrFile → ScriptDataOrFile → Bool Source #

(/=) ∷ ScriptDataOrFile → ScriptDataOrFile → Bool Source #

data ScriptDatumOrFile witctx where Source #

Constructors

ScriptDatumOrFileForTxIn ∷ ScriptDataOrFile → ScriptDatumOrFile WitCtxTxIn 
InlineDatumPresentAtTxIn ∷ ScriptDatumOrFile WitCtxTxIn 
NoScriptDatumOrFileForMint ∷ ScriptDatumOrFile WitCtxMint 
NoScriptDatumOrFileForStake ∷ ScriptDatumOrFile WitCtxStake 

Instances

Instances details
Show (ScriptDatumOrFile witctx) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ScriptDatumOrFile witctx → ShowS Source #

show ∷ ScriptDatumOrFile witctx → String Source #

showList ∷ [ScriptDatumOrFile witctx] → ShowS Source #

newtype ScriptFile Source #

Constructors

ScriptFile 

Fields

Instances

Instances details
Show ScriptFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ScriptFile → ShowS Source #

show ∷ ScriptFile → String Source #

showList ∷ [ScriptFile] → ShowS Source #

Eq ScriptFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ ScriptFile → ScriptFile → Bool Source #

(/=) ∷ ScriptFile → ScriptFile → Bool Source #

type ScriptRedeemerOrFile = ScriptDataOrFile Source #

data ScriptWitnessFiles witctx where Source #

This type is like ScriptWitness, but the file paths from which to load + the script witness data representation.

It is era-independent, but witness context-dependent.

Constructors

SimpleScriptWitnessFile ∷ ScriptFile → ScriptWitnessFiles witctx 
PlutusScriptWitnessFiles ∷ ScriptFile → ScriptDatumOrFile witctx → ScriptRedeemerOrFile → ExecutionUnits → ScriptWitnessFiles witctx 
PlutusReferenceScriptWitnessFiles 

Fields

SimpleReferenceScriptWitnessFiles 

Fields

Instances

Instances details
Show (ScriptWitnessFiles witctx) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → ScriptWitnessFiles witctx → ShowS Source #

show ∷ ScriptWitnessFiles witctx → String Source #

showList ∷ [ScriptWitnessFiles witctx] → ShowS Source #

type SigningKeyFile = File (SigningKey ()) Source #

newtype SlotsTillKesKeyExpiry Source #

Constructors

SlotsTillKesKeyExpiry 

Fields

Instances

Instances details
FromJSON SlotsTillKesKeyExpiry Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

parseJSON ∷ Value → Parser SlotsTillKesKeyExpiry Source #

parseJSONList ∷ Value → Parser [SlotsTillKesKeyExpiry] Source #

ToJSON SlotsTillKesKeyExpiry Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

toJSON ∷ SlotsTillKesKeyExpiry → Value Source #

toEncoding ∷ SlotsTillKesKeyExpiry → Encoding Source #

toJSONList ∷ [SlotsTillKesKeyExpiry] → Value Source #

toEncodingList ∷ [SlotsTillKesKeyExpiry] → Encoding Source #

Show SlotsTillKesKeyExpiry Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → SlotsTillKesKeyExpiry → ShowS Source #

show ∷ SlotsTillKesKeyExpiry → String Source #

showList ∷ [SlotsTillKesKeyExpiry] → ShowS Source #

Eq SlotsTillKesKeyExpiry Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ SlotsTillKesKeyExpiry → SlotsTillKesKeyExpiry → Bool Source #

(/=) ∷ SlotsTillKesKeyExpiry → SlotsTillKesKeyExpiry → Bool Source #

data SomeKeyFile direction Source #

Either a verification or signing key, used for conversions and other + commands that make sense for both.

Constructors

AVerificationKeyFile (VerificationKeyFile direction) 
ASigningKeyFile (SigningKeyFile direction) 

Instances

Instances details
Show (SomeKeyFile direction) Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → SomeKeyFile direction → ShowS Source #

show ∷ SomeKeyFile direction → String Source #

showList ∷ [SomeKeyFile direction] → ShowS Source #

type StakePoolMetadataFile = File StakePoolMetadata Source #

data TransferDirection Source #

Determines the direction in which the MIR certificate will transfer ADA.

Constructors

TransferToReserves 
TransferToTreasury 

Instances

Instances details
Show TransferDirection Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TransferDirection → ShowS Source #

show ∷ TransferDirection → String Source #

showList ∷ [TransferDirection] → ShowS Source #

type TxBodyFile = File (TxBody ()) Source #

data TxBuildOutputOptions Source #

Specify whether to render the script cost as JSON + in the cli's build command.

Constructors

OutputScriptCostOnly (File () Out) 
OutputTxBodyOnly (TxBodyFile Out) 

Instances

Instances details
Show TxBuildOutputOptions Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxBuildOutputOptions → ShowS Source #

show ∷ TxBuildOutputOptions → String Source #

showList ∷ [TxBuildOutputOptions] → ShowS Source #

newtype TxByronWitnessCount Source #

Constructors

TxByronWitnessCount Int 

Instances

Instances details
Show TxByronWitnessCount Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxByronWitnessCount → ShowS Source #

show ∷ TxByronWitnessCount → String Source #

showList ∷ [TxByronWitnessCount] → ShowS Source #

type TxFile = File (Tx ()) Source #

newtype TxInCount Source #

Constructors

TxInCount Int 

Instances

Instances details
Show TxInCount Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxInCount → ShowS Source #

show ∷ TxInCount → String Source #

showList ∷ [TxInCount] → ShowS Source #

data TxMempoolQuery Source #

Constructors

TxMempoolQueryTxExists TxId 
TxMempoolQueryNextTx 
TxMempoolQueryInfo 

Instances

Instances details
Show TxMempoolQuery Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxMempoolQuery → ShowS Source #

show ∷ TxMempoolQuery → String Source #

showList ∷ [TxMempoolQuery] → ShowS Source #

data TxOutAnyEra Source #

A TxOut value that is the superset of possibilities for any era: any + address type and allowing multi-asset values. This is used as the type for + values passed on the command line. It can be converted into the + era-dependent TxOutValue type.

Constructors

TxOutAnyEra AddressAny Value TxOutDatumAnyEra ReferenceScriptAnyEra 

Instances

Instances details
Show TxOutAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxOutAnyEra → ShowS Source #

show ∷ TxOutAnyEra → String Source #

showList ∷ [TxOutAnyEra] → ShowS Source #

Eq TxOutAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ TxOutAnyEra → TxOutAnyEra → Bool Source #

(/=) ∷ TxOutAnyEra → TxOutAnyEra → Bool Source #

newtype TxOutChangeAddress Source #

A partially-specified transaction output indented to use as a change + output.

It does not specify a value, since this will be worked out automatically.

It does not use any script data hash, since that's generally not used for + change outputs.

Constructors

TxOutChangeAddress AddressAny 

Instances

Instances details
Show TxOutChangeAddress Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxOutChangeAddress → ShowS Source #

show ∷ TxOutChangeAddress → String Source #

showList ∷ [TxOutChangeAddress] → ShowS Source #

Eq TxOutChangeAddress Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ TxOutChangeAddress → TxOutChangeAddress → Bool Source #

(/=) ∷ TxOutChangeAddress → TxOutChangeAddress → Bool Source #

newtype TxOutCount Source #

Constructors

TxOutCount Int 

Instances

Instances details
Show TxOutCount Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxOutCount → ShowS Source #

show ∷ TxOutCount → String Source #

showList ∷ [TxOutCount] → ShowS Source #

data TxOutDatumAnyEra Source #

Constructors

TxOutDatumByHashOnly (Hash ScriptData) 
TxOutDatumByHashOf ScriptDataOrFile 
TxOutDatumByValue ScriptDataOrFile 
TxOutInlineDatumByValue ScriptDataOrFile 
TxOutDatumByNone 

Instances

Instances details
Show TxOutDatumAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxOutDatumAnyEra → ShowS Source #

show ∷ TxOutDatumAnyEra → String Source #

showList ∷ [TxOutDatumAnyEra] → ShowS Source #

Eq TxOutDatumAnyEra Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ TxOutDatumAnyEra → TxOutDatumAnyEra → Bool Source #

(/=) ∷ TxOutDatumAnyEra → TxOutDatumAnyEra → Bool Source #

newtype TxShelleyWitnessCount Source #

Constructors

TxShelleyWitnessCount Int 

Instances

Instances details
Show TxShelleyWitnessCount Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxShelleyWitnessCount → ShowS Source #

show ∷ TxShelleyWitnessCount → String Source #

showList ∷ [TxShelleyWitnessCount] → ShowS Source #

data TxViewOutputFormat Source #

Constructors

TxViewOutputFormatJson 
TxViewOutputFormatYaml 

Instances

Instances details
Show TxViewOutputFormat Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → TxViewOutputFormat → ShowS Source #

show ∷ TxViewOutputFormat → String Source #

showList ∷ [TxViewOutputFormat] → ShowS Source #

newtype UpdateProposalFile Source #

Constructors

UpdateProposalFile 

Fields

Instances

Instances details
Show UpdateProposalFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → UpdateProposalFile → ShowS Source #

show ∷ UpdateProposalFile → String Source #

showList ∷ [UpdateProposalFile] → ShowS Source #

Eq UpdateProposalFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ UpdateProposalFile → UpdateProposalFile → Bool Source #

(/=) ∷ UpdateProposalFile → UpdateProposalFile → Bool Source #

newtype VerificationKeyBase64 Source #

A raw verification key given in Base64, and decoded into a ByteString.

Constructors

VerificationKeyBase64 String 

Instances

Instances details
Show VerificationKeyBase64 Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → VerificationKeyBase64 → ShowS Source #

show ∷ VerificationKeyBase64 → String Source #

showList ∷ [VerificationKeyBase64] → ShowS Source #

type VerificationKeyFile = File (VerificationKey ()) Source #

newtype VoteUrl Source #

Constructors

VoteUrl 

Fields

Instances

Instances details
Show VoteUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → VoteUrl → ShowS Source #

show ∷ VoteUrl → String Source #

showList ∷ [VoteUrl] → ShowS Source #

Eq VoteUrl Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ VoteUrl → VoteUrl → Bool Source #

(/=) ∷ VoteUrl → VoteUrl → Bool Source #

newtype VoteText Source #

Constructors

VoteText 

Fields

Instances

Instances details
Show VoteText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → VoteText → ShowS Source #

show ∷ VoteText → String Source #

showList ∷ [VoteText] → ShowS Source #

Eq VoteText Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

(==) ∷ VoteText → VoteText → Bool Source #

(/=) ∷ VoteText → VoteText → Bool Source #

data VoteHashSource Source #

Constructors

VoteHashSourceFile (File VoteText In) 
VoteHashSourceText Text 
VoteHashSourceHash (SafeHash StandardCrypto AnchorData) 

Instances

Instances details
Show VoteHashSource Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → VoteHashSource → ShowS Source #

show ∷ VoteHashSource → String Source #

showList ∷ [VoteHashSource] → ShowS Source #

newtype WitnessFile Source #

Constructors

WitnessFile FilePath 

Instances

Instances details
Show WitnessFile Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → WitnessFile → ShowS Source #

show ∷ WitnessFile → String Source #

showList ∷ [WitnessFile] → ShowS Source #

data WitnessSigningData Source #

Data required to construct a witness.

Constructors

KeyWitnessSigningData 

Fields

  • !(SigningKeyFile In)

    Path to a file that should contain a signing key.

  • !(Maybe (Address ByronAddr))

    An optionally specified Byron address.

    If specified, both the network ID and derivation path are extracted + from the address and used in the construction of the Byron witness.

Instances

Instances details
Show WitnessSigningData Source # 
Instance details

Defined in Cardano.CLI.Types.Common

Methods

showsPrec ∷ Int → WitnessSigningData → ShowS Source #

show ∷ WitnessSigningData → String Source #

showList ∷ [WitnessSigningData] → ShowS Source #

type DRepMetadataFile = File DRepMetadata Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressCmdError.html new file mode 100644 index 0000000000..fdca5c0297 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.AddressCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.AddressCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressInfoError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressInfoError.html new file mode 100644 index 0000000000..f152f29bb3 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-AddressInfoError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.AddressInfoError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.AddressInfoError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html new file mode 100644 index 0000000000..840d585ff4 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html @@ -0,0 +1,3 @@ +Cardano.CLI.Types.Errors.BootstrapWitnessError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.BootstrapWitnessError

Documentation

data BootstrapWitnessError Source #

Error constructing a Shelley bootstrap witness (i.e. a Byron key witness + in the Shelley era).

Constructors

MissingNetworkIdOrByronAddressError

Neither a network ID nor a Byron address were provided to construct the + Shelley bootstrap witness. One or the other is required.

Instances

Instances details
Show BootstrapWitnessError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.BootstrapWitnessError

Methods

showsPrec ∷ Int → BootstrapWitnessError → ShowS Source #

show ∷ BootstrapWitnessError → String Source #

showList ∷ [BootstrapWitnessError] → ShowS Source #

renderBootstrapWitnessError ∷ BootstrapWitnessError → Text Source #

Render an error message for a BootstrapWitnessError.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html new file mode 100644 index 0000000000..ab044714e4 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html @@ -0,0 +1,3 @@ +Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError

Documentation

data CardanoAddressSigningKeyConversionError Source #

An error that can occur while converting a cardano-address extended + signing key.

Constructors

CardanoAddressSigningKeyBech32DecodeError !Bech32DecodeError

There was an error in decoding the string as Bech32.

CardanoAddressSigningKeyDeserialisationError !ByteString

There was an error in converting the cardano-address extended signing + key.

Instances

Instances details
Show CardanoAddressSigningKeyConversionError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError

Methods

showsPrec ∷ Int → CardanoAddressSigningKeyConversionError → ShowS Source #

show ∷ CardanoAddressSigningKeyConversionError → String Source #

showList ∷ [CardanoAddressSigningKeyConversionError] → ShowS Source #

Error CardanoAddressSigningKeyConversionError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError

Methods

displayError ∷ CardanoAddressSigningKeyConversionError → String Source #

Eq CardanoAddressSigningKeyConversionError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError

Methods

(==) ∷ CardanoAddressSigningKeyConversionError → CardanoAddressSigningKeyConversionError → Bool Source #

(/=) ∷ CardanoAddressSigningKeyConversionError → CardanoAddressSigningKeyConversionError → Bool Source #

renderCardanoAddressSigningKeyConversionError ∷ CardanoAddressSigningKeyConversionError → Text Source #

Render an error message for a CardanoAddressSigningKeyConversionError.

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-CmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-CmdError.html new file mode 100644 index 0000000000..aae536187d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-CmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.CmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.CmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-DelegationError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-DelegationError.html new file mode 100644 index 0000000000..9211a8e877 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-DelegationError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.DelegationError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.DelegationError

Documentation

data DelegationError Source #

Constructors

DelegationReadError !(FileError InputDecodeError) 
DelegationCertificateWriteFileError !(FileError ()) 
DelegationDRepReadError !(FileError InputDecodeError) 
DelegationStakeCredentialError !StakeCredentialError 

Instances

Instances details
Generic DelegationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.DelegationError

Associated Types

type Rep DelegationError ∷ Type → Type Source #

Methods

from ∷ DelegationError → Rep DelegationError x Source #

to ∷ Rep DelegationError x → DelegationError Source #

Show DelegationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.DelegationError

Methods

showsPrec ∷ Int → DelegationError → ShowS Source #

show ∷ DelegationError → String Source #

showList ∷ [DelegationError] → ShowS Source #

Error DelegationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.DelegationError

Methods

displayError ∷ DelegationError → String Source #

type Rep DelegationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.DelegationError

type Rep DelegationError = D1 ('MetaData "DelegationError" "Cardano.CLI.Types.Errors.DelegationError" "cardano-cli-8.14.0.0-inplace" 'False) ((C1 ('MetaCons "DelegationReadError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (FileError InputDecodeError))) :+: C1 ('MetaCons "DelegationCertificateWriteFileError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (FileError ())))) :+: (C1 ('MetaCons "DelegationDRepReadError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (FileError InputDecodeError))) :+: C1 ('MetaCons "DelegationStakeCredentialError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 StakeCredentialError))))
\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GenesisCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GenesisCmdError.html new file mode 100644 index 0000000000..ccfbcb66ef --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GenesisCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GenesisCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GenesisCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceActionsError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceActionsError.html new file mode 100644 index 0000000000..8e47fba13d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceActionsError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceActionsError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceActionsError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCmdError.html new file mode 100644 index 0000000000..9b67a97040 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceCmdError

Documentation

data GovernanceCmdError Source #

Constructors

StakeCredGovCmdError StakeAddressCmdError 
VotingCredentialDecodeGovCmdEror DecoderError 
WriteFileError (FileError ()) 
ReadFileError (FileError InputDecodeError) 
GovernanceCmdConstitutionError ConstitutionError 
GovernanceCmdHashError !GovernanceHashError 
GovernanceCmdProposalError ProposalError 
GovernanceCmdTextEnvReadError !(FileError TextEnvelopeError) 
GovernanceCmdCddlError !CddlError 
GovernanceCmdKeyReadError !(FileError InputDecodeError) 
GovernanceCmdCostModelReadError !(FileError ()) 
GovernanceCmdTextEnvWriteError !(FileError ()) 
GovernanceCmdEmptyUpdateProposalError 
GovernanceCmdMIRCertificateKeyRewardMistmach 

Fields

  • !FilePath
     
  • !Int

    Number of stake verification keys

  • !Int

    Number of reward amounts

GovernanceCmdCostModelsJsonDecodeErr !FilePath !Text 
GovernanceCmdEmptyCostModel !FilePath 
GovernanceCmdUnexpectedKeyType ![TextEnvelopeType]

Expected key types

GovernanceCmdPollOutOfBoundAnswer !Int

Maximum answer index

GovernanceCmdPollInvalidChoice 
GovernanceCmdDecoderError !DecoderError 
GovernanceCmdVerifyPollError !GovernancePollError 
GovernanceCmdWriteFileError !(FileError ()) 
GovernanceCmdDRepMetadataValidationError !DRepMetadataValidationError 
GovernanceCmdMIRCertNotSupportedInConway 
GovernanceCmdGenesisDelegationNotSupportedInConway 

Instances

Instances details
Show GovernanceCmdError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.GovernanceCmdError

Methods

showsPrec ∷ Int → GovernanceCmdError → ShowS Source #

show ∷ GovernanceCmdError → String Source #

showList ∷ [GovernanceCmdError] → ShowS Source #

Error GovernanceCmdError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.GovernanceCmdError

Methods

displayError ∷ GovernanceCmdError → String Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCommitteeError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCommitteeError.html new file mode 100644 index 0000000000..a8ffed8b9a --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceCommitteeError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceCommitteeError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceCommitteeError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceHashError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceHashError.html new file mode 100644 index 0000000000..f6d4d22326 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceHashError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceHashError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceHashError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceQueryError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceQueryError.html new file mode 100644 index 0000000000..b54350a3ab --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceQueryError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceQueryError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceQueryError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html new file mode 100644 index 0000000000..43e6f52d12 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.GovernanceVoteCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.GovernanceVoteCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html new file mode 100644 index 0000000000..f7dde896ed --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html @@ -0,0 +1,2 @@ +Cardano.CLI.Types.Errors.ItnKeyConversionError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.ItnKeyConversionError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-KeyCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-KeyCmdError.html new file mode 100644 index 0000000000..1f173ed889 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-KeyCmdError.html @@ -0,0 +1,2 @@ +Cardano.CLI.Types.Errors.KeyCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.KeyCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeCmdError.html new file mode 100644 index 0000000000..fc63354ab6 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.NodeCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.NodeCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeEraMismatchError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeEraMismatchError.html new file mode 100644 index 0000000000..aa0c43bead --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-NodeEraMismatchError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.NodeEraMismatchError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.NodeEraMismatchError

Documentation

data NodeEraMismatchError Source #

Constructors

∀ era nodeEra. NodeEraMismatchError 

Fields

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html new file mode 100644 index 0000000000..3d0edce600 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.ProtocolParamsError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.ProtocolParamsError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdError.html new file mode 100644 index 0000000000..75b49d81ca --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.QueryCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.QueryCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html new file mode 100644 index 0000000000..aed2661b59 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html @@ -0,0 +1,2 @@ +Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-RegistrationError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-RegistrationError.html new file mode 100644 index 0000000000..ec0cfbfeab --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-RegistrationError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.RegistrationError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.RegistrationError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-ScriptDecodeError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-ScriptDecodeError.html new file mode 100644 index 0000000000..ebe88a87ac --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-ScriptDecodeError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.ScriptDecodeError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.ScriptDecodeError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressCmdError.html new file mode 100644 index 0000000000..93e2754c8d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.StakeAddressCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.StakeAddressCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressDelegationError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressDelegationError.html new file mode 100644 index 0000000000..286c3aaf89 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressDelegationError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.StakeAddressDelegationError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.StakeAddressDelegationError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html new file mode 100644 index 0000000000..8ae3e69004 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.StakeAddressRegistrationError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.StakeAddressRegistrationError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeCredentialError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeCredentialError.html new file mode 100644 index 0000000000..bc284074bd --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakeCredentialError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.StakeCredentialError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.StakeCredentialError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html new file mode 100644 index 0000000000..4ecd9768ff --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.StakePoolCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.StakePoolCmdError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-TextViewFileError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-TextViewFileError.html new file mode 100644 index 0000000000..c23f281dac --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-TextViewFileError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.TextViewFileError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.TextViewFileError

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-TxCmdError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-TxCmdError.html new file mode 100644 index 0000000000..d1fdd44991 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-TxCmdError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.TxCmdError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.TxCmdError

Documentation

data TxCmdError Source #

Constructors

TxCmdMetadataError MetadataError 
TxCmdVoteError VoteError 
TxCmdConstitutionError ConstitutionError 
TxCmdScriptWitnessError ScriptWitnessError 
TxCmdProtocolParamsError ProtocolParamsError 
TxCmdScriptFileError (FileError ScriptDecodeError) 
TxCmdReadTextViewFileError !(FileError TextEnvelopeError) 
TxCmdReadWitnessSigningDataError !ReadWitnessSigningDataError 
TxCmdWriteFileError !(FileError ()) 
TxCmdBootstrapWitnessError !BootstrapWitnessError 
TxCmdTxSubmitError !Text 
TxCmdTxSubmitErrorEraMismatch !EraMismatch 
TxCmdTxFeatureMismatch !AnyCardanoEra !TxFeature 
TxCmdTxBodyError !TxBodyError 
TxCmdNotImplemented !Text 
TxCmdWitnessEraMismatch !AnyCardanoEra !AnyCardanoEra !WitnessFile 
TxCmdPolicyIdsMissing ![PolicyId] 
TxCmdPolicyIdsExcess ![PolicyId] 
TxCmdByronEra 
TxCmdBalanceTxBody !TxBodyErrorAutoBalance 
TxCmdTxInsDoNotExist !TxInsExistError 
TxCmdPParamsErr !ProtocolParametersError 
TxCmdTextEnvCddlError !(FileError TextEnvelopeError) !(FileError TextEnvelopeCddlError) 
TxCmdTxExecUnitsErr !TransactionValidityError 
TxCmdPlutusScriptCostErr !PlutusScriptCostError 
TxCmdPParamExecutionUnitsNotAvailable 
TxCmdPlutusScriptsRequireCardanoMode 
TxCmdProtocolParametersNotPresentInTxBody 
TxCmdTxNodeEraMismatchError !NodeEraMismatchError 
TxCmdQueryConvenienceError !QueryConvenienceError 
TxCmdQueryNotScriptLocked !ScriptLockedTxInsError 
TxCmdScriptDataError !ScriptDataError 
TxCmdCddlError CddlError 
TxCmdCddlWitnessError CddlWitnessError 
TxCmdRequiredSignerError RequiredSignerError 
TxCmdAuxScriptsValidationError TxAuxScriptsValidationError 
TxCmdTotalCollateralValidationError TxTotalCollateralValidationError 
TxCmdReturnCollateralValidationError TxReturnCollateralValidationError 
TxCmdTxFeeValidationError TxFeeValidationError 
TxCmdTxValidityLowerBoundValidationError TxValidityLowerBoundValidationError 
TxCmdTxValidityUpperBoundValidationError TxValidityUpperBoundValidationError 
TxCmdRequiredSignersValidationError TxRequiredSignersValidationError 
TxCmdProtocolParametersValidationError TxProtocolParametersValidationError 
TxCmdTxWithdrawalsValidationError TxWithdrawalsValidationError 
TxCmdTxCertificatesValidationError TxCertificatesValidationError 
TxCmdTxUpdateProposalValidationError TxUpdateProposalValidationError 
TxCmdScriptValidityValidationError TxScriptValidityValidationError 
TxCmdProtocolParamsConverstionError ProtocolParametersConversionError 

renderTxCmdError ∷ TxCmdError → Text Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Errors-TxValidationError.html b/cardano-cli/lib/Cardano-CLI-Types-Errors-TxValidationError.html new file mode 100644 index 0000000000..e4bc8cb790 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Errors-TxValidationError.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Errors.TxValidationError
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Errors.TxValidationError

Documentation

data TxAuxScriptsValidationError Source #

Constructors

TxAuxScriptsNotSupportedInEra AnyCardanoEra 
TxAuxScriptsLanguageError ScriptLanguageValidationError 

Instances

Instances details
Show TxAuxScriptsValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxAuxScriptsValidationError → ShowS Source #

show ∷ TxAuxScriptsValidationError → String Source #

showList ∷ [TxAuxScriptsValidationError] → ShowS Source #

Error TxAuxScriptsValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxAuxScriptsValidationError → String Source #

newtype TxCertificatesValidationError Source #

Constructors

TxCertificatesValidationNotSupported AnyCardanoEra 

Instances

Instances details
Show TxCertificatesValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxCertificatesValidationError → ShowS Source #

show ∷ TxCertificatesValidationError → String Source #

showList ∷ [TxCertificatesValidationError] → ShowS Source #

Error TxCertificatesValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxCertificatesValidationError → String Source #

data TxFeeValidationError Source #

Constructors

TxFeatureImplicitFeesE AnyCardanoEra

Expected an explicit fee

TxFeatureExplicitFeesE AnyCardanoEra

Expected an implicit fee

Instances

Instances details
Show TxFeeValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxFeeValidationError → ShowS Source #

show ∷ TxFeeValidationError → String Source #

showList ∷ [TxFeeValidationError] → ShowS Source #

Error TxFeeValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxFeeValidationError → String Source #

data TxProtocolParametersValidationError Source #

Instances

Instances details
Show TxProtocolParametersValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxProtocolParametersValidationError → ShowS Source #

show ∷ TxProtocolParametersValidationError → String Source #

showList ∷ [TxProtocolParametersValidationError] → ShowS Source #

Error TxProtocolParametersValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxProtocolParametersValidationError → String Source #

newtype TxScriptValidityValidationError Source #

Constructors

ScriptValidityNotSupported AnyCardanoEra 

Instances

Instances details
Show TxScriptValidityValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxScriptValidityValidationError → ShowS Source #

show ∷ TxScriptValidityValidationError → String Source #

showList ∷ [TxScriptValidityValidationError] → ShowS Source #

Error TxScriptValidityValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxScriptValidityValidationError → String Source #

newtype TxUpdateProposalValidationError Source #

Constructors

TxUpdateProposalNotSupported AnyCardanoEra 

Instances

Instances details
Show TxUpdateProposalValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxUpdateProposalValidationError → ShowS Source #

show ∷ TxUpdateProposalValidationError → String Source #

showList ∷ [TxUpdateProposalValidationError] → ShowS Source #

Error TxUpdateProposalValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxUpdateProposalValidationError → String Source #

newtype TxValidityLowerBoundValidationError Source #

Constructors

TxValidityLowerBoundNotSupported AnyCardanoEra 

Instances

Instances details
Show TxValidityLowerBoundValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxValidityLowerBoundValidationError → ShowS Source #

show ∷ TxValidityLowerBoundValidationError → String Source #

showList ∷ [TxValidityLowerBoundValidationError] → ShowS Source #

Error TxValidityLowerBoundValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxValidityLowerBoundValidationError → String Source #

newtype TxValidityUpperBoundValidationError Source #

Constructors

TxValidityUpperBoundNotSupported AnyCardanoEra 

Instances

Instances details
Show TxValidityUpperBoundValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxValidityUpperBoundValidationError → ShowS Source #

show ∷ TxValidityUpperBoundValidationError → String Source #

showList ∷ [TxValidityUpperBoundValidationError] → ShowS Source #

Error TxValidityUpperBoundValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxValidityUpperBoundValidationError → String Source #

data TxRequiredSignersValidationError Source #

Instances

Instances details
Show TxRequiredSignersValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxRequiredSignersValidationError → ShowS Source #

show ∷ TxRequiredSignersValidationError → String Source #

showList ∷ [TxRequiredSignersValidationError] → ShowS Source #

Error TxRequiredSignersValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxRequiredSignersValidationError → String Source #

newtype TxReturnCollateralValidationError Source #

Constructors

TxReturnCollateralNotSupported AnyCardanoEra 

Instances

Instances details
Show TxReturnCollateralValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxReturnCollateralValidationError → ShowS Source #

show ∷ TxReturnCollateralValidationError → String Source #

showList ∷ [TxReturnCollateralValidationError] → ShowS Source #

Error TxReturnCollateralValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxReturnCollateralValidationError → String Source #

newtype TxTotalCollateralValidationError Source #

Constructors

TxTotalCollateralNotSupported AnyCardanoEra 

Instances

Instances details
Show TxTotalCollateralValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxTotalCollateralValidationError → ShowS Source #

show ∷ TxTotalCollateralValidationError → String Source #

showList ∷ [TxTotalCollateralValidationError] → ShowS Source #

Error TxTotalCollateralValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxTotalCollateralValidationError → String Source #

newtype TxWithdrawalsValidationError Source #

Constructors

TxWithdrawalsNotSupported AnyCardanoEra 

Instances

Instances details
Show TxWithdrawalsValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

showsPrec ∷ Int → TxWithdrawalsValidationError → ShowS Source #

show ∷ TxWithdrawalsValidationError → String Source #

showList ∷ [TxWithdrawalsValidationError] → ShowS Source #

Error TxWithdrawalsValidationError Source # 
Instance details

Defined in Cardano.CLI.Types.Errors.TxValidationError

Methods

displayError ∷ TxWithdrawalsValidationError → String Source #

validateProtocolParameters ∷ CardanoEra era → Maybe (LedgerProtocolParameters era) → Either TxProtocolParametersValidationError (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))) Source #

validateScriptSupportedInEra ∷ CardanoEra era → ScriptInAnyLang → Either ScriptLanguageValidationError (ScriptInEra era) Source #

validateTxAuxScripts ∷ CardanoEra era → [ScriptInAnyLang] → Either TxAuxScriptsValidationError (TxAuxScripts era) Source #

validateTxCertificates ∷ ∀ era. CardanoEra era → [(Certificate era, Maybe (ScriptWitness WitCtxStake era))] → Either TxCertificatesValidationError (TxCertificates BuildTx era) Source #

validateTxFee ∷ CardanoEra era → Maybe Lovelace → Either TxFeeValidationError (TxFee era) Source #

validateRequiredSigners ∷ CardanoEra era → [Hash PaymentKey] → Either TxRequiredSignersValidationError (TxExtraKeyWitnesses era) Source #

validateTxReturnCollateral ∷ CardanoEra era → Maybe (TxOut CtxTx era) → Either TxReturnCollateralValidationError (TxReturnCollateral CtxTx era) Source #

validateTxScriptValidity ∷ CardanoEra era → Maybe ScriptValidity → Either TxScriptValidityValidationError (TxScriptValidity era) Source #

validateTxTotalCollateral ∷ CardanoEra era → Maybe Lovelace → Either TxTotalCollateralValidationError (TxTotalCollateral era) Source #

validateTxValidityUpperBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityUpperBoundValidationError (TxValidityUpperBound era) Source #

validateTxValidityLowerBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityLowerBoundValidationError (TxValidityLowerBound era) Source #

validateTxWithdrawals ∷ ∀ era. CardanoEra era → [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))] → Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era) Source #

validateUpdateProposalFile ∷ CardanoEra era → Maybe UpdateProposalFile → Either TxUpdateProposalValidationError (Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))) Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Governance.html b/cardano-cli/lib/Cardano-CLI-Types-Governance.html new file mode 100644 index 0000000000..d2c0f408a9 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Governance.html @@ -0,0 +1 @@ +Cardano.CLI.Types.Governance
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Governance

Documentation

type VoteFile = File ConwayVote Source #

data ConwayVote Source #

Constructors

ConwayVote 

Fields

Instances

Instances details
Show ConwayVote Source # 
Instance details

Defined in Cardano.CLI.Types.Governance

Methods

showsPrec ∷ Int → ConwayVote → ShowS Source #

show ∷ ConwayVote → String Source #

showList ∷ [ConwayVote] → ShowS Source #

data VType Source #

Constructors

VCC 
VDR 
VSP 

Instances

Instances details
Show VType Source # 
Instance details

Defined in Cardano.CLI.Types.Governance

Methods

showsPrec ∷ Int → VType → ShowS Source #

show ∷ VType → String Source #

showList ∷ [VType] → ShowS Source #

data AnyVotingStakeVerificationKeyOrHashOrFile where Source #

Constructors

AnyDRepVerificationKeyOrHashOrFile ∷ VerificationKeyOrHashOrFile DRepKey → AnyVotingStakeVerificationKeyOrHashOrFile 
AnyStakePoolVerificationKeyOrHashOrFile ∷ VerificationKeyOrHashOrFile StakePoolKey → AnyVotingStakeVerificationKeyOrHashOrFile 
AnyCommitteeHotVerificationKeyOrHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeHotKey → AnyVotingStakeVerificationKeyOrHashOrFile 

data VoteDelegationTarget Source #

Constructors

VoteDelegationTargetOfDRep DRepHashSource 
VoteDelegationTargetOfAbstain 
VoteDelegationTargetOfNoConfidence 

Instances

Instances details
Show VoteDelegationTarget Source # 
Instance details

Defined in Cardano.CLI.Types.Governance

Methods

showsPrec ∷ Int → VoteDelegationTarget → ShowS Source #

show ∷ VoteDelegationTarget → String Source #

showList ∷ [VoteDelegationTarget] → ShowS Source #

Eq VoteDelegationTarget Source # 
Instance details

Defined in Cardano.CLI.Types.Governance

Methods

(==) ∷ VoteDelegationTarget → VoteDelegationTarget → Bool Source #

(/=) ∷ VoteDelegationTarget → VoteDelegationTarget → Bool Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Key-VerificationKey.html b/cardano-cli/lib/Cardano-CLI-Types-Key-VerificationKey.html new file mode 100644 index 0000000000..4ce2f2c35f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Key-VerificationKey.html @@ -0,0 +1,2 @@ +Cardano.CLI.Types.Key.VerificationKey
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Key.VerificationKey

Documentation

data AnyVerificationKeySource Source #

The source from which a verification key of an unspecified key role can be + derived.

Constructors

AnyVerificationKeySourceOfText !AnyVerificationKeyText 
AnyVerificationKeySourceOfFile !(File (VerificationKey ()) In) 

Instances

Instances details
Show AnyVerificationKeySource Source # 
Instance details

Defined in Cardano.CLI.Types.Key.VerificationKey

Methods

showsPrec ∷ Int → AnyVerificationKeySource → ShowS Source #

show ∷ AnyVerificationKeySource → String Source #

showList ∷ [AnyVerificationKeySource] → ShowS Source #

Eq AnyVerificationKeySource Source # 
Instance details

Defined in Cardano.CLI.Types.Key.VerificationKey

Methods

(==) ∷ AnyVerificationKeySource → AnyVerificationKeySource → Bool Source #

(/=) ∷ AnyVerificationKeySource → AnyVerificationKeySource → Bool Source #

newtype AnyVerificationKeyText Source #

A bech32 text encoded verification key of an unspecified key role.

Constructors

AnyVerificationKeyText 

Fields

Instances

Instances details
Show AnyVerificationKeyText Source # 
Instance details

Defined in Cardano.CLI.Types.Key.VerificationKey

Methods

showsPrec ∷ Int → AnyVerificationKeyText → ShowS Source #

show ∷ AnyVerificationKeyText → String Source #

showList ∷ [AnyVerificationKeyText] → ShowS Source #

Eq AnyVerificationKeyText Source # 
Instance details

Defined in Cardano.CLI.Types.Key.VerificationKey

Methods

(==) ∷ AnyVerificationKeyText → AnyVerificationKeyText → Bool Source #

(/=) ∷ AnyVerificationKeyText → AnyVerificationKeyText → Bool Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Key.html b/cardano-cli/lib/Cardano-CLI-Types-Key.html new file mode 100644 index 0000000000..4ac9ca580d --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Key.html @@ -0,0 +1,22 @@ +Cardano.CLI.Types.Key
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Key

Description

Shelley CLI option data types and functions for cryptographic keys.

Synopsis

Documentation

data VerificationKeyOrFile keyrole Source #

Either a verification key or path to a verification key file.

Constructors

VerificationKeyValue !(VerificationKey keyrole)

A verification key.

VerificationKeyFilePath !(VerificationKeyFile In)

A path to a verification key file. + Note that this file hasn't been validated at all (whether it exists, + contains a key of the correct type, etc.)

Instances

Instances details
Show (VerificationKey keyrole) ⇒ Show (VerificationKeyOrFile keyrole) Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → VerificationKeyOrFile keyrole → ShowS Source #

show ∷ VerificationKeyOrFile keyrole → String Source #

showList ∷ [VerificationKeyOrFile keyrole] → ShowS Source #

Eq (VerificationKey keyrole) ⇒ Eq (VerificationKeyOrFile keyrole) Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ VerificationKeyOrFile keyrole → VerificationKeyOrFile keyrole → Bool Source #

(/=) ∷ VerificationKeyOrFile keyrole → VerificationKeyOrFile keyrole → Bool Source #

readVerificationKeyOrFile ∷ (HasTextEnvelope (VerificationKey keyrole), SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole)) Source #

Read a verification key or verification key file and return a + verification key.

If a filepath is provided, the file can either be formatted as Bech32, hex, + or text envelope.

readVerificationKeyOrTextEnvFile ∷ HasTextEnvelope (VerificationKey keyrole) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole)) Source #

Read a verification key or verification key file and return a + verification key.

If a filepath is provided, it will be interpreted as a text envelope + formatted file.

data VerificationKeyTextOrFile Source #

Either an unvalidated text representation of a verification key or a path + to a verification key file.

Constructors

VktofVerificationKeyText !Text 
VktofVerificationKeyFile !(VerificationKeyFile In) 

Instances

Instances details
Show VerificationKeyTextOrFile Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → VerificationKeyTextOrFile → ShowS Source #

show ∷ VerificationKeyTextOrFile → String Source #

showList ∷ [VerificationKeyTextOrFile] → ShowS Source #

Eq VerificationKeyTextOrFile Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ VerificationKeyTextOrFile → VerificationKeyTextOrFile → Bool Source #

(/=) ∷ VerificationKeyTextOrFile → VerificationKeyTextOrFile → Bool Source #

data VerificationKeyTextOrFileError Source #

An error in deserialising a VerificationKeyTextOrFile to a + VerificationKey.

Constructors

VerificationKeyTextError !InputDecodeError 
VerificationKeyFileError !(FileError InputDecodeError) 

Instances

Instances details
Show VerificationKeyTextOrFileError Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → VerificationKeyTextOrFileError → ShowS Source #

show ∷ VerificationKeyTextOrFileError → String Source #

showList ∷ [VerificationKeyTextOrFileError] → ShowS Source #

readVerificationKeyTextOrFileAnyOf ∷ VerificationKeyTextOrFile → IO (Either VerificationKeyTextOrFileError SomeAddressVerificationKey) Source #

Deserialise a verification key from text or a verification key file. + If a filepath is provided, the file can either be formatted as Bech32, hex, + or text envelope.

renderVerificationKeyTextOrFileError ∷ VerificationKeyTextOrFileError → Text Source #

Render an error message for a VerificationKeyTextOrFileError.

data VerificationKeyOrHashOrFile keyrole Source #

Verification key, verification key hash, or path to a verification key + file.

Constructors

VerificationKeyOrFile !(VerificationKeyOrFile keyrole)

Either a verification key or path to a verification key file.

VerificationKeyHash !(Hash keyrole)

A verification key hash.

Instances

Instances details
(Show (VerificationKeyOrFile keyrole), Show (Hash keyrole)) ⇒ Show (VerificationKeyOrHashOrFile keyrole) Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → VerificationKeyOrHashOrFile keyrole → ShowS Source #

show ∷ VerificationKeyOrHashOrFile keyrole → String Source #

showList ∷ [VerificationKeyOrHashOrFile keyrole] → ShowS Source #

(Eq (VerificationKeyOrFile keyrole), Eq (Hash keyrole)) ⇒ Eq (VerificationKeyOrHashOrFile keyrole) Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ VerificationKeyOrHashOrFile keyrole → VerificationKeyOrHashOrFile keyrole → Bool Source #

(/=) ∷ VerificationKeyOrHashOrFile keyrole → VerificationKeyOrHashOrFile keyrole → Bool Source #

readVerificationKeyOrHashOrFile ∷ (Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole)) Source #

Read a verification key or verification key hash or verification key file + and return a verification key hash.

If a filepath is provided, the file can either be formatted as Bech32, hex, + or text envelope.

readVerificationKeyOrHashOrTextEnvFile ∷ Key keyrole ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole)) Source #

Read a verification key or verification key hash or verification key file + and return a verification key hash.

If a filepath is provided, it will be interpreted as a text envelope + formatted file.

data PaymentVerifier Source #

Constructors

PaymentVerifierKey VerificationKeyTextOrFile 
PaymentVerifierScriptFile ScriptFile 

Instances

Instances details
Show PaymentVerifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → PaymentVerifier → ShowS Source #

show ∷ PaymentVerifier → String Source #

showList ∷ [PaymentVerifier] → ShowS Source #

Eq PaymentVerifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ PaymentVerifier → PaymentVerifier → Bool Source #

(/=) ∷ PaymentVerifier → PaymentVerifier → Bool Source #

data StakeIdentifier Source #

Constructors

StakeIdentifierVerifier StakeVerifier 
StakeIdentifierAddress StakeAddress 

Instances

Instances details
Show StakeIdentifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → StakeIdentifier → ShowS Source #

show ∷ StakeIdentifier → String Source #

showList ∷ [StakeIdentifier] → ShowS Source #

Eq StakeIdentifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ StakeIdentifier → StakeIdentifier → Bool Source #

(/=) ∷ StakeIdentifier → StakeIdentifier → Bool Source #

data StakeVerifier Source #

Constructors

StakeVerifierKey (VerificationKeyOrFile StakeKey) 
StakeVerifierScriptFile ScriptFile 

Instances

Instances details
Show StakeVerifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → StakeVerifier → ShowS Source #

show ∷ StakeVerifier → String Source #

showList ∷ [StakeVerifier] → ShowS Source #

Eq StakeVerifier Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ StakeVerifier → StakeVerifier → Bool Source #

(/=) ∷ StakeVerifier → StakeVerifier → Bool Source #

generateKeyPair ∷ Key keyrole ⇒ HasTypeProxy keyrole ⇒ AsType keyrole → IO (VerificationKey keyrole, SigningKey keyrole) Source #

data StakePoolRegistrationParserRequirements Source #

Constructors

StakePoolRegistrationParserRequirements 

Fields

data AnyDelegationTarget where Source #

A resource that identifies the delegation target. We can delegate + our stake for two reasons: + 1. To gain rewards. This is limited to choosing a stake pool + 2. To delegate voting power. We can delegate this to a DRep, always + abstain our vote or vote no confidence

Constructors

ShelleyToBabbageDelegTarget 

Fields

ConwayOnwardDelegTarget ∷ ConwayEraOnwards era → StakeTarget era → AnyDelegationTarget 

Instances

Instances details
Show AnyDelegationTarget Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → AnyDelegationTarget → ShowS Source #

show ∷ AnyDelegationTarget → String Source #

showList ∷ [AnyDelegationTarget] → ShowS Source #

data StakeTarget era where Source #

Constructors

TargetStakePool ∷ ConwayEraOnwards era → VerificationKeyOrHashOrFile StakePoolKey → StakeTarget era 
TargetVotingDrep ∷ ConwayEraOnwards era → VerificationKeyOrHashOrFile DRepKey → StakeTarget era 
TargetVotingDrepAndStakePool ∷ ConwayEraOnwards era → VerificationKeyOrHashOrFile DRepKey → VerificationKeyOrHashOrFile StakePoolKey → StakeTarget era 
TargetAlwaysAbstain ∷ ConwayEraOnwards era → StakeTarget era 
TargetAlwaysNoConfidence ∷ ConwayEraOnwards era → StakeTarget era 
TargetVotingDRepScriptHash ∷ ConwayEraOnwards era → ScriptHash → StakeTarget era 

Instances

Instances details
Show (StakeTarget era) Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → StakeTarget era → ShowS Source #

show ∷ StakeTarget era → String Source #

showList ∷ [StakeTarget era] → ShowS Source #

data ColdVerificationKeyOrFile Source #

Either a stake pool verification key, genesis delegate verification key, + or a path to a cold verification key file.

Note that a "cold verification key" refers to either a stake pool or + genesis delegate verification key.

TODO: A genesis delegate extended key should also be valid here.

Constructors

ColdStakePoolVerificationKey !(VerificationKey StakePoolKey) 
ColdGenesisDelegateVerificationKey !(VerificationKey GenesisDelegateKey) 
ColdVerificationKeyFile !(VerificationKeyFile In) 

Instances

Instances details
Show ColdVerificationKeyOrFile Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → ColdVerificationKeyOrFile → ShowS Source #

show ∷ ColdVerificationKeyOrFile → String Source #

showList ∷ [ColdVerificationKeyOrFile] → ShowS Source #

data DRepHashSource Source #

Constructors

DRepHashSourceScript ScriptHash 
DRepHashSourceVerificationKey (VerificationKeyOrHashOrFile DRepKey) 

Instances

Instances details
Show DRepHashSource Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

showsPrec ∷ Int → DRepHashSource → ShowS Source #

show ∷ DRepHashSource → String Source #

showList ∷ [DRepHashSource] → ShowS Source #

Eq DRepHashSource Source # 
Instance details

Defined in Cardano.CLI.Types.Key

Methods

(==) ∷ DRepHashSource → DRepHashSource → Bool Source #

(/=) ∷ DRepHashSource → DRepHashSource → Bool Source #

readDRepCredential ∷ DRepHashSource → ExceptT DelegationError IO (Credential 'DRepRole StandardCrypto) Source #

data SomeSigningKey Source #

Constructors

AByronSigningKey (SigningKey ByronKey) 
APaymentSigningKey (SigningKey PaymentKey) 
APaymentExtendedSigningKey (SigningKey PaymentExtendedKey) 
AStakeSigningKey (SigningKey StakeKey) 
AStakeExtendedSigningKey (SigningKey StakeExtendedKey) 
AStakePoolSigningKey (SigningKey StakePoolKey) 
AGenesisSigningKey (SigningKey GenesisKey) 
AGenesisExtendedSigningKey (SigningKey GenesisExtendedKey) 
AGenesisDelegateSigningKey (SigningKey GenesisDelegateKey) 
AGenesisDelegateExtendedSigningKey (SigningKey GenesisDelegateExtendedKey) 
AGenesisUTxOSigningKey (SigningKey GenesisUTxOKey) 
AVrfSigningKey (SigningKey VrfKey) 
AKesSigningKey (SigningKey KesKey) 

withSomeSigningKey ∷ SomeSigningKey → (∀ keyrole. (Key keyrole, HasTypeProxy keyrole) ⇒ SigningKey keyrole → a) → a Source #

readSigningKeyFile ∷ SigningKeyFile In → ExceptT (FileError InputDecodeError) IO SomeSigningKey Source #

\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-Output.html b/cardano-cli/lib/Cardano-CLI-Types-Output.html new file mode 100644 index 0000000000..bed10ad2f8 --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-Output.html @@ -0,0 +1,5 @@ +Cardano.CLI.Types.Output
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.Output

Documentation

data PlutusScriptCostError Source #

Instances

Instances details
Show PlutusScriptCostError Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

showsPrec ∷ Int → PlutusScriptCostError → ShowS Source #

show ∷ PlutusScriptCostError → String Source #

showList ∷ [PlutusScriptCostError] → ShowS Source #

Error PlutusScriptCostError Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

displayError ∷ PlutusScriptCostError → String Source #

data QueryKesPeriodInfoOutput Source #

Constructors

QueryKesPeriodInfoOutput 

Fields

Instances

Instances details
FromJSON QueryKesPeriodInfoOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

parseJSON ∷ Value → Parser QueryKesPeriodInfoOutput Source #

parseJSONList ∷ Value → Parser [QueryKesPeriodInfoOutput] Source #

ToJSON QueryKesPeriodInfoOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

toJSON ∷ QueryKesPeriodInfoOutput → Value Source #

toEncoding ∷ QueryKesPeriodInfoOutput → Encoding Source #

toJSONList ∷ [QueryKesPeriodInfoOutput] → Value Source #

toEncodingList ∷ [QueryKesPeriodInfoOutput] → Encoding Source #

Show QueryKesPeriodInfoOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

showsPrec ∷ Int → QueryKesPeriodInfoOutput → ShowS Source #

show ∷ QueryKesPeriodInfoOutput → String Source #

showList ∷ [QueryKesPeriodInfoOutput] → ShowS Source #

Eq QueryKesPeriodInfoOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

(==) ∷ QueryKesPeriodInfoOutput → QueryKesPeriodInfoOutput → Bool Source #

(/=) ∷ QueryKesPeriodInfoOutput → QueryKesPeriodInfoOutput → Bool Source #

data QueryTipLocalState mode Source #

Constructors

QueryTipLocalState 

Fields

data QueryTipLocalStateOutput Source #

Constructors

QueryTipLocalStateOutput 

Fields

Instances

Instances details
FromJSON QueryTipLocalStateOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

parseJSON ∷ Value → Parser QueryTipLocalStateOutput Source #

parseJSONList ∷ Value → Parser [QueryTipLocalStateOutput] Source #

ToJSON QueryTipLocalStateOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

toJSON ∷ QueryTipLocalStateOutput → Value Source #

toEncoding ∷ QueryTipLocalStateOutput → Encoding Source #

toJSONList ∷ [QueryTipLocalStateOutput] → Value Source #

toEncodingList ∷ [QueryTipLocalStateOutput] → Encoding Source #

Show QueryTipLocalStateOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

showsPrec ∷ Int → QueryTipLocalStateOutput → ShowS Source #

show ∷ QueryTipLocalStateOutput → String Source #

showList ∷ [QueryTipLocalStateOutput] → ShowS Source #

data ScriptCostOutput Source #

Constructors

ScriptCostOutput 

Fields

Instances

Instances details
ToJSON ScriptCostOutput Source # 
Instance details

Defined in Cardano.CLI.Types.Output

Methods

toJSON ∷ ScriptCostOutput → Value Source #

toEncoding ∷ ScriptCostOutput → Encoding Source #

toJSONList ∷ [ScriptCostOutput] → Value Source #

toEncodingList ∷ [ScriptCostOutput] → Encoding Source #

createOpCertIntervalInfo ∷ CurrentKesPeriod → OpCertStartingKesPeriod → OpCertEndingKesPeriod → Maybe SlotsTillKesKeyExpiry → OpCertIntervalInformation Source #

renderScriptCosts Source #

Arguments

∷ UTxO era 
→ Prices 
→ [(ScriptWitnessIndex, AnyScriptWitness era)]

Initial mapping of script witness index to actual script. + We need this in order to know which script corresponds to the + calculated execution units.

→ Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)

Post execution cost calculation mapping of script witness + index to execution units.

→ Either PlutusScriptCostError [ScriptCostOutput] 
\ No newline at end of file diff --git a/cardano-cli/lib/Cardano-CLI-Types-TxFeature.html b/cardano-cli/lib/Cardano-CLI-Types-TxFeature.html new file mode 100644 index 0000000000..253c178b5f --- /dev/null +++ b/cardano-cli/lib/Cardano-CLI-Types-TxFeature.html @@ -0,0 +1,2 @@ +Cardano.CLI.Types.TxFeature
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Cardano.CLI.Types.TxFeature

\ No newline at end of file diff --git a/cardano-cli/lib/Paths_cardano_cli.html b/cardano-cli/lib/Paths_cardano_cli.html new file mode 100644 index 0000000000..b7961eacd3 --- /dev/null +++ b/cardano-cli/lib/Paths_cardano_cli.html @@ -0,0 +1 @@ +Paths_cardano_cli
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Paths_cardano_cli

\ No newline at end of file diff --git a/cardano-cli/lib/cardano-cli.haddock b/cardano-cli/lib/cardano-cli.haddock new file mode 100644 index 0000000000000000000000000000000000000000..6f771814420cdebdc88ed94b6e685bffb96d70db GIT binary patch literal 167657 zcmdSi2b>&7o$&q1Imw_IlguDvY=bq%HgI4toGc6Q;dGJ=mw+3sM$+QduGk=1a6vie zoTXLHImcDbIp>^n&eHS$RnP3sbnnVC;d$P7KI*S_cREy8S65e8RabAiIitb1Oy>96 zo6P2+`zo7E^1nSzI!?O(v^HCa+9BnfxY`Eg(}+rjSgPWO~MA zvVTFQFUlkmCUy|v|GJQp+ubNDbugUbBOkbBND$_S)sv^_#GJR8~7i9XD zOfSmxl1wkl^lh2GBhxD~Rh20w)2lLlSEkowdR?YBWcr>=-d91JrUo))%k&4CK9MO$riL=*%9Lj^1sln6`lC$wG8M>F zC{vM4jb&;g)2A{umFZ71{aL2}lIg!?`X8D8SEgnh{N~UCT0$#m4Q-$;w1f800Xjk_ z=nP$;D|CbI&;xoxFX#<@pfB`;{xARr!XOw7LtrQjgJKvCBVZ(qg3&Mr#=3B8~<^nt$65BkFZ7zl%4FbsjAFbs-eIE;XiFbYP)7#IuVU_4BK zi7*K!!xWeb(_lKxfSE80X2Tqq3-e$;EP#cu2o}Q9D$>7435JII0>iVG@OC6a1PGH z1-J;8;4)l+t8fjj!wt9zx8OG1fxB=I?!yCk2#??~G~=Sz99lq2Xa%jI4YY-J&>lKK zN9Y8dp$l|{ZqOZiKu_oey`c~Eg?`W<2EafV1cPA+425Ars2GOB2p9>YU^I+@u`mwC z!vvwyM3@AVVG2xzX)qmTz)YA0vxR5oz+9LI^I-ujghj9zmOu$Cg=MfDRtR5M39Dc= ztbw(#4%Wj4*a(|oGi-sauno2gU)%vZVHfO%J+K${!G1UZ2jLJLh9htkj=^y_0Vm-U zoQ5-S7S6$WxBwU75?qEWa22k>b+`dH;TGJ6J8&27!F_lD58)9!hGtUW`eJiv0WF~w zw1zg&7TQ63p>hZ42%Vrabb+qW4Z1@Q=n1``H}rwNLbxCFhXF7U2Ekw$0z+XK6vJ>B z0V81)jD|5V7RJGNm;e)D5=@3EFcqf3beI7%VHV7WIWQOI!F*T%3t5jm18ZR&tcMM-5jMeQ*aBN&8*GOiuoHH{ZrB5RVIS;=18@)y!C^Q8N8uP8 zhZArTPQht7183nJoQDf=5iY@HxB^$6ZwSLg=ap$GJYUeFu*Kwszw{b2wMgh4PEhQLta z*g|G+~ z!xAWgrLYW^!wOglt6(*(fwizs`0{$#02^TwY=$kc6}G{4*a16Xm++O{um|?SKG+Wj z;2<1=!*B$S!ZA1wCxow_gi~-D&cInX2j}4eT!c$-8Lq%pxCYnZ2Hb>Oa2xKxUAPDL z;Q>5^NAMV$$&KdMnnMd{39W?ZT08bt4H7{9E0O<0#3pyI4ykl z44j2?a2_teMYsf);fnCuRk#M%;Rf7iznJ^1x!yK3k^I$$KfQ7IK77IUE0wu5% zmcepZ0V`n@tcEqP7S_Rf*Z>=06KsYpuobq!cGv+sVHfO%J+K${!G1UZ2jLJLh9htk zj=^y_0Vm-UoQ5-S7S6$WxBwU75?qEWa22k>b+`dH;TGJ6J8&27!F_lD58)9!hGtU1 z_Jiio0$M^VXbo+kEwqF7&;dF^C+G}apeuBP?$85zLNDkIeV{M&gZ?l;_=kZo2nNFt z7z)Fn7>2_L7zv|bG>n0AU1egeuU@}aBsW1(u!wlhvGhr6YhB+`7=D~be01IIe zEQTde0!xJ-EraE-0#?E*SPg4nEv$p}umLv0CfE#HU@L5c?XUxO!Yu>{Z!Y#NBci=AEgZuCR z9>ODd49%o+_eag41+;`#&>Gr6TWAOEp#yY;PS6>;Kv(Dn-Ju8cgkI1a`aoak2mN6H z41_^27>2-57zV{K97e!M7zLwY42*?wFdinrM3@AVVG2xzX)qmTz)YA0vtbU*g?TU^ z7QjMS1dCw_l)zG02FryvSHMbG1*>5Vtc7*39yY*6*aVwl3v7jLupM^5PT|M9U^nc6 zy|54V!vQ!5hu|b+`dH;TGJ6 zJ8&27!F_lD58)9!hGx>R@RR1y0$M^VXbo+kEwqF7&;dF^C+G}apeuBP?$85zLNDkI zeV{M&gZ?l82Erg13`1Zj41;1A4kKVBjDpcH2FAiT7!MO*B20qGFa@TCS+4QpU6tb_Hi0XD)W*bG}>D{O=9umg6& zF4zrwU@z>0{cr#d!XY>eN8l(NgX3@lPQocTExdIG&cZo34;SDfT!PEOPp`mLxCYnZ z2Hb>Oa2xKxUAPDL;Q>5^NAMV$d4=ZC0$M^VXbo+kEwqF7&;dFMKkEdYp$l|{ZqOZi zKu_o;{9|wE1AU<%^oId35C*|uq1q4_3d5inhQkOL38P>%jDfK*4#vX-mg|G+~!xAWgrLYW^!wOglt6(*(fwiy>*24y&`bO9U zn_-La&Q{n4+hGUngk7*(sIdq3!amp!2jCzag2Qk``1w&d2FKw9oP<+w8qUC3I0xt9 z0$hYka2c+^Rk#M%;Rf7iznJ^1x!yK3k^I$$KfQ7IK7Q+%Kfu*nvmct5I39Dc=tbw(# z4%Wj4*a(|oGi-sauno4u4%i91U^nc6y|54V!vQ!5hu|8E!38&yRoPo1& z4$i{`xCocvGF*YHa1E}*4dE9z;TGJ6J8&27!F_lD58)9!7Jk{xFEoc1&=OifYiJ|9 z+ZNhEd*}cip%Zk5F3=UaL3ii@J)sx$7XGP^@T2_L z7zv|bG>n0AU1egeuU@}aBsW1(u!wi@SvtTyNfw?db=EDM52#a7bED_!>fu*nv zmct6+gO$REt6(*(fwiy>*24za2%BItY!N=%3fo{i?0}uH3w8_tyho_H7xuw^H~>%!dWA z5Ej8=SOO)m6qdnqSOF_x6|9Ceuol+Ade{IPVH0eIEwB}~!FJdIJ7E{>hCQ$s_Q8HQ z00-d^9EKxs6pq1hH~}Z&6r6@La2C$NdAI-<;SyYiD{vLA!F9L+H{llChC6Tg|G+~!xAWgrLYW^!wOg_)LsRvVGXQ>b+8^bz(&|4e7qU9z*g7>+hGUngk7*3 z_P}1)C;WOp9Dsvx2oA#$I4b<+nD8&h;RKw7Q*av2z*#s4=ivfegiCN4uE15eCj9Gl z;ook+O}GWO;SSt|dvG5fz(aThkD-}#p!>Jx&;nXQD`*XEpe?k6_Rs-3LMP}9U7#y; zgYM7+dO|Pg4Sk@m@bCSgKMa6@FbD?25Eu%>pcsb32p9>YU^I+@u`mwC!vvTJlVCDT zfvGSJro#-F3A11}%z?Qu59Y%HSO|+?F)V=+SPIKvIjn${unJbg8dwYKU_ESrjj#ze z!xq>I+h9BFfSs@lcEcXn3;SR{9Dsvx2oA#$I10z$IGli!a0*Vt88{2);5=M_i*N}p z!xgv+*WfzbfSYg&Zo?h83-{nYJP`ilq43*B@EDp&=gr?XhZfKhS_!{v4Q-$;v=e^c zUii-r&=ER8XXpZ5p&N9E9?(;W_k!Ng2l_%k=nn&6APj=RFa(CeFerxMFak!xC>RZ6 zU@VM-@h|}X2L9(4Rc^F%!B!`02aa`SPV;`1eU@wSPm;-C9Hzg zum;w`I#>@IU?XgT&9DWw!Zz3rJ76d5g59tO_QF2c4+r2N9D>7e1dhTnI1VS^B%FfN za0br8IXDj&;38at%Wws*!Zo-KH{d4Rg4=Kh?!rB|4-eoWJc7s2Ogaw7n?nm|39Xg|G+~!xAWgrLYW^!wOgl zt6(*(fwiy>*24za2%BItY=Nz?4YtD$*a^E}H|&AEun+db0XPVU;4mD4qi_t4!wEPE zr{FZ4fwOQ9&cg+`2$$e8T!E`_4X(otxCyu5Hr#=`a1ZXo19%9J;4w6lPV4dJ&;nXQ zD`*XEpe?k6_Rs-3LMP}9U7#y;gYM7+dO|Pg4Sk?5^n?B|00zP!7z{&TC=7#Q7!D&~ zB#eU5LY*-})>s$^CS+4QpU6tb_Hi0XD)W*bG}>D{O=9umg6& zF4zrwU@z>0{cr#d!XY>eM}&f-Lg6u?=s28!lW+=7!x=aW=ioeCfQxWRXna{{as{r! zHMkBp;3nLH+i(Z&!acYT58xp@g2&KI9+>#FIkbS5&2_L7zv|bG>n07XG{k_QF2c4+r2N9D>7e1dhTnI1VS^B%FfNa0br8IXDj& z;38at%Wws*!Zo-KH{d4Rg4=Kh?!rB|4-eoWJc7s2Odi(xb8~0`Euj^(hBnX^+Ch8a zzdAri=medi3v`8U&>ea}Pv`}`p%3(he$XEVz(C=@2MPZ(Soq%|LNoJF#g<@OtBIRP`5@m^UsdAZexpIYarE-@7jW`C`Cy+qY_bL%DY^AmN=W~bxXDldO~ zndyLh{UejzZ!&wc;`w#sxp`HyaFL|==kFMeIC zR`ioZ(?;>^{Ak0Xg2HH>M6^+Uq9Bo5=!w3r%~OzFKQ}wKKJyvpc|)5=7AY+KGA;qi zEsVbOL0(}4S@316+477Q_-KAYb~urnm3TAiJ7H>2SlFoG%~xNopIz9Xs7@>^ui>lN zxs8entL7CI@?V2bUQIdU7`87BrExUYI9Iy?%CMIcBv!`Y_rkFDIvpevwMm zw0YyDv%F-OrFwosGD}%kYAvQ`zxuW3zW$A9mFK_t!na<0>E-WKedXJ+SHJt(>u)@( zO#VgtTAP&}lJ0}*W7sQe71=4-rAyL@{>>l%gozoYyO;VH=C_%i`9c-xi1D1n&`-@j zWhUvGqdvxYpM9u}VRqtW&N{Ribik9I9;jPBigpR-%zyFiLY%Z36|-`ia~` zzQliBwws;PG-h)A>>sPWUHzTpf9$q&3{fA$-dB=K;tMan{O#A4nwFWCn|7P_n)b={ z@wn-{%>UN!B&F5(`7eI??mszXlAlSH4pDYUOK{ zuUEcN`DW!?m2X$RQ~7S?dzJ53eo*;gX z373SIhL?qxhgXDGhF67Ghu4JHhS!DHhc|>bhBt*bhqr{chPQ>chj)Z`hIfT`hxdf{ zhWCZ{hYy4gh7W}ghmVAhhL44hhfjo0hEIi0htGu1hR=o1hcARLhA)LLhp&XMhOdRM zhi`;$hHr&$hwp^%hVO;%haZF=h989=hnq#3M_NQ$Mp{K$N7_W%M%qQ%M><40Mmj}0 zN4iA1M!H41M|wnhMtVhhNBTtiM*2niM+QU&Mg~O&M}|a(MutU-Bf}#jA|oTCBBLW? zB4Z=tBI6?yA`>H%B9kLiB2y#NBGV%?A~PeiBC{iNB6B12BJ(2)A`2snB8wwSA|;Wf zk!6wPkrk1ZkyVk^ku{OEk#&*vkqwcJkxh}!ku8y}k!_Lf@(8_rq@iAY3`xQ)DdJ~4 z<&p9aKl)-s#zy905^INT&soz*qT3Xeo+!a)N%lsdir?Q-Jk?MK5a?;Al z8f}osX%yv5--{OHX=iPAp_FBE`KEDpqKTZaWDn6g`FTyG zKpAbq1u|MU(KwNl*C>(Cn)7lBQcDySXt_joZb73&mV`V%o<#vkWe4%>y5uFYa6wjn zb{*~SQo1V4FUpc@aUxZ4)xzhA*3HW*;sPHtng2tgNHql zf0y|Ef5z)%)vZ^*LG~Zgf6Zk~TywdVQsu{X(|Hiat1Vr7c?kaYnK;&nCB>>YCH^@GT9VgJ2a>47ZeA1e*@lwWWLK5@#MC`SK`dIE$dG?3q{+Km zbt1`%Jz7W#Zw3iWfFWR%kR) zXOV0%Cof)C%UF}CJedT2l6ji*MOJ#ANJ` zj9^Pq?K|(%z?tiNF;RkAN8BIhtw@cQol7kEzqWh}5 zMMaj{x3a5e>QE94j(apWJ1ZfnQ4Xh^s2rT+g#-3Yj&lNUEmfC^ED5T|#mvZl((*by1NaIgG@zwi;E7k!Vsjqs$<;(AnhR zHOQn$by^xxzp283oKTXtNX9}EC26Z|sl`-=Ck3BslGwGnEy)HN#wDLgL_g3fmSQqU ziY}67n``AswT%Q@J6#HjWW%x%xo43qnzd_rr(7i(70CH47w0%|Ymid?tfeMe<$ zDtJ;gprv(5*s2ajPOgGzB6S6+lgMiD#_LfDc7w#HlxVnEMYU5bm8R8sCI=^#H))Ai ztxe`uMKqZuCS$qi_M~#H26;s}b#q_T>f}@=kdu(nT6FWxGS`-4CBd(oUGPbi(wR!{ z@tkOulqj|9Zi1Xkb~G!mhzktoj8uEc@laJxB;o8r5`rA>f<}3{btPn}c`3T7qn0aG zP()*)%2KI1rN zggPzIGOUj-y8B9Y!uHBL=A4NYq$E$Yi6kYib@k*(s@nv@T^7g5OH9LrT+`JqQDfUU zPJMFONvM(pD``lHN6xCKRPJVd5^b6&jFsK$l+CZDA>GVce5HrKf-t{WK!Hsq{nBzk z^4d^NM9bhux~Q6JCaOLw>MJ52Csap4isMp%dnKAE%#wkdbaAoCRJNjo9065RCzlE8r#T?WD{)pH zRZj&`E_Jf<0abvG$skO+EvzxU!*xauwiI_*WnH=H&>@Yca!Ps18h=s+ zM9PNha+Eq8se8EO#gDkw!jih9+hI1_^-=M)pG)SznMm}N6@#?nUa-?_HbnZ9myj{o z%oeN7VQ=)u{DQ)w#!WtL`lmnt*MI-d|2C76@>-Z%$^dz-WoW#%GALeq84jPge*%iw$b|Yi}yHPT9-543P zZk!BPH$eufn=m8;Bi}J*tqR7VBAg_DsHz761P`|hubd$!yS|% z;SS4Sa7SerxZ~y%GWy#o8TajsjQDn527J39qr6>`@!hVNugb7)*JVJrn=+K!Z5hPv zt_EaNQ`EE6r0 zER!u$EK@DhEYmGBEHf>$EVC_hEORYek|9jRu@)c1Xy!2}Jv8Z?*8)`D>a_rC5uH5N z95-!mIA+?hk%O;Ajdn0+S^h_hld?EUkBjs;(qgSFo+Tw|(feQjeN2XqE8BSzf_7-N z1D-l)WrtKde7n*P?eXMc*AiTB88wcmnl5A75#1!UX)2MW5)}!BBt+s%Pe3F{E%|9l zxWRyD&k9Me12kuXQZrp@19A#WFkdL9>%Tk3}uiF19_1(j)#n$205!R8`QP$Dc zG1jrxan|ux?>PCf*g8zU8Y_PuC0~!1nOK>015_WwN|QC@wP#C>`~>Sn>m=)B>lEu$ z>on_h>kR8mYq@`9RnoCbeJWbx$NylKq0Mv|>Q`$fa-=Mu%;l0*Lu9SwWG4S?>m2J` z>pbgx>jLXS>muu7>k?~;b*Xik^$A}Q3hCveK8C<(?dw_<*T*N#G7y?BL_e(FAd&Tn z6#C>YK;3Oh&7ZWNXtxW64X6lJHwMyPFBzcBB{inhJj6_a71ov3Ro2zkHP*G(b=LLP z4c3j;P1eoUE!M5pj4#u_S|?u;ROuI@K86sNHJAN%{+DHFHeGmknyQyp8tZDmB;?7a zo3tyEcJ<0A?|GuNq`EmL(X^@*_~dSpIx`vhO}C+{)shtq)ZC@&+~jhTzHY7coZ}~h z#_5*-#=A7>tNUGbnM!t4NLyUSnA0s2tS#4~z8VkS8Pic0nwLJ33Pq`Tm3}F*)l`J4*d@Dd)F?-4l%+4n%Q6zAZqaX&6V##0iway> z{zGMXDqoSYBXx^CUzX{l3h0zqiR{vq$zYSZrGBQ%cG%&v8xCV;S$a3wBtKi~+Hz&& zO5GYSntmZ!5miiS2{}Dd)n2LII#L5rn$-1kXgAez2VK;tQC>b5C27SgotuaxVhUn1 zV5Tkr-z$rV^xQY0<%d=4kRfIqWdbBaZt7O^qSRBTVmp03`hdzfow_AgC1XH8r*?mm zdDA2}y^=69cCvKeWZX~Pnm_x(BEy90mU-I!Fjd`d-C^Bn-DTZv-DBNr-EZAzJzza( zJ#0N>Jz_m-J#IZ_Jz+g*J!L&@J!3s^ zy<@#=y=T2|ePDfPePn%Xt!n&ZYWCFP>8ng_CbijAFjB!P3n*ip%8;X4dBRw1OqTF| zx7*y^rjM6bo|y8bYC~1uCX>0z*WT8_*3s6<*4fs@*3H({*4@^_*3;I@=HtJzKc;5u zrMf+aD+*XyN$2-j=B0+PJ-Mv7)zsJ4&o;m|(AM8J$TrwE)HcjE#8zw@ZX016X&Yr5 zZ5v}7Ya3@9Z<}D7Xq#l4Y@1@6YMW-8Zku6SWSeQ5Wt(lAW1DZAYnx|VU|VQgY+GV0 zu`RVNvn{u6u&uMLu&uPMvaPnQv8}bOw{5g-vTe3)v2C?&vu(HSv+c0$wC%F(w(YU) zwe7bZupP7=vK_V^u^qJ?vmLjcu${D>vYobVHC6PTaV?*<-OmblYX8diI28w}I4O&z zvY2C7R2gZsq9Y_pXRCY{KWml2Om(N!7Sl)6rbtf$sd%T#RQl!7YLHKDoNBY8Vm;cZ zsE*|FQdyY#aCoT^!}83sXRI~$i-1AwWUtjROyiU zn(eynhV7>9mhHCfj_t1Pp6$Nvf$gE~k?paqnZ3EaQsx)T$|8r%kJQ%>Wj3N;ox}3K z;eNpBs6uBbjzc2skO5zH$6>u32P(I!s>&^PD^>9$^*z+@Q}+1&4^?DqE$;E00=fyP zFY6V_6{WOUDJG-HX0G0Bv5`ec>)h^$<+|!s$u&sDinOLlaYDLimbK%mD(%viLg}L1 zkPD>5B!|07F1H&wRgxu>jKye1`U4%2rK@eKNc{;Li0z5!f@FDY`i1HsC>;g0qEm9W zTOeskBk9ZOA?+6`C~CJQ zHO6F&UtI{cR}=zu#%Qap{i#-XQt3Fg4dSAr&B!Riy3M>(Jg(+PY7e z^Q8Y~UVZ7XF8!`!rZ2j^9^W)`M|&rGXL}cWS9>>mcY6E|GvALL)O9xBQHHsAHxY_f40i9WT%$;R*Q^dtlNb_=64GUim3KZZz-dMnmR_w zaxwLzYR}Tk$+}~r&LdWrPc9*Cqq3URp_Qz#FfU6QQ5(kVOBTo}Al2WLMQPf8s^ttFI<45aOGSQlL(k5rqj-YlxRI7+|=#YF=nxv$gUSW1a=^$QuSj*ZDBtt1kNV|D9 zZ49Z9rOl}lfW%R{@eY1VNeS>|YeUp8QeXD(&eY<^! zUH51HxK;kl8r8!A^1tEqPObJ6S+#$ceYbs&eXo6=eZT#H{haO3;!jKImsDOsX)6OsqTWdAd|;Kd9j{3^A|8aCOtR6IMG>t461#1;8JZ41N2m>Z{G2Y-vL)%TAW!#j{^uL_@=aA! zB2_DmrG&4ZEaEy+T5gkLL!Oqo7HQ6w17Y0zuV(DMwu8}XT0MH~u3egUbZIA2JK33) zZK#&{ygGl7Qo+{_$(xpF>El-6g#D!bl>M~*tR$mz_Ve}&_DlAQ_RIDw_N(@5_UrZ= z_M7%w_S^P5_Ph3b_OCtp>$25ow=UXdv`ugx$$R6}$8bKSPS?C_b2G#7l*W5HN~&r) zm5b8TNuGd{{)AekmAWn@J2PonsdnqYwMlDymd72XbR9GAjTocp+2mt{+MKG;Bc&)g z1lDGb=8hJQtfv4cS^6(Y@ zm1Tl4dHY4?ep$X(oBnR9b5!Y`NqJFqYERWXYdr+%7W201IT(}oXJoF%YVMo(&t)Q*R|nIv=lX3N)~ zcuwR}>oQ&)5XX4O1jj_jB*$dO6i3D{?A*61+CxhfDOwe-msj37jKv9W?Rb8DDdJM> zF%&7>wG#~+sjr;V9Mc^$95WrW9J3vB9J*iG@{1L1-o_&)GO$M_dH#K#W4>d7W1*w; z2Nrs%q9xN0P0>fP_#($*#}Y@0qx1)se7T~<$&4GnVUahsWX8DVCr{27R3~XISD-RO zuJY15QA&qe_g8uMi*9vmP1TYetCKe$+#++kC^@s1CD6o0F^l?wWsc>Jx$?b~=*(F>?&$Q_({IAdiXf zaqM;MbL@8$-LTRK}gTRYo0+dA7h z+dDfrJ32c#J3G5LyE?l$yE}V0dpdhLdpr9$`#SqM`#T3X2Ra8i2Rny2hdPHji=D%r zBb+a2i?JGQ)|SrH%2^GoYgf85HdHJt8!U_Wlhq86RrHrt4wMy+P|v9UprS+PvuMZe z`>BH`qp!63lDr2fBZj4;>W#8zu-D)ipLAty1pHRitn!{d-l-b!q7~Etqr(N!_1T7%=H%TVm3lt*d67 zJEL7a*~yot5}rKK9tfbQ7n8RoWyBoMx2X!+v?m>3G43plUaCq+HKVIo(MO2%-Ida5 zOy0z#+rV4pKfFjBN)f!`6>95~mpbXz_iVND!xxiRKV{A;<4crYGF7oQ)%KMvJKIcq zoo0(uUEn;FSN2Dw5HGKc%3O`*RB77EmAmm|y)hR?iF7%#=}&A?(;!ds=@W~(dtq0T z{hACjsJN3?PwBSY&LR(^CJOS3WZV}miOKV}(rHXpnp37urWRG%uS!JnB!X%POnoDF zsIoML0I8&$ z%95=bYe$wYOR@4ulFZX6PwvbN;gI0VO_oYJ@6=2*lKd&BNxZ34NXo!Fs@Op=8*?g2 zAl3i5DyOW+9%m)w?OVFI`D(4w$D<4p9+UTU>1MC|>zY50>XUlxoMArSN9xHjRo;oo zOTKig@u;tPQXqE0@TInFLpcyKE{nVtOtCgMD=7n3)V>1O-uPGxzy znQnbwFrLaWdHb1euAXL|z)d~MQ2wdo;qkiUDWVb@Cln9tXf5LMuwL0|OFNXb0>32V z1IQ^Pb@$1d@&c*Kms?g6qg4B-OkU1r&N9^vkud_KzDqq~5_?(R&z2EPxe{#A+V9Ih z{mTuuY7&w5Z$|f#{+#-GB*#BwdY24^y-`shr%{j`<}m1)TU3~Eq>n7m=`|Hf|Ye9~@6{HGptmPU<4zT~H>48}po2(4UVN_S0V zn9W?7p_hkqKf9J-ms2wN=K3WqBhBxW^^K4%>kmfq(G;?Lm75#C=kn*Ft?}=8yyO*t z`s0=CHd0QA$w>8ABGrARyf27Qt*1jOL6*Pp|Aj;;uQ>dFzmtEbBx^q5G#kqMmC~|b zX{(irjdiBQ&Lz$g=The~=W^!?=St@)=W6E~=UV4F=X&P`=SJry=Vs>?=T_%7=XU1~ z=T7G?=Wgd7=U(SN=YHn_=RxNo=V9j&=TYY|=W*u==Sk-&=V|8|=UL}D=XvJ^=SAlw z=Vj*==T+x5=XK`|=S}A==WXX5=UwML=Y8h`=R@Zs=VNCxS94bjS4&qbS8G=rS6kOQ zQ`vXgmb9%lcQtcqprJs3otmzsK-YQZ4$0+GU-P-sVZen(-!H8Vv6mcEAR$*DTG9EV zu+pJ5w3$@NRc@_vq}?w+F2mKRRi!mAB%~jLloylRH@0n6s;OON%hqA24-3`KE93$6 z(yiz&jaEyjW~#FW)#`FT=hhuk%M0(T(JQKzjb5Q0tKjMA+-HKR{IqeGhfq~bz1BB#~z?doOE*E7C|q@zYsaFSaJY6`VsSCXMLjOkdZ zTG6L6qDNdRF_Q5-%M~&lzP}*F8QNiA`B1J~`BLy#rLR=OOf7*n(%wHQ*gA(;d|P@Ni+t=R>JFnted{DnwMG4-J<}zkXOYnxFKtD&qenuafmwzMYL0uX2Nh(a9d`^5(zo_w?2+VNJ zbj@%z+X!2w!HFKH?twbmlq=IX8Bv3+szEu z5#!0-+%S*f>~3M0MR$73tDAM9*Pq|540Al)2`;aK)~z|3eo0gJ-gGZaySB-Tqn~P# zw3A+5Gp$?XbDZ_^dTQOmPk-9W3$1m_8qfQlhI#&iQ%2r{t=rJ&PxJB`ZQVMakmlue z+q#+m774nqVXejlEwA_1ZP}2Z<>lY{S@b0^c`LYXmZwXw@*;8Fa-W%C<+bBawMbfm zm6w$3773=G7E(ZyH<;_@_#8=kxM5*qvNYW?Ep;t(t#GY$EqASQt#++(t#z$)t#@s3 zZFFsMZE|gPZFOyP?Qm^(?R4#O?RM>P?RD*Q?ROn;9dsRX9d#XZ9d;dY9e15@opzmc zopPOVopoJsU38syopW7sU3Oh_U2$D?U3cAZ-E_5Z-*r83wR7KcwRN|0-*(+|HFGz2 zKXSEpw{f?3cW`%fcXoGi-*Me{J#;;GwRCrKcXfAjcX#)3_i_(#4|5N3_izt&4|Ml* z_jdPn_jC7m4{{H77rTeMN4Q72N4ZD4$GFG3$GOM5C%7lNC%GrPr?{uOr@5!QXSip& zXSrv)Z<#9o_VaJ)FWsl~cu9}1vRF)yTP?PYN1^NpX-7;udSyqGSJBJZ<642ic#c+!E*Ns_e%E~_bT^l_geQl_h$Ec_ZIgC_eS?7_g42d_jdOV_cPiL zPnwmN&CA%)6>T@Y`$L}+v%Gv>m%Q;GKQ`!_=&7TZglGxNk@IDEKOERA3s!)AV-Jhj|V1uo9mI&>`KkzskLL)8wbRvKAa zbtg^M6G+XV3Y9$5o2TuP3bNdF%OIf15$Q^IxwJ`)_Kak`w6^yWA8OxZKrYquOsia% z{m7L^y;7CH1v0>$8l$UWLPnR8=WpuC+)`=ZB=Mp&nzK)=SKAkfD0$dj9te|4WNp+t znW3uMZ&g?DvMv!3&jnF!oG%Hv_QagDhRHDB(y}GXHB{p;CI=!?Vb#W3l+vNO(8GZMFpCVcOx;3h>d{7tk{y*1L)A^c z%#(b~TGB^y+cJEsoD21({zq%KFB`yEj%Zn;h^s-plH1jSNhG8_uU9}Xj?_?K9vS*w zTQ8O1Y9QTMi9Q~lrm^9sTN)eI>6f&uGxLN!JFQxE>cq2D+h08TbBVwY^FNYgO@vBP zO*ZArRQ;mluCy+T!wo9om7|&SGIL~;` z1kXgzB+q2e6wg%8G|zO;49`r@EYEDu9M4?OJkNa30?$IvBF|#a5>JU|sb`sIxo3rE zrDv6AwP%fIt!JHQy=Q}Gqi2(6vuBHEt7n^MyJv@Ir)QVvwn@K*sj`jCFiewe%v9Ud z;%2^VF*D4BV^(s{w0+X{PYYElo=QAVj-Rr4)M9F}?1>iBOJt8yM<8`Xv?H-f_HVW4 zlsj`Dm&?9u`>7pAZEsh|{!$EitD>@q>NKcc-!XKObk#fUx!^hPIp;a+IpfLrh2_+&k0f2QWPzd4;n}i9w2mp!ctb|REco(ePdjg0ZyRrGZ!2$0Zwqg8 zZ!_;>&m+%6&jZhW&pppw&mGTg&n?eQ&kfIY&o$3g&lS&Kv=9;aGmwuV0=1r(#nQFY z+0om{+u7U2+tu66+uf`Cm4*KiGD6p2?-1`$?=Ww%cerh z?Kc zXhBNrVr6I<%IINbX!&{S4pxQ+pQr6#WvKrxr+by5^j&W6D#sS@R_`|NcJB`FPH)C9 zq`?{>p9<6BSjjAQd-r(vdiQzvdk=UIdJlOGe_#zi2l*J*B-I12N#Ao$($O!N?-;W8 zuYSOg2o;P@Y`S4O;yvm;={?~+<~{B`%Hi`?7iZ>=DqH{ z;l1s>>%Hl{<-Oy*=e_TJ}~FA;cM+{<7??_Fet2=Iie3l^4B`BwYZ_}2Q?`PTb3_%`}B`8NBu__q4C`L_FRm_BQs^46Qa-SqIJhci9= z>HC$r$C-oPYE2CujC!B)_XoJ9Q_e1GFL-u?k~6ZgwmmHQ)Ug;ynh!`gh+(n=eKT+&Iqx7@Ql_uGkEjNU9 zUw>VO!7OKuX%9CZHmv7%>2QsuedFaWTE?D!x;1*DHBtkTrWT_t{8sb_-;)t-WH1b= zaQLWncqsY13`wW{9_wXjM*q6@n#!m=7ptD3tg2q6KqZFu`h_F9!1I=ow^Gp%k0!?f zO%4lMx;NDp;o>hplLx!8ZQ3{&xQM{to_*{!aeR{x1Hm z{%-#6{vQ6G{$BoINBOmj{MbYO)J?wb0FpZXqSm|@YUy~!vxELqN7#&E+-<=$qPp6~1L=O5wk?;q(O;2-E8-_8e8~mI6<^GX1$=CwwV_0Ldxmr7qB#SrA zooI6G@Eb>QdhQ(=x355&$x53BCDBU>M4rr(_N4gP$md>Ur{7oHd;a%Aa<^tGR@y_N0$Ee zJ95690RIhEYl!nbe|=Dm2S`QvuFs!Bom>1{{oDN8{X6_S{k#0~>vr`Ae%YZ;JE?yz z|0GGCcJsesvR?T7>HK0jvHkZ;9)HJle(Ce?yLq=?{t>G+wYW9rX=#;<^IMp^8~Tku zxpHxUd5?du|Db=L|EPbz|A7CH|FHjv|Cs-{|Fr*v|E&L{|CIlX|D6B4|FZvr|Em9@ z|C0ZT|C;~0|F-{z|BnBr|Cax*|DOMm|DpfB|AGIpzgeJVpjDuCpn0H0piQ7{phKWt zpnafYpi`i8pj)6vpi7`@pnITapjV)8pnsrupiiJ*U_fACU`SwSU{GLiU|66yFfuSI zFg!3KFgh?MFd;B8Fg7qQFg`FTFgY+iFfA}6FeNZGFf%YKFgGwSFgq|OFh8&$usE+p*c8|t*cR9x*cI3x*b&$n z*d5pt*c;dvI1o4(I21S>I1)G-I2Je_I1xA*I2AY@I1@Mb?xDvP; z7+`+-xyy^+^0uEIzVvXX?@#)Ertg1d%w)z|dVHqGbLJ7qJUZ#eE%S(`AM4Cipid+E zG;}pU3a(XAGPalA_$;nu>t}e3;cK;}^`wDxr}$NkT82C=*55FHW#(5SM5NvJ#|9YY zTP;;r+MEAWWt|MXDt)oC3mPPc_mGZASqb%2e5zYa1-10CfreGTUP}!It2%KcM}|=2 zzRJ}xPu=%x6*_6d<;F}e^$GS34h#+o_6zn84hRko4haqm76*q0hX+RlM+HX)M+e6Q z#|Os+#|9?^CkCekCkH15rv|45X9i~krw3;RX9wp5=LY8m=LZ)A7X}vvU(){}ede-N zl&vImnM^y!BxT4!8O6P!F9p)!3{yfA6Uu96|G5Y^j#vO zdigd5HwU)_w+6Qbw+D9wcLsL_cL(8Vwdb6;?O@Idfj@KEq@@JLX8J(BhZcI!74?OQVXOa4uY zzDI-dj~V}^qPd@OJo}uw3w-spAHTKCv_p+bbjCy>c6DR>6c%^rxC;F>IQ%3#c>3g}`W5jQ&GE3K#8re2WRiDR2+Y@$JvO5s*REb$hFgv{%8|F3zwup`kT=v8Tr(_j*i=o1n3q-) z)#*}hYwMQw=1UC-qblclPpc#1um8xw|E*-nB-=x{1 zaxGQ7P7NuL%nhjZqjK@NDybnos!BCf!KX>Gn7Fsjh%7>`b>C7erpj2V zIC-n1_E*(6L`H|CCz(Vt<2y&+csX{-kUxFlms0qa{VCmhN!QjJ@2sX>AJZAOblm^+I|{9upkchx&4{se zy;7~F(w5$k`IF;p8}6^a`HSSpvdOq)z?PRdj_R(ZY8{D>x-T1w+R~iw>zee_#p z+m`wfd0n+UHmWvB$5z8_{EKCsc+^bE!DJ;|oRX>F{E4 zyQfQ2^$kbytLf*4er`i2)(X;;p_{~0rYXatxB4^{I2Jq}JP|w@JQX}0JQF+{JQqA4 zyb!z?ycE0~lrPW9ujk|smt>~nYPK^n<3;(BOXbUn>@3S@l^^KJe0z*26GdnaNs zL0yigG^T8lJqUtBO1oWHm^-;lMm+C`j%Z#q(^$byrsm@5b>2-rSFSTmvODQp$)QSz7~{!oRw1URUbnw zZQ0G``o=O;@b%!0;LYIe;H}`D;N9SZ;Jx6(;QipE;NxJ6P|HxWP^(b$Q0q{eP}@+4 zP`gn3P{&ZGQ0GwBP?u1*Q1?)eP|r}WQ14Km&^I%GEt@TU;mp;hZ?G&Fg!5d>JGDa3tc`qFgwSrhxUa%ucMQ&?y zV3We`r8xU}#WiaA;^~SZGLScxXguWT-eaDl|GYCNw@YHZ(3Y zAv7^GIW#3SDKs-QEi^qeH8dkMD>OSaCp0%SFEl^2Aha;FD6}M05?UNu6P&7}^xt5ZV&j8rmM(5!x2oAKDq(7up@#6WSHp8#)j=7&;s} z5;_z*6FM3?7CIg}5jq(<6*?U{8#)&{AG#2_7`ha?9J&&^8rpBt|E=PsE85=EhBrMH zGWWQ=I5EazSqxuQZ*KmNijKF>@pbM|H^{q*_9gGhOr}jTEUqiF`}2d4>p>{EGL`QtL`>Dz&X7 zKeSapvheSpat)hpk~6ofB>!08KPy^FjZeM#lI8!f_ulbw99f=cBvX{3F9(tmB~iZB zJ;Joqmc27~M@dvSXC#qBLYkeMot*=L0*Mg_Kq!C&duR9Pz4zXG@4ffld+)vXp7-7_ zURJs)klnqvpZ#M1 zT^PRu3i7CDqd#XWL)9&gp-JuRyU$8hlcp;(8qvxl`MfHFmTV^2tCYXKNqm=7^>T+m z$3Uk*=RlW0*MRE>KX`hwr}upkxw}(^zTOa0UowRTtFp3-zsgB($XoRBSB}*iq!-Z1 zZ2ScuDVX^6Dt$=Ui2HLSdBfr4Cx6Gss=b?)m-p_+Zg;PcjQULlrT*5}86}VLi4;{j z))qzdF4Dg06aV8zTKk|+1D$6JFXS~ndPdU-E zUc_zc1fSzn8Q;+hqIf`uHtdTp6Y~!Eq)zmC@F(1T{$JvF!C&Hd;a}o-O7%5SgZ1UBP%iTNCS8NRJ?~!3^IoNT1$qbi1o{U01^NdD1O^5M z1qKI(1cnBN1%?Mk1V#o%1x5$P1jYu&1;z&^1SSS11ttfk1f~Y21*QjP1ZDv1l9)D1=a^P1U3dX1vUq^1hxjY z1-1uv1a<~?1$GDa1oj5@1@;FH1P%rc1r7&}1daxd1&#+!1WpD{1x^Rf1kMJ|1}31iJ>i1-l1(1bYU11$zhk1p5a21^WjF1P2BO1qTO* z1cwHP1&0Sm1V;u(1xE+R1jh!)1;+;`1SbY31t$lm1g8e41*ZpR1ZM_k1!o861m_0l z1?LAB1Q!Mu1s4aG1eXSv1(yd`1Xl)E1y={x1lI=F1=j~R1UCjZ1vdw`1h)pa1-A!x z1a}5^1$PJc1osB_1@{LJ1P=xe1rG<01dj%f1&;?$1WyJ}1y2Xh1kVP~1#&IDi-5H<3kfduZ#-~4e-TvDm_%= z)4$9Yy~`L1+r$w4v4dzbSMKMb{V$D4A^Kx=`u+g_e0@@vn}a;cIXOgstlUsL@plES z#iR#m`wU}Bi2hi!Q8IP+E%M3D)DZo#diIOC8BK1ch3Jpf|Lw)x(EcaJ^bq~A`VYz6 zSdVguP9-pAgy@eobCRj^Q7wn)I1FQEi2hisaWd7o&(xweW`*dFHFJ}x+bahT^&|(g zL-fbGc`x8#6*-t2qCeK9_{G1HQ~J<7ax*VPf2{nYcH&QISJEA((^`!AA^KzWf@E&& zQI5mZxqN3qXklncXi;csXmMy+XnANwXmx01XjN!UXl-a+XnklyXk%zoXme;wXlrO& zXnSZ!XlH0wXm@B&Xm4m=Xn*KH=pE-zTgi54dFAxpdD{aBa4cDX9dofqXm!9V&Qqa| zhh8}zathd!!lXV?pP72h2g&{jO?Vn7LiESVMaf<8K_%RcJ<@?DnNNn!h0cdAgf50I zg)WCqg-(aggwBSpgpyjYzciMFf4&sAvfz=^bYx{Rudjwmuws9kYTx~t1KxAckAA6C z;9BT*=z8d8=vL@P=uYTv=w9f4=t1aV=uzl#=t<~l=vgShKN721Dts#%7{EXOCih`2GW#f$Y`e$K4+I_Wcl+5UKhf*rsZwaQ>R_%8(Qbh zrVj80<7eD~qwQizQV056)4pxwys>S5rI{Jym>1as`Ped2cmK`+kz&(4}Wd_BV8UN z5$83YA(tK%4FFM(D%Ce|zgyL%gC-n$eC`Ad4CTNFnUhT%em-we9>9B>x0;7rgj~!Mw&b|>l=7L;G7iWL{5#lWbc=>;P4}k;mp+;_7UAj>Ai7!LVHfr+L)s#6g zwaH^OG-gBPw+Uqk+H9&IFSCdi15n1a+36rsAxf$XK2ZtZ9xG?ppCnji#(9i#Y z&T-dUg=OH_@51c->P@og$*Eq@68J@Nf`i>@wa`|oGbqaFkH+L_X$$W|Bxk}=c9p%B z_!A_002+hBK1f{7xc1`=txrAWSk^vH@jcg7WrvEVU+IMMY~G@Y9)%Bhm&4;@v|SK+ z8=t2pE&7z0tgT5mz9B8tmWOeiYbT+NhhVxd1Vaov1eBDN9K3B8B~uYC{K0;6)=}(S zlQ};rp(DX@s1~NMC=T_u4j2=pSqwhwp=NwzD#}2OY0W&XIO4@T&9Kr%R|Qz=LT`g2 z`k>j`;f!i{T87Y!mVBhn@CEoyJG}ZqX&W?5Vc}&n%csAjRGkJmKu6C(#d6d0X%Q5k z2u2S?Uu1GMp&yNXp>y4NO_I|xo%R~n+cgzp2Xvl(q2dGYtg%(6zU;GxAy)P{ht~d3 z2Ei1oqi&)^+UXG=o!isF?4fPryE`GE;g}?dD zqJ>zwg(Se&Jp97d-}dPJ;-Xn(&&Tm{oj}9ha&S==r+^$|h^VZdS=2Z`b*?W$dnCv) zG9O8CNo9p{kNYzd+6FH{wx;iGUnF0@NVb0FDem;O?i2%MH@;jg51BxZRU^B^53;Aw z@xJv`^&n34kl0cGLs=^REiN61pvys{yn^gM=H=R%-*$u|EH|`Y4iXUZU1C>PE>v4% zrh#7$yn~|u{Xinx#h=54xJU5lrGipG*&5GD%N4CB<(E@oqau1uy&HebcXzI5uQVpGuE>Yx7n=O6IhY41S22`J|ePFjjf z>>o)L1c%D$y3}v1WtqHJCQVFbVlzwDqotx$S2$V$TzAmAPkI$oi^02cg?xR5ntr_C zvs9|&Ow>sff5G)?rvB(Fmh#H0t6tt%c6@k3cw%@`cyf43cxrfBczSq7cxHH3 zcy@SBcy4%Jcz$?6IE9s_(#34Do=6rm$!b1X&LU?s$l)umZY;a%hW*4|uL>VI{Ep^YyD|C=`$+WG=qa)Y6rPyas}41ZCBp}j9c|2J$fC}VM$ z{KWLzlFKi(Xc|?urhVN$2)6?b@r4ke6M6 zxl_<6O1%i(9i#pa)xsEWh{dvL+hOiC@GBXeXYoV7r?|E*NKaK&mxPywmxY&ySAG;gjK0;nU$W;j`g$;q&1O;fvu* z;mhGG;j7_m;p^cW;hW)G;oIRm;k)5`;rrnS;fLWz;m6@8;iute;pUMRk(QBGk=Btm zk+zX`k@k`QB{$(`{&)T4{!X~g6F2ER=%{@Bs~Nam7Hb&hWrz?%i!Tukl; zN9d28{J+WEm3O-1#cMpcaPvO79TK5GcGlb|$??ZO{p(Mi+Z-x&tFJPKMf~GT710W| z`?bCSo}Ye^M?F%E5OI^w>Q(5SE@@+H>YB=`)sJ5q8W|QD9vKmdUvL;(Bn@didaR8P zZ+BOvI#l`pH;^3@_+M34y!t+n^B?^c`GT8Djj6LwYfyP{Cbma5Mn>q5pSESvr^Wu0 zy3FpTC2IPaIbk2ZZFcfi*n4R<6OZ)nj|n^Zp$SGZ=^D&@Q_+CS&C zAKyBVchib%(`J<=9WmxB4<(#b@{*_5K!@hB|NKDqk!`*O%Yk}-`nhku4-P8OrgDyx zYkVITu)X8d58sMqIgHJ>GCAx!Espk{@U2Jw*l}cA$< zixSe!mn1KcFMR9w6Q#9p(YZgZeJSZXV#c4A?i0~`X<5;8BHEvssGcn4TUzePQofXZ z@l4@clB85bEJnGl&6nG~5EnG%^AnHDL*imUHd zNvm()YSJf*RjD3T%J?$RpLBwlFB|>ohbj3oSqTy2&u!k*ihQ~4f5u@;zAWl52fj?| zD+j*sFvH)c=VWJk&g}B#C0ol;|M?amzW6~~J*&LptDj1UabLFmpAnzFT;q!@UoyVf znNz-mvSZKjcJZZ^t>uVg-&;c7F~;-={c&MyowTs&HvW@~)Z(2Hp+DAclTB6B12BJ(2)A`2snA|$YX&LIJZpj}dr z;vsnUk+~$|t*PFsU)10e8jz*Acba9Te(Fc@eJ^veKT2KZbC9CjKK1BxTAqOTLYyx5 zDZcqN?OBvT!+wpTIXN^5j&@XBUzJ%LSrSxYCK;1 zq>snn5g6*FQoVdFyLYJ!(liNm3uySBr_8u_O-A%PK{}>oR8Y&OFd7dTe-1R_2IeF7fPQmeX;bV(w9qLEq$f*wbIv1-za^v^sUmj zOW!GdxAeWz_e(!0{jl`f$hye-$cD(q$fn5V$d<^~$hOG#$d1U)$garl$ezgF$iB#j zC3|7tiap!m@`%0OL!R%2cl*d&&MO^Ch|HCgt&Lu#`uHN|Gn$E@kq1fCc#fet03M_* z%*&^q7JXxF4X@I1OR0T*p4?V{x-Vs_|5G&fPW77AKlwx^QL%EG$HuMS5}MTNwWzsF zqvZ`L*)cC$klnCR;XA6-{>Xs{pj5vqs*};#FuNEq4KY<${oCv&^6p~x5VI$ny$rLr zHVv4446`r)?qeAJ#O%-J0K*(ek^GW5h-rXoFkh=7;80>|a~RVA)o{L6Bfyd1C~!15 z1{@2HBfe~oXBwcIz}IRbI0>B0G^a2PP)&t=8aN%C!8B(w4N%R3d^R`-oD0rln)8{) z0&pR?h^ZEXOTeYzGH^M#0$fRa#azWSRx{Naa4qpwwT}3jS`TgjH-ekM&EOVd8FMSs z*amKAsvY1?a2K(xxtoc*lvR89TJ0s4Gxssoe((Tz5Ih7P29JP8!DHZY@C0}gJVh+8 zP7^DbXP5@4&hoW72c8EnfEU3_;AN(Hg=v85D&*I|>);LWCU^_HO{}Qy5DoJ#)3^uT zhvWgSAA*k{d5r5PxPFRj(0qn#&}>dCNelxtTky5n5|UP6Yp@O2mT9)bb$hS_Bpq?x z3G57ZfxIiOyMf)o9+3CMbuX|tBzcOj%J!;a6J|r2g!I`PXH%^lOUfAP64MvJ`J1>$qZc21ZP1q z8`pEdxsc4mHE7Pq^#Tyr=0aRA0vCfzz@^|arnwx~pt%CqpjrvrRgkO(*MMumbxd&3duHbJGcY#owx?oE=YERdmsnZUP$(V`@sXS1=T^mR)@gDuss6X zqu?<}j^p|ScoLFRxIPV@f#fW%&w=N`3*bejc?s8`x(vw`NI-QJl53EF>N+GhAOY1) zNNz!L8@vPF1@D3PndSprgX$q9k01fnV@RGr0;;EwJcFb;Pw5&hz?NVuur;!pdT!X3$BwZl^RX0ewLjtNEko1HERJ|bS4M`ucFW3+A{iz(5x5v!0xkuYfy==a;7V{6xEfpot_9bD>%k4+MsO3j8QcPH1-F6Q z!5!dEa2L26+ym|f_ksJt1K>gM5O^3o0v-jAfycoU;7RZlcp5wdo(0c==fMl$Meq`M z8N32s1+RhE!5iRB@D_L*yaV0^?}7Kh2jD~S5%?H<0zL(wfz4myT+{+=3AO@TgKfaJ z#7e3i*dFWvb_6?toxv_(SFjt{9qd62m_31N(ymz=2FP2pmidnnRez zP;eMH92^0T1V@3R!7<=ia2z=d==!YAqUkO$k#%?4suYfhkOI% z8zBePCdfB~TfnVMa~snD)pp2tK)w@lQ0;@xB z2i0T9pMXzc`wX_AYF?T{(t>HWWE!Aq1$k?*4cHcJ2et=0fE~e3U}vxk*cI#sc4wMB zm5Z@N*(K37ia00jGk~ z!0F%&a3(m5SlOJ-G(d9>u0eAyuIGXC!3E$#a1pqesg{6C!DZlba0R#$Tm`NM*MMum zb>Mn%1GtfBnwyvgXl};!7H})Ljj6VSJHVabE^s%v2iyzp1NVamz=Pl+@Gy9USj9Zb zG>(DC!4ph%5s#P$ z@D6wvya(O~AAk?RN8n?odICNLpMlM3IYCv`0&EGk0$YP^z_!HK&2~(qJ=g*42zCNF zKfG>q=4;gj>x{?s1aKla37ia00jGk~!0F%&a3(kloXu2oz`5W&a6Y(z z_@=p#sTP5Y!6n4E%%x0Y8B;9>R}kM;E5TL7>gH;uv4%-U%re&z-!a!SjSb*NrrHE< z2DgA)iSL@*n8tQ+2e=d51@305J>XvAd*(i-u^&9ZR0qLB#P`j^OydZ66g&nV2Tw57 zN$?c$1M@V~I0K#q&w=Ne>H>I?_@Q};XH+a%^C8oC#8i*LC*V`!Pt9jcqd9$L`ctC?Q?&$J5r1a3W*Tjnsx8=# z_*Z6orqO|^I)a^upO~GQMi;OvQ*{Ho6I0C|Ors~*3+xT{VXD4hKjL4T{h7u9a3DAc z9L!Whz@gwU;?K?DOk)H%5*!7N2FHM7nQ9z3p7^ObfoV(xCxMf}DNHpLoJRc2oX#|6 zfHRqD7C4*u3pEFvOZ=spNBosJpJ^<>^+H@P!u4Ws2_#E#y$sjOalHau3CSvOH6&|r zy%yK&aJ?Sa8*sf5*PC#?8P{8Iy%pTXRNKKF;7)KCxEtI9?gjUO`@sX?L6E;g{*^im z9s!Sn$H3#@3GgI%3Oo&-0ndWx!1Le*@FI8#ybN9euY%XW>);LWCU^_H4c-Co5`S&p zV;c9t2jD~S5%?H<0zL(wfz4lKS1rJnU@NdS(`gB-3#{1Dpwoe$rWx%x0=N;9PJXI3HX9E(8~Wi@_z} zQg9i#99#je1XqEp!8PDoa2>cF+yHI_H-VeME#Ovg8@QeL8*>NK*a_|ecSF7h*L%Tz z;C{#t;QAnV2s{k=5nO}nC||2%;BoK-coICtG*9FD40ski2c9SX*1W(pE`pc9%itC8 zDtHaN4&DH7g15li;2oyAORQnuV;Z2k&)4b!_z<>_U<<0pkUW6|R8Jv!1_`K|({2~wK-C)ZHeg$@9oQc10Cr@WotOrwIz!S05>R#JYt;?x4)$Q0J(&imdO_YB z>;v1rumx2=$oqo>z=2G25YqtFV91AnL&0H8b2!rg)du@ zlfcQ~6mTjy4V(_n0B3@;z}es&a4t9xoDVJl7c$L7OaoMlAzuP61($)#!4=?2a22>3 zTm!BJ*MaN74d6y_6Sx`N0&WGjf!o0y;7+Ewi-|m3!{9tz!{9tz!{9tz!{9tz!{9tz z!{9tz!{9tz!{9tz!{9tz!{9tz!{9tzL+ysod%(TmK5#$Cd!y7)2f;(&Vekle6g&nV zC;rYn!8Aa1lCRY%@HBXaX`W>opgITndGG>w5xfLmW|~)+##Qhdbi2 z!gXh`3nX1}-3{yxNe^821bczKA@76hzFtM}Q-l zY7{t{_w#CU7(Hb8`#R;2!Je##UT! z1Gj@az@6YOa5uOI+zajl_k#z(gWw_XFn9z!3LXQGgD1d~Omzx8P5eTg0ndWx!1Kf} z%?nK9B6tbB3|?WXtKcwq+Xa!1iDVup?7-0y`6Ht1e(yup8JN>;d)! zdx3nEbZy1QDc4qfN^))059|-pS;!=zV~vS)TCw^&MQ0JKzgKkRu=?7hvxU{y2B_#D zVfD45Gl7Y8zAtekI0_sMjseGlOxS{I z7UZ+RIpAETIgg2Y^=pIc)vpb%SHCv6Uj16lhvousA-D)!3@#ylqn3ipKsvUUBz!*Z zH)!41qV{n~Z$KX1-j=^15bLUq;3jZ0 zxCPt_ZUeUy|3U2_)-!i94N&dkYsCjc)>C`Hy&#`vSWoQ-4}iS)VLkH@(*V_B$d7Lw*Ci3EpCw zx0wd0?m&JQya(O~A27{_OaoMpAb$)#0iQC>XG{ZB&1oaNda4E35^M#wW}0o72B_LX z-VSUJb^tpv%}z`MRGlI30(J$vG0pBw15|WyB;B_s*bD5f2FEbXu}lM0;~*aoP5>t|%}GoHRFff}0!{^| zG0o{r15`60p9#(aXEV(?OaoMNA)g1%2Ny8Sg-iofiy&VNE&-Q<%fRK}3UDRUT*bs& zsh+`arFsUxmFgM%R-*C(@>{8%!EdE{2EUc+8T?kNXYgC8p22UWdIrCh>KXi2qLKpg zTdAJ08vd^V*MjT7^-Q$^+z4(0H-lTit>89rJGcYf3GM=SgL}Ze;689acmO;I9s&=8 zyrpA3brd`X9tTf=C&5$TY48kq7CZ-@2QPpZ!Asy}@CvcMd6j8^>Kb3G>mVODSzp}* zZ!yi=OaoMRAioRVgYA9Tg6aX}4CIeP?iM;X9)zuG!D;3~pt8XKpL}!biP-^!4cp{a1=Ni90QIe{-YX4{LgAUI02jpP68)`Q^2X< zG;lgN1DpxY0%wDBz`5W&;yzL+xrU9xAkZ%Mxft#7;7N!BJt&nd6x5IV^YK5d;!8_nx@E+5=&on^w0P=_6Bk(c!1bhlU1Dn$^ zEB~xoFwK@s15~XbZw;d)!dx5=~W*?>j zs=ko-1N(ymz=7Z(a4^g;@keyM9^3$K1UG@3!7boca2vQC+yU+c zcY(XXJ>Xt&AGjYp03HMnfrr5(;8E}xcpN+do&-;Ur@=GeS@0Zq9=rfv1TTS?!7JcZ z@EUj>Xg1)qVm)Z$FUF>fs4T<;8JiIxEx#ot^`+stHCwkT5uh>9^3$K1UG@3!7boc za2vQC+yU+ccY(XXJ>Xt&AGjYp03HMnfrr5(;8E}xcpN+do&-;Ur@=GeS@0Zq9=rfv z1nCqPilxio74Rx}4ZIHC0B?e~z}w&*@Gf`{ybnGAAA*m-$KVt2DfkR*9^|{X09%5s zz}8?Jur1gQY!7w-JA$3S&R`d?E7%R}4)y?hg1x}rU>~qA*bnRv4gd#&gTTSy5O63s z3>*%Q07rtOz|r6sa4a|u91l(aCxVl}$>0=lDmV?C4$c5)g0sNc;2dx+I1ii;E&vyT zi@?R;5^yQF3|tPb09S&mz}4Uya4onFTn}ylH-ei$I+lmhaSON=+y-t3cYr&=UEpqT z54acH2ks{}PzQ(^>L7RsJWR|~M~G2%l$fQC5gV%G#761_Fpia?sjyg?j ztj-W~)miWyF;AT*=Bo?DAJs)-fq98(fa)?|t1IAD@EX&+&NM)E1M-{TE$}weyu&m= zbrAq)sD{pG>C|Og3N90ICzBM&?e!r>N z3!1%|st?!~><9KI7MlaWflLEbgZNqv28Y0QC~QGB4D#XN2yi4g3LMQe$1n|0jfH$1 zI3Aq9H2E}=Vw_1*toW3XVl^4$<3NfPAMjDE_{ff8#fNYdD?VGJSn;tL#fneEC{}#L zMX{O#^63@DiqE4cR(!%lv04Bw1Q&seiKWyMa4EP9Tn?@PSAwg+)!-U%Ew~O`4{iWA zf}6n2;1+NzxDDJ+Y^HV)|7h-H8oR*V;2v-yaC<>Z-KYLJK$aL9(W&o06qjC zfser_;8XA!*qrtq{BK4JuqD_EYz?*n+k)-D_FxCFBiIS-40Zv#g5ALGU=Oe-*bD3p z_5u5XbSeaegid@Q(t!&^Iyiwi2pr5*ye<8|n?sq#FmO0H0vrjB0!M>mz_H*sa6C8x zoCxwRsQ+$E25D1tx}M5Z(}@3F(I(}ztsU+BO`FusBsMn`ZR^d(Y;DZZ25n8v8@$aU zqotwdYh!^n7HVUWHh8B;QlX6;*;uNLW!hM-jTPEhsf|_ISWQMNL#-i$_6u1{MjJz| z)5dx-Xm^hd+SsU#P1@M3jV;>Ps*P>h*iJ?}!`z{boiGfpxY`*8uZbsvhjYl-rR{cW zV-F0qR~!4tXm6mF!*nApR&%|sV(e7G^*;33_Vzw5ujhJo4Y$s-WF*}IaQOr(ac4o6n#Ox}+yNTJI zO$uKRHhV_QULx-;W*;&8irG)h{$dUgbD)^CRU<#2Nn0=CIcXb3n6yU>%wb{<7juM| zw5=cPM~OLF%rRn)6?2@J6?n;QIHDkkkhgWt5t49pc`t`u_>o3v5P8Zp<3 zxlYXWVr~#~qnMk-+$`o6F}I4jjZMmT+u5Xa-l0uJ+oR9m?ypNRQX?4OC* zJO$w}T8PJv4q|o`vy+&e#q1(xS24SZ*?3AhG5d+xpUnX&YM_{d#2hT<5HW{}IZVvqVvZ1Vq?n_`94+P;F~^EIPR#LQP7rgV zn3KeuEant3r?NRM#hk89V}_VB#hfMPY%%AEIakbiV$K(HftU-$TqNdVF_(zBRGa29 zZK~yBt`Kvjn5)EGE#?|A*NVAL%=Kb!5ObrLo5b8K<`yxxin&e9?PBf_bElZQ#M~|B z9x?ZdxlhdfVjd9lpqPimJS^rBF^`IQOw8kAo)Gh-n5V=%E#?_9&x(0Y%=2Pi5c8s# zm&Cj*<`proig``U>tfyz^QM@$#Jnx$9Wn2Uc`t?Pnfoc`gB0v}WIkl`QHuFEMLkJ* znqodn;cq*eSLQG1S`dGwT2>~FR+Y`x^sBbnhN;?u?ZEb62e2d93G57Z0lO0aPIUvj z6TekGh;>y@uou{y_z$WN*ca?a{9g4Z{%17+90(2q2ZKYvq2Ms$KdIs12yi4gidd{h zgJX!L%&|;04jd0o04G*flPXWHY)-+isl;Y#8aN%C0nP+x5vgrDTN`u8poZsMZOqfg zd~Gby#zJi@B7<6-i?y+Y3~J>q)y6V1sMWPx8!IZWtXwUFPE<C+xJw zW^k!##V*gZQ1290*{NMCw@Ef_1ODX(>EUV$wwzkCN1!9}`or#u zQkUo7(jMnuG|qfZ5Lk=y_cz%w+Mh8)2RQlDQP#mRZ2H6{c>SxSQGsWo5PY4Nk)DI& zo9w6jX;N4EX!kFpbljtk>t7~UTK44z!a$gwNxjBn^)z;K?%!LLg6TrEBsKK${Q8dcLYvVSh!t;p4dySAJYfE!9NT zuG2nwxYCNT>o4jq+{{&{=nU+w^R(11EFU=|(_87M@phwpzFeNWV)9qw4oz3A`!(%b zr*aMHdi}Y|9G6cia+REctVie9(fNyLXgJyuh=7>mMb5rk9{lVD^ex>N@w+DCB!+t? z&yJo9mRwQZGFAv&tq)h6Sk-|4#_@>etmBAdZq2yrHE$ZnGq)>v3AN;TTv^(yh!DCS zz^h>guEYj~+|2dDc0DBJ57+Be?!(VdR;yfZGM7U;0I3r3q;FRpj{W;xg(L2V^#)Ik zN8P*5>=oDJki=D7EeJIv0I`}+^6_Wk(h}eF0R8b zy+jY^Qh37|L7oiprqeDS1`a8EoyetS=en)SrKGE?XW@u+v3~KI>dSi3{GTTbXZ$f8 zxk_pWSEb_)p55CJ-NZ>6_gs=R`2&kWvIkC-apLcX)bHsyX+EQq>v<{)u8b28cb$B; zPS|IYn6)&L6il&pRWm-{9q*CEQDWW1dV9L68lQLZ(&cJbCsva ziyoI4bS)B>ZLT>SksH@`^;-NvwTo-qMdEB6FR=Da62C*N{ABATt_Cd+UE>|PJJk8v9i(MzLbq#mANS|4Dj256J!EQw+%E(2yJ*@|v5T z^T}^M`xX7q$o%Zn=&v%3yb}Eg4@z~u<-1&LAD3^`$j4$al1T>gS z)y_33+m^1KOLRG{7i~&05sTQ(uvpF9Op(UNs`w^p#h>S8Hmjh!w$`a9<@L|n`oQ+G z4$BHwtZKKV(uxB*b>vP_s*KC$6#QThXjJC&yE3Cbt;(6`NBiV2(D%HFeX?dTgH)ud- z&68zC?cTnr{%zm%4LhgfE#Hh^5mb0<7Bq~#|9&i*^SfwX?(a%a`WQ<2LNPawM!HK<)Bff8(#Ut? zpq+Q**Q;qk!^ zNHQOM8Xh0)=S${;PotdGawQkB_zxbd4eAGX+6VO`IYlow#3Vx*Iy*Zjo7(KrZ(fVh zfiqNT(N$qVdJ`IPkA73Zx}p{^sk}sI#(eV{LI12^O+I{uqh!iiKY3yz{^Ot08|ReC zl39wh;tKX9SHP95pVkO?P*;r3ph`+6u+Wd?w=iqw=9Z>b&DXgvH>%4{~p^n*#GiKQDBM5DPcH>2Z!@|wQXfX?E1r7=~LxrOO3Wi(6A zElo#m7e*^(6vYbj8rMS};|Ypac#?$DqFlZbQE6R^rxtVqI=w(?}e%Gbr$}Poj z(i>)HSQdymQTm6X>}X*M|DbnsjOSZojc9NcEwW%;zDo{G{S?wYF^p5DpePs8#+edf zew}jpd>D>smF03E*X4Cg%CB;4V}-ebwz7U!p(Ar}Vot5%j41kYG7}WitqRwRn%>Zq z3NKR~O-2Ym^n15X0W~1$MNrWpp-1+9-2Y=Lfb)0^=$An8~QZMQvo ziezi`pvAT}HK2-ONgZRR$F{A2-yB|)tIFTz7^d>)$eLLH<{Q zy`u?J!5s$y`=>mARiC6*aUmCi%!;-Rd@Wl)uQ9iZIEKSDJxRpEiZ$)V68|nE;i6_< zC2p916D>@qxv_L4QM?E4l$LY;sO0?dclGOh>k@qNd7XL{><4E*U->+T8dbG3>6A$X zSn>-pMkK9R9@r@@lU7Vw849oQF{HQ(x+h@R=j!&mL-%2Ml2;c3oucnQPl4-!=PGf{ z8l=H{kLM|V5qp;IthQ_wBu{$B9&^cvDVvU76&J{qH9R;xHayP#R+ zqTGb?fPN_WUI&$46`zE%CTHp@j)2e-ff%JxO-k(Axvzhlm&naG^j>=-u@wq!P&;ze z#<9xvvm4V(#Ai{ZZcb5QQOqZgy`wEWiQ)9}9qnZa8e#2iJ(@0z(gF867Ak2W#Y?&t zNN8E`MT0!VltaYjh%cO9b4!f+meHKN{3ySFow}b#GaCKkvkJ8{ox*_o=O3cQVYfuPs;b|^wRs4kNqP>~ z9&#RGSldwYHp(X#@US@4t%8=G5`V}6%yjDV4h-QjE{2r>q z=j)-F6cLr&Os6kYZW7Cr+_kEu?+Z_gcEO{!WJgnn`V8+XmIJRvNbA?h{W3fDgD6KV zWta2=+h-cna9KGb@4W>6)%uaDzO=mftrO|gY(!ObovgUd#|ivN%gg&Jy}+yaZUW8E zqm*=+anCASLB}gM##Kf%^Pi%HW#x^`S-gBvuH#oFc|F9_IarkI6;*Uhv9S*UQlXZe zo`Z<8qzu3I>ooW`8aArHm$*G%_HXe|dz8rGPB&iITG|Db`PyARp;MmaJSK@>RQ-Qm zl$|3b!5U4|jhb5pj|9h}ik7?2zrs z6y;i%ukgip1v#&25naXW71pdkeFj;2#6QbgKS+<#!|^Kx$IWLK7I7Qf4(scQ#T@1& zR(zWzR_tvhr-!V|>CPwJ%dJ^d(J7#ia=JTIIP5yVNpT8be3jnr@d3o3B}vPxM{l@- zCefHfltx1=v7&-zufL!56^)p1Thg2Ls=S|-mY2vPV!LtV<~MC=g2M8KRy-e zG9?f9mfNw{ng%nhXVAX;Dl8g`(2tVb-t7bR1f5kUJ)6_L$Ci4J+E%}@=w_B@3EL@g z&l1{JMvs-duy`@Yle4PyUX$85dYM+wlTwgJd87^D=wni9u!ZN%t^1S#mm}0Ua%;PP zDeh%(*6tK>e@w<JSflNdqvl4nWS8Iqf$NebnPIyCW)k;E`nB98TGeD@S2qfh*yJWYI-EOFmS zy!Cf-;$?U8o@>S20OSLRVKzB=2n)x6#~Em1$~(72kXQo$s!K>=~RC@J;p6l6LClpM8Vdf3(> zm2%{eAjf&%(vsu6VkEnx#mCu6lHDVf%*YKr-HMb%cel_mTxvDAWVqD&i9uFrgGsF` zzsPSIeswgyr1Ex(5IvTFTRM`r#T7{;J)G?yyLF}`#nCk4){_+}9DG zR7O36GvpnODv`&_cTrtR}YDxRw0F0`j@LE zM>jMbK_j31K}LXuSXs|QG%R_wb{&`>Rn`5(Z)l?F+q}Y>Ih@I8n2&~IL-pvA9deky zO3%)rQ6I|bGzwqfykWU~zRf?T7w{(*!OUnrEuTOR7g70WE_HLF-$t9VKeW)m@$2i) z>zBz#F!?^O^1b<@9F5duXY#NH{g4XFdCPZ8&NaMT;BWO5vtF>`ZsGp!`K~{M>(~#v z9a}s11)TiC<%A;j1>97#LqbKyQ7rfgehv@ma~H>~lEY8G13l57C$r!sdHuG_(p^;f z*7{jWy0zbpUXzgU?tbOUt^n{4y~sl^AfOwQh;xhkd2Kzt7$o7%Y^8Vj(owNVNs=mz zpYvyk;wC>tn>lWTO3<&XvjppMz})GZ#7R|80QjeVPQ75EaozM-jMm>|dhc#4>JT<) zM&AXJkb82;b#)5F?D;TPzID{?{OF(P>}o3~cp^I(Tz~ss9Cjv+$_wTDADjgyp@U!I zzPa{G$Z{k1Pw0pv(*HK&`|Av26;zI!lJu<9ORo0{`M_1J%-UPO^eabx{lxyIb627_ z7YFWLucE)qevm-LUtFYh&iB`MB#(4pbR1ZHiIQ`>bi!<3JXwOqc%)B~FcEC$iKE!D zJjQMtzGXL^Y~knGx#xJ}l>y z4fq_(ItHISCY>pt1xLE{_}z9gvMQAazjY*RQqj0quJbax-}!al)+I!*%u8Tj9rpH$ zG`%v}akHTKi6IhQ-#qvJ4&8+Jci1PszeB-lL+M73#DK1Enk0__m$t4SWAV>6ol)gd ztRl}!nVPP+5hnNh6tPso{d_K@`b>CFpK>+VeXS;;-1}EAc5ja>{k~89%=-Qw2l_3Y z=UivvjHiTd-f)Fmen_x&)%@Hjb36KLJZnjzcI&@x{Y1N5H@fBi+N&SjbAMI=&@0ni z`ai|38|wT|!;&Sarb0EhsIlCg;)d28YL^Lo*2RU?IYT{1S7%kydQp7_@ zTGF@DC4@s~$;S1Y#R{YBtbkTkCJnUC4vneqw(?14{i6K*oMt7s(NUhMzbTJCUthm& zbKP}Qf(Vqid{N`ii*kP8h#{R!uG33;TKxbNL6#$)dqpcS`9sGOwtitzR#r6gyTanU z5}x-r$Ok$FI9TZ(qZK2148)xfZe3k?S@(;) zXjWE9s#3xdWjeQ?y52=&S>iX1)*R(fKe8n6b)JYdqJ@}vi9}=Bu@`aoYviT$oV?sW z=KTq`)6O#Ta+{{}E9*t?rb`r+Zu+!8FE=Z@;fn;(dJ{{w)olTto+VbZlCyO$t6{R7 z?d-~wn5DJi2UZ=NBrj_%z2dusOsv)3k%F9{f|I~&jf7Q|Xjnrq^fMOF;~J76km%O1 zLn0%LB5^dh+!l_Okkv@kG3aWzNMl<(qk4d@9L*Q$I=HN@YCZmdXs)|d+AEKFWKga%kkLL+Jp%1KbbMp$n$!OU|CKFu@2|*GO--_mBtl(TJal&#ne{FwI+_ZxI&@s=U=6T#m*%xm&@z35WuwJ z@>!Idc(q?zam}LQvW0o^YfK-;pPr_6bVSSAbzO+#)-?R>h*+&7L!{0}3*(1W8MK%N z&-;dB;)zxi@(`y@0W7!+f-*)3O^!!wqTp*}HPUY?%M| z6>STAI#H=%ep)nENbeI_+#6_^{}pdS)1*mbS%wvAn9sk&{wtcx$t!r7?iGz@mZRj; z>qznnngyIsj4*!S2{=D!eO<%-(N3cGJz5m|ex($NNj4nY+q@}a8fBwzBq%7(f&N$} zvE?cl0kQ<#G}bBn4Lz%9*$D!xs^418AKQY~mr&^5bVV%|k7CkF*Vh%O0nS=deafVV zFK%9I{Da&V<V>gB?yPKa1z+yCi?3Wo~6dm6zK6!S4gYI#okBPbrCzD zJj4+qk*X7fcO<g@w>PmPQ26wk6pU0T_Lr-*GhW63eQFpxAE$c zeSxqdMKb@eBDkU>B3Vu&&=TSNOI8HL!wD~fly4nXHs>re_pAI@(Mh02Z5iEOWA_!@ zArI@9l3Q3t3t3&if#q}lS0w5yVWLic@NnwO6!Q(ExfRg3iMIn&^yH)c%GWKT6lqgQ zC4p~t=!HnyG<#?(%e(kh9hS7>O5Qi_YY^~jmcqqf3}lv*R~cptE9$$)=M@gd?+r*#3|KPu#HPao8p4|172}}LgA26=YiT7dO4*-97(tZ-+R=$iqX7p z{G0ANx>+m^5sWwF`4es7CqwKB{kHa^5Wnm^qNh3HrPtam#iysg06;0#WzO0_#HZBPKp=Qrd3t7etbb)$E*owQG4e?$A?~V3rcG$!;Tnw z*PhVuC~<9yc=>5!6`r-B4>+t!7pfnXsA|9Jk^~J3T&uw|nty_sz)#4n9(8!tR-xa)*WcW!yPQ;HQ+{1U8NdGJFIFAKtVTA#~s89gl6zj2~%t z3VAKTy(8-2{ySP;k)KZ={zfyuEzF?qBo~v{J>EEaMUE(dd;TPnvV@Kv-&5M*wgv{` zv29yL5^h&nSxbFoGKJ(E@!BGu+V7CqF7b)V=ZB=>=`JTylg_%QxJtdF!{o6mCzUzk zAS^#zd4oQc#SWV+q{xZ~IwEp+B7P*&I<&nkTJz~Sj`vD!?jPY+?}*;_1zGl!Tg?M# zNEcT0v`D&#IzV=i9Z3wKN%wvwm$b+tC!+&tshJBOa{qHQn9{Bv^N!fQ&tW_B9#`tIzu$MY@Oc^!j@VMFr8jN zAiV>h{0+?Y$h*Vt9>LA)+|aURwD^k0;!$$x!SsESZ*wX`cP04$rqj;1E$K(eY`=`s z7Qwt}!;eK&)nvY(ASgc1-qV>dnU{E$Fl;G1JNHqo?h*PT@NJI*KCy7Tuc#c`G3D`G zswj^SP!ISXfd(ZT#&?9}at%Eil(ePpQeE9?mFONRJ_UGbAMJz+g|68c#Zp>M8swp8L?$xVH7?kihDO2Amq@tgZXB;&4>9;bIIzD-?y zd?t;jrs+%1)4%Svb=JY;)ZIPyIIZTjcRGGAt=RQu#Mqa|gEwjCI{Q1)n8)`0WVX)R zP#9O?3}*VrZMJp zx~XmZHEn!Qgss1*sZ3FVyHFy0mrpIB&*_WhOwWBOV16CvJsh5VokyErJ;xJU$LYyC z{P^?u%Los$N6(r?G*5+T5U;Z!StxuPvS`*j~+Gi z5y8Uc{}WA?kRHcP&?zmEU!WrNRT`_Wdfy+30NL6E5YVz~M1C%s?5p*oyVjFgShrBVi%C#V=?J725x*Hr zjvss%?MX@*V)00^(Lz$sBrr+saUV|}mHT+4^bt61n81ZkdloGqxBMV38Bfam=((FS z(WEg_f`)u-4qtVxAu}im>Kd|1a5qjY8PE6KhwZ}dfmVGJ&*-Zb*2&_eeKV1Moh+$0 z-%V`mtU*7fpzE615m)hjL!Hs{EBVQf{*YH#f@K5GDUZd0dLeHd`qdqw@kJebsMqAj(4*iO)fKlhPzjyA=kV8=pjMKx*ZK<% z-nRY)l>ZarC*QXq@kQL~FJTIKchDD6eo4dEae#q0jhs(wyU<^-$&&lp znaP4-JE-v|KCkUk->Q%{QoyEA&%c%RG!#8A=;Ch>I9k@LzYMX;JU1erf4kp_WAr=! zG^ejSQpQnxaFWPJGsvgjB=M+LarmOwQc(q9XGoq2w$EK~K95UT$65yM%);9?#J(X{ zSYH`S>caJfm^%-+eAe|vp|AA2l$Dcbvj3$`x#udx*gY4 z^LZoM@3r&wV5PN=Z2hfG;vl*;bxcd}_!iu+qpHXm(QX&o@5b>iN^(v8O-+JFaeL^j zZ8-#zVRWXWiiPTG-b+7Ge2A*9gGzn~htKk@Pr@f~sOb-fDER(&g+r^dBg5mpFJaQ3 zD|;$nr-FR!nY2JSb#=A#obupwpdT?|mFQHnKJ-M%#!wiI$~hC%sjPEy<2p^E1qIY) zmqc{uXQ%$VQWs_Cy0W}eMSoq!Jtf{LG`<-eX4{iG(t$3Jg#w%uG?SDp(C^uS$VjH6 zvk#qi;GUdGrY_$*dIl1cX zdsIJ}16>PbI3^O4Y3imN6;5luFqxt*5RGMDeBMdDv8x(#W*qIQZaMiXRi~n^MJ!KC zRMk~s<1F{+ySLhLdag@Z6Y3w7=&=q1HLq|8c8RLGj5Y9WwVN!?Uia2My4S%k5}i*H zRY10m6lvY2w{nZ`Ubeoj61n-~&&#%!E>Dh9U9!3k1U#j|44D}%ArO*I&n>QYfTTD) zuf*C8bda7`#n}2fBhWYCi3+(_ElJU})#QtMD?RMFj}juqqym9QaQJkbqOx1sN1?y>6TpDZFTv^JKh8>DgQ|Y?KohgByEW~*Nk8+VX3!6BVR?^ zHAMj*Z~q)ey2?ymTiD*~2PnD1@M`PEULAkC(UYJR9W@3uRbsME)gzTJIUQ0*pWAQg z==55%h4$!3!al4u!)L2G`*wJ_Nkht-;Y+M(cg^IhV@HrZT@zWT?ND$v`mNbg`##*X zkXDX_MTR*YUbyZ3G2>_{%5F*y$If?&Klq-6t79IjikX*X@)zC1$ zI9!h!mgGYBw#j$@kfNTIEXlEMh0qBpbfg?@0~5ck??L0kS*RjPP;_h@1y87eR!*Ys z*o}%+B|rE!m9o4kOY;&G?U+WyHkyqy>p2(urD%JW(G`ais=Re4Idd=Y!`7XR^*76` ztUs5>W}CJY(`xWT)a^y@kXE*Q&g1hgu*V$aA8C2A&raeY3u?Xick=Y}11+K@OLQbc zG}D@<_6$j5@6X2GX=8qH++Vh25U;R{r5^lsN?5yodKS(#&`;x&(9$b99Hg30F2`?j ztyqR1rcOcKY#QaJ_YazfIt;E~tX0*LI9GIG*%hyphfA`dtzG$4PVEPct;Y`*fF$CR zu+MKgr9R)^@Yp)<@EYeW_*_1I#XeS!|Kj;EJ6Iw2G9S3CoIu8YypceTK`lxJvP;jD zikItG8M1(XKTB*UYUJ3li2I!+x@cs;x6hJj=$n#nG}|pxt=8xM5rnc%fqVF_yj}?+ zfezLbTk=6fABe>JMVcevG%6Ex%pQuvuxpKp2ve*@CE{GfZ&_liWVo$m6^UC|E#aCI z@lY0|@D!2TReU{&Tl|)_OeApt;?~xp47ckKE!UQHVqfAbSsZIoB)p-TJnQB5wOY;i z^cBygx-H+ZEopAcZCB}w%*-6|Sm$N0K&FR-4!LZ9`x=Yj2)^J-w9B%UsFkZtr|j}! zQvC7oo8RR&)x(Ilc0>;^SA^D(1UuHNP7z;StyJRW?YtSXld#hq7U# z3nOl(BguXlRO1tC8|D>c$7r&ov9%IU3c@=&=IfE?B9Ur|GZCH_k?FTXdbnS!dif0+ zztoDzprZ@vNIb+m!sY$cfRc|^>m*P|?4%XjEmhs{j$t2pt9?=}!_go?rw|81rD5yT zGFcS2x+zq_zT_oB744s2q|=~aJTA5NTeM2evlf82Ptt9^XhHSF*7l03H!KBtk2@WI zKz97Xu$LK#EhQB{fX*7Jq~&^rl&t=VQ=MKaC2J#(Q#-O|%xZ2TPOTr6VrZ;zU^qiW z3#=q^eBr0pnDDM7+?eHThYR}XB`$E*v9v4#a(7OF$nqoJzLRwloMUuq$XXpM$*mjl z+6iYv5^_1OB<`84ze#XkSImZwD?SR>>sEwc9jKeh8A<=*kgkYiPJnJmLAM)ajT zk5#21+$nZ8=dfFys*inQ4zH*00S_D>yNd_VB)>Q!q4J^6Gdr6&Drs-$S~_aaxeFQ^ zoELaam-};a=L5-LhA$*=;^?Sa5nz95Nlq+bb@Gwg=ibm;8hHg3++EA^92N0saBSmD z9{O^SBPGb13jxCRx*cQ^yYiyrvv;zR78lP)LhhJ`o2gdzAa5=9TGg23=9SL%KgHm2&)@m)TJ zH6EfEw-@3W$B}JF3HOa_x`X^(Zd5wcbSGZ?29S_9;21RpSgT= zuN0@IZXzeVM$lcBIBHoUb(70WSU9qqye}bkw18_JTKtuPVh6qqKy~#qph&&qOP@L)B<#xjUFr0U_U;fgXD2sK3Li?&+3s}rj z8_(x{6>^i|oN`hlKwCNh*5wjWaLbHZc&!i8Gy^u!5xN#Bo20IrUizws?}tU)-OJJS zkY&GEIaXEZ-^gbB;i4RUm<14A|C-Hd7`8tP;La^lxbqe!_R3ut2kyxW7E8NWP`tYo zP$l`vWGLxT4Wd!oH_`6{S{SlSUP+sM5x`T1C%2eMnW-w z%crSYlDg{dx)7Ml?hAv`+hWk?=?%%a=rZcszwMIaw{$!#?v~+=59UPPaIoS=LrCv= zmw?|+nS2@^G8uo5b<$tU!F2~0-CF+RpyL*;o@c9>*ZoTlPakoAjYr(2F4tUoJQjMa z3vsSb^*rcXa1!uW;E0EHvrioohG`iI(Li?ZoU6XS#6(bM+7 z-PH4(y^ZH9hwh4(kU9>;(vIT9k#c-{aVkZBt;?gf)N#3-&oK#0#7)oEerO$SPb7h4BqaxO+`VT`FR2p^UJp+m*NgdPbBsm5FF zMhv$B`P-O6JI|lTVCIB{IaIIMS9PFvX@1m@KvXB2^z#+|NRvf*_(JE)$>{;KSYsbG z*dqxvora*-w|6tarqi%=TQWr0O@r0l*U7lct6%>#4f1M~>7RPFihU!YZ0!|G;WbEM zM!ixbjaAB4D+Se{m!Bua=zUzL6ih4cH;SiJFs{5G|K_ZG3O`rnQ=}=CPeFA@cL>vA zw^zm0PXRxUD(s(ox64BqrlsL0?X8-_c_5lFqh)i58g!Fw-5j`Xr;|6G(4GzBn&vPp z^u~pu%&2=T8yPj+oMw$aOEx*2xnz?=oFbbXxQ-eftba$0U1hT;nvlb4mro8lmXDjX z0q5fAz$86Y>XHDPV$mKlrNlBVD`;Gl!$D;9z3=s%;+NAMcQBcn6c1~BsCt{cJG^BDTd z2@Xy~@`<35V^(>fPorc}XPeKX(N5c?eY9&q(*sH~D&K;uZQ8-3XmQ3za^;-yd3?)ck30$^fYY?2N_> z;Myg#V^sjM!vY!Y3@~xGeVlC3StVw5+ZMFBx@`;Yl%Cjv(cTkV5I&E3qMMZbn%K3f z&X?`&*NSK_0Z(66v|`)Tp6iUQINE`8y4s2oi$EP96&xTud(oSmxG>FGB4|aNO9ZXh zQ$#QW=LlCZ;5Dtfx!Q`OgC7o@`nS48X^ZE_2YW8s}j*jlX9QV68 zO|6oitE~3+Z7pg&QgQU<>O&cwvf!GP)f97{HOGeKXt3Lo-!ksIQSnMhN~Qv(n3*A0 z1jQ^5_4C!ODfPTLHbFtGL`@ZX(HcTi({;+G6hR&xwx+}jSF23yTQJvrBG7R2Xp&)$ z)Fc&Ge9-}ki%O%6h6}?k<(dY9+dZ0u;u>&1wSDu5P70AF6N@HKCWXLVb4_kixs#M# zaTalugUXUi8#hlb2bCq4YEYhB4hkn6nw709DTf~cxZ7@Q|)l8VgkninkY87u&| z^EZ*D{!P0ZB4B((#7qm|A6tngJ(wKWA&!)41~RYrsj-#O`xFF+IGU9Xwv64!5^)sr zvhr#%4Vv<50mOp}O@5r#G>i#cK$tW`D`=K*cHm}9GzqtYZmV#Dqn-1@H_@kf*kANV zky|%bmV%bio$2s$#^taW?U(zYR!v4cLohea4-Bb$E9FE%H54-@bxh7#&vW$tgx_wK zuy}XVdvVn1zK_`EY#293J!?~?6nUgq?YBDE*TNSa>nrvt4)taG;JVlDIc`w1D~B8D zE4>k}<$*1MHwC(Krxfb!zAqiA4D|a1HRARW;D(*|ytvH4tyb(d?rRAfC}5h+%pI0w zI~2*=NNqg5PEhFlTb%rJarXedmZVyv{G{~xfRo|)m*TJ1(p<#0!e6fCJ?and+}4ci zA)|f{M6*|Va*Mt`-LL^z6{BWWe?&rP%o%EvzY;D|eN>tqOcxi`LGdT)3!DJk_eqHG zUw$J_+93cFiQ6qNbJF?GO6Tn;y~FR-Z^t@Q1G`$XQUcCRM zl^qofX%YebO|mm`B`@4-r&i6&o!a^%zTG@Gj;@?f-3H;jMd|j1E$)9EQfWs(=hUxo z$-CpxHVUc4y5eB#yG&UadD1R5LP;DZ(?GX;rfjFOKwb6E(P=z}x~r zzuScIhXi<9OOxrS?V{HDM3!nk6y`<2@PrBl`yDMEC3*6BCaBK9i34&bmW~wNjQ4RS zs(InP>v1N6+fuYw-{?g{%T}|ire;FdJr}1TLv!G%NKQqplV;)C~DC9IMXp=0vf8>@KP!Zxq+zxs=C$6Z38~tlopm7P%3&CR+WcQ ztxMgW?P`@m&QPlqJgZhIkT%HA5;!GXrvN#fN@28OG|b|8rM+S)8k-FId#fG>&m26qjD%3vX%6M9H8wF$6-%WmmI8yS=2|t99*;& z5^Yd$C}^*@OgjnmjC$u#vh~gZYAs`^3=xFRH%WD(e6he1W5do;O8BTc5k>U3JKbxY|Q=P#L=y%vj{XcIvOLwy6&WspHjqvb;FGQcW| zO!YFbW^lO0z6-^eVsNCOvkZJ-LxLg-8gl#9C%yaWvfYD*9wE+U4 zc8#R#gzRe>OD^QvA&urXKBuAfj`KK=Fr(wNU}bwm3v8}Ow1Dc#8#iD#_T6;m$hAQ$ zid&mDub`IpZN;-Gt-gA0h1M=q*Qi!ttz_%QUV9~5QD#)K6)#)K8PK+Og%}wTU@No^ zMl>RmaGdFA%2Ei#nGUUEWIY6DI!3OgTI;YVwCEkPvs6(RLaI)|*rUP_F1C;^5aT7S z4)K=qrbq@!JLu&cCy9e;T^)6v2fQf5T`&Zl_$0gkz<=8%i~8L{mZL-r*Tx*-Y#(0e z#nob-ZGB2!yvz*25R%nc?pZKIJ~PAxNPfCniup!8lW4QvFM3|C;`#nIR5L$_SIL#epTMN&Q=9wYdH* zAn1^>hH$A}0RL)7Ob+wJ{MOTbW2fGE4*z zCuvB6mWpwqMk|MrgeG6T}8Y(QnzzX(KDNrA_hy zD-zI}Zt^jYTwe;GHCfsbuRubnHKaZa;+J~W5^I%Wj2S7`Ys4M& zI_GOh;Vg$xIC3w?{(UqcGD05r+U-kuw~b!59Ji8dd1jB0-;hq00nCb7B0`Wr3u$D` z(s1E9_pPH8S}%1xy{Z6d5xBjujihFYCB(4=kEV5c*t*y29qe{k1C@&s zQ~+d`BPlTC+P~)9j++*U2J1g;dSgZK@)_?73`vxNO5O1TNk>-*(TY!k7uel&xT{~` z-2$rNQ>W3j{Lz)!EjZuQ9U395uLb`1bqKr>fk+vKM#d(AZow%#P0pv`{G+hL5u0*v zTo6vCrlIR{yH_ACwI5%>J|CVlKIX4tbaR*%al}1rF_N0{P=8KN9@DV?lg2i=sMRTA znMOq)WNQ=5Y|Q2r?6d2uWwr@*TA9&}>@3E|BI&+fQ-U5qO~J?tt2d>GQzu!!S2H16 zU=yc*3siJ{8dCKtxYnV{;!!<~Em z(R&T>n~9=h(veOFNw{qFr<&GRGwI)q+dH?LHpo~ww_!ymbx+W^wR zq|@c`a#?c)6>h+)rgBUyN2i^5ifVxBfZ#pXQ;0@qIFyPz6M_p_?M*QBBN`K?{k4Zo zW}w*FRPSz2`DiUmmB4A++-N#$L>f0Yrp9tP^`X|yjq2ZLl>;rJd2{3bd!3-ib`B@V zeE#B9RLz-kM$<%RiWIVGn`$Sw*8i`{>0~%`Zy|IlJmN9xG&r3>$f^uNehB`xB<$1$ zNYsYGUrXjc_$p!D^Gcj@)vu-T?>r6mUfziPYbi83pe{Ayr^9D*yBWUHjZK#X@ zTl!?|<)5=pW>DtqlNrQ$`eX)8P0)&aBG8^5mfQVKb9z(7%Ang(xl@eRZyP$%Yticr zoq79p26gU!ox#=GccU%d+~nR`dz)%v{Ol@P=g?L%^K|MA^Lp8I2RFDXeVdWp7O?4H zF#n}}W`U>X|6E9Q^M5WB)$?GC6_w4dvlvuixlZkyYZh8&1uz$%Hu7_mzzOyz_>f}% z(X674#DKd?cFyA0l5nQ0T({f%r%5@QoNDKqRk)ckQ#Dz-+2@3!TI$`a{aX6w|XoF}wDNoJZQ@Y*J{X+d9vVucv%a6tnR*W6X#TlnE?*BKJdx~;dq)puyl)V zX>&dJ)r8S(g98`v`k3cLb{!IvkB#Rp3E*!$^1?kF3xJRmMp4pd6 z!%=bAfA{R9bF?&k>AVo<$0goL9Pcs;;B5ytgyPEUZLTEK+bCVhdf7P-^fKzHS{{n; z&whu1a@pZ2Mtp<_YssqU%DHw4vZ~JI-m;Io(m7%+(1s@ATyfMWQV{NFnYG6>|=f^|a4Rrgc35Op-s}b0O-NnOx zq7#>MS>)xsWZ0u+D2Hj6h6xQOg8eP`Sfjxq>Dq8lB7N|b6~cVt_y*$qaR>$WCQ_C; z)=MS(`7B_9{&p6S(z-DVY-V9({~NT=DfD9A8hkkiJS*|LIpDM&pUnX|PpPcU@6giG zq2Q#6_eP;5KAQnaYS*U1d@?ncB~6E52^Vu(xI4JQAtqs-;JX7Ee3Bf_C^-zBqc#GY zdffS=T0%lAeq9jYj~}xeVDv|4<$PkYRYK(GMlCTRMt}wu1#_{6g(6fF>YPb(Xs~Z< zI7vyaW#eR)zKkJ)Tw~^}D2VVrF_vJLY6&b!CAQf}|6mC4%^^%WwVl}iCPZ4+uG_gVWW>6@sme!ucxUKoXSu7FbMZ-uRliwH3d_T= z$@AsV3Z!q&^R30lEp@@ciP+tFcrn@I?nO`3Mg?F1a zBZJSAGlX$f(Tk;MYX6!x>F*Af5T0PcxC?3szbv=hkHFB1Gfjwf)rhWk&iexzDrRSGq%+9nG(mN9cW@nj zW6Wh=YCWkCuDaSK1B_PIjItz;!^EW)ylXA#%Fbu4xuluEw3veA%+qOs(V=#_NvWm% z!Ew|=DIS)uP+<~TD3$Y>oJ*NB^1ccUcs)5d?Tf*D24A~_b@>-oB)jgYgGuKHi8Tl* z8^ir_43+aB8&1dfpgN;|uQ&@DP>^N)BZJ%uM;7gb&xY&67yZHb1=gSahgDUKWu)zQ z-|zO;@bnp$kNw`G;;}r1=B{?1vkvLuX$AcF&ZVRz=~mg(MTu!`AqtiOq#0G$Jrdx(fsRZ zS6N+kyWV2#v<(P#{e= zz4;l+ya;g~Y`%-ZN^=+#{#PM64gyo3fz4Ko0j(gWcy5+AD0Mv)_TMFu39DRBhZsBWM1&N=7TUrMxF~|02(^$Z;}TX7t~Jpk zSQQvCsIxvej3?rY>KMKW7@dsfOH()5R(=J=Vxy(eela?IUJQ=L$6H~Q@w|TsDW76g zB|U3|Rr%mDS#-F%UoSe>9@{3OueDfNgX)M z(gETtzd8{ywgbxAQx+&0K+==-WE;Sz(~IF4KD7V>T+Y>nC2!|4KFlR*owI~k!V)|I zls?8H*!}X;37=z2@wQ)1s?=ya-!LP0d*_CKDM!6Kx5dnWv-TNYHJm^j){px=s08c~ z9laJfAaFwfSNy`qs|J8<5STGw*W*IhE?P?BABBN3LQmImhnTQ)utc&w9SjgM=gO$X zoe2H3F`M8^I$QJS;?SKBiK`?Uj@&rS9$~Ddu^~t$hNGr14d)S_mfR6QJuvpbYQlh< z%8`KH=+}>k&wmKuzFWJkLAj3(w@PE7(GvV_Aqe##=zjs7|EsjmkBL4ze@V^}9^L^Nr8fbay<5j~d&>1TDG$ z@i)=-zc_Myt>!D7DvYSh5JQk7GPCkga6yLAAYa1SqZ)a*T5qvOA6g+JeW|~c9Ap3i zUXCW(TE<#L7;xK-WDT1#D0+C+xUD`tRUpAq}u zLh3e^H>5X$8x=htt_nLj-VNsMpHdLLxU1^c7a$F=s}g@&bszRRjXZt32sb=DFS{MR zeNl_oE0nOjvDC-MFxmm97v5wLl;2YrJ*^;i<&>TUa+gS?1?wPx%6Ng@!E{iKjKEwDQRN9)}W3ydm7IomD=1(LDpC z_syM75wK7U4zzHjRSHVDDdh|?ri?+*LyET5j^qGT)3oWznlh; z(x~a8HhG;!1^^eiXd!_&#bjjCXjG1}Ly_Gdkj=yWLX16Xs&}CKb6b^T+>At45ZooG z965RRT|c6YRhzi^Zj0nOmx(xb!~q7>B`6@>EC_C5n3(`VG{{+ZpLSNBH@Hi7jTr!b ztPR?1Y3oOfIa3DUq7khJl244UWa8m=fux%Gm)(8AvRsWWNa79p0$#tB$iuq|yE46$ zgpe&Dsbk2(-pl`0Pxi! z9rxl2xZ;1=g5FpystY~`=}jXcn7$;ID-U9p(N}=LB9J z#2c`1#o~Tj^`u1cPv2qeS=RzYTPb%fkivaBc>B25JBe6U|GR`4ud{7FC+^+0%(#2npzE*!*7aStbTOL3b?Ae7mEsupT6ZVqpM)*VGV+P zT?z~1nRI%w)Fk^etwMeOH-S;9rM))+(n?VgizMeOlaeIYM(-JbVX#gBmFaqAs|4n^ zQfjS>i>Z)+ePYZ(mTquQAU-vSc%)B2R6zUhLSRQ(bxsl>rK7DaSrA16qV=lrTwzRm zi>)D=*3w`bI%o=0lCS_>k{|2%VH2!;UyzLGdK?dB!3*+z8Bk%7%v~TWi0C0hXhF}e z)>E-O?vKZX>h+~sp6Is}aj}-}$LwV!bHPD_bOpb)7vWZxugKyFm>6hOD)%S%C) z2xE?v2{B>5Ce^(fpt^VJ&sYlg>9dr-1`T@%?qy1z>rmq@Fh_Q2)J0Na5>3=7$sNPs z-A`%q51n6tLD57xoEMSG65~{fRYCfVdb$ragCT_h1puG61E3R42$JyPW-8=-Tt{Z> zX+Pu`i~NLF%vSWCCaJdDM58>afsMfcr->b9u)-meSSslV1W47Y&)^qd_Nuv#&LM#r z=QswSXRaR=V=_%!f=gkjz#@=nqGp0ifvkOXa09V}`89&4i_CYxuS0C^| z&vHQrP`4nni()GB*9Ql?wT zvfbI;J2M<%jk9oc-2EEAPK6}H0;<2;-P@CS~y(E|8|kE%O9C;ebhEVI%^m1zW8>R|ae5ISd-p#{?9jTKwCoOOV{ zhA5N$;#7{qtT4%aoI&OKgY!u>D3Y^U(M8AMm!HOXv^<{ZDJ}S;PHAkz_wiM;v^?ON z_-c!%gKml9kIo)*o$~(dF+x}dV-5wbieH|=A+O!NC1vJSSq;wgtEYR<&K&P!m3iiv z{+)&6*TtAw>->THKDh9sO}xTyN`guxAFe<_d5TTlRf0U49Aa()A8Ya@(jq>{7sZ>U zRRE2^ptlIUVJ;Dv%ipXMf1kteJ;?kl{(|*I{1N5p zEl@?sxadmY4XMf-et6y%<+efAWZ@SGpVeC94{co0AxdA;Lo@Jm_4qFxxGKt#ENvG} zKc5d4_>20p#UCgL;p8&HKoX+GND>yGL!PU#I)5q2L|tYw;9i%f#g_f9kaBa4dh6cW=^I^gndZQ&&>!47(*-XN z&K^HInN-KikqRuJ1EVXwe15LakV^cu%nu&_@ch}|J%6^O0%mhBzby5GnjnJkpQ{vs z|Jt4m;8emWa}t%bJt*x=SV0UD z-NXgcRu}_Fiu|~c2z5t>vXxjoj{fc*$)43ei?Xn1!YWnNe=R+fVT2hA%;1j|RQ280 zw|DOE+}^ppZUZS)w*L-e@ve(Dh6K*)ptsC5C>K>YN}<%5Ak_Ke?2j_n$ap9j z&w6`9X&LUU9FNKY;)X;5)q1426tr7+9*>q=e)uXv%y_*goY$!5QN){`L~1eXrAO`vb*>?e};OPhHPdu;s0 zL-FkZ=B)lY)0-e7`tR}Yh8>^vqO=Bj)gKn;x}3J2^|opaMaXJ%TuyKd_WkJrr)ntt zn?*@s<`wWC=kV-9^?e^!`A12P1j;@f^!_|5!3i>J37eDy=mq?hI7P&SY>sm7H`NBS zsaX*@_$|naB0x!uI ze^nduQ{8=1}M1C0}e@2KagUQK>D;^Vz=_r9OoWig=w3ETCnu;+^T|9wm z$bo^ieiiHB0zO5et9|I5ujg{V@?8PHu?E9IYiuEJ;(lnTHSE-4q#XiyGKK2bmYA_P zH!r;L_xoQ%qYa#U7dWAUrE z8GL#nZ?j9a~dvNc5=kWI7{Rf@mX6NAUt?qYsZXVqK?&jgQ-J*Bz;O_n6 zZgKeF=C?QRcOKlmhx2vc-R#`H``vfn9o)M2`#nb;gO*X>(QUn**SLxgX9g-fbu)yA z>I~d)`|q%#mrKEaL>=fRrx)WzA4mHAYuCI3o)*j+*!{N%u(gU@jBCm*qMgSlovK>L zV%)1Ml0Tw7X`tpEv^@%BUI9s%U*p~VmkHW-$O+&dg+xTt%fYXZdC@W-^@n$Ehh#)P zb#VBndwl11lEd!yIdi9RNT4r%;gW9_lrR51Op#FjRmT>SlS*t;*~UvhOk3BPqEU# zQ7;U4Q2bEtHU_K5lM!s0F~sI21SlQK2~S%8B6hgGv7c zJ6$+EBnMsBCc_>&9+&joW4)oDGQ-i@!48d@rw$+}kQGSRB1?eq*pXE^EKkWGhtAGi zj=xc#{>lu1asUE9?@W;jWxb#Tk zGGg4ox;;P)OPm1<<^TOnSDE>`!Z((MM;syf-`BUhcOTq8xcA`OyZ1Zyzq@n)!L3{0 zb&G@U&BNOV-`=`==fUB(#htqtF(2H&_u%f$-tBJp*5R%0om=<2w{8`k;({BtSQ07k zumzXZ=mUqN@dfSfqWgL*nJm&9t1^MnHG0qC5|Us{V3g`>+02T=Gp^UMM6OXd#wVF< z>nj#y5jsY2oKNxU2Z8~-?h3qe`o^7kNVbKqw&oPo#S*K&-GRfjt7gTgj15YvHhl3* zsEvKmvd4un$p$?g*D6C~{P{|CBBsKx*Q literal 0 HcmV?d00001 diff --git a/cardano-cli/lib/doc-index-36.html b/cardano-cli/lib/doc-index-36.html new file mode 100644 index 0000000000..6f1cdd46bf --- /dev/null +++ b/cardano-cli/lib/doc-index-36.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - $)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - $

$sel:actionFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:addr:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:addr:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:answerIndex:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:buildOutputOptions:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:byronKeyType:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:certificates:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:certificates:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:changeAddresses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:choices:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:coldVkeyFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:consensusModeParams:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:counter:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:delegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:deposit:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:drepKeys:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepKeys:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:era:QueryTipLocalStateCardano.CLI.Types.Output
$sel:eraHistory:QueryTipLocalStateCardano.CLI.Types.Output
$sel:expiryEpoch:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:fee:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:genesisDir:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:genesisFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:genesisVerificationKeys:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceAction:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:idOutputFormat:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:inputTxBodyOrTxFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:itnKeyFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:kesPeriod:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:kesVkeySource:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:localStateChainTip:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mAnchor:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mChainTip:QueryTipLocalStateCardano.CLI.Types.Output
$sel:memberStatuses:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mEra:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:metadataFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:metadataFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mfUpdateProposalFile:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mMetadata:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mNetworkId:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNetworkId:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mOutFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mOutFile:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mOverrideWitnesses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mPassword:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mProtocolParamsFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mSlotInEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSlotsToEpochEnd:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSyncProgress:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSystemStart:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:QueryTipLocalStateCardano.CLI.Types.Output
$sel:mTotalCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mTotalCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mUpdateProprosalFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:network:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:networkId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nodeSocketPath:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nonce:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numPools:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStakeDelegators:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStuffedUtxo:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:outFile:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:outFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFormat:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outputFormat:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outputFormat:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outTxFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:pollFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:pollFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolCost:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolIds:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolIds:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolMargin:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolMetadataFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolPledge:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolSkeyFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:prompt:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:proposalFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:protocolParamsFile:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:query:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:query:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:queryFilter:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:queryFilter:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:readOnlyReferenceInputs:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:readOnlyRefIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:relays:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:requiredSigners:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:requiredSigners:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddr:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:scAda:ScriptCostOutputCardano.CLI.Types.Output
$sel:scExecutionUnits:ScriptCostOutputCardano.CLI.Types.Output
$sel:scriptDataOrFile:TransactionHashScriptDataCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFile:TransactionPolicyIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scScriptHash:ScriptCostOutputCardano.CLI.Types.Output
$sel:security:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:skeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:skeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:slotCoeff:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:slotLength:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:someKeyFileIn:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:someKeyFileOut:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:txBodyFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyOutFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:txFile:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txins:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txinsc:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInsCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOrTxBodyFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOut:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOutCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:utcTime:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:utcTime:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:verificationKeyPath:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:vkey:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeySource:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:voteChoice:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:voteFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:whichSchedule:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:withdrawals:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:withdrawals:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessFiles:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:yamlOutput:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-A.html b/cardano-cli/lib/doc-index-A.html new file mode 100644 index 0000000000..a68eb3a36a --- /dev/null +++ b/cardano-cli/lib/doc-index-A.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - A)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - A

AbsoluteSeekCardano.CLI.OS.Posix
AByronSigningKeyCardano.CLI.Types.Key
AByronSigningWitnessCardano.CLI.Read
AByronWitnessCardano.CLI.Read
accessModesCardano.CLI.OS.Posix
accessTimeCardano.CLI.OS.Posix
accessTimeHiResCardano.CLI.OS.Posix
ACommitteeColdSigningWitnessCardano.CLI.Read
ACommitteeHotSigningWitnessCardano.CLI.Read
AddressBuild 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressCmdAddressInfoErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdExpectedPaymentVerificationKeyCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands
AddressCmdVerificationKeyTextOrFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdWriteFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressInfo 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressInfoErrorCardano.CLI.Types.Errors.AddressInfoError
AddressKeyByronCardano.CLI.Types.Common
AddressKeyGen 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressKeyHash 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressKeyShelleyCardano.CLI.Types.Common
AddressKeyShelleyExtendedCardano.CLI.Types.Common
AddressKeyTypeCardano.CLI.Types.Common
ADRepSigningWitnessCardano.CLI.Read
AGenesisDelegateExtendedSigningKeyCardano.CLI.Types.Key
AGenesisDelegateExtendedSigningWitnessCardano.CLI.Read
AGenesisDelegateSigningKeyCardano.CLI.Types.Key
AGenesisDelegateSigningWitnessCardano.CLI.Read
AGenesisExtendedSigningKeyCardano.CLI.Types.Key
AGenesisExtendedSigningWitnessCardano.CLI.Read
AGenesisSigningKeyCardano.CLI.Types.Key
AGenesisSigningWitnessCardano.CLI.Read
AGenesisUTxOSigningKeyCardano.CLI.Types.Key
AGenesisUTxOSigningWitnessCardano.CLI.Read
AKesSigningKeyCardano.CLI.Types.Key
AllCardano.CLI.Types.Common
AllOrOnlyCardano.CLI.Types.Common
AnnCardano.CLI.Pretty
AnyCommitteeHotVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyDelegationTargetCardano.CLI.Types.Key
AnyDRepVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyEraCommand 
1 (Type/Class)Cardano.CLI.EraBased.Commands
2 (Data Constructor)Cardano.CLI.Run
AnyEraCommandOfCardano.CLI.EraBased.Commands
AnyStakePoolVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyVerificationKeySourceCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfFileCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfTextCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeyText 
1 (Type/Class)Cardano.CLI.Types.Key.VerificationKey
2 (Data Constructor)Cardano.CLI.Types.Key.VerificationKey
AnyVotingStakeVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
APaymentExtendedSigningKeyCardano.CLI.Types.Key
APaymentExtendedSigningWitnessCardano.CLI.Read
APaymentSigningKeyCardano.CLI.Types.Key
APaymentSigningWitnessCardano.CLI.Read
appendCardano.CLI.OS.Posix
appendFileCardano.CLI.OS.Posix
AppendModeCardano.CLI.OS.Posix
AppendOnWriteCardano.CLI.OS.Posix
AShelleyKeyWitnessCardano.CLI.Read
ASigningKeyFileCardano.CLI.Types.Common
AStakeExtendedSigningKeyCardano.CLI.Types.Key
AStakeExtendedSigningWitnessCardano.CLI.Read
AStakePoolSigningKeyCardano.CLI.Types.Key
AStakePoolSigningWitnessCardano.CLI.Read
AStakeSigningKeyCardano.CLI.Types.Key
AStakeSigningWitnessCardano.CLI.Read
AsyncIOAvailableCardano.CLI.OS.Posix
AutoBalanceCardano.CLI.Types.Common
AVerificationKeyFileCardano.CLI.Types.Common
AVrfSigningKeyCardano.CLI.Types.Key
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-All.html b/cardano-cli/lib/doc-index-All.html new file mode 100644 index 0000000000..d7e3e4d651 --- /dev/null +++ b/cardano-cli/lib/doc-index-All.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index

$sel:actionFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:addr:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:addr:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:answerIndex:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:buildOutputOptions:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:byronKeyType:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:certificates:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:certificates:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:changeAddresses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:choices:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:coldVkeyFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:consensusModeParams:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:counter:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:delegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:deposit:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:drepKeys:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepKeys:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:era:QueryTipLocalStateCardano.CLI.Types.Output
$sel:eraHistory:QueryTipLocalStateCardano.CLI.Types.Output
$sel:expiryEpoch:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:fee:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:genesisDir:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:genesisFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:genesisVerificationKeys:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceAction:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:idOutputFormat:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:inputTxBodyOrTxFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:itnKeyFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:kesPeriod:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:kesVkeySource:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:localStateChainTip:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mAnchor:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mChainTip:QueryTipLocalStateCardano.CLI.Types.Output
$sel:memberStatuses:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mEra:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:metadataFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:metadataFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mfUpdateProposalFile:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mMetadata:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mNetworkId:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNetworkId:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mOutFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mOutFile:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mOverrideWitnesses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mPassword:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mProtocolParamsFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mSlotInEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSlotsToEpochEnd:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSyncProgress:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSystemStart:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:QueryTipLocalStateCardano.CLI.Types.Output
$sel:mTotalCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mTotalCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mUpdateProprosalFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:network:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:networkId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nodeSocketPath:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nonce:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numPools:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStakeDelegators:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStuffedUtxo:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:outFile:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:outFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFormat:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outputFormat:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outputFormat:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outTxFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:pollFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:pollFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolCost:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolIds:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolIds:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolMargin:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolMetadataFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolPledge:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolSkeyFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:prompt:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:proposalFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:protocolParamsFile:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:query:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:query:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:queryFilter:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:queryFilter:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:readOnlyReferenceInputs:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:readOnlyRefIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:relays:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:requiredSigners:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:requiredSigners:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddr:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:scAda:ScriptCostOutputCardano.CLI.Types.Output
$sel:scExecutionUnits:ScriptCostOutputCardano.CLI.Types.Output
$sel:scriptDataOrFile:TransactionHashScriptDataCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFile:TransactionPolicyIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scScriptHash:ScriptCostOutputCardano.CLI.Types.Output
$sel:security:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:skeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:skeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:slotCoeff:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:slotLength:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:someKeyFileIn:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:someKeyFileOut:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:txBodyFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyOutFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:txFile:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txins:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txinsc:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInsCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOrTxBodyFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOut:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOutCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:utcTime:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:utcTime:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:verificationKeyPath:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:vkey:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeySource:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:voteChoice:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:voteFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:whichSchedule:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:withdrawals:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:withdrawals:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessFiles:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:yamlOutput:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
AbsoluteSeekCardano.CLI.OS.Posix
AByronSigningKeyCardano.CLI.Types.Key
AByronSigningWitnessCardano.CLI.Read
AByronWitnessCardano.CLI.Read
accessModesCardano.CLI.OS.Posix
accessTimeCardano.CLI.OS.Posix
accessTimeHiResCardano.CLI.OS.Posix
ACommitteeColdSigningWitnessCardano.CLI.Read
ACommitteeHotSigningWitnessCardano.CLI.Read
AddressBuild 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressCmdAddressInfoErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdExpectedPaymentVerificationKeyCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands
AddressCmdVerificationKeyTextOrFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdWriteFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressInfo 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressInfoErrorCardano.CLI.Types.Errors.AddressInfoError
AddressKeyByronCardano.CLI.Types.Common
AddressKeyGen 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressKeyHash 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
AddressKeyShelleyCardano.CLI.Types.Common
AddressKeyShelleyExtendedCardano.CLI.Types.Common
AddressKeyTypeCardano.CLI.Types.Common
ADRepSigningWitnessCardano.CLI.Read
AGenesisDelegateExtendedSigningKeyCardano.CLI.Types.Key
AGenesisDelegateExtendedSigningWitnessCardano.CLI.Read
AGenesisDelegateSigningKeyCardano.CLI.Types.Key
AGenesisDelegateSigningWitnessCardano.CLI.Read
AGenesisExtendedSigningKeyCardano.CLI.Types.Key
AGenesisExtendedSigningWitnessCardano.CLI.Read
AGenesisSigningKeyCardano.CLI.Types.Key
AGenesisSigningWitnessCardano.CLI.Read
AGenesisUTxOSigningKeyCardano.CLI.Types.Key
AGenesisUTxOSigningWitnessCardano.CLI.Read
AKesSigningKeyCardano.CLI.Types.Key
AllCardano.CLI.Types.Common
AllOrOnlyCardano.CLI.Types.Common
AnnCardano.CLI.Pretty
AnyCommitteeHotVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyDelegationTargetCardano.CLI.Types.Key
AnyDRepVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyEraCommand 
1 (Type/Class)Cardano.CLI.EraBased.Commands
2 (Data Constructor)Cardano.CLI.Run
AnyEraCommandOfCardano.CLI.EraBased.Commands
AnyStakePoolVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyVerificationKeySourceCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfFileCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfTextCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeyText 
1 (Type/Class)Cardano.CLI.Types.Key.VerificationKey
2 (Data Constructor)Cardano.CLI.Types.Key.VerificationKey
AnyVotingStakeVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
APaymentExtendedSigningKeyCardano.CLI.Types.Key
APaymentExtendedSigningWitnessCardano.CLI.Read
APaymentSigningKeyCardano.CLI.Types.Key
APaymentSigningWitnessCardano.CLI.Read
appendCardano.CLI.OS.Posix
appendFileCardano.CLI.OS.Posix
AppendModeCardano.CLI.OS.Posix
AppendOnWriteCardano.CLI.OS.Posix
AShelleyKeyWitnessCardano.CLI.Read
ASigningKeyFileCardano.CLI.Types.Common
AStakeExtendedSigningKeyCardano.CLI.Types.Key
AStakeExtendedSigningWitnessCardano.CLI.Read
AStakePoolSigningKeyCardano.CLI.Types.Key
AStakePoolSigningWitnessCardano.CLI.Read
AStakeSigningKeyCardano.CLI.Types.Key
AStakeSigningWitnessCardano.CLI.Read
AsyncIOAvailableCardano.CLI.OS.Posix
AutoBalanceCardano.CLI.Types.Common
AVerificationKeyFileCardano.CLI.Types.Common
AVrfSigningKeyCardano.CLI.Types.Key
backwardsCompatibilityCommandsCardano.CLI.Byron.Parsers
BalanceTxExecUnitsCardano.CLI.Types.Common
blackCardano.CLI.Pretty
BlockBufferingCardano.CLI.OS.Posix
BlockId 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
blockSpecialModeCardano.CLI.OS.Posix
blueCardano.CLI.Pretty
BootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
BufferModeCardano.CLI.OS.Posix
ByronClientCmdErrorCardano.CLI.Byron.Run
ByronCommand 
1 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
2 (Data Constructor)Cardano.CLI.Run
ByronDelegateKeyCardano.CLI.Types.Common
ByronDelegationCertSerializationErrorCardano.CLI.Byron.Genesis
ByronDelegationErrorCardano.CLI.Byron.Delegation
ByronDelegationKeyErrorCardano.CLI.Byron.Delegation
ByronDelegationKeySerializationErrorCardano.CLI.Byron.Genesis
ByronGenesisErrorCardano.CLI.Byron.Genesis
ByronGenesisKeyCardano.CLI.Types.Common
ByronKeyFailureCardano.CLI.Byron.Key
ByronKeyFormatCardano.CLI.Types.Common
ByronKeyTypeCardano.CLI.Types.Common
ByronOrShelleyWitnessCardano.CLI.Read
ByronPaymentKeyCardano.CLI.Types.Common
ByronReadUpdateProposalFileFailureCardano.CLI.Byron.UpdateProposal
ByronTxErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorEraMismatchCardano.CLI.Byron.Tx
ByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalGenesisReadErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalTxErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalWriteErrorCardano.CLI.Byron.UpdateProposal
ByronVoteDecodingErrorCardano.CLI.Byron.Vote
ByronVoteErrorCardano.CLI.Byron.Vote
ByronVoteGenesisReadErrorCardano.CLI.Byron.Vote
ByronVoteKeyReadFailureCardano.CLI.Byron.Vote
ByronVoteReadFileFailureCardano.CLI.Byron.Vote
ByronVoteTxSubmissionErrorCardano.CLI.Byron.Vote
ByronVoteUpdateHelperErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalDecodingErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalFailureCardano.CLI.Byron.Vote
byronWitnessToVerKeyCardano.CLI.Byron.Key
CannotMigrateFromNonLegacySigningKeyCardano.CLI.Byron.Key
CardanoAddressByronPaymentKeyCardano.CLI.Types.Common
CardanoAddressIcarusPaymentKeyCardano.CLI.Types.Common
CardanoAddressKeyTypeCardano.CLI.Types.Common
CardanoAddressShelleyPaymentKeyCardano.CLI.Types.Common
CardanoAddressShelleyStakeKeyCardano.CLI.Types.Common
CardanoAddressSigningKeyBech32DecodeErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
catCommandsCardano.CLI.EraBased.Options.Common
categoriseSomeSigningWitnessCardano.CLI.Read
CBORBlockByronCardano.CLI.Types.Common
CBORDecodingErrorCardano.CLI.Helpers
CBORDelegationCertificateByronCardano.CLI.Types.Common
CBORObjectCardano.CLI.Types.Common
CBORPrettyPrintErrorCardano.CLI.Helpers
CBORTxByronCardano.CLI.Types.Common
CBORUpdateProposalByronCardano.CLI.Types.Common
CBORVoteByronCardano.CLI.Types.Common
CddlErrorCardano.CLI.Read
CddlErrorTextEnvCardano.CLI.Read
CddlIOErrorCardano.CLI.Read
CddlTx 
1 (Type/Class)Cardano.CLI.Read
2 (Data Constructor)Cardano.CLI.Read
CddlWitnessErrorCardano.CLI.Read
CddlWitnessErrorTextEnvCardano.CLI.Read
CddlWitnessIOErrorCardano.CLI.Read
CertificateFile 
1 (Type/Class)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
CertificateValidationErrorsCardano.CLI.Byron.Delegation
char8Cardano.CLI.OS.Posix
characterSpecialModeCardano.CLI.OS.Posix
checkByronGenesisDelegationCardano.CLI.Byron.Delegation
ClientCommandCardano.CLI.Run
ClientCommandErrorsCardano.CLI.Run
CliPingCommandCardano.CLI.Run
closeFdCardano.CLI.OS.Posix
CloseOnExecCardano.CLI.OS.Posix
CmdAddressErrorCardano.CLI.Types.Errors.CmdError
CmdEraDelegationErrorCardano.CLI.Types.Errors.CmdError
CmdErrorCardano.CLI.Types.Errors.CmdError
CmdGenesisErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceActionErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCmdErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCommitteeErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceQueryErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceVoteErrorCardano.CLI.Types.Errors.CmdError
CmdKeyErrorCardano.CLI.Types.Errors.CmdError
CmdNodeErrorCardano.CLI.Types.Errors.CmdError
CmdQueryErrorCardano.CLI.Types.Errors.CmdError
CmdRegistrationErrorCardano.CLI.Types.Errors.CmdError
CmdsCardano.CLI.EraBased.Commands
CmdStakeAddressErrorCardano.CLI.Types.Errors.CmdError
CmdStakePoolErrorCardano.CLI.Types.Errors.CmdError
CmdTextViewErrorCardano.CLI.Types.Errors.CmdError
CmdTransactionErrorCardano.CLI.Types.Errors.CmdError
ColdGenesisDelegateVerificationKeyCardano.CLI.Types.Key
ColdStakePoolVerificationKeyCardano.CLI.Types.Key
ColdVerificationKeyFileCardano.CLI.Types.Key
ColdVerificationKeyOrFileCardano.CLI.Types.Key
command'Cardano.CLI.EraBased.Options.Common
ConstitutionErrorCardano.CLI.Read
ConstitutionErrorFileCardano.CLI.Read
ConstitutionHashSourceCardano.CLI.Types.Common
ConstitutionHashSourceFileCardano.CLI.Types.Common
ConstitutionHashSourceHashCardano.CLI.Types.Common
ConstitutionHashSourceTextCardano.CLI.Types.Common
constitutionHashSourceToHashCardano.CLI.Read
ConstitutionNotSupportedInEraCardano.CLI.Read
ConstitutionNotUnicodeErrorCardano.CLI.Read
ConstitutionText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ConstitutionUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
convertTimeCardano.CLI.EraBased.Options.Common
ConwayOnwardDelegTargetCardano.CLI.Types.Key
ConwayVote 
1 (Type/Class)Cardano.CLI.Types.Governance
2 (Data Constructor)Cardano.CLI.Types.Governance
createDeviceCardano.CLI.OS.Posix
createFileCardano.CLI.OS.Posix
createLinkCardano.CLI.OS.Posix
createNamedPipeCardano.CLI.OS.Posix
createOpCertIntervalInfoCardano.CLI.Types.Output
createPipeCardano.CLI.OS.Posix
createSymbolicLinkCardano.CLI.OS.Posix
CreateVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
CRLFCardano.CLI.OS.Posix
CurrentEpochCardano.CLI.Types.Common
CurrentKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
customRenderHelpCardano.CLI.Render
cvEraCardano.CLI.Types.Governance
cvFilepathCardano.CLI.Types.Governance
cvGovActionIdCardano.CLI.Types.Governance
cvVoteChoiceCardano.CLI.Types.Governance
cvVoterTypeCardano.CLI.Types.Governance
cvVotingStakeCredentialCardano.CLI.Types.Governance
cyanCardano.CLI.Pretty
decimalCardano.CLI.EraBased.Options.Common
decodeBech32Cardano.CLI.EraBased.Run.Key
decodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
defaultByronEpochSlotsCardano.CLI.EraBased.Options.Common
defaultFileFlagsCardano.CLI.OS.Posix
defaultShelleyBasedEraCardano.CLI.EraBased.Options.Common
defaultShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
DelegationCertificateWriteFileErrorCardano.CLI.Types.Errors.DelegationError
DelegationDRepReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationErrorCardano.CLI.Types.Errors.DelegationError
DelegationReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationsAndRewards 
1 (Type/Class)Cardano.CLI.EraBased.Run.Query
2 (Data Constructor)Cardano.CLI.EraBased.Run.Query
DelegationStakeCredentialErrorCardano.CLI.Types.Errors.DelegationError
deprecationWarningCardano.CLI.Helpers
deserialiseHotCCKeyFromHexCardano.CLI.EraBased.Options.Common
deserialiseScriptInAnyLangCardano.CLI.Read
deviceIDCardano.CLI.OS.Posix
directoryModeCardano.CLI.OS.Posix
DisplayVersionCardano.CLI.Run
DlgCertificateDeserialisationFailedCardano.CLI.Byron.Delegation
DRepHashSourceCardano.CLI.Types.Key
DRepHashSourceScriptCardano.CLI.Types.Key
DRepHashSourceVerificationKeyCardano.CLI.Types.Key
DRepMetadataFileCardano.CLI.Types.Common
drepVkeyDescCardano.CLI.EraBased.Run.Key
dumpGenesisCardano.CLI.Byron.Genesis
dupCardano.CLI.OS.Posix
dupToCardano.CLI.OS.Posix
eDNSNameCardano.CLI.Parser
encodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
ensureNewFileCardano.CLI.Helpers
ensureNewFileLBSCardano.CLI.Helpers
EnvCli 
1 (Type/Class)Cardano.CLI.Environment
2 (Data Constructor)Cardano.CLI.Environment
envCliAnyCardanoEraCardano.CLI.Environment
envCliAnyShelleyBasedEraCardano.CLI.Environment
envCliAnyShelleyToBabbageEraCardano.CLI.Environment
envCliNetworkIdCardano.CLI.Environment
envCliSocketPathCardano.CLI.Environment
eonCardano.CLI.EraBased.Commands.Governance.Hash
EpochLeadershipScheduleCardano.CLI.Types.Common
eraCardano.CLI.Types.Errors.NodeEraMismatchError
EraMismatchErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
exclusiveCardano.CLI.OS.Posix
FdOptionCardano.CLI.OS.Posix
fdReadCardano.CLI.OS.Posix
fdReadBufCardano.CLI.OS.Posix
fdSeekCardano.CLI.OS.Posix
fdToHandleCardano.CLI.OS.Posix
fdWriteCardano.CLI.OS.Posix
fdWriteBufCardano.CLI.OS.Posix
File 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
fileAccessCardano.CLI.OS.Posix
FileDirectionCardano.CLI.Types.Common
fileExistCardano.CLI.OS.Posix
fileGroupCardano.CLI.OS.Posix
fileIDCardano.CLI.OS.Posix
FileLockCardano.CLI.OS.Posix
fileModeCardano.CLI.OS.Posix
FileNameLimitCardano.CLI.OS.Posix
FileNamesAreNotTruncatedCardano.CLI.OS.Posix
FileOrPipeCardano.CLI.Read
fileOrPipeCardano.CLI.Read
fileOrPipeCacheCardano.CLI.Read
fileOrPipePathCardano.CLI.Read
fileOwnerCardano.CLI.OS.Posix
FilePathCardano.CLI.OS.Posix
fileSizeCardano.CLI.OS.Posix
FileSizeBitsCardano.CLI.OS.Posix
FileStatusCardano.CLI.OS.Posix
fileTypeModesCardano.CLI.OS.Posix
fixIOCardano.CLI.OS.Posix
forMCardano.CLI.IO.Lazy
forStateMCardano.CLI.IO.Lazy
FriendlyFormatCardano.CLI.Json.Friendly
FriendlyJsonCardano.CLI.Json.Friendly
friendlyProposalCardano.CLI.Json.Friendly
friendlyTxCardano.CLI.Json.Friendly
friendlyTxBodyCardano.CLI.Json.Friendly
FriendlyYamlCardano.CLI.Json.Friendly
fromCborTxAuxCardano.CLI.Byron.Tx
futurePoolParametersCardano.CLI.Types.Common
generateKeyPairCardano.CLI.Types.Key
GenesisCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
GenesisAddr 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisAddrCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdAesonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdByronErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdCostModelsErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesDupIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesNoIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileReadErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdKeyHash 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdMismatchedGenesisKeyFilesCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdNodeCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands
GenesisCmdStakeAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayJsonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTooFewPoolsForBulkCredsCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdUnexpectedAddressVerificationKeyCardano.CLI.Types.Errors.GenesisCmdError
GenesisCreate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCardano 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCardanoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStaked 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStakedCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisDir 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisGenerationErrorCardano.CLI.Byron.Genesis
GenesisHashFile 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisKeyGenDelegate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenDelegateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesis 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesisCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxO 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisOutputDirAlreadyExistsCardano.CLI.Byron.Genesis
GenesisParameters 
1 (Type/Class)Cardano.CLI.Byron.Genesis
2 (Data Constructor)Cardano.CLI.Byron.Genesis
GenesisReadErrorCardano.CLI.Byron.Genesis
GenesisSpecErrorCardano.CLI.Byron.Genesis
GenesisTxIn 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisTxInCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKey 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
genesisVkeyDelegateDescCardano.CLI.EraBased.Run.Key
genesisVkeyDescCardano.CLI.EraBased.Run.Key
getBinDirPaths_cardano_cli
getCharCardano.CLI.OS.Posix
getCommitteeColdCredentialFromVerKeyHashOrFileCardano.CLI.Read
getCommitteeHotCredentialFromVerKeyHashOrFileCardano.CLI.Read
getContentsCardano.CLI.OS.Posix
getContents'Cardano.CLI.OS.Posix
getDataDirPaths_cardano_cli
getDataFileNamePaths_cardano_cli
getDRepCredentialFromVerKeyHashOrFileCardano.CLI.Read
getDynLibDirPaths_cardano_cli
getEnvCliCardano.CLI.Environment
getEnvNetworkIdCardano.CLI.Environment
getEnvSocketPathCardano.CLI.Environment
getFdPathVarCardano.CLI.OS.Posix
getFdStatusCardano.CLI.OS.Posix
getFileStatusCardano.CLI.OS.Posix
getLibDirPaths_cardano_cli
getLibexecDirPaths_cardano_cli
getLineCardano.CLI.OS.Posix
getLockCardano.CLI.OS.Posix
getPathVarCardano.CLI.OS.Posix
getStakeAddressFromVerifierCardano.CLI.Read
getStakeCredentialFromIdentifierCardano.CLI.Read
getStakeCredentialFromVerifierCardano.CLI.Read
getSymbolicLinkStatusCardano.CLI.OS.Posix
getSysconfDirPaths_cardano_cli
GetTxIdCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
gitRevCardano.CLI.IO.GitRev
GoveranceActionUpdateCommitteeCmdCardano.CLI.EraBased.Commands.Governance.Actions
GoveranceActionUpdateCommitteeCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceActionCreateConstitutionCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionsCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdProposalErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadTextEnvelopeFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsValueUpdateProtocolParametersNotFoundCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewOutputFormatCardano.CLI.Types.Common
GovernanceActionViewOutputFormatJsonCardano.CLI.Types.Common
GovernanceActionViewOutputFormatYamlCardano.CLI.Types.Common
GovernanceAnswerPoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceAnswerPollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCmdCddlErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelsJsonDecodeErrCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDecoderErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDRepMetadataValidationErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyCostModelCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyUpdateProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdGenesisDelegationNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdHashErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertificateKeyRewardMistmachCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollInvalidChoiceCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollOutOfBoundAnswerCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands
GovernanceCmdTextEnvReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdUnexpectedKeyTypeCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdVerifyPollErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCommitteeCmdKeyDecodeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCommitteeCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeKeyGenColdCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenColdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCreateMirCertificateStakeAddressesCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreateMirCertificateTransferToReservesCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreateMirCertificateTransferToTreasuryCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreatePoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreatePollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceDRepCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceDRepIdCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceGenesisKeyDelegationCertificate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceHashCmdCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceHashErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashReadFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashSourceCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceBinaryFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashWriteFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernancePollCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceQueryAcqireFailureErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryDRepKeyErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryEraMismatchCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryUnsupportedNtcVersionCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryWriteFileErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceUpdateProposalCardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVoteCmdCredentialDecodeErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVerificationKeyErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteFileErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteTextErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceVoteCmdWriteErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCreateCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCreateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
gpAvvmBalanceFactorCardano.CLI.Byron.Genesis
gpFakeAvvmOptionsCardano.CLI.Byron.Genesis
gpKCardano.CLI.Byron.Genesis
gpProtocolMagicCardano.CLI.Byron.Genesis
gpProtocolParamsFileCardano.CLI.Byron.Genesis
gpSeedCardano.CLI.Byron.Genesis
gpStartTimeCardano.CLI.Byron.Genesis
gpTestnetBalanceCardano.CLI.Byron.Genesis
greenCardano.CLI.Pretty
groupExecuteModeCardano.CLI.OS.Posix
groupModesCardano.CLI.OS.Posix
groupReadModeCardano.CLI.OS.Posix
groupWriteModeCardano.CLI.OS.Posix
HandleCardano.CLI.OS.Posix
HandlePosnCardano.CLI.OS.Posix
handleToFdCardano.CLI.OS.Posix
hCloseCardano.CLI.OS.Posix
HelpCardano.CLI.Run
HelpersErrorCardano.CLI.Helpers
hFileSizeCardano.CLI.OS.Posix
hFlushCardano.CLI.OS.Posix
hGetBufCardano.CLI.OS.Posix
hGetBufferingCardano.CLI.OS.Posix
hGetBufNonBlockingCardano.CLI.OS.Posix
hGetBufSomeCardano.CLI.OS.Posix
hGetCharCardano.CLI.OS.Posix
hGetContentsCardano.CLI.OS.Posix
hGetContents'Cardano.CLI.OS.Posix
hGetEchoCardano.CLI.OS.Posix
hGetEncodingCardano.CLI.OS.Posix
hGetLineCardano.CLI.OS.Posix
hGetPosnCardano.CLI.OS.Posix
hiddenSubParserCardano.CLI.EraBased.Options.Common
hIsClosedCardano.CLI.OS.Posix
hIsEOFCardano.CLI.OS.Posix
hIsOpenCardano.CLI.OS.Posix
hIsReadableCardano.CLI.OS.Posix
hIsSeekableCardano.CLI.OS.Posix
hIsTerminalDeviceCardano.CLI.OS.Posix
hIsWritableCardano.CLI.OS.Posix
hLookAheadCardano.CLI.OS.Posix
hPrintCardano.CLI.OS.Posix
hPutBufCardano.CLI.OS.Posix
hPutBufNonBlockingCardano.CLI.OS.Posix
hPutCharCardano.CLI.OS.Posix
hPutLnCardano.CLI.Pretty
hPutStrCardano.CLI.OS.Posix
hPutStrLnCardano.CLI.OS.Posix
hReadyCardano.CLI.OS.Posix
hSeekCardano.CLI.OS.Posix
hSetBinaryModeCardano.CLI.OS.Posix
hSetBufferingCardano.CLI.OS.Posix
hSetEchoCardano.CLI.OS.Posix
hSetEncodingCardano.CLI.OS.Posix
hSetFileSizeCardano.CLI.OS.Posix
hSetNewlineModeCardano.CLI.OS.Posix
hSetPosnCardano.CLI.OS.Posix
hShowCardano.CLI.OS.Posix
hTellCardano.CLI.OS.Posix
hWaitForInputCardano.CLI.OS.Posix
IdOutputFormatCardano.CLI.Types.Common
IdOutputFormatBech32Cardano.CLI.Types.Common
IdOutputFormatHexCardano.CLI.Types.Common
InCardano.CLI.Types.Common
IncompleteCddlFormattedTxCardano.CLI.Read
IncompleteTxCardano.CLI.Read
InlineDatumPresentAtTxInCardano.CLI.Types.Common
InOutCardano.CLI.Types.Common
InputCardano.CLI.Types.Common
InputLineLimitCardano.CLI.OS.Posix
inputNLCardano.CLI.OS.Posix
InputQueueLimitCardano.CLI.OS.Posix
InputTxBodyFileCardano.CLI.Types.Common
InputTxBodyOrTxFileCardano.CLI.Types.Common
InputTxFileCardano.CLI.Types.Common
interactCardano.CLI.OS.Posix
intersectFileModesCardano.CLI.OS.Posix
IOCardano.CLI.OS.Posix
IOError'Cardano.CLI.Helpers
IOModeCardano.CLI.OS.Posix
isBlockDeviceCardano.CLI.OS.Posix
isCharacterDeviceCardano.CLI.OS.Posix
isDirectoryCardano.CLI.OS.Posix
isEOFCardano.CLI.OS.Posix
isNamedPipeCardano.CLI.OS.Posix
isRegularFileCardano.CLI.OS.Posix
isSocketCardano.CLI.OS.Posix
issueByronGenesisDelegationCardano.CLI.Byron.Delegation
isSymbolicLinkCardano.CLI.OS.Posix
ItnKeyBech32DecodeErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnKeyConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnReadBech32FileErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnVerificationKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
KeyCmdByronKeyFailureCardano.CLI.Types.Errors.KeyCmdError
KeyCmdByronKeyParseErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdCardanoAddressSigningKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdExpectedExtendedVerificationKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdItnKeyConvErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdNonLegacyKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands
KeyCmdVerificationKeyReadErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWriteFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWrongKeyTypeErrorCardano.CLI.Types.Errors.KeyCmdError
KeyConvertByronGenesisVKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronGenesisVKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeygenCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
KeyNonExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyNonExtendedKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyOutputFormatCardano.CLI.Types.Common
KeyOutputFormatBech32Cardano.CLI.Types.Common
KeyOutputFormatTextEnvelopeCardano.CLI.Types.Common
KeyVerificationKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyVerificationKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyWitnessSigningDataCardano.CLI.Types.Common
latin1Cardano.CLI.OS.Posix
LegacyAddressCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyByronKeyFormatCardano.CLI.Types.Common
LegacyCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Data Constructor)Cardano.CLI.Run
LegacyDelegateKey 
1 (Type/Class)Cardano.CLI.Byron.Legacy
2 (Data Constructor)Cardano.CLI.Byron.Legacy
LegacyGenesisCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyGovernanceCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyKeyCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyNodeCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Node
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyNodeIssueOpCertCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenColdCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenKESCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyHashVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeNewCounterCmdCardano.CLI.Legacy.Commands.Node
LegacyQueryCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyQueryConstitutionHashCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryKesPeriodInfoCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLeadershipScheduleCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLedgerStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryPoolStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolParametersCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQuerySlotNumberCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeAddressInfoCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakePoolsCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeSnapshotCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTipCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTxMempoolCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacySigningKeyDeserialisationFailedCardano.CLI.Byron.Key
LegacyStakeAddressCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyStakePoolCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyTextViewCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.TextView
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyTransactionCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LFCardano.CLI.OS.Posix
LineBufferingCardano.CLI.OS.Posix
linkCountCardano.CLI.OS.Posix
LinkLimitCardano.CLI.OS.Posix
localeEncodingCardano.CLI.OS.Posix
LockRequestCardano.CLI.OS.Posix
lrkSigningKeyCardano.CLI.Byron.Legacy
magentaCardano.CLI.Pretty
MakeGenesisDelegationErrorCardano.CLI.Byron.Genesis
ManualBalanceCardano.CLI.Types.Common
MetadataErrorCardano.CLI.Read
MetadataErrorConversionErrorCardano.CLI.Read
MetadataErrorDecodeErrorCardano.CLI.Read
MetadataErrorFileCardano.CLI.Read
MetadataErrorJsonParseErrorCardano.CLI.Read
MetadataErrorNotAvailableInEraCardano.CLI.Read
MetadataErrorValidationErrorCardano.CLI.Read
MetadataFileCardano.CLI.Types.Common
MetadataFileCBORCardano.CLI.Types.Common
MetadataFileJSONCardano.CLI.Types.Common
MigrateDelegateKeyFromCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
MissingNetworkIdOrByronAddressErrorCardano.CLI.Types.Errors.BootstrapWitnessError
mkGenesisCardano.CLI.Byron.Genesis
mkTextEncodingCardano.CLI.OS.Posix
modificationTimeCardano.CLI.OS.Posix
modificationTimeHiResCardano.CLI.OS.Posix
moutFileCardano.CLI.EraBased.Commands.Governance.Hash
namedPipeModeCardano.CLI.OS.Posix
nativeNewlineCardano.CLI.OS.Posix
nativeNewlineModeCardano.CLI.OS.Posix
NewCertificateFile 
1 (Type/Class)Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Byron.Commands
NewDirectory 
1 (Type/Class)Cardano.CLI.Byron.Genesis
2 (Data Constructor)Cardano.CLI.Byron.Genesis
NewlineCardano.CLI.OS.Posix
NewlineMode 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
NewSigningKeyFile 
1 (Type/Class)Cardano.CLI.Byron.Key
2 (Data Constructor)Cardano.CLI.Byron.Key
NewTxFile 
1 (Type/Class)Cardano.CLI.Byron.Tx
2 (Data Constructor)Cardano.CLI.Byron.Tx
NewVerificationKeyFile 
1 (Type/Class)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
NextEpochCardano.CLI.Types.Common
nFpCardano.CLI.Byron.Commands
NoBufferingCardano.CLI.OS.Posix
nocttyCardano.CLI.OS.Posix
NodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdOperationalCertificateIssueErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadKeyFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmds 
1 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
2 (Data Constructor)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
3 (Type/Class)Cardano.CLI.EraBased.Commands.Node
4 (Data Constructor)Cardano.CLI.EraBased.Commands
NodeCmdVrfSigningKeyCreationErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdWriteFileErrorCardano.CLI.Types.Errors.NodeCmdError
nodeEraCardano.CLI.Types.Errors.NodeEraMismatchError
NodeEraMismatchError 
1 (Type/Class)Cardano.CLI.Types.Errors.NodeEraMismatchError
2 (Data Constructor)Cardano.CLI.Types.Errors.NodeEraMismatchError
NodeIssueOpCertCmdCardano.CLI.EraBased.Commands.Node
NodeIssueOpCertCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdCardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
nodeSubmitTxCardano.CLI.Byron.Tx
NoGenesisDelegationForKeyCardano.CLI.Byron.Genesis
nonBlockCardano.CLI.OS.Posix
NonBlockingReadCardano.CLI.OS.Posix
noNewlineTranslationCardano.CLI.OS.Posix
NonLegacyByronKeyFormatCardano.CLI.Types.Common
normalByronTxToGenTxCardano.CLI.Byron.Tx
NoScriptDatumOrFileForMintCardano.CLI.Types.Common
NoScriptDatumOrFileForStakeCardano.CLI.Types.Common
nullFileModeCardano.CLI.OS.Posix
OnlyCardano.CLI.Types.Common
OpCertCounterCardano.CLI.Types.Common
OpCertCounterFileCardano.CLI.Types.Common
OpCertEndingKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertExpiredCardano.CLI.Types.Common
OpCertIntervalInformationCardano.CLI.Types.Common
OpCertNoBlocksMintedYetCardano.CLI.Types.Common
OpCertNodeAndOnDiskCounterInformationCardano.CLI.Types.Common
OpCertNodeStateCounter 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertOnDiskCounter 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertOnDiskCounterAheadOfNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterBehindNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterEqualToNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterTooFarAheadOfNodeStateCardano.CLI.Types.Common
OpCertSomeOtherErrorCardano.CLI.Types.Common
OpCertStartingKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertStartingKesPeriodIsInTheFutureCardano.CLI.Types.Common
OpCertWithinIntervalCardano.CLI.Types.Common
openBinaryFileCardano.CLI.OS.Posix
openBinaryTempFileCardano.CLI.OS.Posix
openBinaryTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
openFdCardano.CLI.OS.Posix
openFileCardano.CLI.OS.Posix
OpenFileFlags 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
OpenModeCardano.CLI.OS.Posix
openTempFileCardano.CLI.OS.Posix
openTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
optsCardano.CLI.Options
otherExecuteModeCardano.CLI.OS.Posix
otherModesCardano.CLI.OS.Posix
otherReadModeCardano.CLI.OS.Posix
otherWriteModeCardano.CLI.OS.Posix
OutCardano.CLI.Types.Common
OutputCardano.CLI.Types.Common
OutputMustNotAlreadyExistCardano.CLI.Helpers
outputNLCardano.CLI.OS.Posix
OutputScriptCostOnlyCardano.CLI.Types.Common
OutputTxBodyOnlyCardano.CLI.Types.Common
ownerExecuteModeCardano.CLI.OS.Posix
ownerModesCardano.CLI.OS.Posix
ownerReadModeCardano.CLI.OS.Posix
ownerWriteModeCardano.CLI.OS.Posix
pAddCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pAddressCardano.CLI.EraBased.Options.Common
pAddressCmdsCardano.CLI.EraBased.Options.Address
pAddressKeyTypeCardano.CLI.EraBased.Options.Common
pAlwaysAbstainCardano.CLI.EraBased.Options.Common
pAlwaysNoConfidenceCardano.CLI.EraBased.Options.Common
pAnchorDataHashCardano.CLI.EraBased.Options.Common
pAnchorUrlCardano.CLI.EraBased.Options.Common
pAnyEraCommandCardano.CLI.EraBased.Commands
pAnyShelleyBasedEraCardano.CLI.EraBased.Options.Common
pAnyShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pAnyVerificationKeySourceCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyTextCardano.CLI.EraBased.Options.Common
Params 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
parseByronCommandsCardano.CLI.Byron.Parsers
parseHeavyDelThdCardano.CLI.Byron.Parsers
parseInstallerHashCardano.CLI.Byron.Parsers
parseLegacyCmdsCardano.CLI.Legacy.Options
parseLovelaceCardano.CLI.EraBased.Options.Common
parseMaxBlockSizeCardano.CLI.Byron.Parsers
parseMaxHeaderSizeCardano.CLI.Byron.Parsers
parseMaxProposalSizeCardano.CLI.Byron.Parsers
parseMaxTxSizeCardano.CLI.Byron.Parsers
parseMpcThdCardano.CLI.Byron.Parsers
parsePingCmdCardano.CLI.Run.Ping
ParserFileDirectionCardano.CLI.Types.Common
parseScriptVersionCardano.CLI.Byron.Parsers
parseSlotDurationCardano.CLI.Byron.Parsers
parseSoftforkRuleCardano.CLI.Byron.Parsers
parseStakeAddressCardano.CLI.EraBased.Options.Common
parseSystemTagCardano.CLI.Byron.Parsers
parseTxFeePolicyCardano.CLI.Byron.Parsers
parseTxIdCardano.CLI.EraBased.Options.Common
parseTxInCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
parseTxIxCardano.CLI.EraBased.Options.Common
parseTxOutAnyEraCardano.CLI.EraBased.Options.Common
parseUnlockStakeEpochCardano.CLI.Byron.Parsers
parseUpdateProposalThdCardano.CLI.Byron.Parsers
parseUpdateProposalTTLCardano.CLI.Byron.Parsers
parseUpdateVoteThdCardano.CLI.Byron.Parsers
PathNameLimitCardano.CLI.OS.Posix
PathVarCardano.CLI.OS.Posix
PaymentVerifierCardano.CLI.Types.Key
PaymentVerifierKeyCardano.CLI.Types.Key
PaymentVerifierScriptFileCardano.CLI.Types.Key
paymentVkeyDescCardano.CLI.EraBased.Run.Key
pBech32KeyHashCardano.CLI.EraBased.Options.Common
pByronAddressCardano.CLI.EraBased.Options.Common
pCalculatePlutusScriptCostCardano.CLI.EraBased.Options.Common
pCBORInFileCardano.CLI.EraBased.Options.Common
pCertificateFileCardano.CLI.EraBased.Options.Common
pCmdsCardano.CLI.EraBased.Commands
pColdSigningKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCollateralPercentCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyOrHashOrVerificationFileCardano.CLI.EraBased.Options.Common
pCommitteeTermLengthCardano.CLI.EraBased.Options.Common
pConsensusModeParamsCardano.CLI.EraBased.Options.Common
pConstitutionHashCardano.CLI.EraBased.Options.Common
pConstitutionHashSourceCardano.CLI.EraBased.Options.Common
pConstitutionUrlCardano.CLI.EraBased.Options.Common
pCostModelsCardano.CLI.EraBased.Options.Common
pDecentralParamCardano.CLI.EraBased.Options.Common
pDRepActivityCardano.CLI.EraBased.Options.Common
pDRepDepositCardano.CLI.EraBased.Options.Common
pDrepDepositCardano.CLI.EraBased.Options.Common
pDRepHashSourceCardano.CLI.EraBased.Options.Common
pDRepScriptHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pDRepVotingThresholdsCardano.CLI.EraBased.Options.Common
pEpochBoundRetirementCardano.CLI.EraBased.Options.Common
pEpochNoCardano.CLI.EraBased.Options.Common
pEpochNoUpdatePropCardano.CLI.EraBased.Options.Common
pEpochSlotsCardano.CLI.EraBased.Options.Common
percentageCardano.CLI.EraBased.Run.Query
pExecutionUnitPricesCardano.CLI.EraBased.Options.Common
pExecutionUnitsCardano.CLI.EraBased.Options.Common
pExtendedVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pExtraEntropyCardano.CLI.EraBased.Options.Common
pFeaturedCardano.CLI.EraBased.Options.Common
pFileInDirectionCardano.CLI.EraBased.Options.Common
pFileOutDirectionCardano.CLI.EraBased.Options.Common
pFilterByStakeAddressCardano.CLI.EraBased.Options.Common
pGenesisCmdsCardano.CLI.EraBased.Options.Genesis
pGenesisDelegateVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGenesisFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGovActionDepositCardano.CLI.EraBased.Options.Common
pGovActionLifetimeCardano.CLI.EraBased.Options.Common
pGovernanceActionCmdsCardano.CLI.EraBased.Options.Governance.Actions
pGovernanceActionIdCardano.CLI.EraBased.Options.Common
pGovernanceActionViewOutputFormatCardano.CLI.EraBased.Options.Common
pGovernanceCmdsCardano.CLI.EraBased.Options.Governance
pGovernanceCommitteeCmdsCardano.CLI.EraBased.Options.Governance.Committee
pGovernanceDRepCmdsCardano.CLI.EraBased.Options.Governance.DRep
pGovernanceHashCmdsCardano.CLI.EraBased.Options.Governance.Hash
pGovernancePollCmdsCardano.CLI.EraBased.Options.Governance.Poll
pGovernanceVoteCmdsCardano.CLI.EraBased.Options.Governance.Vote
pHexHashCardano.CLI.EraBased.Options.Common
PingClientCmdError 
1 (Type/Class)Cardano.CLI.Run.Ping
2 (Data Constructor)Cardano.CLI.Run.Ping
PingCmd 
1 (Type/Class)Cardano.CLI.Run.Ping
2 (Data Constructor)Cardano.CLI.Run.Ping
pingCmdCountCardano.CLI.Run.Ping
pingCmdEndPointCardano.CLI.Run.Ping
pingCmdJsonCardano.CLI.Run.Ping
pingCmdMagicCardano.CLI.Run.Ping
pingCmdPortCardano.CLI.Run.Ping
pingCmdQuietCardano.CLI.Run.Ping
pingOptsHandshakeQueryCardano.CLI.Run.Ping
pInputTxOrTxBodyFileCardano.CLI.EraBased.Options.Common
pInvalidBeforeCardano.CLI.EraBased.Options.Common
pInvalidHereafterCardano.CLI.EraBased.Options.Common
PipeBufferLimitCardano.CLI.OS.Posix
pIpV4Cardano.CLI.EraBased.Options.Common
pIpV6Cardano.CLI.EraBased.Options.Common
pKesPeriodCardano.CLI.EraBased.Options.Common
pKesVerificationKeyCardano.CLI.EraBased.Options.Common
pKesVerificationKeyFileCardano.CLI.EraBased.Options.Common
pKesVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pKeyCmds 
1 (Function)Cardano.CLI.Legacy.Options.Key
2 (Function)Cardano.CLI.EraBased.Options.Key
pKeyOutputFormatCardano.CLI.EraBased.Options.Common
pKeyRegistDepositCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pLegacyCardanoEraCardano.CLI.Legacy.Options
pLegacyInvalidHereafterCardano.CLI.EraBased.Options.Common
pLegacyShelleyBasedEraCardano.CLI.Legacy.Options
PlutusReferenceScriptWitnessFilesCardano.CLI.Types.Common
PlutusScriptCostErrorCardano.CLI.Types.Output
PlutusScriptWitnessFilesCardano.CLI.Types.Common
pMaxBlockExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxBlockHeaderSizeCardano.CLI.EraBased.Options.Common
pMaxBodySizeCardano.CLI.EraBased.Options.Common
pMaxCollateralInputsCardano.CLI.EraBased.Options.Common
pMaxTransactionSizeCardano.CLI.EraBased.Options.Common
pMaxTxExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxValueSizeCardano.CLI.EraBased.Options.Common
pMaybeOutputFileCardano.CLI.EraBased.Options.Common
pMetadataFileCardano.CLI.EraBased.Options.Common
pMinCommitteeSizeCardano.CLI.EraBased.Options.Common
pMinFeeConstantFactorCardano.CLI.EraBased.Options.Common
pMinFeePerByteFactorCardano.CLI.EraBased.Options.Common
pMinPoolCostCardano.CLI.EraBased.Options.Common
pMintMultiAssetCardano.CLI.EraBased.Options.Common
pMinUTxOValueCardano.CLI.EraBased.Options.Common
pMIRPotCardano.CLI.EraBased.Options.Common
pMonetaryExpansionCardano.CLI.EraBased.Options.Common
pMultiHostNameCardano.CLI.EraBased.Options.Common
pNetworkIdCardano.CLI.EraBased.Options.Common
pNodeCmdsCardano.CLI.EraBased.Options.Node
pNumberOfPoolsCardano.CLI.EraBased.Options.Common
poolParametersCardano.CLI.Types.Common
PoorKeyFailureCardano.CLI.Byron.Genesis
pOperationalCertificateFileCardano.CLI.EraBased.Options.Common
pOperatorCertIssueCounterFileCardano.CLI.EraBased.Options.Common
pOutputFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextOrFileCardano.CLI.EraBased.Options.Common
pPaymentVerifierCardano.CLI.EraBased.Options.Common
pPlutusScriptLanguageCardano.CLI.EraBased.Options.Common
pPlutusStakeReferenceScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pPolicyIdCardano.CLI.EraBased.Options.Common
pPollAnswerCardano.CLI.EraBased.Options.Common
pPollAnswerIndexCardano.CLI.EraBased.Options.Common
pPollFileCardano.CLI.EraBased.Options.Common
pPollNonceCardano.CLI.EraBased.Options.Common
pPollQuestionCardano.CLI.EraBased.Options.Common
pPollTxFileCardano.CLI.EraBased.Options.Common
pPoolCostCardano.CLI.EraBased.Options.Common
pPoolDepositCardano.CLI.EraBased.Options.Common
pPoolIdOutputFormatCardano.CLI.EraBased.Options.Common
pPoolInfluenceCardano.CLI.EraBased.Options.Common
pPoolMarginCardano.CLI.EraBased.Options.Common
pPoolMetadataFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pPoolPledgeCardano.CLI.EraBased.Options.Common
pPoolRelayCardano.CLI.EraBased.Options.Common
pPoolVotingThresholdsCardano.CLI.EraBased.Options.Common
pPortCardano.CLI.EraBased.Options.Common
pPreviousGovernanceActionCardano.CLI.EraBased.Options.Common
pPrintCBORCardano.CLI.Helpers
pProtocolParametersUpdateCardano.CLI.EraBased.Options.Common
pProtocolParamsFileCardano.CLI.EraBased.Options.Common
pProtocolVersionCardano.CLI.EraBased.Options.Common
pQueryCmdsCardano.CLI.EraBased.Options.Query
pQueryUTxOFilterCardano.CLI.EraBased.Options.Common
pRationalCardano.CLI.EraBased.Options.Common
pReadOnlyReferenceTxInCardano.CLI.EraBased.Options.Common
prefCardano.CLI.Options
pReferenceTxInCardano.CLI.EraBased.Options.Common
prefixFlagCardano.CLI.EraBased.Options.Common
pRefScriptFpCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pRequiredSignerCardano.CLI.EraBased.Options.Common
prettyAddressCardano.CLI.Byron.Tx
PrettyPrintCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
prettyPublicKeyCardano.CLI.Byron.Key
PrettySigningKeyPublicCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
pReturnCollateralCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRewardAmtCardano.CLI.EraBased.Options.Common
printCardano.CLI.OS.Posix
PrintGenesisHashCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
PrintSigningKeyAddressCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
printWarningCardano.CLI.Helpers
PrioIOAvailableCardano.CLI.OS.Posix
PrivKeyFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProposalErrorCardano.CLI.Read
ProposalErrorFileCardano.CLI.Read
ProposalFileCardano.CLI.Types.Common
ProposalNotSupportedInEraCardano.CLI.Read
ProposalNotUnicodeErrorCardano.CLI.Read
ProposalText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProposalUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProtocolParametersParseFailedCardano.CLI.Byron.Genesis
ProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorFileCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorJSONCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
pScriptCardano.CLI.EraBased.Options.Common
pScriptDataOrFileCardano.CLI.EraBased.Options.Common
pScriptDatumOrFileCardano.CLI.EraBased.Options.Common
pScriptForCardano.CLI.EraBased.Options.Common
pScriptRedeemerOrFileCardano.CLI.EraBased.Options.Common
pScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pShelleyBasedAllegraCardano.CLI.EraBased.Options.Common
pShelleyBasedAlonzoCardano.CLI.EraBased.Options.Common
pShelleyBasedBabbageCardano.CLI.EraBased.Options.Common
pShelleyBasedConwayCardano.CLI.EraBased.Options.Common
pShelleyBasedMaryCardano.CLI.EraBased.Options.Common
pShelleyBasedShelleyCardano.CLI.EraBased.Options.Common
pSigningKeyFileInCardano.CLI.EraBased.Options.Common
pSigningKeyFileOutCardano.CLI.EraBased.Options.Common
pSingleHostAddressCardano.CLI.EraBased.Options.Common
pSingleHostNameCardano.CLI.EraBased.Options.Common
pSocketPathCardano.CLI.EraBased.Options.Common
pStakeAddressCardano.CLI.EraBased.Options.Common
pStakeAddressCmdsCardano.CLI.EraBased.Options.StakeAddress
pStakeIdentifierCardano.CLI.EraBased.Options.Common
pStakePoolCmdsCardano.CLI.EraBased.Options.StakePool
pStakePoolMetadataHashCardano.CLI.EraBased.Options.Common
pStakePoolMetadataReferenceCardano.CLI.EraBased.Options.Common
pStakePoolMetadataUrlCardano.CLI.EraBased.Options.Common
pStakePoolRegistrationParserRequirementsCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakeVerificationKeyCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pStakeVerifierCardano.CLI.EraBased.Options.Common
pTextViewCmdsCardano.CLI.EraBased.Options.TextView
pTotalCollateralCardano.CLI.EraBased.Options.Common
pTransactionCmdsCardano.CLI.EraBased.Options.Transaction
pTransferAmtCardano.CLI.EraBased.Options.Common
pTreasuryExpansionCardano.CLI.EraBased.Options.Common
pTxBodyFileInCardano.CLI.EraBased.Options.Common
pTxBodyFileOutCardano.CLI.EraBased.Options.Common
pTxByronWitnessCountCardano.CLI.EraBased.Options.Common
pTxFeeCardano.CLI.EraBased.Options.Common
pTxFileInCardano.CLI.EraBased.Options.Common
pTxFileOutCardano.CLI.EraBased.Options.Common
pTxIdCardano.CLI.EraBased.Options.Common
pTxInCardano.CLI.EraBased.Options.Common
pTxInCollateralCardano.CLI.EraBased.Options.Common
pTxInCountCardano.CLI.EraBased.Options.Common
pTxMetadataJsonSchemaCardano.CLI.EraBased.Options.Common
pTxOutCardano.CLI.EraBased.Options.Common
pTxOutCountCardano.CLI.EraBased.Options.Common
pTxOutDatumCardano.CLI.EraBased.Options.Common
pTxShelleyWitnessCountCardano.CLI.EraBased.Options.Common
pTxSubmitFileCardano.CLI.EraBased.Options.Common
pTxViewOutputFormatCardano.CLI.EraBased.Options.Common
pUpdateProposalFileCardano.CLI.EraBased.Options.Common
pUrlCardano.CLI.EraBased.Options.Common
putCharCardano.CLI.OS.Posix
putLnCardano.CLI.Pretty
putStrCardano.CLI.OS.Posix
putStrLnCardano.CLI.OS.Posix
pUTxOCostPerByteCardano.CLI.EraBased.Options.Common
pVerificationKeyCardano.CLI.EraBased.Options.Common
pVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pVerificationKeyFileOutCardano.CLI.EraBased.Options.Common
pVerificationKeyOrFileInCardano.CLI.EraBased.Options.Common
pVoteAnchorCardano.CLI.EraBased.Options.Common
pVoteAnchorDataHashCardano.CLI.EraBased.Options.Common
pVoteChoiceCardano.CLI.EraBased.Options.Common
pVoteDelegationTargetCardano.CLI.EraBased.Options.Common
pVoterTypeCardano.CLI.EraBased.Options.Common
pVotingCredentialCardano.CLI.EraBased.Options.Common
pVrfSigningKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyHashCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pWhichLeadershipScheduleCardano.CLI.EraBased.Options.Common
pWithdrawalCardano.CLI.EraBased.Options.Common
pWitnessFileCardano.CLI.EraBased.Options.Common
pWitnessOverrideCardano.CLI.EraBased.Options.Common
pWitnessSigningDataCardano.CLI.EraBased.Options.Common
pWord32Cardano.CLI.EraBased.Options.Common
QueryCmdAcquireFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmdByronEraCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeColdKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeHotKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdConvenienceErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdDRepKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdEraMismatchCardano.CLI.Types.Errors.QueryCmdError
QueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdGenesisReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdHelpersErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLeaderShipErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLocalStateQueryError 
1 (Type/Class)Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
2 (Data Constructor)Cardano.CLI.Types.Errors.QueryCmdError
QueryCmdOpCertCounterReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPastHorizonCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPoolStateDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolParameterConversionErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolStateDecodeFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands
QueryCmdStakeSnapshotDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdSystemStartUnavailableCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextEnvelopeReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdUnsupportedNtcVersionCardano.CLI.Types.Errors.QueryCmdError
QueryCmdWriteFileErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCommitteeMembersStateCmdCardano.CLI.EraBased.Commands.Query
QueryCommitteeMembersStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionCmdCardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
queryFdOptionCardano.CLI.OS.Posix
QueryGovStateCmdCardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryLeadershipScheduleCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLeadershipScheduleCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryNoArgCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipLocalState 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryTipLocalStateOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryTxMempoolCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTxMempoolCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
readAndDecodeShelleyGenesisCardano.CLI.EraBased.Run.Genesis
readByronSigningKeyCardano.CLI.Byron.Key
readByronTxCardano.CLI.Byron.Tx
readByronUpdateProposalCardano.CLI.Byron.UpdateProposal
readByronVoteCardano.CLI.Byron.Vote
readCBORCardano.CLI.Helpers
ReadCBORFileFailureCardano.CLI.Helpers
readCddlTxCardano.CLI.Read
readDRepCredentialCardano.CLI.Types.Key
readerFromAttoParserCardano.CLI.Parser
readerFromParsecParserCardano.CLI.EraBased.Options.Common
readFileCardano.CLI.OS.Posix
readFile'Cardano.CLI.OS.Posix
ReadFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
readFileOrPipeCardano.CLI.Read
readFileScriptInAnyLangCardano.CLI.Read
readFileTxCardano.CLI.Read
readFileTxBodyCardano.CLI.Read
readFileTxKeyWitnessCardano.CLI.Read
readFileTxMetadataCardano.CLI.Read
readFractionAsRationalCardano.CLI.Parser
readGenesisCardano.CLI.Byron.Genesis
readGovernanceActionViewOutputFormatCardano.CLI.Parser
readHexAsSafeHashCardano.CLI.Read
readIdOutputFormatCardano.CLI.Parser
readIOCardano.CLI.OS.Posix
readKeyOutputFormatCardano.CLI.Parser
readLnCardano.CLI.OS.Posix
ReadLockCardano.CLI.OS.Posix
ReadModeCardano.CLI.OS.Posix
ReadOnlyCardano.CLI.OS.Posix
readPaymentVerificationKeyCardano.CLI.Byron.Key
readProposalCardano.CLI.Read
readProtocolParametersCardano.CLI.EraBased.Run.Genesis
readRationalCardano.CLI.Parser
readRationalUnitIntervalCardano.CLI.Parser
readRequiredSignerCardano.CLI.Read
readSafeHashCardano.CLI.Read
ReadSafeHashErrorCardano.CLI.Read
ReadSafeHashErrorInvalidHashCardano.CLI.Read
ReadSafeHashErrorNotHexCardano.CLI.Read
readScriptDataOrFileCardano.CLI.Read
readScriptDatumOrFileCardano.CLI.Read
readScriptRedeemerOrFileCardano.CLI.Read
readScriptWitnessCardano.CLI.Read
readScriptWitnessFilesCardano.CLI.Read
readScriptWitnessFilesThrupleCardano.CLI.Read
ReadSigningKeyFailure 
1 (Data Constructor)Cardano.CLI.Byron.Key
2 (Data Constructor)Cardano.CLI.Byron.UpdateProposal
readSigningKeyFileCardano.CLI.Types.Key
readStringOfMaxLengthCardano.CLI.Parser
readSymbolicLinkCardano.CLI.OS.Posix
readTxGovernanceActionsCardano.CLI.Read
readTxMetadataCardano.CLI.Read
readTxUpdateProposalCardano.CLI.Read
readTxViewOutputFormatCardano.CLI.Parser
readURIOfMaxLengthCardano.CLI.Parser
readVerificationKeyCardano.CLI.EraBased.Options.Common
ReadVerificationKeyFailureCardano.CLI.Byron.Key
readVerificationKeyOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyTextOrFileAnyOfCardano.CLI.Types.Key
readVoteDelegationTargetCardano.CLI.Read
readVotingProceduresFileCardano.CLI.Read
readVotingProceduresFilesCardano.CLI.Read
readWitnessSigningDataCardano.CLI.Read
ReadWitnessSigningDataErrorCardano.CLI.Read
ReadWitnessSigningDataScriptErrorCardano.CLI.Read
ReadWitnessSigningDataSigningKeyAndAddressMismatchCardano.CLI.Read
ReadWitnessSigningDataSigningKeyDecodeErrorCardano.CLI.Read
ReadWriteCardano.CLI.OS.Posix
ReadWriteModeCardano.CLI.OS.Posix
redCardano.CLI.Pretty
ReferenceScriptAnyEra 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ReferenceScriptAnyEraNoneCardano.CLI.Types.Common
RegistrationErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationReadErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeCredentialErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationWriteFileErrorCardano.CLI.Types.Errors.RegistrationError
regularFileModeCardano.CLI.OS.Posix
RelativeSeekCardano.CLI.OS.Posix
removeLinkCardano.CLI.OS.Posix
renameCardano.CLI.OS.Posix
renderAddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
renderAddressCmdsCardano.CLI.EraBased.Commands.Address
renderAnyEraCommandCardano.CLI.EraBased.Commands
renderBootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
renderByronClientCmdErrorCardano.CLI.Byron.Run
renderByronDelegationErrorCardano.CLI.Byron.Delegation
renderByronGenesisErrorCardano.CLI.Byron.Genesis
renderByronKeyFailureCardano.CLI.Byron.Key
renderByronTxErrorCardano.CLI.Byron.Tx
renderByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
renderByronVoteErrorCardano.CLI.Byron.Vote
renderCardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
renderClientCommandErrorCardano.CLI.Run
renderCmdErrorCardano.CLI.Types.Errors.CmdError
renderCmdsCardano.CLI.EraBased.Commands
renderConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
renderDefaultCardano.CLI.Pretty
renderFeatureCardano.CLI.Types.TxFeature
renderGenesisCmdsCardano.CLI.EraBased.Commands.Genesis
renderGovernanceActionCmdsCardano.CLI.EraBased.Commands.Governance.Actions
renderGovernanceCmdsCardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
renderGovernanceCommitteeCmdsCardano.CLI.EraBased.Commands.Governance.Committee
renderGovernanceDRepCmdsCardano.CLI.EraBased.Commands.Governance.DRep
renderGovernanceHashCmdsCardano.CLI.EraBased.Commands.Governance.Hash
renderGovernancePollCmdsCardano.CLI.EraBased.Commands.Governance.Poll
renderGovernanceVoteCmdsCardano.CLI.EraBased.Commands.Governance.Vote
renderHelpersErrorCardano.CLI.Helpers
renderKeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
renderKeyCmdsCardano.CLI.EraBased.Commands.Key
renderLegacyAddressCmdsCardano.CLI.Legacy.Commands.Address
renderLegacyCommandCardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
renderLegacyGenesisCmdsCardano.CLI.Legacy.Commands.Genesis
renderLegacyGovernanceCmdsCardano.CLI.Legacy.Commands.Governance
renderLegacyKeyCmdsCardano.CLI.Legacy.Commands.Key
renderLegacyNodeCmdsCardano.CLI.Legacy.Commands.Node
renderLegacyQueryCmdsCardano.CLI.Legacy.Commands.Query
renderLegacyStakeAddressCmdsCardano.CLI.Legacy.Commands.StakeAddress
renderLegacyStakePoolCmdsCardano.CLI.Legacy.Commands.StakePool
renderLegacyTextViewCmdsCardano.CLI.Legacy.Commands.TextView
renderLegacyTransactionCmdsCardano.CLI.Legacy.Commands.Transaction
renderLocalStateQueryErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError, Cardano.CLI.EraBased.Run.Query
renderMetadataErrorCardano.CLI.Read
renderNodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
renderNodeCmdsCardano.CLI.EraBased.Commands.Node
renderOpCertIntervalInformationCardano.CLI.EraBased.Run.Query
renderPingClientCmdErrorCardano.CLI.Run.Ping
renderProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
renderQueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError, Cardano.CLI.EraBased.Run.Query
renderQueryCmdsCardano.CLI.EraBased.Commands.Query
renderReadWitnessSigningDataErrorCardano.CLI.Read
renderScriptCostsCardano.CLI.Types.Output
renderScriptDataErrorCardano.CLI.Read
renderScriptWitnessErrorCardano.CLI.Read
renderStakeAddressCmdsCardano.CLI.EraBased.Commands.StakeAddress
renderStakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
renderStakePoolCmdsCardano.CLI.EraBased.Commands.StakePool
renderStringDefaultCardano.CLI.Pretty
renderTextViewCmdsCardano.CLI.EraBased.Commands.TextView
renderTextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
renderTransactionCmdsCardano.CLI.EraBased.Commands.Transaction
renderTxCmdErrorCardano.CLI.Types.Errors.TxCmdError
renderVerificationKeyTextOrFileErrorCardano.CLI.Types.Key
replicateMCardano.CLI.IO.Lazy
RequiredSignerCardano.CLI.Types.Common
RequiredSignerErrorCardano.CLI.Read
RequiredSignerErrorByronKeyCardano.CLI.Read
RequiredSignerErrorFileCardano.CLI.Read
RequiredSignerHashCardano.CLI.Types.Common
RequiredSignerSkeyFileCardano.CLI.Types.Common
retiringEpochCardano.CLI.Types.Common
runAddressBuildCmdCardano.CLI.EraBased.Run.Address
runAddressCmdsCardano.CLI.EraBased.Run.Address
runAddressInfoCmdCardano.CLI.EraBased.Run.Address.Info
runAddressKeyGenCmdCardano.CLI.EraBased.Run.Address
runAddressKeyHashCmdCardano.CLI.EraBased.Run.Address
runAnyEraCommandCardano.CLI.EraBased.Run
runByronClientCommandCardano.CLI.Byron.Run
runClientCommandCardano.CLI.Run
runCmdsCardano.CLI.EraBased.Run
runConvertByronGenesisVKeyCmdCardano.CLI.EraBased.Run.Key
runConvertByronKeyCmdCardano.CLI.EraBased.Run.Key
runConvertCardanoAddressKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNBip32KeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNKeyCmdCardano.CLI.EraBased.Run.Key
runGenesisAddrCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCmdsCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCardanoCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateStakedCmdCardano.CLI.EraBased.Run.Genesis
runGenesisHashFileCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenDelegateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenGenesisCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenUTxOCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyHashCmdCardano.CLI.EraBased.Run.Genesis
runGenesisTxInCmdCardano.CLI.EraBased.Run.Genesis
runGenesisVerKeyCmdCardano.CLI.EraBased.Run.Genesis
runGovernanceActionCmdsCardano.CLI.EraBased.Run.Governance.Actions
runGovernanceAnswerPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceCmdsCardano.CLI.EraBased.Run.Governance, Cardano.CLI.EraBased.Run
runGovernanceCommitteeCmdsCardano.CLI.EraBased.Run.Governance.Committee
runGovernanceCreateMirCertificateTransferToReservesCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreateMirCertificateTransferToTreasuryCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreatePollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceDRepCmdsCardano.CLI.EraBased.Run.Governance.DRep
runGovernanceGenesisKeyDelegationCertificateCardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
runGovernanceHashCmdsCardano.CLI.EraBased.Run.Governance.Hash
runGovernanceMIRCertificatePayStakeAddrsCardano.CLI.EraBased.Run.Governance
runGovernancePollCmdsCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVerifyPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVoteCmdsCardano.CLI.EraBased.Run.Governance.Vote
runKeyCmdsCardano.CLI.EraBased.Run.Key
runLegacyAddressCmdsCardano.CLI.Legacy.Run.Address
runLegacyCmdsCardano.CLI.Legacy.Run
runLegacyGenesisCmdsCardano.CLI.Legacy.Run.Genesis
runLegacyGovernanceCmdsCardano.CLI.Legacy.Run.Governance
runLegacyKeyCmdsCardano.CLI.Legacy.Run.Key
runLegacyNodeCmdsCardano.CLI.Legacy.Run.Node
runLegacyQueryCmdsCardano.CLI.Legacy.Run.Query
runLegacyStakeAddressCmdsCardano.CLI.Legacy.Run.StakeAddress
runLegacyStakePoolCmdsCardano.CLI.Legacy.Run.StakePool
runLegacyTextViewCmdsCardano.CLI.Legacy.Run.TextView
runLegacyTransactionCmdsCardano.CLI.Legacy.Run.Transaction
runNodeCmdsCardano.CLI.EraBased.Run.Node
runNodeIssueOpCertCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenColdCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenKesCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenVrfCmdCardano.CLI.EraBased.Run.Node
runNodeKeyHashVrfCmdCardano.CLI.EraBased.Run.Node
runNodeNewCounterCmdCardano.CLI.EraBased.Run.Node
runNonExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runPingCmdCardano.CLI.Run.Ping
runProposalCreationCardano.CLI.Byron.UpdateProposal
runQueryCmdsCardano.CLI.EraBased.Run.Query
runQueryConstitutionHashCmdCardano.CLI.EraBased.Run.Query
runQueryKesPeriodInfoCmdCardano.CLI.EraBased.Run.Query
runQueryLeadershipScheduleCmdCardano.CLI.EraBased.Run.Query
runQueryLedgerStateCmdCardano.CLI.EraBased.Run.Query
runQueryPoolStateCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolParametersCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolStateCmdCardano.CLI.EraBased.Run.Query
runQuerySlotNumberCmdCardano.CLI.EraBased.Run.Query
runQueryStakeAddressInfoCmdCardano.CLI.EraBased.Run.Query
runQueryStakeDistributionCmdCardano.CLI.EraBased.Run.Query
runQueryStakePoolsCmdCardano.CLI.EraBased.Run.Query
runQueryStakeSnapshotCmdCardano.CLI.EraBased.Run.Query
runQueryTipCmdCardano.CLI.EraBased.Run.Query
runQueryTxMempoolCmdCardano.CLI.EraBased.Run.Query
runQueryUTxOCmdCardano.CLI.EraBased.Run.Query
runStakeAddressBuildCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressCmdsCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyGenCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyHashCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakePoolCmdsCardano.CLI.EraBased.Run.StakePool
runStakePoolDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolIdCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolMetadataHashCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runTextViewCmdsCardano.CLI.EraBased.Run.TextView
runTextViewInfoCmdCardano.CLI.EraBased.Run.TextView
runTransactionBuildCmdCardano.CLI.EraBased.Run.Transaction
runTransactionBuildRawCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinFeeCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinValueCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCmdsCardano.CLI.EraBased.Run.Transaction
runTransactionHashScriptDataCmdCardano.CLI.EraBased.Run.Transaction
runTransactionPolicyIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignWitnessCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSubmitCmdCardano.CLI.EraBased.Run.Transaction
runTransactionTxIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionViewCmdCardano.CLI.EraBased.Run.Transaction
runTransactionWitnessCmdCardano.CLI.EraBased.Run.Transaction
runVerificationKeyCmdCardano.CLI.EraBased.Run.Key
runVoteCreationCardano.CLI.Byron.Vote
ScriptCostOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
ScriptDataCborFileCardano.CLI.Types.Common
ScriptDataErrorCardano.CLI.Read
ScriptDataErrorConversionCardano.CLI.Read
ScriptDataErrorFileCardano.CLI.Read
ScriptDataErrorJsonBytesCardano.CLI.Read
ScriptDataErrorJsonParseCardano.CLI.Read
ScriptDataErrorMetadataDecodeCardano.CLI.Read
ScriptDataErrorValidationCardano.CLI.Read
ScriptDataJsonFileCardano.CLI.Types.Common
ScriptDataOrFileCardano.CLI.Types.Common
ScriptDataValueCardano.CLI.Types.Common
ScriptDatumOrFileCardano.CLI.Types.Common
ScriptDatumOrFileForTxInCardano.CLI.Types.Common
ScriptDecodeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeSimpleScriptErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeTextEnvelopeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
scriptHashReaderCardano.CLI.Read
ScriptInvalidCardano.CLI.Byron.Tx
ScriptRedeemerOrFileCardano.CLI.Types.Common
ScriptValidCardano.CLI.Byron.Tx
ScriptValidityCardano.CLI.Byron.Tx
ScriptValidityNotSupportedCardano.CLI.Types.Errors.TxValidationError
ScriptWitnessErrorCardano.CLI.Read
ScriptWitnessErrorExpectedPlutusCardano.CLI.Read
ScriptWitnessErrorExpectedSimpleCardano.CLI.Read
ScriptWitnessErrorFileCardano.CLI.Read
ScriptWitnessErrorReferenceScriptsNotSupportedInEraCardano.CLI.Read
ScriptWitnessErrorScriptDataCardano.CLI.Read
ScriptWitnessErrorScriptLanguageNotSupportedInEraCardano.CLI.Read
ScriptWitnessFilesCardano.CLI.Types.Common
SeekFromEndCardano.CLI.OS.Posix
SeekModeCardano.CLI.OS.Posix
sequenceMCardano.CLI.IO.Lazy
serialiseByronWitnessCardano.CLI.Byron.Delegation
serialiseDelegationCertCardano.CLI.Byron.Delegation
setFdModeCardano.CLI.OS.Posix
setFdOptionCardano.CLI.OS.Posix
setFdOwnerAndGroupCardano.CLI.OS.Posix
setFdSizeCardano.CLI.OS.Posix
setFdTimesHiResCardano.CLI.OS.Posix
setFileCreationMaskCardano.CLI.OS.Posix
setFileModeCardano.CLI.OS.Posix
setFileSizeCardano.CLI.OS.Posix
setFileTimesCardano.CLI.OS.Posix
setFileTimesHiResCardano.CLI.OS.Posix
setGroupIDModeCardano.CLI.OS.Posix
setLockCardano.CLI.OS.Posix
setOwnerAndGroupCardano.CLI.OS.Posix
SetOwnerAndGroupIsRestrictedCardano.CLI.OS.Posix
setSymbolicLinkOwnerAndGroupCardano.CLI.OS.Posix
setSymbolicLinkTimesHiResCardano.CLI.OS.Posix
setUserIDModeCardano.CLI.OS.Posix
ShelleyAddressInvalidCardano.CLI.Types.Errors.AddressInfoError
ShelleyBootstrapWitnessSigningKeyData 
1 (Type/Class)Cardano.CLI.Read
2 (Data Constructor)Cardano.CLI.Read
ShelleyToBabbageDelegTargetCardano.CLI.Types.Key
SigningKeyDeserialisationFailedCardano.CLI.Byron.Key
SigningKeyFileCardano.CLI.Types.Common
SimpleReferenceScriptWitnessFilesCardano.CLI.Types.Common
SimpleScriptWitnessFileCardano.CLI.Types.Common
SlotsTillKesKeyExpiry 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
socketModeCardano.CLI.OS.Posix
SomeKeyFileCardano.CLI.Types.Common
SomeSigningKeyCardano.CLI.Types.Key
SomeSigningWitnessCardano.CLI.Read
specialDeviceIDCardano.CLI.OS.Posix
SpendGenesisUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SpendUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
spoPoolOwnerKeysCardano.CLI.Types.Key
sprMetadataCardano.CLI.Types.Key
sprNetworkIdCardano.CLI.Types.Key
sprPoolCostCardano.CLI.Types.Key
sprPoolMarginCardano.CLI.Types.Key
sprPoolPledgeCardano.CLI.Types.Key
sprRelaysCardano.CLI.Types.Key
sprRewardAccountKeyCardano.CLI.Types.Key
sprStakePoolKeyCardano.CLI.Types.Key
sprVrfKeyCardano.CLI.Types.Key
StakeAddressBuildCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressCmdDelegationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdRegistrationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands
StakeAddressCmdStakeCredentialErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdWriteFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressDelegationCertificateCmdCardano.CLI.Legacy.Commands.StakeAddress
StakeAddressDelegationErrorCardano.CLI.Types.Errors.StakeAddressDelegationError
StakeAddressDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressKeyGenCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressKeyHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressRegistrationDepositRequiredCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressRegistrationErrorCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressStakeAndVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeCredentialErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialInputDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialScriptDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredGovCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
StakeIdentifierCardano.CLI.Types.Key
StakeIdentifierAddressCardano.CLI.Types.Key
StakeIdentifierVerifierCardano.CLI.Types.Key
StakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdMetadataValidationErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands
StakePoolCmdWriteFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolDeregistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataFileCardano.CLI.Types.Common
StakePoolMetadataHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationParserRequirements 
1 (Type/Class)Cardano.CLI.Types.Key
2 (Data Constructor)Cardano.CLI.Types.Key
StakeTargetCardano.CLI.Types.Key
StakeVerifierCardano.CLI.Types.Key
StakeVerifierKeyCardano.CLI.Types.Key
StakeVerifierScriptFileCardano.CLI.Types.Key
stakeVkeyDescCardano.CLI.EraBased.Run.Key
statusChangeTimeCardano.CLI.OS.Posix
statusChangeTimeHiResCardano.CLI.OS.Posix
stderrCardano.CLI.OS.Posix
stdErrorCardano.CLI.OS.Posix
stdFileModeCardano.CLI.OS.Posix
stdinCardano.CLI.OS.Posix
stdInputCardano.CLI.OS.Posix
stdoutCardano.CLI.OS.Posix
stdOutputCardano.CLI.OS.Posix
subInfoParserCardano.CLI.EraBased.Options.Common
submitByronUpdateProposalCardano.CLI.Byron.UpdateProposal
submitByronVoteCardano.CLI.Byron.Vote
SubmitTxCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitUpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
subParserCardano.CLI.EraBased.Options.Common
SymbolicLinkLimitCardano.CLI.OS.Posix
symbolicLinkModeCardano.CLI.OS.Posix
SynchronousWritesCardano.CLI.OS.Posix
SyncIOAvailableCardano.CLI.OS.Posix
TargetAlwaysAbstainCardano.CLI.Types.Key
TargetAlwaysNoConfidenceCardano.CLI.Types.Key
TargetStakePoolCardano.CLI.Types.Key
TargetVotingDrepCardano.CLI.Types.Key
TargetVotingDrepAndStakePoolCardano.CLI.Types.Key
TargetVotingDRepScriptHashCardano.CLI.Types.Key
TextEncodingCardano.CLI.OS.Posix
TextViewCBORPrettyPrintErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.TextView
2 (Data Constructor)Cardano.CLI.EraBased.Commands
TextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewInfo 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.TextView
2 (Data Constructor)Cardano.CLI.Legacy.Commands.TextView
TextViewReadFileErrorCardano.CLI.Types.Errors.TextViewFileError
toCborTxAuxCardano.CLI.Byron.Tx
toHashCardano.CLI.EraBased.Commands.Governance.Hash
toplevelExceptionHandlerCardano.CLI.TopHandler
touchFdCardano.CLI.OS.Posix
touchFileCardano.CLI.OS.Posix
touchSymbolicLinkCardano.CLI.OS.Posix
toUnitIntervalOrErrCardano.CLI.EraBased.Options.Common
ToVerificationCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
TransactionBuildCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands
TransactionHashScriptDataCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionHashScriptDataCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransferDirectionCardano.CLI.Types.Common
TransferToReservesCardano.CLI.Types.Common
TransferToTreasuryCardano.CLI.Types.Common
traverseMCardano.CLI.IO.Lazy
traverseStateMCardano.CLI.IO.Lazy
truncCardano.CLI.OS.Posix
TxCardano.CLI.Byron.Tx
TxAuxScriptsLanguageErrorCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsNotSupportedInEraCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxBodyFileCardano.CLI.Types.Common
TxBuildOutputOptionsCardano.CLI.Types.Common
TxByronWitnessCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxCertificatesValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxCertificatesValidationNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxCmdAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdBalanceTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdBootstrapWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdByronEraCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdConstitutionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdMetadataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdNotImplementedCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptCostErrCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptsRequireCardanoModeCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsExcessCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsMissingCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamExecutionUnitsNotAvailableCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersNotPresentInTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsConverstionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryConvenienceErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryNotScriptLockedCardano.CLI.Types.Errors.TxCmdError
TxCmdReadTextViewFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReadWitnessSigningDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignerErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptValidityValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTextEnvCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxBodyErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxCertificatesValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxExecUnitsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeatureMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeeValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxInsDoNotExistCardano.CLI.Types.Errors.TxCmdError
TxCmdTxNodeEraMismatchErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdVoteErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdWitnessEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdWriteFileErrorCardano.CLI.Types.Errors.TxCmdError
TxDeserialisationFailedCardano.CLI.Byron.Tx
TxFeatureCardano.CLI.Types.TxFeature
TxFeatureAuxScriptsCardano.CLI.Types.TxFeature
TxFeatureCertificatesCardano.CLI.Types.TxFeature
TxFeatureCollateralCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureExtraKeyWitsCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureInlineDatumsCardano.CLI.Types.TxFeature
TxFeatureMintValueCardano.CLI.Types.TxFeature
TxFeatureMultiAssetOutputsCardano.CLI.Types.TxFeature
TxFeatureProtocolParametersCardano.CLI.Types.TxFeature
TxFeatureReferenceInputsCardano.CLI.Types.TxFeature
TxFeatureReturnCollateralCardano.CLI.Types.TxFeature
TxFeatureScriptValidityCardano.CLI.Types.TxFeature
TxFeatureScriptWitnessesCardano.CLI.Types.TxFeature
TxFeatureShelleyAddressesCardano.CLI.Types.TxFeature
TxFeatureShelleyKeysCardano.CLI.Types.TxFeature
TxFeatureTotalCollateralCardano.CLI.Types.TxFeature
TxFeatureTxMetadataCardano.CLI.Types.TxFeature
TxFeatureTxOutDatumCardano.CLI.Types.TxFeature
TxFeatureValidityLowerBoundCardano.CLI.Types.TxFeature
TxFeatureValidityNoUpperBoundCardano.CLI.Types.TxFeature
TxFeatureValidityUpperBoundCardano.CLI.Types.TxFeature
TxFeatureWithdrawalsCardano.CLI.Types.TxFeature
TxFeeValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Tx
TxInCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxMempoolQueryCardano.CLI.Types.Common
TxMempoolQueryInfoCardano.CLI.Types.Common
TxMempoolQueryNextTxCardano.CLI.Types.Common
TxMempoolQueryTxExistsCardano.CLI.Types.Common
TxOutAnyEra 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutChangeAddress 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutDatumAnyEraCardano.CLI.Types.Common
TxOutDatumByHashOfCardano.CLI.Types.Common
TxOutDatumByHashOnlyCardano.CLI.Types.Common
TxOutDatumByNoneCardano.CLI.Types.Common
TxOutDatumByValueCardano.CLI.Types.Common
TxOutInlineDatumByValueCardano.CLI.Types.Common
TxProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxScriptValidityValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxShelleyWitnessCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
txSpendGenesisUTxOByronPBFTCardano.CLI.Byron.Tx
txSpendUTxOByronPBFTCardano.CLI.Byron.Tx
TxTotalCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxViewOutputFormatCardano.CLI.Types.Common
TxViewOutputFormatJsonCardano.CLI.Types.Common
TxViewOutputFormatYamlCardano.CLI.Types.Common
TxWithdrawalsNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxValidationError
unAnyVerificationKeyTextCardano.CLI.Types.Key.VerificationKey
unCddlTxCardano.CLI.Read
unCertificateFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
unConstitutionTextCardano.CLI.Types.Common
unConstitutionUrlCardano.CLI.Types.Common
unCurrentKesPeriodCardano.CLI.Types.Common
unFileCardano.CLI.Types.Common
unGenesisFileCardano.CLI.Types.Common
unionFileModesCardano.CLI.OS.Posix
universalNewlineModeCardano.CLI.OS.Posix
UnlockCardano.CLI.OS.Posix
unOpCertEndingKesPeriodCardano.CLI.Types.Common
unOpCertNodeStateCounterCardano.CLI.Types.Common
unOpCertOnDiskCounterCardano.CLI.Types.Common
unOpCertStartingKesPeriodCardano.CLI.Types.Common
unProposalTextCardano.CLI.Types.Common
unProposalUrlCardano.CLI.Types.Common
unScriptFileCardano.CLI.Types.Common
unSlotsTillKesKeyExpiryCardano.CLI.Types.Common
unUpdateProposalFileCardano.CLI.Types.Common
unVoteTextCardano.CLI.Types.Common
unVoteUrlCardano.CLI.Types.Common
UnwitnessedCliFormattedTxBodyCardano.CLI.Read
UpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
UpdateProposalDecodingErrorCardano.CLI.Byron.UpdateProposal
UpdateProposalFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
UpdateProtocolParametersConwayOnwards 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
UpdateProtocolParametersPreConway 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
utf16Cardano.CLI.OS.Posix
utf16beCardano.CLI.OS.Posix
utf16leCardano.CLI.OS.Posix
utf32Cardano.CLI.OS.Posix
utf32beCardano.CLI.OS.Posix
utf32leCardano.CLI.OS.Posix
utf8Cardano.CLI.OS.Posix
utf8_bomCardano.CLI.OS.Posix
ValidateCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
validateCBORCardano.CLI.Helpers
validateProtocolParametersCardano.CLI.Types.Errors.TxValidationError
validateRequiredSignersCardano.CLI.Types.Errors.TxValidationError
validateScriptSupportedInEraCardano.CLI.Types.Errors.TxValidationError
validateTxAuxScriptsCardano.CLI.Types.Errors.TxValidationError
validateTxCertificatesCardano.CLI.Types.Errors.TxValidationError
validateTxFeeCardano.CLI.Types.Errors.TxValidationError
validateTxReturnCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxScriptValidityCardano.CLI.Types.Errors.TxValidationError
validateTxTotalCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxValidityLowerBoundCardano.CLI.Types.Errors.TxValidationError
validateTxValidityUpperBoundCardano.CLI.Types.Errors.TxValidationError
validateTxWithdrawalsCardano.CLI.Types.Errors.TxValidationError
validateUpdateProposalFileCardano.CLI.Types.Errors.TxValidationError
VCCCardano.CLI.Types.Governance
VDisableCharCardano.CLI.OS.Posix
VDRCardano.CLI.Types.Governance
VerificationKeyBase64 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VerificationKeyDeserialisationFailedCardano.CLI.Byron.Key
VerificationKeyFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
VerificationKeyFileErrorCardano.CLI.Types.Key
VerificationKeyFilePathCardano.CLI.Types.Key
VerificationKeyHashCardano.CLI.Types.Key
VerificationKeyOrFile 
1 (Data Constructor)Cardano.CLI.Types.Key
2 (Type/Class)Cardano.CLI.Types.Key
VerificationKeyOrHashOrFileCardano.CLI.Types.Key
VerificationKeyTextErrorCardano.CLI.Types.Key
VerificationKeyTextOrFileCardano.CLI.Types.Key
VerificationKeyTextOrFileErrorCardano.CLI.Types.Key
VerificationKeyValueCardano.CLI.Types.Key
versionPaths_cardano_cli
VktofVerificationKeyFileCardano.CLI.Types.Key
VktofVerificationKeyTextCardano.CLI.Types.Key
VoteDelegationNotSupportedCardano.CLI.Types.Errors.StakeAddressDelegationError
VoteDelegationTargetCardano.CLI.Types.Governance
VoteDelegationTargetOfAbstainCardano.CLI.Types.Governance
VoteDelegationTargetOfDRepCardano.CLI.Types.Governance
VoteDelegationTargetOfNoConfidenceCardano.CLI.Types.Governance
VoteErrorCardano.CLI.Read
VoteErrorFileCardano.CLI.Read
VoteErrorTextNotUnicodeCardano.CLI.Read
VoteFileCardano.CLI.Types.Governance
VoteHashSourceCardano.CLI.Types.Common
VoteHashSourceFileCardano.CLI.Types.Common
VoteHashSourceHashCardano.CLI.Types.Common
VoteHashSourceTextCardano.CLI.Types.Common
VoteText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VoteUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VotingCredentialDecodeGovCmdErorCardano.CLI.Types.Errors.GovernanceCmdError
VSPCardano.CLI.Types.Governance
VTypeCardano.CLI.Types.Governance
waitToSetLockCardano.CLI.OS.Posix
whiteCardano.CLI.Pretty
withBinaryFileCardano.CLI.OS.Posix
withFileCardano.CLI.OS.Posix
withSomeSigningKeyCardano.CLI.Types.Key
WitnessFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
WitnessSigningDataCardano.CLI.Types.Common
writeFileCardano.CLI.OS.Posix
WriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
WriteLockCardano.CLI.OS.Posix
WriteModeCardano.CLI.OS.Posix
WriteOnlyCardano.CLI.OS.Posix
yellowCardano.CLI.Pretty
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-B.html b/cardano-cli/lib/doc-index-B.html new file mode 100644 index 0000000000..bed2ea4a22 --- /dev/null +++ b/cardano-cli/lib/doc-index-B.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - B)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - B

backwardsCompatibilityCommandsCardano.CLI.Byron.Parsers
BalanceTxExecUnitsCardano.CLI.Types.Common
blackCardano.CLI.Pretty
BlockBufferingCardano.CLI.OS.Posix
BlockId 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
blockSpecialModeCardano.CLI.OS.Posix
blueCardano.CLI.Pretty
BootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
BufferModeCardano.CLI.OS.Posix
ByronClientCmdErrorCardano.CLI.Byron.Run
ByronCommand 
1 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
2 (Data Constructor)Cardano.CLI.Run
ByronDelegateKeyCardano.CLI.Types.Common
ByronDelegationCertSerializationErrorCardano.CLI.Byron.Genesis
ByronDelegationErrorCardano.CLI.Byron.Delegation
ByronDelegationKeyErrorCardano.CLI.Byron.Delegation
ByronDelegationKeySerializationErrorCardano.CLI.Byron.Genesis
ByronGenesisErrorCardano.CLI.Byron.Genesis
ByronGenesisKeyCardano.CLI.Types.Common
ByronKeyFailureCardano.CLI.Byron.Key
ByronKeyFormatCardano.CLI.Types.Common
ByronKeyTypeCardano.CLI.Types.Common
ByronOrShelleyWitnessCardano.CLI.Read
ByronPaymentKeyCardano.CLI.Types.Common
ByronReadUpdateProposalFileFailureCardano.CLI.Byron.UpdateProposal
ByronTxErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorEraMismatchCardano.CLI.Byron.Tx
ByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalGenesisReadErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalTxErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalWriteErrorCardano.CLI.Byron.UpdateProposal
ByronVoteDecodingErrorCardano.CLI.Byron.Vote
ByronVoteErrorCardano.CLI.Byron.Vote
ByronVoteGenesisReadErrorCardano.CLI.Byron.Vote
ByronVoteKeyReadFailureCardano.CLI.Byron.Vote
ByronVoteReadFileFailureCardano.CLI.Byron.Vote
ByronVoteTxSubmissionErrorCardano.CLI.Byron.Vote
ByronVoteUpdateHelperErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalDecodingErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalFailureCardano.CLI.Byron.Vote
byronWitnessToVerKeyCardano.CLI.Byron.Key
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-C.html b/cardano-cli/lib/doc-index-C.html new file mode 100644 index 0000000000..337330de74 --- /dev/null +++ b/cardano-cli/lib/doc-index-C.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - C)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - C

CannotMigrateFromNonLegacySigningKeyCardano.CLI.Byron.Key
CardanoAddressByronPaymentKeyCardano.CLI.Types.Common
CardanoAddressIcarusPaymentKeyCardano.CLI.Types.Common
CardanoAddressKeyTypeCardano.CLI.Types.Common
CardanoAddressShelleyPaymentKeyCardano.CLI.Types.Common
CardanoAddressShelleyStakeKeyCardano.CLI.Types.Common
CardanoAddressSigningKeyBech32DecodeErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
catCommandsCardano.CLI.EraBased.Options.Common
categoriseSomeSigningWitnessCardano.CLI.Read
CBORBlockByronCardano.CLI.Types.Common
CBORDecodingErrorCardano.CLI.Helpers
CBORDelegationCertificateByronCardano.CLI.Types.Common
CBORObjectCardano.CLI.Types.Common
CBORPrettyPrintErrorCardano.CLI.Helpers
CBORTxByronCardano.CLI.Types.Common
CBORUpdateProposalByronCardano.CLI.Types.Common
CBORVoteByronCardano.CLI.Types.Common
CddlErrorCardano.CLI.Read
CddlErrorTextEnvCardano.CLI.Read
CddlIOErrorCardano.CLI.Read
CddlTx 
1 (Type/Class)Cardano.CLI.Read
2 (Data Constructor)Cardano.CLI.Read
CddlWitnessErrorCardano.CLI.Read
CddlWitnessErrorTextEnvCardano.CLI.Read
CddlWitnessIOErrorCardano.CLI.Read
CertificateFile 
1 (Type/Class)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
CertificateValidationErrorsCardano.CLI.Byron.Delegation
char8Cardano.CLI.OS.Posix
characterSpecialModeCardano.CLI.OS.Posix
checkByronGenesisDelegationCardano.CLI.Byron.Delegation
ClientCommandCardano.CLI.Run
ClientCommandErrorsCardano.CLI.Run
CliPingCommandCardano.CLI.Run
closeFdCardano.CLI.OS.Posix
CloseOnExecCardano.CLI.OS.Posix
CmdAddressErrorCardano.CLI.Types.Errors.CmdError
CmdEraDelegationErrorCardano.CLI.Types.Errors.CmdError
CmdErrorCardano.CLI.Types.Errors.CmdError
CmdGenesisErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceActionErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCmdErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCommitteeErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceQueryErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceVoteErrorCardano.CLI.Types.Errors.CmdError
CmdKeyErrorCardano.CLI.Types.Errors.CmdError
CmdNodeErrorCardano.CLI.Types.Errors.CmdError
CmdQueryErrorCardano.CLI.Types.Errors.CmdError
CmdRegistrationErrorCardano.CLI.Types.Errors.CmdError
CmdsCardano.CLI.EraBased.Commands
CmdStakeAddressErrorCardano.CLI.Types.Errors.CmdError
CmdStakePoolErrorCardano.CLI.Types.Errors.CmdError
CmdTextViewErrorCardano.CLI.Types.Errors.CmdError
CmdTransactionErrorCardano.CLI.Types.Errors.CmdError
ColdGenesisDelegateVerificationKeyCardano.CLI.Types.Key
ColdStakePoolVerificationKeyCardano.CLI.Types.Key
ColdVerificationKeyFileCardano.CLI.Types.Key
ColdVerificationKeyOrFileCardano.CLI.Types.Key
command'Cardano.CLI.EraBased.Options.Common
ConstitutionErrorCardano.CLI.Read
ConstitutionErrorFileCardano.CLI.Read
ConstitutionHashSourceCardano.CLI.Types.Common
ConstitutionHashSourceFileCardano.CLI.Types.Common
ConstitutionHashSourceHashCardano.CLI.Types.Common
ConstitutionHashSourceTextCardano.CLI.Types.Common
constitutionHashSourceToHashCardano.CLI.Read
ConstitutionNotSupportedInEraCardano.CLI.Read
ConstitutionNotUnicodeErrorCardano.CLI.Read
ConstitutionText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ConstitutionUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
convertTimeCardano.CLI.EraBased.Options.Common
ConwayOnwardDelegTargetCardano.CLI.Types.Key
ConwayVote 
1 (Type/Class)Cardano.CLI.Types.Governance
2 (Data Constructor)Cardano.CLI.Types.Governance
createDeviceCardano.CLI.OS.Posix
createFileCardano.CLI.OS.Posix
createLinkCardano.CLI.OS.Posix
createNamedPipeCardano.CLI.OS.Posix
createOpCertIntervalInfoCardano.CLI.Types.Output
createPipeCardano.CLI.OS.Posix
createSymbolicLinkCardano.CLI.OS.Posix
CreateVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
CRLFCardano.CLI.OS.Posix
CurrentEpochCardano.CLI.Types.Common
CurrentKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
customRenderHelpCardano.CLI.Render
cvEraCardano.CLI.Types.Governance
cvFilepathCardano.CLI.Types.Governance
cvGovActionIdCardano.CLI.Types.Governance
cvVoteChoiceCardano.CLI.Types.Governance
cvVoterTypeCardano.CLI.Types.Governance
cvVotingStakeCredentialCardano.CLI.Types.Governance
cyanCardano.CLI.Pretty
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-D.html b/cardano-cli/lib/doc-index-D.html new file mode 100644 index 0000000000..4408317dbd --- /dev/null +++ b/cardano-cli/lib/doc-index-D.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - D)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - D

decimalCardano.CLI.EraBased.Options.Common
decodeBech32Cardano.CLI.EraBased.Run.Key
decodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
defaultByronEpochSlotsCardano.CLI.EraBased.Options.Common
defaultFileFlagsCardano.CLI.OS.Posix
defaultShelleyBasedEraCardano.CLI.EraBased.Options.Common
defaultShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
DelegationCertificateWriteFileErrorCardano.CLI.Types.Errors.DelegationError
DelegationDRepReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationErrorCardano.CLI.Types.Errors.DelegationError
DelegationReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationsAndRewards 
1 (Type/Class)Cardano.CLI.EraBased.Run.Query
2 (Data Constructor)Cardano.CLI.EraBased.Run.Query
DelegationStakeCredentialErrorCardano.CLI.Types.Errors.DelegationError
deprecationWarningCardano.CLI.Helpers
deserialiseHotCCKeyFromHexCardano.CLI.EraBased.Options.Common
deserialiseScriptInAnyLangCardano.CLI.Read
deviceIDCardano.CLI.OS.Posix
directoryModeCardano.CLI.OS.Posix
DisplayVersionCardano.CLI.Run
DlgCertificateDeserialisationFailedCardano.CLI.Byron.Delegation
DRepHashSourceCardano.CLI.Types.Key
DRepHashSourceScriptCardano.CLI.Types.Key
DRepHashSourceVerificationKeyCardano.CLI.Types.Key
DRepMetadataFileCardano.CLI.Types.Common
drepVkeyDescCardano.CLI.EraBased.Run.Key
dumpGenesisCardano.CLI.Byron.Genesis
dupCardano.CLI.OS.Posix
dupToCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-E.html b/cardano-cli/lib/doc-index-E.html new file mode 100644 index 0000000000..d5de109409 --- /dev/null +++ b/cardano-cli/lib/doc-index-E.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - E)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - E

eDNSNameCardano.CLI.Parser
encodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
ensureNewFileCardano.CLI.Helpers
ensureNewFileLBSCardano.CLI.Helpers
EnvCli 
1 (Type/Class)Cardano.CLI.Environment
2 (Data Constructor)Cardano.CLI.Environment
envCliAnyCardanoEraCardano.CLI.Environment
envCliAnyShelleyBasedEraCardano.CLI.Environment
envCliAnyShelleyToBabbageEraCardano.CLI.Environment
envCliNetworkIdCardano.CLI.Environment
envCliSocketPathCardano.CLI.Environment
eonCardano.CLI.EraBased.Commands.Governance.Hash
EpochLeadershipScheduleCardano.CLI.Types.Common
eraCardano.CLI.Types.Errors.NodeEraMismatchError
EraMismatchErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
exclusiveCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-F.html b/cardano-cli/lib/doc-index-F.html new file mode 100644 index 0000000000..09949b7705 --- /dev/null +++ b/cardano-cli/lib/doc-index-F.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - F)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - F

FdOptionCardano.CLI.OS.Posix
fdReadCardano.CLI.OS.Posix
fdReadBufCardano.CLI.OS.Posix
fdSeekCardano.CLI.OS.Posix
fdToHandleCardano.CLI.OS.Posix
fdWriteCardano.CLI.OS.Posix
fdWriteBufCardano.CLI.OS.Posix
File 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
fileAccessCardano.CLI.OS.Posix
FileDirectionCardano.CLI.Types.Common
fileExistCardano.CLI.OS.Posix
fileGroupCardano.CLI.OS.Posix
fileIDCardano.CLI.OS.Posix
FileLockCardano.CLI.OS.Posix
fileModeCardano.CLI.OS.Posix
FileNameLimitCardano.CLI.OS.Posix
FileNamesAreNotTruncatedCardano.CLI.OS.Posix
FileOrPipeCardano.CLI.Read
fileOrPipeCardano.CLI.Read
fileOrPipeCacheCardano.CLI.Read
fileOrPipePathCardano.CLI.Read
fileOwnerCardano.CLI.OS.Posix
FilePathCardano.CLI.OS.Posix
fileSizeCardano.CLI.OS.Posix
FileSizeBitsCardano.CLI.OS.Posix
FileStatusCardano.CLI.OS.Posix
fileTypeModesCardano.CLI.OS.Posix
fixIOCardano.CLI.OS.Posix
forMCardano.CLI.IO.Lazy
forStateMCardano.CLI.IO.Lazy
FriendlyFormatCardano.CLI.Json.Friendly
FriendlyJsonCardano.CLI.Json.Friendly
friendlyProposalCardano.CLI.Json.Friendly
friendlyTxCardano.CLI.Json.Friendly
friendlyTxBodyCardano.CLI.Json.Friendly
FriendlyYamlCardano.CLI.Json.Friendly
fromCborTxAuxCardano.CLI.Byron.Tx
futurePoolParametersCardano.CLI.Types.Common
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-G.html b/cardano-cli/lib/doc-index-G.html new file mode 100644 index 0000000000..5479f00279 --- /dev/null +++ b/cardano-cli/lib/doc-index-G.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - G)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - G

generateKeyPairCardano.CLI.Types.Key
GenesisCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
GenesisAddr 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisAddrCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdAesonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdByronErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdCostModelsErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesDupIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesNoIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileReadErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdKeyHash 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdMismatchedGenesisKeyFilesCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdNodeCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands
GenesisCmdStakeAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayJsonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTooFewPoolsForBulkCredsCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdUnexpectedAddressVerificationKeyCardano.CLI.Types.Errors.GenesisCmdError
GenesisCreate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCardano 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCardanoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStaked 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStakedCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisDir 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisGenerationErrorCardano.CLI.Byron.Genesis
GenesisHashFile 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
GenesisKeyGenDelegate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenDelegateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesis 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesisCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxO 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisOutputDirAlreadyExistsCardano.CLI.Byron.Genesis
GenesisParameters 
1 (Type/Class)Cardano.CLI.Byron.Genesis
2 (Data Constructor)Cardano.CLI.Byron.Genesis
GenesisReadErrorCardano.CLI.Byron.Genesis
GenesisSpecErrorCardano.CLI.Byron.Genesis
GenesisTxIn 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisTxInCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKey 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
genesisVkeyDelegateDescCardano.CLI.EraBased.Run.Key
genesisVkeyDescCardano.CLI.EraBased.Run.Key
getBinDirPaths_cardano_cli
getCharCardano.CLI.OS.Posix
getCommitteeColdCredentialFromVerKeyHashOrFileCardano.CLI.Read
getCommitteeHotCredentialFromVerKeyHashOrFileCardano.CLI.Read
getContentsCardano.CLI.OS.Posix
getContents'Cardano.CLI.OS.Posix
getDataDirPaths_cardano_cli
getDataFileNamePaths_cardano_cli
getDRepCredentialFromVerKeyHashOrFileCardano.CLI.Read
getDynLibDirPaths_cardano_cli
getEnvCliCardano.CLI.Environment
getEnvNetworkIdCardano.CLI.Environment
getEnvSocketPathCardano.CLI.Environment
getFdPathVarCardano.CLI.OS.Posix
getFdStatusCardano.CLI.OS.Posix
getFileStatusCardano.CLI.OS.Posix
getLibDirPaths_cardano_cli
getLibexecDirPaths_cardano_cli
getLineCardano.CLI.OS.Posix
getLockCardano.CLI.OS.Posix
getPathVarCardano.CLI.OS.Posix
getStakeAddressFromVerifierCardano.CLI.Read
getStakeCredentialFromIdentifierCardano.CLI.Read
getStakeCredentialFromVerifierCardano.CLI.Read
getSymbolicLinkStatusCardano.CLI.OS.Posix
getSysconfDirPaths_cardano_cli
GetTxIdCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
gitRevCardano.CLI.IO.GitRev
GoveranceActionUpdateCommitteeCmdCardano.CLI.EraBased.Commands.Governance.Actions
GoveranceActionUpdateCommitteeCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceActionCreateConstitutionCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionsCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdProposalErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadTextEnvelopeFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsValueUpdateProtocolParametersNotFoundCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewOutputFormatCardano.CLI.Types.Common
GovernanceActionViewOutputFormatJsonCardano.CLI.Types.Common
GovernanceActionViewOutputFormatYamlCardano.CLI.Types.Common
GovernanceAnswerPoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceAnswerPollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCmdCddlErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelsJsonDecodeErrCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDecoderErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDRepMetadataValidationErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyCostModelCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyUpdateProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdGenesisDelegationNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdHashErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertificateKeyRewardMistmachCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollInvalidChoiceCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollOutOfBoundAnswerCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands
GovernanceCmdTextEnvReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdUnexpectedKeyTypeCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdVerifyPollErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCommitteeCmdKeyDecodeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCommitteeCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeKeyGenColdCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenColdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCreateMirCertificateStakeAddressesCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreateMirCertificateTransferToReservesCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreateMirCertificateTransferToTreasuryCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCreatePoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreatePollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceDRepCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceDRepIdCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceGenesisKeyDelegationCertificate 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceHashCmdCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceHashErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashReadFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashSourceCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceBinaryFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashWriteFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernancePollCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceQueryAcqireFailureErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryDRepKeyErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryEraMismatchCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryUnsupportedNtcVersionCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryWriteFileErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceUpdateProposalCardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPoll 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPollCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVoteCmdCredentialDecodeErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVerificationKeyErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteFileErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteTextErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceVoteCmdWriteErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCreateCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCreateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
gpAvvmBalanceFactorCardano.CLI.Byron.Genesis
gpFakeAvvmOptionsCardano.CLI.Byron.Genesis
gpKCardano.CLI.Byron.Genesis
gpProtocolMagicCardano.CLI.Byron.Genesis
gpProtocolParamsFileCardano.CLI.Byron.Genesis
gpSeedCardano.CLI.Byron.Genesis
gpStartTimeCardano.CLI.Byron.Genesis
gpTestnetBalanceCardano.CLI.Byron.Genesis
greenCardano.CLI.Pretty
groupExecuteModeCardano.CLI.OS.Posix
groupModesCardano.CLI.OS.Posix
groupReadModeCardano.CLI.OS.Posix
groupWriteModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-H.html b/cardano-cli/lib/doc-index-H.html new file mode 100644 index 0000000000..6ee7fd654f --- /dev/null +++ b/cardano-cli/lib/doc-index-H.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - H)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - H

HandleCardano.CLI.OS.Posix
HandlePosnCardano.CLI.OS.Posix
handleToFdCardano.CLI.OS.Posix
hCloseCardano.CLI.OS.Posix
HelpCardano.CLI.Run
HelpersErrorCardano.CLI.Helpers
hFileSizeCardano.CLI.OS.Posix
hFlushCardano.CLI.OS.Posix
hGetBufCardano.CLI.OS.Posix
hGetBufferingCardano.CLI.OS.Posix
hGetBufNonBlockingCardano.CLI.OS.Posix
hGetBufSomeCardano.CLI.OS.Posix
hGetCharCardano.CLI.OS.Posix
hGetContentsCardano.CLI.OS.Posix
hGetContents'Cardano.CLI.OS.Posix
hGetEchoCardano.CLI.OS.Posix
hGetEncodingCardano.CLI.OS.Posix
hGetLineCardano.CLI.OS.Posix
hGetPosnCardano.CLI.OS.Posix
hiddenSubParserCardano.CLI.EraBased.Options.Common
hIsClosedCardano.CLI.OS.Posix
hIsEOFCardano.CLI.OS.Posix
hIsOpenCardano.CLI.OS.Posix
hIsReadableCardano.CLI.OS.Posix
hIsSeekableCardano.CLI.OS.Posix
hIsTerminalDeviceCardano.CLI.OS.Posix
hIsWritableCardano.CLI.OS.Posix
hLookAheadCardano.CLI.OS.Posix
hPrintCardano.CLI.OS.Posix
hPutBufCardano.CLI.OS.Posix
hPutBufNonBlockingCardano.CLI.OS.Posix
hPutCharCardano.CLI.OS.Posix
hPutLnCardano.CLI.Pretty
hPutStrCardano.CLI.OS.Posix
hPutStrLnCardano.CLI.OS.Posix
hReadyCardano.CLI.OS.Posix
hSeekCardano.CLI.OS.Posix
hSetBinaryModeCardano.CLI.OS.Posix
hSetBufferingCardano.CLI.OS.Posix
hSetEchoCardano.CLI.OS.Posix
hSetEncodingCardano.CLI.OS.Posix
hSetFileSizeCardano.CLI.OS.Posix
hSetNewlineModeCardano.CLI.OS.Posix
hSetPosnCardano.CLI.OS.Posix
hShowCardano.CLI.OS.Posix
hTellCardano.CLI.OS.Posix
hWaitForInputCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-I.html b/cardano-cli/lib/doc-index-I.html new file mode 100644 index 0000000000..98b47db34b --- /dev/null +++ b/cardano-cli/lib/doc-index-I.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - I)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - I

IdOutputFormatCardano.CLI.Types.Common
IdOutputFormatBech32Cardano.CLI.Types.Common
IdOutputFormatHexCardano.CLI.Types.Common
InCardano.CLI.Types.Common
IncompleteCddlFormattedTxCardano.CLI.Read
IncompleteTxCardano.CLI.Read
InlineDatumPresentAtTxInCardano.CLI.Types.Common
InOutCardano.CLI.Types.Common
InputCardano.CLI.Types.Common
InputLineLimitCardano.CLI.OS.Posix
inputNLCardano.CLI.OS.Posix
InputQueueLimitCardano.CLI.OS.Posix
InputTxBodyFileCardano.CLI.Types.Common
InputTxBodyOrTxFileCardano.CLI.Types.Common
InputTxFileCardano.CLI.Types.Common
interactCardano.CLI.OS.Posix
intersectFileModesCardano.CLI.OS.Posix
IOCardano.CLI.OS.Posix
IOError'Cardano.CLI.Helpers
IOModeCardano.CLI.OS.Posix
isBlockDeviceCardano.CLI.OS.Posix
isCharacterDeviceCardano.CLI.OS.Posix
isDirectoryCardano.CLI.OS.Posix
isEOFCardano.CLI.OS.Posix
isNamedPipeCardano.CLI.OS.Posix
isRegularFileCardano.CLI.OS.Posix
isSocketCardano.CLI.OS.Posix
issueByronGenesisDelegationCardano.CLI.Byron.Delegation
isSymbolicLinkCardano.CLI.OS.Posix
ItnKeyBech32DecodeErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnKeyConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnReadBech32FileErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnVerificationKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-K.html b/cardano-cli/lib/doc-index-K.html new file mode 100644 index 0000000000..670ba523ee --- /dev/null +++ b/cardano-cli/lib/doc-index-K.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - K)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - K

KeyCmdByronKeyFailureCardano.CLI.Types.Errors.KeyCmdError
KeyCmdByronKeyParseErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdCardanoAddressSigningKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdExpectedExtendedVerificationKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdItnKeyConvErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdNonLegacyKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands
KeyCmdVerificationKeyReadErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWriteFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWrongKeyTypeErrorCardano.CLI.Types.Errors.KeyCmdError
KeyConvertByronGenesisVKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronGenesisVKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeygenCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
KeyNonExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyNonExtendedKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyOutputFormatCardano.CLI.Types.Common
KeyOutputFormatBech32Cardano.CLI.Types.Common
KeyOutputFormatTextEnvelopeCardano.CLI.Types.Common
KeyVerificationKeyCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyVerificationKeyCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
KeyWitnessSigningDataCardano.CLI.Types.Common
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-L.html b/cardano-cli/lib/doc-index-L.html new file mode 100644 index 0000000000..dc2649b753 --- /dev/null +++ b/cardano-cli/lib/doc-index-L.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - L)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - L

latin1Cardano.CLI.OS.Posix
LegacyAddressCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyByronKeyFormatCardano.CLI.Types.Common
LegacyCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Data Constructor)Cardano.CLI.Run
LegacyDelegateKey 
1 (Type/Class)Cardano.CLI.Byron.Legacy
2 (Data Constructor)Cardano.CLI.Byron.Legacy
LegacyGenesisCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyGovernanceCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyKeyCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyNodeCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Node
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyNodeIssueOpCertCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenColdCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenKESCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyHashVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeNewCounterCmdCardano.CLI.Legacy.Commands.Node
LegacyQueryCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyQueryConstitutionHashCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryKesPeriodInfoCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLeadershipScheduleCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLedgerStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryPoolStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolParametersCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolStateCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQuerySlotNumberCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeAddressInfoCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakePoolsCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeSnapshotCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTipCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTxMempoolCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacyQueryUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
LegacySigningKeyDeserialisationFailedCardano.CLI.Byron.Key
LegacyStakeAddressCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyStakePoolCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyTextViewCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.TextView
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyTransactionCmds 
1 (Type/Class)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LFCardano.CLI.OS.Posix
LineBufferingCardano.CLI.OS.Posix
linkCountCardano.CLI.OS.Posix
LinkLimitCardano.CLI.OS.Posix
localeEncodingCardano.CLI.OS.Posix
LockRequestCardano.CLI.OS.Posix
lrkSigningKeyCardano.CLI.Byron.Legacy
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-M.html b/cardano-cli/lib/doc-index-M.html new file mode 100644 index 0000000000..8628a5dc8e --- /dev/null +++ b/cardano-cli/lib/doc-index-M.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - M)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - M

magentaCardano.CLI.Pretty
MakeGenesisDelegationErrorCardano.CLI.Byron.Genesis
ManualBalanceCardano.CLI.Types.Common
MetadataErrorCardano.CLI.Read
MetadataErrorConversionErrorCardano.CLI.Read
MetadataErrorDecodeErrorCardano.CLI.Read
MetadataErrorFileCardano.CLI.Read
MetadataErrorJsonParseErrorCardano.CLI.Read
MetadataErrorNotAvailableInEraCardano.CLI.Read
MetadataErrorValidationErrorCardano.CLI.Read
MetadataFileCardano.CLI.Types.Common
MetadataFileCBORCardano.CLI.Types.Common
MetadataFileJSONCardano.CLI.Types.Common
MigrateDelegateKeyFromCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
MissingNetworkIdOrByronAddressErrorCardano.CLI.Types.Errors.BootstrapWitnessError
mkGenesisCardano.CLI.Byron.Genesis
mkTextEncodingCardano.CLI.OS.Posix
modificationTimeCardano.CLI.OS.Posix
modificationTimeHiResCardano.CLI.OS.Posix
moutFileCardano.CLI.EraBased.Commands.Governance.Hash
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-N.html b/cardano-cli/lib/doc-index-N.html new file mode 100644 index 0000000000..6e144e804b --- /dev/null +++ b/cardano-cli/lib/doc-index-N.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - N)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - N

namedPipeModeCardano.CLI.OS.Posix
nativeNewlineCardano.CLI.OS.Posix
nativeNewlineModeCardano.CLI.OS.Posix
NewCertificateFile 
1 (Type/Class)Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Byron.Commands
NewDirectory 
1 (Type/Class)Cardano.CLI.Byron.Genesis
2 (Data Constructor)Cardano.CLI.Byron.Genesis
NewlineCardano.CLI.OS.Posix
NewlineMode 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
NewSigningKeyFile 
1 (Type/Class)Cardano.CLI.Byron.Key
2 (Data Constructor)Cardano.CLI.Byron.Key
NewTxFile 
1 (Type/Class)Cardano.CLI.Byron.Tx
2 (Data Constructor)Cardano.CLI.Byron.Tx
NewVerificationKeyFile 
1 (Type/Class)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
2 (Data Constructor)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
NextEpochCardano.CLI.Types.Common
nFpCardano.CLI.Byron.Commands
NoBufferingCardano.CLI.OS.Posix
nocttyCardano.CLI.OS.Posix
NodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdOperationalCertificateIssueErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadKeyFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmds 
1 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
2 (Data Constructor)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
3 (Type/Class)Cardano.CLI.EraBased.Commands.Node
4 (Data Constructor)Cardano.CLI.EraBased.Commands
NodeCmdVrfSigningKeyCreationErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdWriteFileErrorCardano.CLI.Types.Errors.NodeCmdError
nodeEraCardano.CLI.Types.Errors.NodeEraMismatchError
NodeEraMismatchError 
1 (Type/Class)Cardano.CLI.Types.Errors.NodeEraMismatchError
2 (Data Constructor)Cardano.CLI.Types.Errors.NodeEraMismatchError
NodeIssueOpCertCmdCardano.CLI.EraBased.Commands.Node
NodeIssueOpCertCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdCardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Node
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
nodeSubmitTxCardano.CLI.Byron.Tx
NoGenesisDelegationForKeyCardano.CLI.Byron.Genesis
nonBlockCardano.CLI.OS.Posix
NonBlockingReadCardano.CLI.OS.Posix
noNewlineTranslationCardano.CLI.OS.Posix
NonLegacyByronKeyFormatCardano.CLI.Types.Common
normalByronTxToGenTxCardano.CLI.Byron.Tx
NoScriptDatumOrFileForMintCardano.CLI.Types.Common
NoScriptDatumOrFileForStakeCardano.CLI.Types.Common
nullFileModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-O.html b/cardano-cli/lib/doc-index-O.html new file mode 100644 index 0000000000..29c8e9069e --- /dev/null +++ b/cardano-cli/lib/doc-index-O.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - O)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - O

OnlyCardano.CLI.Types.Common
OpCertCounterCardano.CLI.Types.Common
OpCertCounterFileCardano.CLI.Types.Common
OpCertEndingKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertExpiredCardano.CLI.Types.Common
OpCertIntervalInformationCardano.CLI.Types.Common
OpCertNoBlocksMintedYetCardano.CLI.Types.Common
OpCertNodeAndOnDiskCounterInformationCardano.CLI.Types.Common
OpCertNodeStateCounter 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertOnDiskCounter 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertOnDiskCounterAheadOfNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterBehindNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterEqualToNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterTooFarAheadOfNodeStateCardano.CLI.Types.Common
OpCertSomeOtherErrorCardano.CLI.Types.Common
OpCertStartingKesPeriod 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
OpCertStartingKesPeriodIsInTheFutureCardano.CLI.Types.Common
OpCertWithinIntervalCardano.CLI.Types.Common
openBinaryFileCardano.CLI.OS.Posix
openBinaryTempFileCardano.CLI.OS.Posix
openBinaryTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
openFdCardano.CLI.OS.Posix
openFileCardano.CLI.OS.Posix
OpenFileFlags 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
OpenModeCardano.CLI.OS.Posix
openTempFileCardano.CLI.OS.Posix
openTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
optsCardano.CLI.Options
otherExecuteModeCardano.CLI.OS.Posix
otherModesCardano.CLI.OS.Posix
otherReadModeCardano.CLI.OS.Posix
otherWriteModeCardano.CLI.OS.Posix
OutCardano.CLI.Types.Common
OutputCardano.CLI.Types.Common
OutputMustNotAlreadyExistCardano.CLI.Helpers
outputNLCardano.CLI.OS.Posix
OutputScriptCostOnlyCardano.CLI.Types.Common
OutputTxBodyOnlyCardano.CLI.Types.Common
ownerExecuteModeCardano.CLI.OS.Posix
ownerModesCardano.CLI.OS.Posix
ownerReadModeCardano.CLI.OS.Posix
ownerWriteModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-P.html b/cardano-cli/lib/doc-index-P.html new file mode 100644 index 0000000000..fa55896bb3 --- /dev/null +++ b/cardano-cli/lib/doc-index-P.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - P)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - P

pAddCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pAddressCardano.CLI.EraBased.Options.Common
pAddressCmdsCardano.CLI.EraBased.Options.Address
pAddressKeyTypeCardano.CLI.EraBased.Options.Common
pAlwaysAbstainCardano.CLI.EraBased.Options.Common
pAlwaysNoConfidenceCardano.CLI.EraBased.Options.Common
pAnchorDataHashCardano.CLI.EraBased.Options.Common
pAnchorUrlCardano.CLI.EraBased.Options.Common
pAnyEraCommandCardano.CLI.EraBased.Commands
pAnyShelleyBasedEraCardano.CLI.EraBased.Options.Common
pAnyShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pAnyVerificationKeySourceCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyTextCardano.CLI.EraBased.Options.Common
Params 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
parseByronCommandsCardano.CLI.Byron.Parsers
parseHeavyDelThdCardano.CLI.Byron.Parsers
parseInstallerHashCardano.CLI.Byron.Parsers
parseLegacyCmdsCardano.CLI.Legacy.Options
parseLovelaceCardano.CLI.EraBased.Options.Common
parseMaxBlockSizeCardano.CLI.Byron.Parsers
parseMaxHeaderSizeCardano.CLI.Byron.Parsers
parseMaxProposalSizeCardano.CLI.Byron.Parsers
parseMaxTxSizeCardano.CLI.Byron.Parsers
parseMpcThdCardano.CLI.Byron.Parsers
parsePingCmdCardano.CLI.Run.Ping
ParserFileDirectionCardano.CLI.Types.Common
parseScriptVersionCardano.CLI.Byron.Parsers
parseSlotDurationCardano.CLI.Byron.Parsers
parseSoftforkRuleCardano.CLI.Byron.Parsers
parseStakeAddressCardano.CLI.EraBased.Options.Common
parseSystemTagCardano.CLI.Byron.Parsers
parseTxFeePolicyCardano.CLI.Byron.Parsers
parseTxIdCardano.CLI.EraBased.Options.Common
parseTxInCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
parseTxIxCardano.CLI.EraBased.Options.Common
parseTxOutAnyEraCardano.CLI.EraBased.Options.Common
parseUnlockStakeEpochCardano.CLI.Byron.Parsers
parseUpdateProposalThdCardano.CLI.Byron.Parsers
parseUpdateProposalTTLCardano.CLI.Byron.Parsers
parseUpdateVoteThdCardano.CLI.Byron.Parsers
PathNameLimitCardano.CLI.OS.Posix
PathVarCardano.CLI.OS.Posix
PaymentVerifierCardano.CLI.Types.Key
PaymentVerifierKeyCardano.CLI.Types.Key
PaymentVerifierScriptFileCardano.CLI.Types.Key
paymentVkeyDescCardano.CLI.EraBased.Run.Key
pBech32KeyHashCardano.CLI.EraBased.Options.Common
pByronAddressCardano.CLI.EraBased.Options.Common
pCalculatePlutusScriptCostCardano.CLI.EraBased.Options.Common
pCBORInFileCardano.CLI.EraBased.Options.Common
pCertificateFileCardano.CLI.EraBased.Options.Common
pCmdsCardano.CLI.EraBased.Commands
pColdSigningKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCollateralPercentCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyOrHashOrVerificationFileCardano.CLI.EraBased.Options.Common
pCommitteeTermLengthCardano.CLI.EraBased.Options.Common
pConsensusModeParamsCardano.CLI.EraBased.Options.Common
pConstitutionHashCardano.CLI.EraBased.Options.Common
pConstitutionHashSourceCardano.CLI.EraBased.Options.Common
pConstitutionUrlCardano.CLI.EraBased.Options.Common
pCostModelsCardano.CLI.EraBased.Options.Common
pDecentralParamCardano.CLI.EraBased.Options.Common
pDRepActivityCardano.CLI.EraBased.Options.Common
pDRepDepositCardano.CLI.EraBased.Options.Common
pDrepDepositCardano.CLI.EraBased.Options.Common
pDRepHashSourceCardano.CLI.EraBased.Options.Common
pDRepScriptHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pDRepVotingThresholdsCardano.CLI.EraBased.Options.Common
pEpochBoundRetirementCardano.CLI.EraBased.Options.Common
pEpochNoCardano.CLI.EraBased.Options.Common
pEpochNoUpdatePropCardano.CLI.EraBased.Options.Common
pEpochSlotsCardano.CLI.EraBased.Options.Common
percentageCardano.CLI.EraBased.Run.Query
pExecutionUnitPricesCardano.CLI.EraBased.Options.Common
pExecutionUnitsCardano.CLI.EraBased.Options.Common
pExtendedVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pExtraEntropyCardano.CLI.EraBased.Options.Common
pFeaturedCardano.CLI.EraBased.Options.Common
pFileInDirectionCardano.CLI.EraBased.Options.Common
pFileOutDirectionCardano.CLI.EraBased.Options.Common
pFilterByStakeAddressCardano.CLI.EraBased.Options.Common
pGenesisCmdsCardano.CLI.EraBased.Options.Genesis
pGenesisDelegateVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGenesisFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGovActionDepositCardano.CLI.EraBased.Options.Common
pGovActionLifetimeCardano.CLI.EraBased.Options.Common
pGovernanceActionCmdsCardano.CLI.EraBased.Options.Governance.Actions
pGovernanceActionIdCardano.CLI.EraBased.Options.Common
pGovernanceActionViewOutputFormatCardano.CLI.EraBased.Options.Common
pGovernanceCmdsCardano.CLI.EraBased.Options.Governance
pGovernanceCommitteeCmdsCardano.CLI.EraBased.Options.Governance.Committee
pGovernanceDRepCmdsCardano.CLI.EraBased.Options.Governance.DRep
pGovernanceHashCmdsCardano.CLI.EraBased.Options.Governance.Hash
pGovernancePollCmdsCardano.CLI.EraBased.Options.Governance.Poll
pGovernanceVoteCmdsCardano.CLI.EraBased.Options.Governance.Vote
pHexHashCardano.CLI.EraBased.Options.Common
PingClientCmdError 
1 (Type/Class)Cardano.CLI.Run.Ping
2 (Data Constructor)Cardano.CLI.Run.Ping
PingCmd 
1 (Type/Class)Cardano.CLI.Run.Ping
2 (Data Constructor)Cardano.CLI.Run.Ping
pingCmdCountCardano.CLI.Run.Ping
pingCmdEndPointCardano.CLI.Run.Ping
pingCmdJsonCardano.CLI.Run.Ping
pingCmdMagicCardano.CLI.Run.Ping
pingCmdPortCardano.CLI.Run.Ping
pingCmdQuietCardano.CLI.Run.Ping
pingOptsHandshakeQueryCardano.CLI.Run.Ping
pInputTxOrTxBodyFileCardano.CLI.EraBased.Options.Common
pInvalidBeforeCardano.CLI.EraBased.Options.Common
pInvalidHereafterCardano.CLI.EraBased.Options.Common
PipeBufferLimitCardano.CLI.OS.Posix
pIpV4Cardano.CLI.EraBased.Options.Common
pIpV6Cardano.CLI.EraBased.Options.Common
pKesPeriodCardano.CLI.EraBased.Options.Common
pKesVerificationKeyCardano.CLI.EraBased.Options.Common
pKesVerificationKeyFileCardano.CLI.EraBased.Options.Common
pKesVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pKeyCmds 
1 (Function)Cardano.CLI.Legacy.Options.Key
2 (Function)Cardano.CLI.EraBased.Options.Key
pKeyOutputFormatCardano.CLI.EraBased.Options.Common
pKeyRegistDepositCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pLegacyCardanoEraCardano.CLI.Legacy.Options
pLegacyInvalidHereafterCardano.CLI.EraBased.Options.Common
pLegacyShelleyBasedEraCardano.CLI.Legacy.Options
PlutusReferenceScriptWitnessFilesCardano.CLI.Types.Common
PlutusScriptCostErrorCardano.CLI.Types.Output
PlutusScriptWitnessFilesCardano.CLI.Types.Common
pMaxBlockExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxBlockHeaderSizeCardano.CLI.EraBased.Options.Common
pMaxBodySizeCardano.CLI.EraBased.Options.Common
pMaxCollateralInputsCardano.CLI.EraBased.Options.Common
pMaxTransactionSizeCardano.CLI.EraBased.Options.Common
pMaxTxExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxValueSizeCardano.CLI.EraBased.Options.Common
pMaybeOutputFileCardano.CLI.EraBased.Options.Common
pMetadataFileCardano.CLI.EraBased.Options.Common
pMinCommitteeSizeCardano.CLI.EraBased.Options.Common
pMinFeeConstantFactorCardano.CLI.EraBased.Options.Common
pMinFeePerByteFactorCardano.CLI.EraBased.Options.Common
pMinPoolCostCardano.CLI.EraBased.Options.Common
pMintMultiAssetCardano.CLI.EraBased.Options.Common
pMinUTxOValueCardano.CLI.EraBased.Options.Common
pMIRPotCardano.CLI.EraBased.Options.Common
pMonetaryExpansionCardano.CLI.EraBased.Options.Common
pMultiHostNameCardano.CLI.EraBased.Options.Common
pNetworkIdCardano.CLI.EraBased.Options.Common
pNodeCmdsCardano.CLI.EraBased.Options.Node
pNumberOfPoolsCardano.CLI.EraBased.Options.Common
poolParametersCardano.CLI.Types.Common
PoorKeyFailureCardano.CLI.Byron.Genesis
pOperationalCertificateFileCardano.CLI.EraBased.Options.Common
pOperatorCertIssueCounterFileCardano.CLI.EraBased.Options.Common
pOutputFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextOrFileCardano.CLI.EraBased.Options.Common
pPaymentVerifierCardano.CLI.EraBased.Options.Common
pPlutusScriptLanguageCardano.CLI.EraBased.Options.Common
pPlutusStakeReferenceScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pPolicyIdCardano.CLI.EraBased.Options.Common
pPollAnswerCardano.CLI.EraBased.Options.Common
pPollAnswerIndexCardano.CLI.EraBased.Options.Common
pPollFileCardano.CLI.EraBased.Options.Common
pPollNonceCardano.CLI.EraBased.Options.Common
pPollQuestionCardano.CLI.EraBased.Options.Common
pPollTxFileCardano.CLI.EraBased.Options.Common
pPoolCostCardano.CLI.EraBased.Options.Common
pPoolDepositCardano.CLI.EraBased.Options.Common
pPoolIdOutputFormatCardano.CLI.EraBased.Options.Common
pPoolInfluenceCardano.CLI.EraBased.Options.Common
pPoolMarginCardano.CLI.EraBased.Options.Common
pPoolMetadataFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pPoolPledgeCardano.CLI.EraBased.Options.Common
pPoolRelayCardano.CLI.EraBased.Options.Common
pPoolVotingThresholdsCardano.CLI.EraBased.Options.Common
pPortCardano.CLI.EraBased.Options.Common
pPreviousGovernanceActionCardano.CLI.EraBased.Options.Common
pPrintCBORCardano.CLI.Helpers
pProtocolParametersUpdateCardano.CLI.EraBased.Options.Common
pProtocolParamsFileCardano.CLI.EraBased.Options.Common
pProtocolVersionCardano.CLI.EraBased.Options.Common
pQueryCmdsCardano.CLI.EraBased.Options.Query
pQueryUTxOFilterCardano.CLI.EraBased.Options.Common
pRationalCardano.CLI.EraBased.Options.Common
pReadOnlyReferenceTxInCardano.CLI.EraBased.Options.Common
prefCardano.CLI.Options
pReferenceTxInCardano.CLI.EraBased.Options.Common
prefixFlagCardano.CLI.EraBased.Options.Common
pRefScriptFpCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pRequiredSignerCardano.CLI.EraBased.Options.Common
prettyAddressCardano.CLI.Byron.Tx
PrettyPrintCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
prettyPublicKeyCardano.CLI.Byron.Key
PrettySigningKeyPublicCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
pReturnCollateralCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRewardAmtCardano.CLI.EraBased.Options.Common
printCardano.CLI.OS.Posix
PrintGenesisHashCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
PrintSigningKeyAddressCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
printWarningCardano.CLI.Helpers
PrioIOAvailableCardano.CLI.OS.Posix
PrivKeyFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProposalErrorCardano.CLI.Read
ProposalErrorFileCardano.CLI.Read
ProposalFileCardano.CLI.Types.Common
ProposalNotSupportedInEraCardano.CLI.Read
ProposalNotUnicodeErrorCardano.CLI.Read
ProposalText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProposalUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ProtocolParametersParseFailedCardano.CLI.Byron.Genesis
ProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorFileCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorJSONCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
pScriptCardano.CLI.EraBased.Options.Common
pScriptDataOrFileCardano.CLI.EraBased.Options.Common
pScriptDatumOrFileCardano.CLI.EraBased.Options.Common
pScriptForCardano.CLI.EraBased.Options.Common
pScriptRedeemerOrFileCardano.CLI.EraBased.Options.Common
pScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pShelleyBasedAllegraCardano.CLI.EraBased.Options.Common
pShelleyBasedAlonzoCardano.CLI.EraBased.Options.Common
pShelleyBasedBabbageCardano.CLI.EraBased.Options.Common
pShelleyBasedConwayCardano.CLI.EraBased.Options.Common
pShelleyBasedMaryCardano.CLI.EraBased.Options.Common
pShelleyBasedShelleyCardano.CLI.EraBased.Options.Common
pSigningKeyFileInCardano.CLI.EraBased.Options.Common
pSigningKeyFileOutCardano.CLI.EraBased.Options.Common
pSingleHostAddressCardano.CLI.EraBased.Options.Common
pSingleHostNameCardano.CLI.EraBased.Options.Common
pSocketPathCardano.CLI.EraBased.Options.Common
pStakeAddressCardano.CLI.EraBased.Options.Common
pStakeAddressCmdsCardano.CLI.EraBased.Options.StakeAddress
pStakeIdentifierCardano.CLI.EraBased.Options.Common
pStakePoolCmdsCardano.CLI.EraBased.Options.StakePool
pStakePoolMetadataHashCardano.CLI.EraBased.Options.Common
pStakePoolMetadataReferenceCardano.CLI.EraBased.Options.Common
pStakePoolMetadataUrlCardano.CLI.EraBased.Options.Common
pStakePoolRegistrationParserRequirementsCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakeVerificationKeyCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pStakeVerifierCardano.CLI.EraBased.Options.Common
pTextViewCmdsCardano.CLI.EraBased.Options.TextView
pTotalCollateralCardano.CLI.EraBased.Options.Common
pTransactionCmdsCardano.CLI.EraBased.Options.Transaction
pTransferAmtCardano.CLI.EraBased.Options.Common
pTreasuryExpansionCardano.CLI.EraBased.Options.Common
pTxBodyFileInCardano.CLI.EraBased.Options.Common
pTxBodyFileOutCardano.CLI.EraBased.Options.Common
pTxByronWitnessCountCardano.CLI.EraBased.Options.Common
pTxFeeCardano.CLI.EraBased.Options.Common
pTxFileInCardano.CLI.EraBased.Options.Common
pTxFileOutCardano.CLI.EraBased.Options.Common
pTxIdCardano.CLI.EraBased.Options.Common
pTxInCardano.CLI.EraBased.Options.Common
pTxInCollateralCardano.CLI.EraBased.Options.Common
pTxInCountCardano.CLI.EraBased.Options.Common
pTxMetadataJsonSchemaCardano.CLI.EraBased.Options.Common
pTxOutCardano.CLI.EraBased.Options.Common
pTxOutCountCardano.CLI.EraBased.Options.Common
pTxOutDatumCardano.CLI.EraBased.Options.Common
pTxShelleyWitnessCountCardano.CLI.EraBased.Options.Common
pTxSubmitFileCardano.CLI.EraBased.Options.Common
pTxViewOutputFormatCardano.CLI.EraBased.Options.Common
pUpdateProposalFileCardano.CLI.EraBased.Options.Common
pUrlCardano.CLI.EraBased.Options.Common
putCharCardano.CLI.OS.Posix
putLnCardano.CLI.Pretty
putStrCardano.CLI.OS.Posix
putStrLnCardano.CLI.OS.Posix
pUTxOCostPerByteCardano.CLI.EraBased.Options.Common
pVerificationKeyCardano.CLI.EraBased.Options.Common
pVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pVerificationKeyFileOutCardano.CLI.EraBased.Options.Common
pVerificationKeyOrFileInCardano.CLI.EraBased.Options.Common
pVoteAnchorCardano.CLI.EraBased.Options.Common
pVoteAnchorDataHashCardano.CLI.EraBased.Options.Common
pVoteChoiceCardano.CLI.EraBased.Options.Common
pVoteDelegationTargetCardano.CLI.EraBased.Options.Common
pVoterTypeCardano.CLI.EraBased.Options.Common
pVotingCredentialCardano.CLI.EraBased.Options.Common
pVrfSigningKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyHashCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pWhichLeadershipScheduleCardano.CLI.EraBased.Options.Common
pWithdrawalCardano.CLI.EraBased.Options.Common
pWitnessFileCardano.CLI.EraBased.Options.Common
pWitnessOverrideCardano.CLI.EraBased.Options.Common
pWitnessSigningDataCardano.CLI.EraBased.Options.Common
pWord32Cardano.CLI.EraBased.Options.Common
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-Q.html b/cardano-cli/lib/doc-index-Q.html new file mode 100644 index 0000000000..3534a82702 --- /dev/null +++ b/cardano-cli/lib/doc-index-Q.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - Q)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - Q

QueryCmdAcquireFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmdByronEraCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeColdKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeHotKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdConvenienceErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdDRepKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdEraMismatchCardano.CLI.Types.Errors.QueryCmdError
QueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdGenesisReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdHelpersErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLeaderShipErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLocalStateQueryError 
1 (Type/Class)Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
2 (Data Constructor)Cardano.CLI.Types.Errors.QueryCmdError
QueryCmdOpCertCounterReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPastHorizonCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPoolStateDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolParameterConversionErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolStateDecodeFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands
QueryCmdStakeSnapshotDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdSystemStartUnavailableCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextEnvelopeReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdUnsupportedNtcVersionCardano.CLI.Types.Errors.QueryCmdError
QueryCmdWriteFileErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCommitteeMembersStateCmdCardano.CLI.EraBased.Commands.Query
QueryCommitteeMembersStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionCmdCardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
queryFdOptionCardano.CLI.OS.Posix
QueryGovStateCmdCardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryLeadershipScheduleCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLeadershipScheduleCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryNoArgCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTipLocalState 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryTipLocalStateOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
QueryTxMempoolCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryTxMempoolCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-R.html b/cardano-cli/lib/doc-index-R.html new file mode 100644 index 0000000000..2584f6ae7f --- /dev/null +++ b/cardano-cli/lib/doc-index-R.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - R)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - R

readAndDecodeShelleyGenesisCardano.CLI.EraBased.Run.Genesis
readByronSigningKeyCardano.CLI.Byron.Key
readByronTxCardano.CLI.Byron.Tx
readByronUpdateProposalCardano.CLI.Byron.UpdateProposal
readByronVoteCardano.CLI.Byron.Vote
readCBORCardano.CLI.Helpers
ReadCBORFileFailureCardano.CLI.Helpers
readCddlTxCardano.CLI.Read
readDRepCredentialCardano.CLI.Types.Key
readerFromAttoParserCardano.CLI.Parser
readerFromParsecParserCardano.CLI.EraBased.Options.Common
readFileCardano.CLI.OS.Posix
readFile'Cardano.CLI.OS.Posix
ReadFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
readFileOrPipeCardano.CLI.Read
readFileScriptInAnyLangCardano.CLI.Read
readFileTxCardano.CLI.Read
readFileTxBodyCardano.CLI.Read
readFileTxKeyWitnessCardano.CLI.Read
readFileTxMetadataCardano.CLI.Read
readFractionAsRationalCardano.CLI.Parser
readGenesisCardano.CLI.Byron.Genesis
readGovernanceActionViewOutputFormatCardano.CLI.Parser
readHexAsSafeHashCardano.CLI.Read
readIdOutputFormatCardano.CLI.Parser
readIOCardano.CLI.OS.Posix
readKeyOutputFormatCardano.CLI.Parser
readLnCardano.CLI.OS.Posix
ReadLockCardano.CLI.OS.Posix
ReadModeCardano.CLI.OS.Posix
ReadOnlyCardano.CLI.OS.Posix
readPaymentVerificationKeyCardano.CLI.Byron.Key
readProposalCardano.CLI.Read
readProtocolParametersCardano.CLI.EraBased.Run.Genesis
readRationalCardano.CLI.Parser
readRationalUnitIntervalCardano.CLI.Parser
readRequiredSignerCardano.CLI.Read
readSafeHashCardano.CLI.Read
ReadSafeHashErrorCardano.CLI.Read
ReadSafeHashErrorInvalidHashCardano.CLI.Read
ReadSafeHashErrorNotHexCardano.CLI.Read
readScriptDataOrFileCardano.CLI.Read
readScriptDatumOrFileCardano.CLI.Read
readScriptRedeemerOrFileCardano.CLI.Read
readScriptWitnessCardano.CLI.Read
readScriptWitnessFilesCardano.CLI.Read
readScriptWitnessFilesThrupleCardano.CLI.Read
ReadSigningKeyFailure 
1 (Data Constructor)Cardano.CLI.Byron.Key
2 (Data Constructor)Cardano.CLI.Byron.UpdateProposal
readSigningKeyFileCardano.CLI.Types.Key
readStringOfMaxLengthCardano.CLI.Parser
readSymbolicLinkCardano.CLI.OS.Posix
readTxGovernanceActionsCardano.CLI.Read
readTxMetadataCardano.CLI.Read
readTxUpdateProposalCardano.CLI.Read
readTxViewOutputFormatCardano.CLI.Parser
readURIOfMaxLengthCardano.CLI.Parser
readVerificationKeyCardano.CLI.EraBased.Options.Common
ReadVerificationKeyFailureCardano.CLI.Byron.Key
readVerificationKeyOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyTextOrFileAnyOfCardano.CLI.Types.Key
readVoteDelegationTargetCardano.CLI.Read
readVotingProceduresFileCardano.CLI.Read
readVotingProceduresFilesCardano.CLI.Read
readWitnessSigningDataCardano.CLI.Read
ReadWitnessSigningDataErrorCardano.CLI.Read
ReadWitnessSigningDataScriptErrorCardano.CLI.Read
ReadWitnessSigningDataSigningKeyAndAddressMismatchCardano.CLI.Read
ReadWitnessSigningDataSigningKeyDecodeErrorCardano.CLI.Read
ReadWriteCardano.CLI.OS.Posix
ReadWriteModeCardano.CLI.OS.Posix
redCardano.CLI.Pretty
ReferenceScriptAnyEra 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
ReferenceScriptAnyEraNoneCardano.CLI.Types.Common
RegistrationErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationReadErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeCredentialErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationWriteFileErrorCardano.CLI.Types.Errors.RegistrationError
regularFileModeCardano.CLI.OS.Posix
RelativeSeekCardano.CLI.OS.Posix
removeLinkCardano.CLI.OS.Posix
renameCardano.CLI.OS.Posix
renderAddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
renderAddressCmdsCardano.CLI.EraBased.Commands.Address
renderAnyEraCommandCardano.CLI.EraBased.Commands
renderBootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
renderByronClientCmdErrorCardano.CLI.Byron.Run
renderByronDelegationErrorCardano.CLI.Byron.Delegation
renderByronGenesisErrorCardano.CLI.Byron.Genesis
renderByronKeyFailureCardano.CLI.Byron.Key
renderByronTxErrorCardano.CLI.Byron.Tx
renderByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
renderByronVoteErrorCardano.CLI.Byron.Vote
renderCardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
renderClientCommandErrorCardano.CLI.Run
renderCmdErrorCardano.CLI.Types.Errors.CmdError
renderCmdsCardano.CLI.EraBased.Commands
renderConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
renderDefaultCardano.CLI.Pretty
renderFeatureCardano.CLI.Types.TxFeature
renderGenesisCmdsCardano.CLI.EraBased.Commands.Genesis
renderGovernanceActionCmdsCardano.CLI.EraBased.Commands.Governance.Actions
renderGovernanceCmdsCardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
renderGovernanceCommitteeCmdsCardano.CLI.EraBased.Commands.Governance.Committee
renderGovernanceDRepCmdsCardano.CLI.EraBased.Commands.Governance.DRep
renderGovernanceHashCmdsCardano.CLI.EraBased.Commands.Governance.Hash
renderGovernancePollCmdsCardano.CLI.EraBased.Commands.Governance.Poll
renderGovernanceVoteCmdsCardano.CLI.EraBased.Commands.Governance.Vote
renderHelpersErrorCardano.CLI.Helpers
renderKeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
renderKeyCmdsCardano.CLI.EraBased.Commands.Key
renderLegacyAddressCmdsCardano.CLI.Legacy.Commands.Address
renderLegacyCommandCardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
renderLegacyGenesisCmdsCardano.CLI.Legacy.Commands.Genesis
renderLegacyGovernanceCmdsCardano.CLI.Legacy.Commands.Governance
renderLegacyKeyCmdsCardano.CLI.Legacy.Commands.Key
renderLegacyNodeCmdsCardano.CLI.Legacy.Commands.Node
renderLegacyQueryCmdsCardano.CLI.Legacy.Commands.Query
renderLegacyStakeAddressCmdsCardano.CLI.Legacy.Commands.StakeAddress
renderLegacyStakePoolCmdsCardano.CLI.Legacy.Commands.StakePool
renderLegacyTextViewCmdsCardano.CLI.Legacy.Commands.TextView
renderLegacyTransactionCmdsCardano.CLI.Legacy.Commands.Transaction
renderLocalStateQueryErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError, Cardano.CLI.EraBased.Run.Query
renderMetadataErrorCardano.CLI.Read
renderNodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
renderNodeCmdsCardano.CLI.EraBased.Commands.Node
renderOpCertIntervalInformationCardano.CLI.EraBased.Run.Query
renderPingClientCmdErrorCardano.CLI.Run.Ping
renderProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
renderQueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError, Cardano.CLI.EraBased.Run.Query
renderQueryCmdsCardano.CLI.EraBased.Commands.Query
renderReadWitnessSigningDataErrorCardano.CLI.Read
renderScriptCostsCardano.CLI.Types.Output
renderScriptDataErrorCardano.CLI.Read
renderScriptWitnessErrorCardano.CLI.Read
renderStakeAddressCmdsCardano.CLI.EraBased.Commands.StakeAddress
renderStakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
renderStakePoolCmdsCardano.CLI.EraBased.Commands.StakePool
renderStringDefaultCardano.CLI.Pretty
renderTextViewCmdsCardano.CLI.EraBased.Commands.TextView
renderTextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
renderTransactionCmdsCardano.CLI.EraBased.Commands.Transaction
renderTxCmdErrorCardano.CLI.Types.Errors.TxCmdError
renderVerificationKeyTextOrFileErrorCardano.CLI.Types.Key
replicateMCardano.CLI.IO.Lazy
RequiredSignerCardano.CLI.Types.Common
RequiredSignerErrorCardano.CLI.Read
RequiredSignerErrorByronKeyCardano.CLI.Read
RequiredSignerErrorFileCardano.CLI.Read
RequiredSignerHashCardano.CLI.Types.Common
RequiredSignerSkeyFileCardano.CLI.Types.Common
retiringEpochCardano.CLI.Types.Common
runAddressBuildCmdCardano.CLI.EraBased.Run.Address
runAddressCmdsCardano.CLI.EraBased.Run.Address
runAddressInfoCmdCardano.CLI.EraBased.Run.Address.Info
runAddressKeyGenCmdCardano.CLI.EraBased.Run.Address
runAddressKeyHashCmdCardano.CLI.EraBased.Run.Address
runAnyEraCommandCardano.CLI.EraBased.Run
runByronClientCommandCardano.CLI.Byron.Run
runClientCommandCardano.CLI.Run
runCmdsCardano.CLI.EraBased.Run
runConvertByronGenesisVKeyCmdCardano.CLI.EraBased.Run.Key
runConvertByronKeyCmdCardano.CLI.EraBased.Run.Key
runConvertCardanoAddressKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNBip32KeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNKeyCmdCardano.CLI.EraBased.Run.Key
runGenesisAddrCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCmdsCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCardanoCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateStakedCmdCardano.CLI.EraBased.Run.Genesis
runGenesisHashFileCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenDelegateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenGenesisCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenUTxOCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyHashCmdCardano.CLI.EraBased.Run.Genesis
runGenesisTxInCmdCardano.CLI.EraBased.Run.Genesis
runGenesisVerKeyCmdCardano.CLI.EraBased.Run.Genesis
runGovernanceActionCmdsCardano.CLI.EraBased.Run.Governance.Actions
runGovernanceAnswerPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceCmdsCardano.CLI.EraBased.Run.Governance, Cardano.CLI.EraBased.Run
runGovernanceCommitteeCmdsCardano.CLI.EraBased.Run.Governance.Committee
runGovernanceCreateMirCertificateTransferToReservesCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreateMirCertificateTransferToTreasuryCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreatePollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceDRepCmdsCardano.CLI.EraBased.Run.Governance.DRep
runGovernanceGenesisKeyDelegationCertificateCardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
runGovernanceHashCmdsCardano.CLI.EraBased.Run.Governance.Hash
runGovernanceMIRCertificatePayStakeAddrsCardano.CLI.EraBased.Run.Governance
runGovernancePollCmdsCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVerifyPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVoteCmdsCardano.CLI.EraBased.Run.Governance.Vote
runKeyCmdsCardano.CLI.EraBased.Run.Key
runLegacyAddressCmdsCardano.CLI.Legacy.Run.Address
runLegacyCmdsCardano.CLI.Legacy.Run
runLegacyGenesisCmdsCardano.CLI.Legacy.Run.Genesis
runLegacyGovernanceCmdsCardano.CLI.Legacy.Run.Governance
runLegacyKeyCmdsCardano.CLI.Legacy.Run.Key
runLegacyNodeCmdsCardano.CLI.Legacy.Run.Node
runLegacyQueryCmdsCardano.CLI.Legacy.Run.Query
runLegacyStakeAddressCmdsCardano.CLI.Legacy.Run.StakeAddress
runLegacyStakePoolCmdsCardano.CLI.Legacy.Run.StakePool
runLegacyTextViewCmdsCardano.CLI.Legacy.Run.TextView
runLegacyTransactionCmdsCardano.CLI.Legacy.Run.Transaction
runNodeCmdsCardano.CLI.EraBased.Run.Node
runNodeIssueOpCertCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenColdCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenKesCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenVrfCmdCardano.CLI.EraBased.Run.Node
runNodeKeyHashVrfCmdCardano.CLI.EraBased.Run.Node
runNodeNewCounterCmdCardano.CLI.EraBased.Run.Node
runNonExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runPingCmdCardano.CLI.Run.Ping
runProposalCreationCardano.CLI.Byron.UpdateProposal
runQueryCmdsCardano.CLI.EraBased.Run.Query
runQueryConstitutionHashCmdCardano.CLI.EraBased.Run.Query
runQueryKesPeriodInfoCmdCardano.CLI.EraBased.Run.Query
runQueryLeadershipScheduleCmdCardano.CLI.EraBased.Run.Query
runQueryLedgerStateCmdCardano.CLI.EraBased.Run.Query
runQueryPoolStateCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolParametersCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolStateCmdCardano.CLI.EraBased.Run.Query
runQuerySlotNumberCmdCardano.CLI.EraBased.Run.Query
runQueryStakeAddressInfoCmdCardano.CLI.EraBased.Run.Query
runQueryStakeDistributionCmdCardano.CLI.EraBased.Run.Query
runQueryStakePoolsCmdCardano.CLI.EraBased.Run.Query
runQueryStakeSnapshotCmdCardano.CLI.EraBased.Run.Query
runQueryTipCmdCardano.CLI.EraBased.Run.Query
runQueryTxMempoolCmdCardano.CLI.EraBased.Run.Query
runQueryUTxOCmdCardano.CLI.EraBased.Run.Query
runStakeAddressBuildCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressCmdsCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyGenCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyHashCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakePoolCmdsCardano.CLI.EraBased.Run.StakePool
runStakePoolDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolIdCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolMetadataHashCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runTextViewCmdsCardano.CLI.EraBased.Run.TextView
runTextViewInfoCmdCardano.CLI.EraBased.Run.TextView
runTransactionBuildCmdCardano.CLI.EraBased.Run.Transaction
runTransactionBuildRawCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinFeeCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinValueCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCmdsCardano.CLI.EraBased.Run.Transaction
runTransactionHashScriptDataCmdCardano.CLI.EraBased.Run.Transaction
runTransactionPolicyIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignWitnessCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSubmitCmdCardano.CLI.EraBased.Run.Transaction
runTransactionTxIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionViewCmdCardano.CLI.EraBased.Run.Transaction
runTransactionWitnessCmdCardano.CLI.EraBased.Run.Transaction
runVerificationKeyCmdCardano.CLI.EraBased.Run.Key
runVoteCreationCardano.CLI.Byron.Vote
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-S.html b/cardano-cli/lib/doc-index-S.html new file mode 100644 index 0000000000..def4ef0d39 --- /dev/null +++ b/cardano-cli/lib/doc-index-S.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - S)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - S

ScriptCostOutput 
1 (Type/Class)Cardano.CLI.Types.Output
2 (Data Constructor)Cardano.CLI.Types.Output
ScriptDataCborFileCardano.CLI.Types.Common
ScriptDataErrorCardano.CLI.Read
ScriptDataErrorConversionCardano.CLI.Read
ScriptDataErrorFileCardano.CLI.Read
ScriptDataErrorJsonBytesCardano.CLI.Read
ScriptDataErrorJsonParseCardano.CLI.Read
ScriptDataErrorMetadataDecodeCardano.CLI.Read
ScriptDataErrorValidationCardano.CLI.Read
ScriptDataJsonFileCardano.CLI.Types.Common
ScriptDataOrFileCardano.CLI.Types.Common
ScriptDataValueCardano.CLI.Types.Common
ScriptDatumOrFileCardano.CLI.Types.Common
ScriptDatumOrFileForTxInCardano.CLI.Types.Common
ScriptDecodeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeSimpleScriptErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeTextEnvelopeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
scriptHashReaderCardano.CLI.Read
ScriptInvalidCardano.CLI.Byron.Tx
ScriptRedeemerOrFileCardano.CLI.Types.Common
ScriptValidCardano.CLI.Byron.Tx
ScriptValidityCardano.CLI.Byron.Tx
ScriptValidityNotSupportedCardano.CLI.Types.Errors.TxValidationError
ScriptWitnessErrorCardano.CLI.Read
ScriptWitnessErrorExpectedPlutusCardano.CLI.Read
ScriptWitnessErrorExpectedSimpleCardano.CLI.Read
ScriptWitnessErrorFileCardano.CLI.Read
ScriptWitnessErrorReferenceScriptsNotSupportedInEraCardano.CLI.Read
ScriptWitnessErrorScriptDataCardano.CLI.Read
ScriptWitnessErrorScriptLanguageNotSupportedInEraCardano.CLI.Read
ScriptWitnessFilesCardano.CLI.Types.Common
SeekFromEndCardano.CLI.OS.Posix
SeekModeCardano.CLI.OS.Posix
sequenceMCardano.CLI.IO.Lazy
serialiseByronWitnessCardano.CLI.Byron.Delegation
serialiseDelegationCertCardano.CLI.Byron.Delegation
setFdModeCardano.CLI.OS.Posix
setFdOptionCardano.CLI.OS.Posix
setFdOwnerAndGroupCardano.CLI.OS.Posix
setFdSizeCardano.CLI.OS.Posix
setFdTimesHiResCardano.CLI.OS.Posix
setFileCreationMaskCardano.CLI.OS.Posix
setFileModeCardano.CLI.OS.Posix
setFileSizeCardano.CLI.OS.Posix
setFileTimesCardano.CLI.OS.Posix
setFileTimesHiResCardano.CLI.OS.Posix
setGroupIDModeCardano.CLI.OS.Posix
setLockCardano.CLI.OS.Posix
setOwnerAndGroupCardano.CLI.OS.Posix
SetOwnerAndGroupIsRestrictedCardano.CLI.OS.Posix
setSymbolicLinkOwnerAndGroupCardano.CLI.OS.Posix
setSymbolicLinkTimesHiResCardano.CLI.OS.Posix
setUserIDModeCardano.CLI.OS.Posix
ShelleyAddressInvalidCardano.CLI.Types.Errors.AddressInfoError
ShelleyBootstrapWitnessSigningKeyData 
1 (Type/Class)Cardano.CLI.Read
2 (Data Constructor)Cardano.CLI.Read
ShelleyToBabbageDelegTargetCardano.CLI.Types.Key
SigningKeyDeserialisationFailedCardano.CLI.Byron.Key
SigningKeyFileCardano.CLI.Types.Common
SimpleReferenceScriptWitnessFilesCardano.CLI.Types.Common
SimpleScriptWitnessFileCardano.CLI.Types.Common
SlotsTillKesKeyExpiry 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
socketModeCardano.CLI.OS.Posix
SomeKeyFileCardano.CLI.Types.Common
SomeSigningKeyCardano.CLI.Types.Key
SomeSigningWitnessCardano.CLI.Read
specialDeviceIDCardano.CLI.OS.Posix
SpendGenesisUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SpendUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
spoPoolOwnerKeysCardano.CLI.Types.Key
sprMetadataCardano.CLI.Types.Key
sprNetworkIdCardano.CLI.Types.Key
sprPoolCostCardano.CLI.Types.Key
sprPoolMarginCardano.CLI.Types.Key
sprPoolPledgeCardano.CLI.Types.Key
sprRelaysCardano.CLI.Types.Key
sprRewardAccountKeyCardano.CLI.Types.Key
sprStakePoolKeyCardano.CLI.Types.Key
sprVrfKeyCardano.CLI.Types.Key
StakeAddressBuildCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressCmdDelegationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdRegistrationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands
StakeAddressCmdStakeCredentialErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdWriteFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressDelegationCertificateCmdCardano.CLI.Legacy.Commands.StakeAddress
StakeAddressDelegationErrorCardano.CLI.Types.Errors.StakeAddressDelegationError
StakeAddressDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressKeyGenCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressKeyHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressRegistrationDepositRequiredCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressRegistrationErrorCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressStakeAndVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeCredentialErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialInputDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialScriptDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredGovCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
StakeIdentifierCardano.CLI.Types.Key
StakeIdentifierAddressCardano.CLI.Types.Key
StakeIdentifierVerifierCardano.CLI.Types.Key
StakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdMetadataValidationErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands
StakePoolCmdWriteFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolDeregistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataFileCardano.CLI.Types.Common
StakePoolMetadataHashCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataHashCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationParserRequirements 
1 (Type/Class)Cardano.CLI.Types.Key
2 (Data Constructor)Cardano.CLI.Types.Key
StakeTargetCardano.CLI.Types.Key
StakeVerifierCardano.CLI.Types.Key
StakeVerifierKeyCardano.CLI.Types.Key
StakeVerifierScriptFileCardano.CLI.Types.Key
stakeVkeyDescCardano.CLI.EraBased.Run.Key
statusChangeTimeCardano.CLI.OS.Posix
statusChangeTimeHiResCardano.CLI.OS.Posix
stderrCardano.CLI.OS.Posix
stdErrorCardano.CLI.OS.Posix
stdFileModeCardano.CLI.OS.Posix
stdinCardano.CLI.OS.Posix
stdInputCardano.CLI.OS.Posix
stdoutCardano.CLI.OS.Posix
stdOutputCardano.CLI.OS.Posix
subInfoParserCardano.CLI.EraBased.Options.Common
submitByronUpdateProposalCardano.CLI.Byron.UpdateProposal
submitByronVoteCardano.CLI.Byron.Vote
SubmitTxCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitUpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
subParserCardano.CLI.EraBased.Options.Common
SymbolicLinkLimitCardano.CLI.OS.Posix
symbolicLinkModeCardano.CLI.OS.Posix
SynchronousWritesCardano.CLI.OS.Posix
SyncIOAvailableCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-T.html b/cardano-cli/lib/doc-index-T.html new file mode 100644 index 0000000000..799d8c9cee --- /dev/null +++ b/cardano-cli/lib/doc-index-T.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - T)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - T

TargetAlwaysAbstainCardano.CLI.Types.Key
TargetAlwaysNoConfidenceCardano.CLI.Types.Key
TargetStakePoolCardano.CLI.Types.Key
TargetVotingDrepCardano.CLI.Types.Key
TargetVotingDrepAndStakePoolCardano.CLI.Types.Key
TargetVotingDRepScriptHashCardano.CLI.Types.Key
TextEncodingCardano.CLI.OS.Posix
TextViewCBORPrettyPrintErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.TextView
2 (Data Constructor)Cardano.CLI.EraBased.Commands
TextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewInfo 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.TextView
2 (Data Constructor)Cardano.CLI.Legacy.Commands.TextView
TextViewReadFileErrorCardano.CLI.Types.Errors.TextViewFileError
toCborTxAuxCardano.CLI.Byron.Tx
toHashCardano.CLI.EraBased.Commands.Governance.Hash
toplevelExceptionHandlerCardano.CLI.TopHandler
touchFdCardano.CLI.OS.Posix
touchFileCardano.CLI.OS.Posix
touchSymbolicLinkCardano.CLI.OS.Posix
toUnitIntervalOrErrCardano.CLI.EraBased.Options.Common
ToVerificationCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
TransactionBuildCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionCmds 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands
TransactionHashScriptDataCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionHashScriptDataCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmd 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmdArgs 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
TransferDirectionCardano.CLI.Types.Common
TransferToReservesCardano.CLI.Types.Common
TransferToTreasuryCardano.CLI.Types.Common
traverseMCardano.CLI.IO.Lazy
traverseStateMCardano.CLI.IO.Lazy
truncCardano.CLI.OS.Posix
TxCardano.CLI.Byron.Tx
TxAuxScriptsLanguageErrorCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsNotSupportedInEraCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxBodyFileCardano.CLI.Types.Common
TxBuildOutputOptionsCardano.CLI.Types.Common
TxByronWitnessCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxCertificatesValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxCertificatesValidationNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxCmdAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdBalanceTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdBootstrapWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdByronEraCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdConstitutionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdMetadataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdNotImplementedCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptCostErrCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptsRequireCardanoModeCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsExcessCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsMissingCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamExecutionUnitsNotAvailableCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersNotPresentInTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsConverstionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryConvenienceErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryNotScriptLockedCardano.CLI.Types.Errors.TxCmdError
TxCmdReadTextViewFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReadWitnessSigningDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignerErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptValidityValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTextEnvCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxBodyErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxCertificatesValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxExecUnitsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeatureMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeeValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxInsDoNotExistCardano.CLI.Types.Errors.TxCmdError
TxCmdTxNodeEraMismatchErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdVoteErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdWitnessEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdWriteFileErrorCardano.CLI.Types.Errors.TxCmdError
TxDeserialisationFailedCardano.CLI.Byron.Tx
TxFeatureCardano.CLI.Types.TxFeature
TxFeatureAuxScriptsCardano.CLI.Types.TxFeature
TxFeatureCertificatesCardano.CLI.Types.TxFeature
TxFeatureCollateralCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureExtraKeyWitsCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureInlineDatumsCardano.CLI.Types.TxFeature
TxFeatureMintValueCardano.CLI.Types.TxFeature
TxFeatureMultiAssetOutputsCardano.CLI.Types.TxFeature
TxFeatureProtocolParametersCardano.CLI.Types.TxFeature
TxFeatureReferenceInputsCardano.CLI.Types.TxFeature
TxFeatureReturnCollateralCardano.CLI.Types.TxFeature
TxFeatureScriptValidityCardano.CLI.Types.TxFeature
TxFeatureScriptWitnessesCardano.CLI.Types.TxFeature
TxFeatureShelleyAddressesCardano.CLI.Types.TxFeature
TxFeatureShelleyKeysCardano.CLI.Types.TxFeature
TxFeatureTotalCollateralCardano.CLI.Types.TxFeature
TxFeatureTxMetadataCardano.CLI.Types.TxFeature
TxFeatureTxOutDatumCardano.CLI.Types.TxFeature
TxFeatureValidityLowerBoundCardano.CLI.Types.TxFeature
TxFeatureValidityNoUpperBoundCardano.CLI.Types.TxFeature
TxFeatureValidityUpperBoundCardano.CLI.Types.TxFeature
TxFeatureWithdrawalsCardano.CLI.Types.TxFeature
TxFeeValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Tx
TxInCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxMempoolQueryCardano.CLI.Types.Common
TxMempoolQueryInfoCardano.CLI.Types.Common
TxMempoolQueryNextTxCardano.CLI.Types.Common
TxMempoolQueryTxExistsCardano.CLI.Types.Common
TxOutAnyEra 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutChangeAddress 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
TxOutDatumAnyEraCardano.CLI.Types.Common
TxOutDatumByHashOfCardano.CLI.Types.Common
TxOutDatumByHashOnlyCardano.CLI.Types.Common
TxOutDatumByNoneCardano.CLI.Types.Common
TxOutDatumByValueCardano.CLI.Types.Common
TxOutInlineDatumByValueCardano.CLI.Types.Common
TxProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxScriptValidityValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxShelleyWitnessCount 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
txSpendGenesisUTxOByronPBFTCardano.CLI.Byron.Tx
txSpendUTxOByronPBFTCardano.CLI.Byron.Tx
TxTotalCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxViewOutputFormatCardano.CLI.Types.Common
TxViewOutputFormatJsonCardano.CLI.Types.Common
TxViewOutputFormatYamlCardano.CLI.Types.Common
TxWithdrawalsNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxValidationError
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-U.html b/cardano-cli/lib/doc-index-U.html new file mode 100644 index 0000000000..84aa478a28 --- /dev/null +++ b/cardano-cli/lib/doc-index-U.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - U)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - U

unAnyVerificationKeyTextCardano.CLI.Types.Key.VerificationKey
unCddlTxCardano.CLI.Read
unCertificateFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
unConstitutionTextCardano.CLI.Types.Common
unConstitutionUrlCardano.CLI.Types.Common
unCurrentKesPeriodCardano.CLI.Types.Common
unFileCardano.CLI.Types.Common
unGenesisFileCardano.CLI.Types.Common
unionFileModesCardano.CLI.OS.Posix
universalNewlineModeCardano.CLI.OS.Posix
UnlockCardano.CLI.OS.Posix
unOpCertEndingKesPeriodCardano.CLI.Types.Common
unOpCertNodeStateCounterCardano.CLI.Types.Common
unOpCertOnDiskCounterCardano.CLI.Types.Common
unOpCertStartingKesPeriodCardano.CLI.Types.Common
unProposalTextCardano.CLI.Types.Common
unProposalUrlCardano.CLI.Types.Common
unScriptFileCardano.CLI.Types.Common
unSlotsTillKesKeyExpiryCardano.CLI.Types.Common
unUpdateProposalFileCardano.CLI.Types.Common
unVoteTextCardano.CLI.Types.Common
unVoteUrlCardano.CLI.Types.Common
UnwitnessedCliFormattedTxBodyCardano.CLI.Read
UpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
UpdateProposalDecodingErrorCardano.CLI.Byron.UpdateProposal
UpdateProposalFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
UpdateProtocolParametersConwayOnwards 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
UpdateProtocolParametersPreConway 
1 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
utf16Cardano.CLI.OS.Posix
utf16beCardano.CLI.OS.Posix
utf16leCardano.CLI.OS.Posix
utf32Cardano.CLI.OS.Posix
utf32beCardano.CLI.OS.Posix
utf32leCardano.CLI.OS.Posix
utf8Cardano.CLI.OS.Posix
utf8_bomCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-V.html b/cardano-cli/lib/doc-index-V.html new file mode 100644 index 0000000000..cc922e783a --- /dev/null +++ b/cardano-cli/lib/doc-index-V.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - V)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - V

ValidateCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
validateCBORCardano.CLI.Helpers
validateProtocolParametersCardano.CLI.Types.Errors.TxValidationError
validateRequiredSignersCardano.CLI.Types.Errors.TxValidationError
validateScriptSupportedInEraCardano.CLI.Types.Errors.TxValidationError
validateTxAuxScriptsCardano.CLI.Types.Errors.TxValidationError
validateTxCertificatesCardano.CLI.Types.Errors.TxValidationError
validateTxFeeCardano.CLI.Types.Errors.TxValidationError
validateTxReturnCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxScriptValidityCardano.CLI.Types.Errors.TxValidationError
validateTxTotalCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxValidityLowerBoundCardano.CLI.Types.Errors.TxValidationError
validateTxValidityUpperBoundCardano.CLI.Types.Errors.TxValidationError
validateTxWithdrawalsCardano.CLI.Types.Errors.TxValidationError
validateUpdateProposalFileCardano.CLI.Types.Errors.TxValidationError
VCCCardano.CLI.Types.Governance
VDisableCharCardano.CLI.OS.Posix
VDRCardano.CLI.Types.Governance
VerificationKeyBase64 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VerificationKeyDeserialisationFailedCardano.CLI.Byron.Key
VerificationKeyFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
VerificationKeyFileErrorCardano.CLI.Types.Key
VerificationKeyFilePathCardano.CLI.Types.Key
VerificationKeyHashCardano.CLI.Types.Key
VerificationKeyOrFile 
1 (Data Constructor)Cardano.CLI.Types.Key
2 (Type/Class)Cardano.CLI.Types.Key
VerificationKeyOrHashOrFileCardano.CLI.Types.Key
VerificationKeyTextErrorCardano.CLI.Types.Key
VerificationKeyTextOrFileCardano.CLI.Types.Key
VerificationKeyTextOrFileErrorCardano.CLI.Types.Key
VerificationKeyValueCardano.CLI.Types.Key
versionPaths_cardano_cli
VktofVerificationKeyFileCardano.CLI.Types.Key
VktofVerificationKeyTextCardano.CLI.Types.Key
VoteDelegationNotSupportedCardano.CLI.Types.Errors.StakeAddressDelegationError
VoteDelegationTargetCardano.CLI.Types.Governance
VoteDelegationTargetOfAbstainCardano.CLI.Types.Governance
VoteDelegationTargetOfDRepCardano.CLI.Types.Governance
VoteDelegationTargetOfNoConfidenceCardano.CLI.Types.Governance
VoteErrorCardano.CLI.Read
VoteErrorFileCardano.CLI.Read
VoteErrorTextNotUnicodeCardano.CLI.Read
VoteFileCardano.CLI.Types.Governance
VoteHashSourceCardano.CLI.Types.Common
VoteHashSourceFileCardano.CLI.Types.Common
VoteHashSourceHashCardano.CLI.Types.Common
VoteHashSourceTextCardano.CLI.Types.Common
VoteText 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VoteUrl 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
VotingCredentialDecodeGovCmdErorCardano.CLI.Types.Errors.GovernanceCmdError
VSPCardano.CLI.Types.Governance
VTypeCardano.CLI.Types.Governance
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-W.html b/cardano-cli/lib/doc-index-W.html new file mode 100644 index 0000000000..249fcaf55a --- /dev/null +++ b/cardano-cli/lib/doc-index-W.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - W)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - W

waitToSetLockCardano.CLI.OS.Posix
whiteCardano.CLI.Pretty
withBinaryFileCardano.CLI.OS.Posix
withFileCardano.CLI.OS.Posix
withSomeSigningKeyCardano.CLI.Types.Key
WitnessFile 
1 (Type/Class)Cardano.CLI.Types.Common
2 (Data Constructor)Cardano.CLI.Types.Common
WitnessSigningDataCardano.CLI.Types.Common
writeFileCardano.CLI.OS.Posix
WriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
WriteLockCardano.CLI.OS.Posix
WriteModeCardano.CLI.OS.Posix
WriteOnlyCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index-Y.html b/cardano-cli/lib/doc-index-Y.html new file mode 100644 index 0000000000..0735a46400 --- /dev/null +++ b/cardano-cli/lib/doc-index-Y.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index - Y)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index - Y

yellowCardano.CLI.Pretty
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index.html b/cardano-cli/lib/doc-index.html new file mode 100644 index 0000000000..1583af7da8 --- /dev/null +++ b/cardano-cli/lib/doc-index.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index)
cardano-cli-8.14.0.0: The Cardano command-line interface
\ No newline at end of file diff --git a/cardano-cli/lib/doc-index.json b/cardano-cli/lib/doc-index.json new file mode 100644 index 0000000000..4c2d004fb4 --- /dev/null +++ b/cardano-cli/lib/doc-index.json @@ -0,0 +1 @@ +[{"display_html":"newtype LegacyDelegateKey = LegacyDelegateKey {}","name":"LegacyDelegateKey LegacyDelegateKey lrkSigningKey","module":"Cardano.CLI.Byron.Legacy","link":"Cardano-CLI-Byron-Legacy.html#t:LegacyDelegateKey"},{"display_html":"encodeLegacyDelegateKey ∷ LegacyDelegateKey → Encoding","name":"encodeLegacyDelegateKey","module":"Cardano.CLI.Byron.Legacy","link":"Cardano-CLI-Byron-Legacy.html#v:encodeLegacyDelegateKey"},{"display_html":"decodeLegacyDelegateKey ∷ Decoder s LegacyDelegateKey","name":"decodeLegacyDelegateKey","module":"Cardano.CLI.Byron.Legacy","link":"Cardano-CLI-Byron-Legacy.html#v:decodeLegacyDelegateKey"},{"display_html":"data EnvCli = EnvCli {}","name":"EnvCli EnvCli envCliNetworkId envCliSocketPath envCliAnyCardanoEra","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#t:EnvCli"},{"display_html":"envCliAnyShelleyBasedEra ∷ EnvCli → Maybe (EraInEon ShelleyBasedEra)","name":"envCliAnyShelleyBasedEra","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#v:envCliAnyShelleyBasedEra"},{"display_html":"envCliAnyShelleyToBabbageEra ∷ EnvCli → Maybe (EraInEon ShelleyToBabbageEra)","name":"envCliAnyShelleyToBabbageEra","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#v:envCliAnyShelleyToBabbageEra"},{"display_html":"getEnvCli ∷ IO EnvCli","name":"getEnvCli","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#v:getEnvCli"},{"display_html":"getEnvNetworkId ∷ IO (Maybe NetworkId)","name":"getEnvNetworkId","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#v:getEnvNetworkId"},{"display_html":"getEnvSocketPath ∷ IO (Maybe FilePath)","name":"getEnvSocketPath","module":"Cardano.CLI.Environment","link":"Cardano-CLI-Environment.html#v:getEnvSocketPath"},{"display_html":"data GovernancePollCmds era","name":"GovernancePollCmds GovernanceCreatePoll GovernanceAnswerPoll GovernanceVerifyPoll","module":"Cardano.CLI.EraBased.Commands.Governance.Poll","link":"Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernancePollCmds"},{"display_html":"renderGovernancePollCmds ∷ GovernancePollCmds era → Text","name":"renderGovernancePollCmds","module":"Cardano.CLI.EraBased.Commands.Governance.Poll","link":"Cardano-CLI-EraBased-Commands-Governance-Poll.html#v:renderGovernancePollCmds"},{"display_html":"data GovernanceCreatePollCmdArgs era = GovernanceCreatePollCmdArgs {}","name":"GovernanceCreatePollCmdArgs GovernanceCreatePollCmdArgs $sel:prompt:GovernanceCreatePollCmdArgs $sel:nonce:GovernanceCreatePollCmdArgs $sel:choices:GovernanceCreatePollCmdArgs $sel:eon:GovernanceCreatePollCmdArgs $sel:outFile:GovernanceCreatePollCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Poll","link":"Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceCreatePollCmdArgs"},{"display_html":"data GovernanceAnswerPollCmdArgs era = GovernanceAnswerPollCmdArgs {}","name":"GovernanceAnswerPollCmdArgs GovernanceAnswerPollCmdArgs $sel:eon:GovernanceAnswerPollCmdArgs $sel:pollFile:GovernanceAnswerPollCmdArgs $sel:answerIndex:GovernanceAnswerPollCmdArgs $sel:mOutFile:GovernanceAnswerPollCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Poll","link":"Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceAnswerPollCmdArgs"},{"display_html":"data GovernanceVerifyPollCmdArgs era = GovernanceVerifyPollCmdArgs {}","name":"GovernanceVerifyPollCmdArgs GovernanceVerifyPollCmdArgs $sel:eon:GovernanceVerifyPollCmdArgs $sel:pollFile:GovernanceVerifyPollCmdArgs $sel:mOutFile:GovernanceVerifyPollCmdArgs $sel:txFile:GovernanceVerifyPollCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Poll","link":"Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceVerifyPollCmdArgs"},{"display_html":"data TextViewCmds era = TextViewInfo !FilePath (Maybe (File () Out))","name":"TextViewCmds TextViewInfo","module":"Cardano.CLI.EraBased.Commands.TextView","link":"Cardano-CLI-EraBased-Commands-TextView.html#t:TextViewCmds"},{"display_html":"renderTextViewCmds ∷ TextViewCmds era → Text","name":"renderTextViewCmds","module":"Cardano.CLI.EraBased.Commands.TextView","link":"Cardano-CLI-EraBased-Commands-TextView.html#v:renderTextViewCmds"},{"display_html":"gitRev ∷ Text","name":"gitRev","module":"Cardano.CLI.IO.GitRev","link":"Cardano-CLI-IO-GitRev.html#v:gitRev"},{"display_html":"replicateM ∷ MonadUnliftIO m ⇒ Int → m a → m [a]","name":"replicateM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:replicateM"},{"display_html":"sequenceM ∷ MonadUnliftIO m ⇒ [m a] → m [a]","name":"sequenceM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:sequenceM"},{"display_html":"traverseM ∷ MonadUnliftIO m ⇒ (a → m b) → [a] → m [b]","name":"traverseM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:traverseM"},{"display_html":"traverseStateM ∷ ∀ m s a b. MonadUnliftIO m ⇒ s → (s → a → m (s, b)) → [a] → m [b]","name":"traverseStateM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:traverseStateM"},{"display_html":"forM ∷ MonadUnliftIO m ⇒ [a] → (a → m b) → m [b]","name":"forM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:forM"},{"display_html":"forStateM ∷ MonadUnliftIO m ⇒ s → [a] → (s → a → m (s, b)) → m [b]","name":"forStateM","module":"Cardano.CLI.IO.Lazy","link":"Cardano-CLI-IO-Lazy.html#v:forStateM"},{"display_html":"friendlyTx ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → Tx era → m (Either (FileError e) ())","name":"friendlyTx","module":"Cardano.CLI.Json.Friendly","link":"Cardano-CLI-Json-Friendly.html#v:friendlyTx"},{"display_html":"friendlyTxBody ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → TxBody era → m (Either (FileError e) ())","name":"friendlyTxBody","module":"Cardano.CLI.Json.Friendly","link":"Cardano-CLI-Json-Friendly.html#v:friendlyTxBody"},{"display_html":"friendlyProposal ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → ConwayEraOnwards era → Proposal era → m (Either (FileError e) ())","name":"friendlyProposal","module":"Cardano.CLI.Json.Friendly","link":"Cardano-CLI-Json-Friendly.html#v:friendlyProposal"},{"display_html":"data FriendlyFormat","name":"FriendlyFormat FriendlyJson FriendlyYaml","module":"Cardano.CLI.Json.Friendly","link":"Cardano-CLI-Json-Friendly.html#t:FriendlyFormat"},{"display_html":"data LegacyTextViewCmds = TextViewInfo !FilePath (Maybe (File () Out))","name":"LegacyTextViewCmds TextViewInfo","module":"Cardano.CLI.Legacy.Commands.TextView","link":"Cardano-CLI-Legacy-Commands-TextView.html#t:LegacyTextViewCmds"},{"display_html":"renderLegacyTextViewCmds ∷ LegacyTextViewCmds → Text","name":"renderLegacyTextViewCmds","module":"Cardano.CLI.Legacy.Commands.TextView","link":"Cardano-CLI-Legacy-Commands-TextView.html#v:renderLegacyTextViewCmds"},{"display_html":"module System.IO","name":"","module":"Cardano.CLI.OS.Posix","link":""},{"display_html":"module System.Posix.IO","name":"","module":"Cardano.CLI.OS.Posix","link":""},{"display_html":"module System.Posix.Files","name":"","module":"Cardano.CLI.OS.Posix","link":""},{"display_html":"type Ann = AnsiStyle","name":"Ann","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#t:Ann"},{"display_html":"putLn ∷ MonadIO m ⇒ Doc AnsiStyle → m ()","name":"putLn","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:putLn"},{"display_html":"hPutLn ∷ MonadIO m ⇒ Handle → Doc AnsiStyle → m ()","name":"hPutLn","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:hPutLn"},{"display_html":"renderDefault ∷ Doc AnsiStyle → Text","name":"renderDefault","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:renderDefault"},{"display_html":"renderStringDefault ∷ Doc AnsiStyle → String","name":"renderStringDefault","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:renderStringDefault"},{"display_html":"black ∷ Doc AnsiStyle → Doc AnsiStyle","name":"black","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:black"},{"display_html":"red ∷ Doc AnsiStyle → Doc AnsiStyle","name":"red","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:red"},{"display_html":"green ∷ Doc AnsiStyle → Doc AnsiStyle","name":"green","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:green"},{"display_html":"yellow ∷ Doc AnsiStyle → Doc AnsiStyle","name":"yellow","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:yellow"},{"display_html":"blue ∷ Doc AnsiStyle → Doc AnsiStyle","name":"blue","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:blue"},{"display_html":"magenta ∷ Doc AnsiStyle → Doc AnsiStyle","name":"magenta","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:magenta"},{"display_html":"cyan ∷ Doc AnsiStyle → Doc AnsiStyle","name":"cyan","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:cyan"},{"display_html":"white ∷ Doc AnsiStyle → Doc AnsiStyle","name":"white","module":"Cardano.CLI.Pretty","link":"Cardano-CLI-Pretty.html#v:white"},{"display_html":"customRenderHelp ∷ Int → ParserHelp → String","name":"customRenderHelp","module":"Cardano.CLI.Render","link":"Cardano-CLI-Render.html#v:customRenderHelp"},{"display_html":"data PingCmd = PingCmd {}","name":"PingCmd PingCmd pingOptsHandshakeQuery pingCmdCount pingCmdEndPoint pingCmdPort pingCmdMagic pingCmdJson pingCmdQuiet","module":"Cardano.CLI.Run.Ping","link":"Cardano-CLI-Run-Ping.html#t:PingCmd"},{"display_html":"newtype PingClientCmdError = PingClientCmdError [(AddrInfo, SomeException)]","name":"PingClientCmdError PingClientCmdError","module":"Cardano.CLI.Run.Ping","link":"Cardano-CLI-Run-Ping.html#t:PingClientCmdError"},{"display_html":"renderPingClientCmdError ∷ PingClientCmdError → Text","name":"renderPingClientCmdError","module":"Cardano.CLI.Run.Ping","link":"Cardano-CLI-Run-Ping.html#v:renderPingClientCmdError"},{"display_html":"runPingCmd ∷ PingCmd → ExceptT PingClientCmdError IO ()","name":"runPingCmd","module":"Cardano.CLI.Run.Ping","link":"Cardano-CLI-Run-Ping.html#v:runPingCmd"},{"display_html":"parsePingCmd ∷ Parser PingCmd","name":"parsePingCmd","module":"Cardano.CLI.Run.Ping","link":"Cardano-CLI-Run-Ping.html#v:parsePingCmd"},{"display_html":"toplevelExceptionHandler ∷ IO a → IO a","name":"toplevelExceptionHandler","module":"Cardano.CLI.TopHandler","link":"Cardano-CLI-TopHandler.html#v:toplevelExceptionHandler"},{"display_html":"data AllOrOnly a","name":"AllOrOnly Only All","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:AllOrOnly"},{"display_html":"data AddressKeyType","name":"AddressKeyType AddressKeyShelley AddressKeyShelleyExtended AddressKeyByron","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:AddressKeyType"},{"display_html":"data BalanceTxExecUnits","name":"BalanceTxExecUnits AutoBalance ManualBalance","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:BalanceTxExecUnits"},{"display_html":"newtype BlockId = BlockId String","name":"BlockId BlockId","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:BlockId"},{"display_html":"data ByronKeyFormat","name":"ByronKeyFormat NonLegacyByronKeyFormat LegacyByronKeyFormat","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ByronKeyFormat"},{"display_html":"data ByronKeyType","name":"ByronKeyType ByronPaymentKey ByronGenesisKey ByronDelegateKey","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ByronKeyType"},{"display_html":"data CardanoAddressKeyType","name":"CardanoAddressKeyType CardanoAddressShelleyPaymentKey CardanoAddressShelleyStakeKey CardanoAddressIcarusPaymentKey CardanoAddressByronPaymentKey","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:CardanoAddressKeyType"},{"display_html":"data CBORObject","name":"CBORObject CBORBlockByron CBORDelegationCertificateByron CBORTxByron CBORUpdateProposalByron CBORVoteByron","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:CBORObject"},{"display_html":"newtype CertificateFile = CertificateFile {}","name":"CertificateFile CertificateFile unCertificateFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:CertificateFile"},{"display_html":"data ConstitutionHashSource","name":"ConstitutionHashSource ConstitutionHashSourceFile ConstitutionHashSourceText ConstitutionHashSourceHash","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ConstitutionHashSource"},{"display_html":"newtype ConstitutionText = ConstitutionText {}","name":"ConstitutionText ConstitutionText unConstitutionText","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ConstitutionText"},{"display_html":"newtype ConstitutionUrl = ConstitutionUrl {}","name":"ConstitutionUrl ConstitutionUrl unConstitutionUrl","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ConstitutionUrl"},{"display_html":"newtype CurrentKesPeriod = CurrentKesPeriod {}","name":"CurrentKesPeriod CurrentKesPeriod unCurrentKesPeriod","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:CurrentKesPeriod"},{"display_html":"data EpochLeadershipSchedule","name":"EpochLeadershipSchedule CurrentEpoch NextEpoch","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:EpochLeadershipSchedule"},{"display_html":"newtype File content (direction ∷ FileDirection) = File {}","name":"File File unFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:File"},{"display_html":"data FileDirection","name":"FileDirection In InOut Out","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:FileDirection"},{"display_html":"newtype GenesisDir = GenesisDir FilePath","name":"GenesisDir GenesisDir","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:GenesisDir"},{"display_html":"newtype GenesisFile = GenesisFile {}","name":"GenesisFile GenesisFile unGenesisFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:GenesisFile"},{"display_html":"newtype GenesisKeyFile = GenesisKeyFile FilePath","name":"GenesisKeyFile GenesisKeyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:GenesisKeyFile"},{"display_html":"data GovernanceActionViewOutputFormat","name":"GovernanceActionViewOutputFormat GovernanceActionViewOutputFormatJson GovernanceActionViewOutputFormatYaml","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:GovernanceActionViewOutputFormat"},{"display_html":"data InputTxBodyOrTxFile","name":"InputTxBodyOrTxFile InputTxBodyFile InputTxFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:InputTxBodyOrTxFile"},{"display_html":"data KeyOutputFormat","name":"KeyOutputFormat KeyOutputFormatTextEnvelope KeyOutputFormatBech32","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:KeyOutputFormat"},{"display_html":"data MetadataFile","name":"MetadataFile MetadataFileJSON MetadataFileCBOR","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:MetadataFile"},{"display_html":"data OpCertCounter","name":"OpCertCounter","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertCounter"},{"display_html":"type OpCertCounterFile = File OpCertCounter","name":"OpCertCounterFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertCounterFile"},{"display_html":"newtype OpCertEndingKesPeriod = OpCertEndingKesPeriod {}","name":"OpCertEndingKesPeriod OpCertEndingKesPeriod unOpCertEndingKesPeriod","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertEndingKesPeriod"},{"display_html":"data OpCertIntervalInformation","name":"OpCertIntervalInformation OpCertWithinInterval OpCertStartingKesPeriodIsInTheFuture OpCertExpired OpCertSomeOtherError","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertIntervalInformation"},{"display_html":"data OpCertNodeAndOnDiskCounterInformation","name":"OpCertNodeAndOnDiskCounterInformation OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounterBehindNodeState OpCertNoBlocksMintedYet","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertNodeAndOnDiskCounterInformation"},{"display_html":"newtype OpCertNodeStateCounter = OpCertNodeStateCounter {}","name":"OpCertNodeStateCounter OpCertNodeStateCounter unOpCertNodeStateCounter","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertNodeStateCounter"},{"display_html":"newtype OpCertOnDiskCounter = OpCertOnDiskCounter {}","name":"OpCertOnDiskCounter OpCertOnDiskCounter unOpCertOnDiskCounter","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertOnDiskCounter"},{"display_html":"newtype OpCertStartingKesPeriod = OpCertStartingKesPeriod {}","name":"OpCertStartingKesPeriod OpCertStartingKesPeriod unOpCertStartingKesPeriod","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:OpCertStartingKesPeriod"},{"display_html":"data Params crypto = Params {}","name":"Params Params poolParameters futurePoolParameters retiringEpoch","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:Params"},{"display_html":"data ParserFileDirection","name":"ParserFileDirection Input Output","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ParserFileDirection"},{"display_html":"data IdOutputFormat","name":"IdOutputFormat IdOutputFormatHex IdOutputFormatBech32","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:IdOutputFormat"},{"display_html":"newtype PrivKeyFile = PrivKeyFile FilePath","name":"PrivKeyFile PrivKeyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:PrivKeyFile"},{"display_html":"type ProposalFile = File ()","name":"ProposalFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ProposalFile"},{"display_html":"newtype ProposalText = ProposalText {}","name":"ProposalText ProposalText unProposalText","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ProposalText"},{"display_html":"newtype ProposalUrl = ProposalUrl {}","name":"ProposalUrl ProposalUrl unProposalUrl","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ProposalUrl"},{"display_html":"newtype ProtocolParamsFile = ProtocolParamsFile FilePath","name":"ProtocolParamsFile ProtocolParamsFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ProtocolParamsFile"},{"display_html":"data ReferenceScriptAnyEra","name":"ReferenceScriptAnyEra ReferenceScriptAnyEra ReferenceScriptAnyEraNone","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ReferenceScriptAnyEra"},{"display_html":"data RequiredSigner","name":"RequiredSigner RequiredSignerSkeyFile RequiredSignerHash","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:RequiredSigner"},{"display_html":"data ScriptDataOrFile","name":"ScriptDataOrFile ScriptDataCborFile ScriptDataJsonFile ScriptDataValue","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ScriptDataOrFile"},{"display_html":"data ScriptDatumOrFile witctx where","name":"ScriptDatumOrFile ScriptDatumOrFileForTxIn InlineDatumPresentAtTxIn NoScriptDatumOrFileForMint NoScriptDatumOrFileForStake","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ScriptDatumOrFile"},{"display_html":"newtype ScriptFile = ScriptFile {}","name":"ScriptFile ScriptFile unScriptFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ScriptFile"},{"display_html":"type ScriptRedeemerOrFile = ScriptDataOrFile","name":"ScriptRedeemerOrFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ScriptRedeemerOrFile"},{"display_html":"data ScriptWitnessFiles witctx where","name":"ScriptWitnessFiles SimpleScriptWitnessFile PlutusScriptWitnessFiles PlutusReferenceScriptWitnessFiles SimpleReferenceScriptWitnessFiles","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:ScriptWitnessFiles"},{"display_html":"type SigningKeyFile = File (SigningKey ())","name":"SigningKeyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:SigningKeyFile"},{"display_html":"newtype SlotsTillKesKeyExpiry = SlotsTillKesKeyExpiry {}","name":"SlotsTillKesKeyExpiry SlotsTillKesKeyExpiry unSlotsTillKesKeyExpiry","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:SlotsTillKesKeyExpiry"},{"display_html":"data SomeKeyFile direction","name":"SomeKeyFile AVerificationKeyFile ASigningKeyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:SomeKeyFile"},{"display_html":"type StakePoolMetadataFile = File StakePoolMetadata","name":"StakePoolMetadataFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:StakePoolMetadataFile"},{"display_html":"data TransferDirection","name":"TransferDirection TransferToReserves TransferToTreasury","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TransferDirection"},{"display_html":"type TxBodyFile = File (TxBody ())","name":"TxBodyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxBodyFile"},{"display_html":"data TxBuildOutputOptions","name":"TxBuildOutputOptions OutputScriptCostOnly OutputTxBodyOnly","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxBuildOutputOptions"},{"display_html":"newtype TxByronWitnessCount = TxByronWitnessCount Int","name":"TxByronWitnessCount TxByronWitnessCount","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxByronWitnessCount"},{"display_html":"type TxFile = File (Tx ())","name":"TxFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxFile"},{"display_html":"newtype TxInCount = TxInCount Int","name":"TxInCount TxInCount","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxInCount"},{"display_html":"data TxMempoolQuery","name":"TxMempoolQuery TxMempoolQueryTxExists TxMempoolQueryNextTx TxMempoolQueryInfo","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxMempoolQuery"},{"display_html":"data TxOutAnyEra = TxOutAnyEra AddressAny Value TxOutDatumAnyEra ReferenceScriptAnyEra","name":"TxOutAnyEra TxOutAnyEra","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxOutAnyEra"},{"display_html":"newtype TxOutChangeAddress = TxOutChangeAddress AddressAny","name":"TxOutChangeAddress TxOutChangeAddress","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxOutChangeAddress"},{"display_html":"newtype TxOutCount = TxOutCount Int","name":"TxOutCount TxOutCount","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxOutCount"},{"display_html":"data TxOutDatumAnyEra","name":"TxOutDatumAnyEra TxOutDatumByHashOnly TxOutDatumByHashOf TxOutDatumByValue TxOutInlineDatumByValue TxOutDatumByNone","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxOutDatumAnyEra"},{"display_html":"newtype TxShelleyWitnessCount = TxShelleyWitnessCount Int","name":"TxShelleyWitnessCount TxShelleyWitnessCount","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxShelleyWitnessCount"},{"display_html":"data TxViewOutputFormat","name":"TxViewOutputFormat TxViewOutputFormatJson TxViewOutputFormatYaml","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:TxViewOutputFormat"},{"display_html":"newtype UpdateProposalFile = UpdateProposalFile {}","name":"UpdateProposalFile UpdateProposalFile unUpdateProposalFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:UpdateProposalFile"},{"display_html":"newtype VerificationKeyBase64 = VerificationKeyBase64 String","name":"VerificationKeyBase64 VerificationKeyBase64","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:VerificationKeyBase64"},{"display_html":"type VerificationKeyFile = File (VerificationKey ())","name":"VerificationKeyFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:VerificationKeyFile"},{"display_html":"newtype VoteUrl = VoteUrl {}","name":"VoteUrl VoteUrl unVoteUrl","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:VoteUrl"},{"display_html":"newtype VoteText = VoteText {}","name":"VoteText VoteText unVoteText","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:VoteText"},{"display_html":"data VoteHashSource","name":"VoteHashSource VoteHashSourceFile VoteHashSourceText VoteHashSourceHash","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:VoteHashSource"},{"display_html":"newtype WitnessFile = WitnessFile FilePath","name":"WitnessFile WitnessFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:WitnessFile"},{"display_html":"data WitnessSigningData = KeyWitnessSigningData !(SigningKeyFile In) !(Maybe (Address ByronAddr))","name":"WitnessSigningData KeyWitnessSigningData","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:WitnessSigningData"},{"display_html":"type DRepMetadataFile = File DRepMetadata","name":"DRepMetadataFile","module":"Cardano.CLI.Types.Common","link":"Cardano-CLI-Types-Common.html#t:DRepMetadataFile"},{"display_html":"readerFromAttoParser ∷ Parser a → ReadM a","name":"readerFromAttoParser","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readerFromAttoParser"},{"display_html":"readFractionAsRational ∷ ReadM Rational","name":"readFractionAsRational","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readFractionAsRational"},{"display_html":"readKeyOutputFormat ∷ ReadM KeyOutputFormat","name":"readKeyOutputFormat","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readKeyOutputFormat"},{"display_html":"readIdOutputFormat ∷ ReadM IdOutputFormat","name":"readIdOutputFormat","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readIdOutputFormat"},{"display_html":"readTxViewOutputFormat ∷ ReadM TxViewOutputFormat","name":"readTxViewOutputFormat","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readTxViewOutputFormat"},{"display_html":"readRational ∷ ReadM Rational","name":"readRational","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readRational"},{"display_html":"readRationalUnitInterval ∷ ReadM Rational","name":"readRationalUnitInterval","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readRationalUnitInterval"},{"display_html":"readStringOfMaxLength ∷ Int → ReadM String","name":"readStringOfMaxLength","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readStringOfMaxLength"},{"display_html":"readURIOfMaxLength ∷ Int → ReadM Text","name":"readURIOfMaxLength","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readURIOfMaxLength"},{"display_html":"eDNSName ∷ String → Either String ByteString","name":"eDNSName","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:eDNSName"},{"display_html":"readGovernanceActionViewOutputFormat ∷ ReadM GovernanceActionViewOutputFormat","name":"readGovernanceActionViewOutputFormat","module":"Cardano.CLI.Parser","link":"Cardano-CLI-Parser.html#v:readGovernanceActionViewOutputFormat"},{"display_html":"data LegacyKeyCmds","name":"LegacyKeyCmds KeyVerificationKeyCmd KeyNonExtendedKeyCmd KeyConvertByronKeyCmd KeyConvertByronGenesisVKeyCmd KeyConvertITNKeyCmd KeyConvertITNExtendedKeyCmd KeyConvertITNBip32KeyCmd KeyConvertCardanoAddressKeyCmd","module":"Cardano.CLI.Legacy.Commands.Key","link":"Cardano-CLI-Legacy-Commands-Key.html#t:LegacyKeyCmds"},{"display_html":"renderLegacyKeyCmds ∷ LegacyKeyCmds → Text","name":"renderLegacyKeyCmds","module":"Cardano.CLI.Legacy.Commands.Key","link":"Cardano-CLI-Legacy-Commands-Key.html#v:renderLegacyKeyCmds"},{"display_html":"data LegacyGenesisCmds","name":"LegacyGenesisCmds GenesisCreate GenesisCreateCardano GenesisCreateStaked GenesisKeyGenGenesis GenesisKeyGenDelegate GenesisKeyGenUTxO GenesisCmdKeyHash GenesisVerKey GenesisTxIn GenesisAddr GenesisHashFile","module":"Cardano.CLI.Legacy.Commands.Genesis","link":"Cardano-CLI-Legacy-Commands-Genesis.html#t:LegacyGenesisCmds"},{"display_html":"renderLegacyGenesisCmds ∷ LegacyGenesisCmds → Text","name":"renderLegacyGenesisCmds","module":"Cardano.CLI.Legacy.Commands.Genesis","link":"Cardano-CLI-Legacy-Commands-Genesis.html#v:renderLegacyGenesisCmds"},{"display_html":"data HelpersError","name":"HelpersError CBORPrettyPrintError CBORDecodingError IOError' OutputMustNotAlreadyExist ReadCBORFileFailure","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#t:HelpersError"},{"display_html":"printWarning ∷ String → IO ()","name":"printWarning","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:printWarning"},{"display_html":"deprecationWarning ∷ String → IO ()","name":"deprecationWarning","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:deprecationWarning"},{"display_html":"ensureNewFile ∷ (FilePath → a → IO ()) → FilePath → a → ExceptT HelpersError IO ()","name":"ensureNewFile","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:ensureNewFile"},{"display_html":"ensureNewFileLBS ∷ FilePath → ByteString → ExceptT HelpersError IO ()","name":"ensureNewFileLBS","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:ensureNewFileLBS"},{"display_html":"pPrintCBOR ∷ ByteString → ExceptT HelpersError IO ()","name":"pPrintCBOR","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:pPrintCBOR"},{"display_html":"readCBOR ∷ FilePath → ExceptT HelpersError IO ByteString","name":"readCBOR","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:readCBOR"},{"display_html":"renderHelpersError ∷ HelpersError → Text","name":"renderHelpersError","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:renderHelpersError"},{"display_html":"validateCBOR ∷ CBORObject → ByteString → Either HelpersError Text","name":"validateCBOR","module":"Cardano.CLI.Helpers","link":"Cardano-CLI-Helpers.html#v:validateCBOR"},{"display_html":"data KeyCmds era","name":"KeyCmds KeyVerificationKeyCmd KeyNonExtendedKeyCmd KeyConvertByronKeyCmd KeyConvertByronGenesisVKeyCmd KeyConvertITNKeyCmd KeyConvertITNExtendedKeyCmd KeyConvertITNBip32KeyCmd KeyConvertCardanoAddressKeyCmd","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyCmds"},{"display_html":"data KeyVerificationKeyCmdArgs = KeyVerificationKeyCmdArgs {}","name":"KeyVerificationKeyCmdArgs KeyVerificationKeyCmdArgs $sel:skeyFile:KeyVerificationKeyCmdArgs $sel:vkeyFile:KeyVerificationKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyVerificationKeyCmdArgs"},{"display_html":"data KeyNonExtendedKeyCmdArgs = KeyNonExtendedKeyCmdArgs {}","name":"KeyNonExtendedKeyCmdArgs KeyNonExtendedKeyCmdArgs $sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgs $sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyNonExtendedKeyCmdArgs"},{"display_html":"data KeyConvertByronKeyCmdArgs = KeyConvertByronKeyCmdArgs {}","name":"KeyConvertByronKeyCmdArgs KeyConvertByronKeyCmdArgs $sel:mPassword:KeyConvertByronKeyCmdArgs $sel:byronKeyType:KeyConvertByronKeyCmdArgs $sel:someKeyFileIn:KeyConvertByronKeyCmdArgs $sel:someKeyFileOut:KeyConvertByronKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertByronKeyCmdArgs"},{"display_html":"data KeyConvertByronGenesisVKeyCmdArgs = KeyConvertByronGenesisVKeyCmdArgs {}","name":"KeyConvertByronGenesisVKeyCmdArgs KeyConvertByronGenesisVKeyCmdArgs $sel:vkey:KeyConvertByronGenesisVKeyCmdArgs $sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertByronGenesisVKeyCmdArgs"},{"display_html":"data KeyConvertITNKeyCmdArgs = KeyConvertITNKeyCmdArgs {}","name":"KeyConvertITNKeyCmdArgs KeyConvertITNKeyCmdArgs $sel:outFile:KeyConvertITNKeyCmdArgs $sel:itnKeyFile:KeyConvertITNKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNKeyCmdArgs"},{"display_html":"data KeyConvertITNExtendedKeyCmdArgs = KeyConvertITNExtendedKeyCmdArgs {}","name":"KeyConvertITNExtendedKeyCmdArgs KeyConvertITNExtendedKeyCmdArgs $sel:outFile:KeyConvertITNExtendedKeyCmdArgs $sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNExtendedKeyCmdArgs"},{"display_html":"data KeyConvertITNBip32KeyCmdArgs = KeyConvertITNBip32KeyCmdArgs {}","name":"KeyConvertITNBip32KeyCmdArgs KeyConvertITNBip32KeyCmdArgs $sel:outFile:KeyConvertITNBip32KeyCmdArgs $sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNBip32KeyCmdArgs"},{"display_html":"data KeyConvertCardanoAddressKeyCmdArgs = KeyConvertCardanoAddressKeyCmdArgs {}","name":"KeyConvertCardanoAddressKeyCmdArgs KeyConvertCardanoAddressKeyCmdArgs $sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgs $sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgs $sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertCardanoAddressKeyCmdArgs"},{"display_html":"renderKeyCmds ∷ KeyCmds era → Text","name":"renderKeyCmds","module":"Cardano.CLI.EraBased.Commands.Key","link":"Cardano-CLI-EraBased-Commands-Key.html#v:renderKeyCmds"},{"display_html":"newtype GovernanceHashCmds era = GovernanceHashCmd (GovernanceHashCmdArgs era)","name":"GovernanceHashCmds GovernanceHashCmd","module":"Cardano.CLI.EraBased.Commands.Governance.Hash","link":"Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashCmds"},{"display_html":"data GovernanceHashCmdArgs era = GovernanceHashCmdArgs {}","name":"GovernanceHashCmdArgs GovernanceHashCmdArgs toHash eon moutFile","module":"Cardano.CLI.EraBased.Commands.Governance.Hash","link":"Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashCmdArgs"},{"display_html":"data GovernanceHashSource","name":"GovernanceHashSource GovernanceHashSourceBinaryFile GovernanceHashSourceTextFile GovernanceHashSourceText","module":"Cardano.CLI.EraBased.Commands.Governance.Hash","link":"Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashSource"},{"display_html":"renderGovernanceHashCmds ∷ GovernanceHashCmds era → Text","name":"renderGovernanceHashCmds","module":"Cardano.CLI.EraBased.Commands.Governance.Hash","link":"Cardano-CLI-EraBased-Commands-Governance-Hash.html#v:renderGovernanceHashCmds"},{"display_html":"data GenesisCmds era","name":"GenesisCmds GenesisCreate GenesisCreateCardano GenesisCreateStaked GenesisKeyGenGenesis GenesisKeyGenDelegate GenesisKeyGenUTxO GenesisCmdKeyHash GenesisVerKey GenesisTxIn GenesisAddr GenesisHashFile","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCmds"},{"display_html":"data GenesisCreateCmdArgs = GenesisCreateCmdArgs {}","name":"GenesisCreateCmdArgs GenesisCreateCmdArgs $sel:network:GenesisCreateCmdArgs $sel:keyOutputFormat:GenesisCreateCmdArgs $sel:genesisDir:GenesisCreateCmdArgs $sel:numGenesisKeys:GenesisCreateCmdArgs $sel:numUTxOKeys:GenesisCreateCmdArgs $sel:mSystemStart:GenesisCreateCmdArgs $sel:mSupply:GenesisCreateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateCmdArgs"},{"display_html":"data GenesisCreateCardanoCmdArgs = GenesisCreateCardanoCmdArgs {}","name":"GenesisCreateCardanoCmdArgs GenesisCreateCardanoCmdArgs $sel:network:GenesisCreateCardanoCmdArgs $sel:slotLength:GenesisCreateCardanoCmdArgs $sel:genesisDir:GenesisCreateCardanoCmdArgs $sel:numGenesisKeys:GenesisCreateCardanoCmdArgs $sel:numUTxOKeys:GenesisCreateCardanoCmdArgs $sel:mSystemStart:GenesisCreateCardanoCmdArgs $sel:mSupply:GenesisCreateCardanoCmdArgs $sel:security:GenesisCreateCardanoCmdArgs $sel:slotCoeff:GenesisCreateCardanoCmdArgs $sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateCardanoCmdArgs"},{"display_html":"data GenesisCreateStakedCmdArgs = GenesisCreateStakedCmdArgs {}","name":"GenesisCreateStakedCmdArgs GenesisCreateStakedCmdArgs $sel:network:GenesisCreateStakedCmdArgs $sel:keyOutputFormat:GenesisCreateStakedCmdArgs $sel:genesisDir:GenesisCreateStakedCmdArgs $sel:numGenesisKeys:GenesisCreateStakedCmdArgs $sel:numUTxOKeys:GenesisCreateStakedCmdArgs $sel:mSystemStart:GenesisCreateStakedCmdArgs $sel:numPools:GenesisCreateStakedCmdArgs $sel:numStakeDelegators:GenesisCreateStakedCmdArgs $sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgs $sel:delegatedSupply:GenesisCreateStakedCmdArgs $sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgs $sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgs $sel:numStuffedUtxo:GenesisCreateStakedCmdArgs $sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateStakedCmdArgs"},{"display_html":"data GenesisKeyGenGenesisCmdArgs = GenesisKeyGenGenesisCmdArgs {}","name":"GenesisKeyGenGenesisCmdArgs GenesisKeyGenGenesisCmdArgs $sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgs $sel:signingKeyPath:GenesisKeyGenGenesisCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenGenesisCmdArgs"},{"display_html":"data GenesisKeyGenDelegateCmdArgs = GenesisKeyGenDelegateCmdArgs {}","name":"GenesisKeyGenDelegateCmdArgs GenesisKeyGenDelegateCmdArgs $sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgs $sel:signingKeyPath:GenesisKeyGenDelegateCmdArgs $sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenDelegateCmdArgs"},{"display_html":"data GenesisKeyGenUTxOCmdArgs = GenesisKeyGenUTxOCmdArgs {}","name":"GenesisKeyGenUTxOCmdArgs GenesisKeyGenUTxOCmdArgs $sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgs $sel:signingKeyPath:GenesisKeyGenUTxOCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenUTxOCmdArgs"},{"display_html":"data GenesisVerKeyCmdArgs = GenesisVerKeyCmdArgs {}","name":"GenesisVerKeyCmdArgs GenesisVerKeyCmdArgs $sel:verificationKeyPath:GenesisVerKeyCmdArgs $sel:signingKeyPath:GenesisVerKeyCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisVerKeyCmdArgs"},{"display_html":"data GenesisTxInCmdArgs = GenesisTxInCmdArgs {}","name":"GenesisTxInCmdArgs GenesisTxInCmdArgs $sel:network:GenesisTxInCmdArgs $sel:mOutFile:GenesisTxInCmdArgs $sel:verificationKeyPath:GenesisTxInCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisTxInCmdArgs"},{"display_html":"data GenesisAddrCmdArgs = GenesisAddrCmdArgs {}","name":"GenesisAddrCmdArgs GenesisAddrCmdArgs $sel:network:GenesisAddrCmdArgs $sel:mOutFile:GenesisAddrCmdArgs $sel:verificationKeyPath:GenesisAddrCmdArgs","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisAddrCmdArgs"},{"display_html":"renderGenesisCmds ∷ GenesisCmds era → Text","name":"renderGenesisCmds","module":"Cardano.CLI.EraBased.Commands.Genesis","link":"Cardano-CLI-EraBased-Commands-Genesis.html#v:renderGenesisCmds"},{"display_html":"data ByronKeyFailure","name":"ByronKeyFailure ReadSigningKeyFailure ReadVerificationKeyFailure LegacySigningKeyDeserialisationFailed SigningKeyDeserialisationFailed VerificationKeyDeserialisationFailed CannotMigrateFromNonLegacySigningKey","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#t:ByronKeyFailure"},{"display_html":"newtype NewSigningKeyFile = NewSigningKeyFile FilePath","name":"NewSigningKeyFile NewSigningKeyFile","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#t:NewSigningKeyFile"},{"display_html":"newtype NewVerificationKeyFile = NewVerificationKeyFile FilePath","name":"NewVerificationKeyFile NewVerificationKeyFile","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#t:NewVerificationKeyFile"},{"display_html":"type VerificationKeyFile = File (VerificationKey ())","name":"VerificationKeyFile","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#t:VerificationKeyFile"},{"display_html":"prettyPublicKey ∷ VerificationKey ByronKey → Text","name":"prettyPublicKey","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#v:prettyPublicKey"},{"display_html":"readByronSigningKey ∷ ByronKeyFormat → SigningKeyFile In → ExceptT ByronKeyFailure IO SomeByronSigningKey","name":"readByronSigningKey","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#v:readByronSigningKey"},{"display_html":"readPaymentVerificationKey ∷ VerificationKeyFile In → ExceptT ByronKeyFailure IO VerificationKey","name":"readPaymentVerificationKey","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#v:readPaymentVerificationKey"},{"display_html":"renderByronKeyFailure ∷ ByronKeyFailure → Text","name":"renderByronKeyFailure","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#v:renderByronKeyFailure"},{"display_html":"byronWitnessToVerKey ∷ SomeByronSigningKey → VerificationKey ByronKey","name":"byronWitnessToVerKey","module":"Cardano.CLI.Byron.Key","link":"Cardano-CLI-Byron-Key.html#v:byronWitnessToVerKey"},{"display_html":"data ByronTxError","name":"ByronTxError TxDeserialisationFailed ByronTxSubmitError ByronTxSubmitErrorEraMismatch","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#t:ByronTxError"},{"display_html":"data Tx era","name":"Tx","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#t:Tx"},{"display_html":"type TxFile = File (Tx ())","name":"TxFile","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#t:TxFile"},{"display_html":"newtype NewTxFile = NewTxFile FilePath","name":"NewTxFile NewTxFile","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#t:NewTxFile"},{"display_html":"prettyAddress ∷ Address ByronAddr → Text","name":"prettyAddress","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:prettyAddress"},{"display_html":"readByronTx ∷ TxFile In → ExceptT ByronTxError IO (ATxAux ByteString)","name":"readByronTx","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:readByronTx"},{"display_html":"normalByronTxToGenTx ∷ ATxAux ByteString → GenTx ByronBlock","name":"normalByronTxToGenTx","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:normalByronTxToGenTx"},{"display_html":"txSpendGenesisUTxOByronPBFT ∷ Config → NetworkId → SomeByronSigningKey → Address ByronAddr → [TxOut CtxTx ByronEra] → Tx ByronEra","name":"txSpendGenesisUTxOByronPBFT","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:txSpendGenesisUTxOByronPBFT"},{"display_html":"txSpendUTxOByronPBFT ∷ NetworkId → SomeByronSigningKey → [TxIn] → [TxOut CtxTx ByronEra] → Tx ByronEra","name":"txSpendUTxOByronPBFT","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:txSpendUTxOByronPBFT"},{"display_html":"nodeSubmitTx ∷ SocketPath → NetworkId → GenTx ByronBlock → ExceptT ByronTxError IO ()","name":"nodeSubmitTx","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:nodeSubmitTx"},{"display_html":"renderByronTxError ∷ ByronTxError → Text","name":"renderByronTxError","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:renderByronTxError"},{"display_html":"fromCborTxAux ∷ ByteString → Either DecoderError (ATxAux ByteString)","name":"fromCborTxAux","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:fromCborTxAux"},{"display_html":"toCborTxAux ∷ ATxAux ByteString → ByteString","name":"toCborTxAux","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#v:toCborTxAux"},{"display_html":"data ScriptValidity","name":"ScriptValidity ScriptValid ScriptInvalid","module":"Cardano.CLI.Byron.Tx","link":"Cardano-CLI-Byron-Tx.html#t:ScriptValidity"},{"display_html":"data ByronDelegationError","name":"ByronDelegationError CertificateValidationErrors DlgCertificateDeserialisationFailed ByronDelegationKeyError","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#t:ByronDelegationError"},{"display_html":"checkByronGenesisDelegation ∷ CertificateFile → ProtocolMagicId → VerificationKey → VerificationKey → ExceptT ByronDelegationError IO ()","name":"checkByronGenesisDelegation","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#v:checkByronGenesisDelegation"},{"display_html":"issueByronGenesisDelegation ∷ ProtocolMagicId → EpochNumber → SigningKey → VerificationKey → Certificate","name":"issueByronGenesisDelegation","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#v:issueByronGenesisDelegation"},{"display_html":"renderByronDelegationError ∷ ByronDelegationError → Text","name":"renderByronDelegationError","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#v:renderByronDelegationError"},{"display_html":"serialiseDelegationCert ∷ Certificate → ByteString","name":"serialiseDelegationCert","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#v:serialiseDelegationCert"},{"display_html":"serialiseByronWitness ∷ SomeByronSigningKey → ByteString","name":"serialiseByronWitness","module":"Cardano.CLI.Byron.Delegation","link":"Cardano-CLI-Byron-Delegation.html#v:serialiseByronWitness"},{"display_html":"data ByronGenesisError","name":"ByronGenesisError ByronDelegationCertSerializationError ByronDelegationKeySerializationError GenesisGenerationError GenesisOutputDirAlreadyExists GenesisReadError GenesisSpecError MakeGenesisDelegationError NoGenesisDelegationForKey ProtocolParametersParseFailed PoorKeyFailure","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#t:ByronGenesisError"},{"display_html":"data GenesisParameters = GenesisParameters {}","name":"GenesisParameters GenesisParameters gpStartTime gpProtocolParamsFile gpK gpProtocolMagic gpTestnetBalance gpFakeAvvmOptions gpAvvmBalanceFactor gpSeed","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#t:GenesisParameters"},{"display_html":"newtype NewDirectory = NewDirectory FilePath","name":"NewDirectory NewDirectory","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#t:NewDirectory"},{"display_html":"dumpGenesis ∷ NewDirectory → GenesisData → GeneratedSecrets → ExceptT ByronGenesisError IO ()","name":"dumpGenesis","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#v:dumpGenesis"},{"display_html":"mkGenesis ∷ GenesisParameters → ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets)","name":"mkGenesis","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#v:mkGenesis"},{"display_html":"readGenesis ∷ GenesisFile → NetworkId → ExceptT ByronGenesisError IO Config","name":"readGenesis","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#v:readGenesis"},{"display_html":"renderByronGenesisError ∷ ByronGenesisError → Text","name":"renderByronGenesisError","module":"Cardano.CLI.Byron.Genesis","link":"Cardano-CLI-Byron-Genesis.html#v:renderByronGenesisError"},{"display_html":"data ByronUpdateProposalError","name":"ByronUpdateProposalError ReadSigningKeyFailure ByronReadUpdateProposalFileFailure ByronUpdateProposalWriteError ByronUpdateProposalGenesisReadError ByronUpdateProposalTxError UpdateProposalDecodingError","module":"Cardano.CLI.Byron.UpdateProposal","link":"Cardano-CLI-Byron-UpdateProposal.html#t:ByronUpdateProposalError"},{"display_html":"runProposalCreation ∷ NetworkId → SigningKeyFile In → ProtocolVersion → SoftwareVersion → SystemTag → InstallerHash → FilePath → ByronProtocolParametersUpdate → ExceptT ByronUpdateProposalError IO ()","name":"runProposalCreation","module":"Cardano.CLI.Byron.UpdateProposal","link":"Cardano-CLI-Byron-UpdateProposal.html#v:runProposalCreation"},{"display_html":"readByronUpdateProposal ∷ FilePath → ExceptT ByronUpdateProposalError IO ByronUpdateProposal","name":"readByronUpdateProposal","module":"Cardano.CLI.Byron.UpdateProposal","link":"Cardano-CLI-Byron-UpdateProposal.html#v:readByronUpdateProposal"},{"display_html":"renderByronUpdateProposalError ∷ ByronUpdateProposalError → Text","name":"renderByronUpdateProposalError","module":"Cardano.CLI.Byron.UpdateProposal","link":"Cardano-CLI-Byron-UpdateProposal.html#v:renderByronUpdateProposalError"},{"display_html":"submitByronUpdateProposal ∷ SocketPath → NetworkId → FilePath → ExceptT ByronUpdateProposalError IO ()","name":"submitByronUpdateProposal","module":"Cardano.CLI.Byron.UpdateProposal","link":"Cardano-CLI-Byron-UpdateProposal.html#v:submitByronUpdateProposal"},{"display_html":"data ByronVoteError","name":"ByronVoteError ByronVoteDecodingError ByronVoteGenesisReadError ByronVoteKeyReadFailure ByronVoteReadFileFailure ByronVoteTxSubmissionError ByronVoteUpdateProposalFailure ByronVoteUpdateProposalDecodingError ByronVoteUpdateHelperError","module":"Cardano.CLI.Byron.Vote","link":"Cardano-CLI-Byron-Vote.html#t:ByronVoteError"},{"display_html":"readByronVote ∷ FilePath → ExceptT ByronVoteError IO ByronVote","name":"readByronVote","module":"Cardano.CLI.Byron.Vote","link":"Cardano-CLI-Byron-Vote.html#v:readByronVote"},{"display_html":"renderByronVoteError ∷ ByronVoteError → Text","name":"renderByronVoteError","module":"Cardano.CLI.Byron.Vote","link":"Cardano-CLI-Byron-Vote.html#v:renderByronVoteError"},{"display_html":"runVoteCreation ∷ NetworkId → SigningKeyFile In → FilePath → Bool → FilePath → ExceptT ByronVoteError IO ()","name":"runVoteCreation","module":"Cardano.CLI.Byron.Vote","link":"Cardano-CLI-Byron-Vote.html#v:runVoteCreation"},{"display_html":"submitByronVote ∷ SocketPath → NetworkId → FilePath → ExceptT ByronVoteError IO ()","name":"submitByronVote","module":"Cardano.CLI.Byron.Vote","link":"Cardano-CLI-Byron-Vote.html#v:submitByronVote"},{"display_html":"data ByronCommand","name":"ByronCommand Genesis NodeCmds PrintGenesisHash Keygen ToVerification PrettySigningKeyPublic MigrateDelegateKeyFrom PrintSigningKeyAddress SubmitTx SpendGenesisUTxO SpendUTxO GetTxId ValidateCBOR PrettyPrintCBOR","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:ByronCommand"},{"display_html":"data NodeCmds","name":"NodeCmds UpdateProposal CreateVote SubmitUpdateProposal SubmitVote","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:NodeCmds"},{"display_html":"type VerificationKeyFile = File (VerificationKey ())","name":"VerificationKeyFile","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:VerificationKeyFile"},{"display_html":"newtype NewVerificationKeyFile = NewVerificationKeyFile FilePath","name":"NewVerificationKeyFile NewVerificationKeyFile","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:NewVerificationKeyFile"},{"display_html":"newtype CertificateFile = CertificateFile {}","name":"CertificateFile CertificateFile unCertificateFile","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:CertificateFile"},{"display_html":"newtype NewCertificateFile = NewCertificateFile {}","name":"NewCertificateFile NewCertificateFile nFp","module":"Cardano.CLI.Byron.Commands","link":"Cardano-CLI-Byron-Commands.html#t:NewCertificateFile"},{"display_html":"data ByronClientCmdError","name":"ByronClientCmdError","module":"Cardano.CLI.Byron.Run","link":"Cardano-CLI-Byron-Run.html#t:ByronClientCmdError"},{"display_html":"renderByronClientCmdError ∷ ByronClientCmdError → Text","name":"renderByronClientCmdError","module":"Cardano.CLI.Byron.Run","link":"Cardano-CLI-Byron-Run.html#v:renderByronClientCmdError"},{"display_html":"runByronClientCommand ∷ ByronCommand → ExceptT ByronClientCmdError IO ()","name":"runByronClientCommand","module":"Cardano.CLI.Byron.Run","link":"Cardano-CLI-Byron-Run.html#v:runByronClientCommand"},{"display_html":"newtype AddressInfoError = ShelleyAddressInvalid Text","name":"AddressInfoError ShelleyAddressInvalid","module":"Cardano.CLI.Types.Errors.AddressInfoError","link":"Cardano-CLI-Types-Errors-AddressInfoError.html#t:AddressInfoError"},{"display_html":"runAddressInfoCmd ∷ Text → Maybe (File () Out) → ExceptT AddressInfoError IO ()","name":"runAddressInfoCmd","module":"Cardano.CLI.EraBased.Run.Address.Info","link":"Cardano-CLI-EraBased-Run-Address-Info.html#v:runAddressInfoCmd"},{"display_html":"data BootstrapWitnessError = MissingNetworkIdOrByronAddressError","name":"BootstrapWitnessError MissingNetworkIdOrByronAddressError","module":"Cardano.CLI.Types.Errors.BootstrapWitnessError","link":"Cardano-CLI-Types-Errors-BootstrapWitnessError.html#t:BootstrapWitnessError"},{"display_html":"renderBootstrapWitnessError ∷ BootstrapWitnessError → Text","name":"renderBootstrapWitnessError","module":"Cardano.CLI.Types.Errors.BootstrapWitnessError","link":"Cardano-CLI-Types-Errors-BootstrapWitnessError.html#v:renderBootstrapWitnessError"},{"display_html":"data CardanoAddressSigningKeyConversionError","name":"CardanoAddressSigningKeyConversionError CardanoAddressSigningKeyBech32DecodeError CardanoAddressSigningKeyDeserialisationError","module":"Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError","link":"Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html#t:CardanoAddressSigningKeyConversionError"},{"display_html":"renderCardanoAddressSigningKeyConversionError ∷ CardanoAddressSigningKeyConversionError → Text","name":"renderCardanoAddressSigningKeyConversionError","module":"Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError","link":"Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html#v:renderCardanoAddressSigningKeyConversionError"},{"display_html":"data GovernanceCommitteeError","name":"GovernanceCommitteeError GovernanceCommitteeCmdKeyDecodeError GovernanceCommitteeCmdKeyReadError GovernanceCommitteeCmdTextEnvReadFileError GovernanceCommitteeCmdTextEnvWriteError GovernanceCommitteeCmdWriteFileError","module":"Cardano.CLI.Types.Errors.GovernanceCommitteeError","link":"Cardano-CLI-Types-Errors-GovernanceCommitteeError.html#t:GovernanceCommitteeError"},{"display_html":"data GovernanceHashError","name":"GovernanceHashError GovernanceHashReadFileError GovernanceHashWriteFileError","module":"Cardano.CLI.Types.Errors.GovernanceHashError","link":"Cardano-CLI-Types-Errors-GovernanceHashError.html#t:GovernanceHashError"},{"display_html":"data GovernanceQueryError","name":"GovernanceQueryError GovernanceQueryDRepKeyError GovernanceQueryEraMismatch GovernanceQueryUnsupportedNtcVersion GovernanceQueryAcqireFailureError GovernanceQueryWriteFileError","module":"Cardano.CLI.Types.Errors.GovernanceQueryError","link":"Cardano-CLI-Types-Errors-GovernanceQueryError.html#t:GovernanceQueryError"},{"display_html":"data ItnKeyConversionError","name":"ItnKeyConversionError ItnKeyBech32DecodeError ItnReadBech32FileError ItnSigningKeyDeserialisationError ItnVerificationKeyDeserialisationError","module":"Cardano.CLI.Types.Errors.ItnKeyConversionError","link":"Cardano-CLI-Types-Errors-ItnKeyConversionError.html#t:ItnKeyConversionError"},{"display_html":"renderConversionError ∷ ItnKeyConversionError → Text","name":"renderConversionError","module":"Cardano.CLI.Types.Errors.ItnKeyConversionError","link":"Cardano-CLI-Types-Errors-ItnKeyConversionError.html#v:renderConversionError"},{"display_html":"data NodeCmdError","name":"NodeCmdError NodeCmdReadFileError NodeCmdReadKeyFileError NodeCmdWriteFileError NodeCmdOperationalCertificateIssueError NodeCmdVrfSigningKeyCreationError","module":"Cardano.CLI.Types.Errors.NodeCmdError","link":"Cardano-CLI-Types-Errors-NodeCmdError.html#t:NodeCmdError"},{"display_html":"renderNodeCmdError ∷ NodeCmdError → Text","name":"renderNodeCmdError","module":"Cardano.CLI.Types.Errors.NodeCmdError","link":"Cardano-CLI-Types-Errors-NodeCmdError.html#v:renderNodeCmdError"},{"display_html":"data NodeEraMismatchError = ∀ era nodeEra.NodeEraMismatchError {}","name":"NodeEraMismatchError NodeEraMismatchError era nodeEra","module":"Cardano.CLI.Types.Errors.NodeEraMismatchError","link":"Cardano-CLI-Types-Errors-NodeEraMismatchError.html#t:NodeEraMismatchError"},{"display_html":"data ProtocolParamsError","name":"ProtocolParamsError ProtocolParamsErrorFile ProtocolParamsErrorJSON","module":"Cardano.CLI.Types.Errors.ProtocolParamsError","link":"Cardano-CLI-Types-Errors-ProtocolParamsError.html#t:ProtocolParamsError"},{"display_html":"renderProtocolParamsError ∷ ProtocolParamsError → Text","name":"renderProtocolParamsError","module":"Cardano.CLI.Types.Errors.ProtocolParamsError","link":"Cardano-CLI-Types-Errors-ProtocolParamsError.html#v:renderProtocolParamsError"},{"display_html":"newtype QueryCmdLocalStateQueryError = EraMismatchError EraMismatch","name":"QueryCmdLocalStateQueryError EraMismatchError","module":"Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError","link":"Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html#t:QueryCmdLocalStateQueryError"},{"display_html":"renderLocalStateQueryError ∷ QueryCmdLocalStateQueryError → Text","name":"renderLocalStateQueryError","module":"Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError","link":"Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html#v:renderLocalStateQueryError"},{"display_html":"data ScriptDecodeError","name":"ScriptDecodeError ScriptDecodeTextEnvelopeError ScriptDecodeSimpleScriptError","module":"Cardano.CLI.Types.Errors.ScriptDecodeError","link":"Cardano-CLI-Types-Errors-ScriptDecodeError.html#t:ScriptDecodeError"},{"display_html":"newtype StakeAddressDelegationError = VoteDelegationNotSupported (EraInEon ShelleyToBabbageEra)","name":"StakeAddressDelegationError VoteDelegationNotSupported","module":"Cardano.CLI.Types.Errors.StakeAddressDelegationError","link":"Cardano-CLI-Types-Errors-StakeAddressDelegationError.html#t:StakeAddressDelegationError"},{"display_html":"data StakeAddressRegistrationError = StakeAddressRegistrationDepositRequired","name":"StakeAddressRegistrationError StakeAddressRegistrationDepositRequired","module":"Cardano.CLI.Types.Errors.StakeAddressRegistrationError","link":"Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html#t:StakeAddressRegistrationError"},{"display_html":"data StakeCredentialError","name":"StakeCredentialError StakeCredentialScriptDecodeError StakeCredentialInputDecodeError","module":"Cardano.CLI.Types.Errors.StakeCredentialError","link":"Cardano-CLI-Types-Errors-StakeCredentialError.html#t:StakeCredentialError"},{"display_html":"data RegistrationError","name":"RegistrationError RegistrationReadError RegistrationWriteFileError RegistrationStakeCredentialError RegistrationStakeError","module":"Cardano.CLI.Types.Errors.RegistrationError","link":"Cardano-CLI-Types-Errors-RegistrationError.html#t:RegistrationError"},{"display_html":"data DelegationError","name":"DelegationError DelegationReadError DelegationCertificateWriteFileError DelegationDRepReadError DelegationStakeCredentialError","module":"Cardano.CLI.Types.Errors.DelegationError","link":"Cardano-CLI-Types-Errors-DelegationError.html#t:DelegationError"},{"display_html":"data StakeAddressCmdError","name":"StakeAddressCmdError StakeAddressCmdReadKeyFileError StakeAddressCmdReadScriptFileError StakeAddressCmdStakeCredentialError StakeAddressCmdWriteFileError StakeAddressCmdDelegationError StakeAddressCmdRegistrationError","module":"Cardano.CLI.Types.Errors.StakeAddressCmdError","link":"Cardano-CLI-Types-Errors-StakeAddressCmdError.html#t:StakeAddressCmdError"},{"display_html":"data StakePoolCmdError","name":"StakePoolCmdError StakePoolCmdReadFileError StakePoolCmdReadKeyFileError StakePoolCmdWriteFileError StakePoolCmdMetadataValidationError","module":"Cardano.CLI.Types.Errors.StakePoolCmdError","link":"Cardano-CLI-Types-Errors-StakePoolCmdError.html#t:StakePoolCmdError"},{"display_html":"renderStakePoolCmdError ∷ StakePoolCmdError → Text","name":"renderStakePoolCmdError","module":"Cardano.CLI.Types.Errors.StakePoolCmdError","link":"Cardano-CLI-Types-Errors-StakePoolCmdError.html#v:renderStakePoolCmdError"},{"display_html":"data TextViewFileError","name":"TextViewFileError TextViewReadFileError TextViewCBORPrettyPrintError","module":"Cardano.CLI.Types.Errors.TextViewFileError","link":"Cardano-CLI-Types-Errors-TextViewFileError.html#t:TextViewFileError"},{"display_html":"renderTextViewFileError ∷ TextViewFileError → Text","name":"renderTextViewFileError","module":"Cardano.CLI.Types.Errors.TextViewFileError","link":"Cardano-CLI-Types-Errors-TextViewFileError.html#v:renderTextViewFileError"},{"display_html":"runTextViewCmds ∷ TextViewCmds era → ExceptT TextViewFileError IO ()","name":"runTextViewCmds","module":"Cardano.CLI.EraBased.Run.TextView","link":"Cardano-CLI-EraBased-Run-TextView.html#v:runTextViewCmds"},{"display_html":"runTextViewInfoCmd ∷ FilePath → Maybe (File () Out) → ExceptT TextViewFileError IO ()","name":"runTextViewInfoCmd","module":"Cardano.CLI.EraBased.Run.TextView","link":"Cardano-CLI-EraBased-Run-TextView.html#v:runTextViewInfoCmd"},{"display_html":"runLegacyTextViewCmds ∷ LegacyTextViewCmds → ExceptT TextViewFileError IO ()","name":"runLegacyTextViewCmds","module":"Cardano.CLI.Legacy.Run.TextView","link":"Cardano-CLI-Legacy-Run-TextView.html#v:runLegacyTextViewCmds"},{"display_html":"data TxAuxScriptsValidationError","name":"TxAuxScriptsValidationError TxAuxScriptsNotSupportedInEra TxAuxScriptsLanguageError","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxAuxScriptsValidationError"},{"display_html":"newtype TxCertificatesValidationError = TxCertificatesValidationNotSupported AnyCardanoEra","name":"TxCertificatesValidationError TxCertificatesValidationNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxCertificatesValidationError"},{"display_html":"data TxFeeValidationError","name":"TxFeeValidationError TxFeatureImplicitFeesE TxFeatureExplicitFeesE","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxFeeValidationError"},{"display_html":"data TxProtocolParametersValidationError","name":"TxProtocolParametersValidationError","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxProtocolParametersValidationError"},{"display_html":"newtype TxScriptValidityValidationError = ScriptValidityNotSupported AnyCardanoEra","name":"TxScriptValidityValidationError ScriptValidityNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxScriptValidityValidationError"},{"display_html":"newtype TxUpdateProposalValidationError = TxUpdateProposalNotSupported AnyCardanoEra","name":"TxUpdateProposalValidationError TxUpdateProposalNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxUpdateProposalValidationError"},{"display_html":"newtype TxValidityLowerBoundValidationError = TxValidityLowerBoundNotSupported AnyCardanoEra","name":"TxValidityLowerBoundValidationError TxValidityLowerBoundNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxValidityLowerBoundValidationError"},{"display_html":"newtype TxValidityUpperBoundValidationError = TxValidityUpperBoundNotSupported AnyCardanoEra","name":"TxValidityUpperBoundValidationError TxValidityUpperBoundNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxValidityUpperBoundValidationError"},{"display_html":"data TxRequiredSignersValidationError","name":"TxRequiredSignersValidationError","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxRequiredSignersValidationError"},{"display_html":"newtype TxReturnCollateralValidationError = TxReturnCollateralNotSupported AnyCardanoEra","name":"TxReturnCollateralValidationError TxReturnCollateralNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxReturnCollateralValidationError"},{"display_html":"newtype TxTotalCollateralValidationError = TxTotalCollateralNotSupported AnyCardanoEra","name":"TxTotalCollateralValidationError TxTotalCollateralNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxTotalCollateralValidationError"},{"display_html":"newtype TxWithdrawalsValidationError = TxWithdrawalsNotSupported AnyCardanoEra","name":"TxWithdrawalsValidationError TxWithdrawalsNotSupported","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#t:TxWithdrawalsValidationError"},{"display_html":"validateProtocolParameters ∷ CardanoEra era → Maybe (LedgerProtocolParameters era) → Either TxProtocolParametersValidationError (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))","name":"validateProtocolParameters","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateProtocolParameters"},{"display_html":"validateScriptSupportedInEra ∷ CardanoEra era → ScriptInAnyLang → Either ScriptLanguageValidationError (ScriptInEra era)","name":"validateScriptSupportedInEra","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateScriptSupportedInEra"},{"display_html":"validateTxAuxScripts ∷ CardanoEra era → [ScriptInAnyLang] → Either TxAuxScriptsValidationError (TxAuxScripts era)","name":"validateTxAuxScripts","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxAuxScripts"},{"display_html":"validateTxCertificates ∷ ∀ era. CardanoEra era → [(Certificate era, Maybe (ScriptWitness WitCtxStake era))] → Either TxCertificatesValidationError (TxCertificates BuildTx era)","name":"validateTxCertificates","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxCertificates"},{"display_html":"validateTxFee ∷ CardanoEra era → Maybe Lovelace → Either TxFeeValidationError (TxFee era)","name":"validateTxFee","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxFee"},{"display_html":"validateRequiredSigners ∷ CardanoEra era → [Hash PaymentKey] → Either TxRequiredSignersValidationError (TxExtraKeyWitnesses era)","name":"validateRequiredSigners","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateRequiredSigners"},{"display_html":"validateTxReturnCollateral ∷ CardanoEra era → Maybe (TxOut CtxTx era) → Either TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)","name":"validateTxReturnCollateral","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxReturnCollateral"},{"display_html":"validateTxScriptValidity ∷ CardanoEra era → Maybe ScriptValidity → Either TxScriptValidityValidationError (TxScriptValidity era)","name":"validateTxScriptValidity","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxScriptValidity"},{"display_html":"validateTxTotalCollateral ∷ CardanoEra era → Maybe Lovelace → Either TxTotalCollateralValidationError (TxTotalCollateral era)","name":"validateTxTotalCollateral","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxTotalCollateral"},{"display_html":"validateTxValidityUpperBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityUpperBoundValidationError (TxValidityUpperBound era)","name":"validateTxValidityUpperBound","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxValidityUpperBound"},{"display_html":"validateTxValidityLowerBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityLowerBoundValidationError (TxValidityLowerBound era)","name":"validateTxValidityLowerBound","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxValidityLowerBound"},{"display_html":"validateTxWithdrawals ∷ ∀ era. CardanoEra era → [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))] → Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)","name":"validateTxWithdrawals","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxWithdrawals"},{"display_html":"validateUpdateProposalFile ∷ CardanoEra era → Maybe UpdateProposalFile → Either TxUpdateProposalValidationError (Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))","name":"validateUpdateProposalFile","module":"Cardano.CLI.Types.Errors.TxValidationError","link":"Cardano-CLI-Types-Errors-TxValidationError.html#v:validateUpdateProposalFile"},{"display_html":"data VerificationKeyOrFile keyrole","name":"VerificationKeyOrFile VerificationKeyValue VerificationKeyFilePath","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:VerificationKeyOrFile"},{"display_html":"readVerificationKeyOrFile ∷ (HasTextEnvelope (VerificationKey keyrole), SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole))","name":"readVerificationKeyOrFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readVerificationKeyOrFile"},{"display_html":"readVerificationKeyOrTextEnvFile ∷ HasTextEnvelope (VerificationKey keyrole) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole))","name":"readVerificationKeyOrTextEnvFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readVerificationKeyOrTextEnvFile"},{"display_html":"data VerificationKeyTextOrFile","name":"VerificationKeyTextOrFile VktofVerificationKeyText VktofVerificationKeyFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:VerificationKeyTextOrFile"},{"display_html":"data VerificationKeyTextOrFileError","name":"VerificationKeyTextOrFileError VerificationKeyTextError VerificationKeyFileError","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:VerificationKeyTextOrFileError"},{"display_html":"readVerificationKeyTextOrFileAnyOf ∷ VerificationKeyTextOrFile → IO (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)","name":"readVerificationKeyTextOrFileAnyOf","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readVerificationKeyTextOrFileAnyOf"},{"display_html":"renderVerificationKeyTextOrFileError ∷ VerificationKeyTextOrFileError → Text","name":"renderVerificationKeyTextOrFileError","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:renderVerificationKeyTextOrFileError"},{"display_html":"data VerificationKeyOrHashOrFile keyrole","name":"VerificationKeyOrHashOrFile VerificationKeyOrFile VerificationKeyHash","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:VerificationKeyOrHashOrFile"},{"display_html":"readVerificationKeyOrHashOrFile ∷ (Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole))","name":"readVerificationKeyOrHashOrFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readVerificationKeyOrHashOrFile"},{"display_html":"readVerificationKeyOrHashOrTextEnvFile ∷ Key keyrole ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole))","name":"readVerificationKeyOrHashOrTextEnvFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readVerificationKeyOrHashOrTextEnvFile"},{"display_html":"data PaymentVerifier","name":"PaymentVerifier PaymentVerifierKey PaymentVerifierScriptFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:PaymentVerifier"},{"display_html":"data StakeIdentifier","name":"StakeIdentifier StakeIdentifierVerifier StakeIdentifierAddress","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:StakeIdentifier"},{"display_html":"data StakeVerifier","name":"StakeVerifier StakeVerifierKey StakeVerifierScriptFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:StakeVerifier"},{"display_html":"generateKeyPair ∷ Key keyrole ⇒ HasTypeProxy keyrole ⇒ AsType keyrole → IO (VerificationKey keyrole, SigningKey keyrole)","name":"generateKeyPair","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:generateKeyPair"},{"display_html":"data StakePoolRegistrationParserRequirements = StakePoolRegistrationParserRequirements {}","name":"StakePoolRegistrationParserRequirements StakePoolRegistrationParserRequirements sprStakePoolKey sprVrfKey sprPoolPledge sprPoolCost sprPoolMargin sprRewardAccountKey spoPoolOwnerKeys sprRelays sprMetadata sprNetworkId","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:StakePoolRegistrationParserRequirements"},{"display_html":"data AnyDelegationTarget where","name":"AnyDelegationTarget ShelleyToBabbageDelegTarget ConwayOnwardDelegTarget","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:AnyDelegationTarget"},{"display_html":"data StakeTarget era where","name":"StakeTarget TargetStakePool TargetVotingDrep TargetVotingDrepAndStakePool TargetAlwaysAbstain TargetAlwaysNoConfidence TargetVotingDRepScriptHash","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:StakeTarget"},{"display_html":"data ColdVerificationKeyOrFile","name":"ColdVerificationKeyOrFile ColdStakePoolVerificationKey ColdGenesisDelegateVerificationKey ColdVerificationKeyFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:ColdVerificationKeyOrFile"},{"display_html":"data DRepHashSource","name":"DRepHashSource DRepHashSourceScript DRepHashSourceVerificationKey","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:DRepHashSource"},{"display_html":"readDRepCredential ∷ DRepHashSource → ExceptT DelegationError IO (Credential 'DRepRole StandardCrypto)","name":"readDRepCredential","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readDRepCredential"},{"display_html":"data SomeSigningKey","name":"SomeSigningKey AByronSigningKey APaymentSigningKey APaymentExtendedSigningKey AStakeSigningKey AStakeExtendedSigningKey AStakePoolSigningKey AGenesisSigningKey AGenesisExtendedSigningKey AGenesisDelegateSigningKey AGenesisDelegateExtendedSigningKey AGenesisUTxOSigningKey AVrfSigningKey AKesSigningKey","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#t:SomeSigningKey"},{"display_html":"withSomeSigningKey ∷ SomeSigningKey → (∀ keyrole. (Key keyrole, HasTypeProxy keyrole) ⇒ SigningKey keyrole → a) → a","name":"withSomeSigningKey","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:withSomeSigningKey"},{"display_html":"readSigningKeyFile ∷ SigningKeyFile In → ExceptT (FileError InputDecodeError) IO SomeSigningKey","name":"readSigningKeyFile","module":"Cardano.CLI.Types.Key","link":"Cardano-CLI-Types-Key.html#v:readSigningKeyFile"},{"display_html":"type VoteFile = File ConwayVote","name":"VoteFile","module":"Cardano.CLI.Types.Governance","link":"Cardano-CLI-Types-Governance.html#t:VoteFile"},{"display_html":"data ConwayVote = ConwayVote {}","name":"ConwayVote cvFilepath cvEra cvVotingStakeCredential cvGovActionId cvVoterType cvVoteChoice ConwayVote","module":"Cardano.CLI.Types.Governance","link":"Cardano-CLI-Types-Governance.html#t:ConwayVote"},{"display_html":"data VType","name":"VType VSP VDR VCC","module":"Cardano.CLI.Types.Governance","link":"Cardano-CLI-Types-Governance.html#t:VType"},{"display_html":"data AnyVotingStakeVerificationKeyOrHashOrFile where","name":"AnyVotingStakeVerificationKeyOrHashOrFile AnyCommitteeHotVerificationKeyOrHashOrFile AnyStakePoolVerificationKeyOrHashOrFile AnyDRepVerificationKeyOrHashOrFile","module":"Cardano.CLI.Types.Governance","link":"Cardano-CLI-Types-Governance.html#t:AnyVotingStakeVerificationKeyOrHashOrFile"},{"display_html":"data VoteDelegationTarget","name":"VoteDelegationTarget VoteDelegationTargetOfNoConfidence VoteDelegationTargetOfAbstain VoteDelegationTargetOfDRep","module":"Cardano.CLI.Types.Governance","link":"Cardano-CLI-Types-Governance.html#t:VoteDelegationTarget"},{"display_html":"data LegacyTransactionCmds","name":"LegacyTransactionCmds TransactionBuildRawCmd TransactionBuildCmd TransactionSignCmd TransactionWitnessCmd TransactionSignWitnessCmd TransactionSubmitCmd TransactionPolicyIdCmd TransactionCalculateMinFeeCmd TransactionCalculateMinValueCmd TransactionHashScriptDataCmd TransactionTxIdCmd TransactionViewCmd","module":"Cardano.CLI.Legacy.Commands.Transaction","link":"Cardano-CLI-Legacy-Commands-Transaction.html#t:LegacyTransactionCmds"},{"display_html":"renderLegacyTransactionCmds ∷ LegacyTransactionCmds → Text","name":"renderLegacyTransactionCmds","module":"Cardano.CLI.Legacy.Commands.Transaction","link":"Cardano-CLI-Legacy-Commands-Transaction.html#v:renderLegacyTransactionCmds"},{"display_html":"data TransactionCmds era","name":"TransactionCmds TransactionBuildRawCmd TransactionBuildCmd TransactionSignCmd TransactionWitnessCmd TransactionSignWitnessCmd TransactionSubmitCmd TransactionPolicyIdCmd TransactionCalculateMinFeeCmd TransactionCalculateMinValueCmd TransactionHashScriptDataCmd TransactionTxIdCmd TransactionViewCmd","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCmds"},{"display_html":"data TransactionBuildRawCmdArgs era = TransactionBuildRawCmdArgs {}","name":"TransactionBuildRawCmdArgs TransactionBuildRawCmdArgs $sel:txInsCollateral:TransactionBuildRawCmdArgs $sel:txIns:TransactionBuildRawCmdArgs $sel:txouts:TransactionBuildRawCmdArgs $sel:withdrawals:TransactionBuildRawCmdArgs $sel:fee:TransactionBuildRawCmdArgs $sel:eon:TransactionBuildRawCmdArgs $sel:certificates:TransactionBuildRawCmdArgs $sel:mValue:TransactionBuildRawCmdArgs $sel:mScriptValidity:TransactionBuildRawCmdArgs $sel:readOnlyRefIns:TransactionBuildRawCmdArgs $sel:mReturnCollateral:TransactionBuildRawCmdArgs $sel:mTotalCollateral:TransactionBuildRawCmdArgs $sel:requiredSigners:TransactionBuildRawCmdArgs $sel:mValidityLowerBound:TransactionBuildRawCmdArgs $sel:mValidityUpperBound:TransactionBuildRawCmdArgs $sel:metadataSchema:TransactionBuildRawCmdArgs $sel:scriptFiles:TransactionBuildRawCmdArgs $sel:metadataFiles:TransactionBuildRawCmdArgs $sel:mProtocolParamsFile:TransactionBuildRawCmdArgs $sel:mUpdateProprosalFile:TransactionBuildRawCmdArgs $sel:voteFiles:TransactionBuildRawCmdArgs $sel:proposalFiles:TransactionBuildRawCmdArgs $sel:txBodyOutFile:TransactionBuildRawCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionBuildRawCmdArgs"},{"display_html":"data TransactionBuildCmdArgs era = TransactionBuildCmdArgs {}","name":"TransactionBuildCmdArgs TransactionBuildCmdArgs $sel:txouts:TransactionBuildCmdArgs $sel:networkId:TransactionBuildCmdArgs $sel:txins:TransactionBuildCmdArgs $sel:withdrawals:TransactionBuildCmdArgs $sel:eon:TransactionBuildCmdArgs $sel:certificates:TransactionBuildCmdArgs $sel:mValue:TransactionBuildCmdArgs $sel:nodeSocketPath:TransactionBuildCmdArgs $sel:mScriptValidity:TransactionBuildCmdArgs $sel:mReturnCollateral:TransactionBuildCmdArgs $sel:mTotalCollateral:TransactionBuildCmdArgs $sel:requiredSigners:TransactionBuildCmdArgs $sel:mValidityLowerBound:TransactionBuildCmdArgs $sel:mValidityUpperBound:TransactionBuildCmdArgs $sel:metadataSchema:TransactionBuildCmdArgs $sel:scriptFiles:TransactionBuildCmdArgs $sel:metadataFiles:TransactionBuildCmdArgs $sel:voteFiles:TransactionBuildCmdArgs $sel:proposalFiles:TransactionBuildCmdArgs $sel:consensusModeParams:TransactionBuildCmdArgs $sel:mOverrideWitnesses:TransactionBuildCmdArgs $sel:readOnlyReferenceInputs:TransactionBuildCmdArgs $sel:txinsc:TransactionBuildCmdArgs $sel:changeAddresses:TransactionBuildCmdArgs $sel:mfUpdateProposalFile:TransactionBuildCmdArgs $sel:buildOutputOptions:TransactionBuildCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionBuildCmdArgs"},{"display_html":"data TransactionSignCmdArgs = TransactionSignCmdArgs {}","name":"TransactionSignCmdArgs TransactionSignCmdArgs $sel:mNetworkId:TransactionSignCmdArgs $sel:txOrTxBodyFile:TransactionSignCmdArgs $sel:witnessSigningData:TransactionSignCmdArgs $sel:outTxFile:TransactionSignCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSignCmdArgs"},{"display_html":"data TransactionWitnessCmdArgs = TransactionWitnessCmdArgs {}","name":"TransactionWitnessCmdArgs TransactionWitnessCmdArgs $sel:mNetworkId:TransactionWitnessCmdArgs $sel:outFile:TransactionWitnessCmdArgs $sel:witnessSigningData:TransactionWitnessCmdArgs $sel:txBodyFile:TransactionWitnessCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionWitnessCmdArgs"},{"display_html":"data TransactionSignWitnessCmdArgs = TransactionSignWitnessCmdArgs {}","name":"TransactionSignWitnessCmdArgs TransactionSignWitnessCmdArgs $sel:outFile:TransactionSignWitnessCmdArgs $sel:txBodyFile:TransactionSignWitnessCmdArgs $sel:witnessFiles:TransactionSignWitnessCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSignWitnessCmdArgs"},{"display_html":"data TransactionSubmitCmdArgs = TransactionSubmitCmdArgs {}","name":"TransactionSubmitCmdArgs TransactionSubmitCmdArgs $sel:networkId:TransactionSubmitCmdArgs $sel:txFile:TransactionSubmitCmdArgs $sel:nodeSocketPath:TransactionSubmitCmdArgs $sel:consensusModeParams:TransactionSubmitCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSubmitCmdArgs"},{"display_html":"newtype TransactionPolicyIdCmdArgs = TransactionPolicyIdCmdArgs {}","name":"TransactionPolicyIdCmdArgs TransactionPolicyIdCmdArgs $sel:scriptFile:TransactionPolicyIdCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionPolicyIdCmdArgs"},{"display_html":"data TransactionCalculateMinFeeCmdArgs = TransactionCalculateMinFeeCmdArgs {}","name":"TransactionCalculateMinFeeCmdArgs TransactionCalculateMinFeeCmdArgs $sel:networkId:TransactionCalculateMinFeeCmdArgs $sel:txBodyFile:TransactionCalculateMinFeeCmdArgs $sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgs $sel:txInCount:TransactionCalculateMinFeeCmdArgs $sel:txOutCount:TransactionCalculateMinFeeCmdArgs $sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgs $sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCalculateMinFeeCmdArgs"},{"display_html":"data TransactionCalculateMinValueCmdArgs era = TransactionCalculateMinValueCmdArgs {}","name":"TransactionCalculateMinValueCmdArgs TransactionCalculateMinValueCmdArgs $sel:txOut:TransactionCalculateMinValueCmdArgs $sel:eon:TransactionCalculateMinValueCmdArgs $sel:protocolParamsFile:TransactionCalculateMinValueCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCalculateMinValueCmdArgs"},{"display_html":"newtype TransactionHashScriptDataCmdArgs = TransactionHashScriptDataCmdArgs {}","name":"TransactionHashScriptDataCmdArgs TransactionHashScriptDataCmdArgs $sel:scriptDataOrFile:TransactionHashScriptDataCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionHashScriptDataCmdArgs"},{"display_html":"newtype TransactionTxIdCmdArgs = TransactionTxIdCmdArgs {}","name":"TransactionTxIdCmdArgs TransactionTxIdCmdArgs $sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionTxIdCmdArgs"},{"display_html":"data TransactionViewCmdArgs = TransactionViewCmdArgs {}","name":"TransactionViewCmdArgs TransactionViewCmdArgs $sel:mOutFile:TransactionViewCmdArgs $sel:inputTxBodyOrTxFile:TransactionViewCmdArgs $sel:outputFormat:TransactionViewCmdArgs","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionViewCmdArgs"},{"display_html":"renderTransactionCmds ∷ TransactionCmds era → Text","name":"renderTransactionCmds","module":"Cardano.CLI.EraBased.Commands.Transaction","link":"Cardano-CLI-EraBased-Commands-Transaction.html#v:renderTransactionCmds"},{"display_html":"data GovernanceVoteCmds era","name":"GovernanceVoteCmds GovernanceVoteCreateCmd GovernanceVoteViewCmd","module":"Cardano.CLI.EraBased.Commands.Governance.Vote","link":"Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteCmds"},{"display_html":"data GovernanceVoteViewCmdArgs era = GovernanceVoteViewCmdArgs {}","name":"GovernanceVoteViewCmdArgs GovernanceVoteViewCmdArgs $sel:eon:GovernanceVoteViewCmdArgs $sel:mOutFile:GovernanceVoteViewCmdArgs $sel:yamlOutput:GovernanceVoteViewCmdArgs $sel:voteFile:GovernanceVoteViewCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Vote","link":"Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteViewCmdArgs"},{"display_html":"data GovernanceVoteCreateCmdArgs era = GovernanceVoteCreateCmdArgs {}","name":"GovernanceVoteCreateCmdArgs GovernanceVoteCreateCmdArgs $sel:mAnchor:GovernanceVoteCreateCmdArgs $sel:eon:GovernanceVoteCreateCmdArgs $sel:outFile:GovernanceVoteCreateCmdArgs $sel:voteChoice:GovernanceVoteCreateCmdArgs $sel:governanceAction:GovernanceVoteCreateCmdArgs $sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Vote","link":"Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteCreateCmdArgs"},{"display_html":"renderGovernanceVoteCmds ∷ GovernanceVoteCmds era → Text","name":"renderGovernanceVoteCmds","module":"Cardano.CLI.EraBased.Commands.Governance.Vote","link":"Cardano-CLI-EraBased-Commands-Governance-Vote.html#v:renderGovernanceVoteCmds"},{"display_html":"data KeyCmdError","name":"KeyCmdError KeyCmdReadFileError KeyCmdReadKeyFileError KeyCmdWriteFileError KeyCmdByronKeyFailure KeyCmdByronKeyParseError KeyCmdItnKeyConvError KeyCmdWrongKeyTypeError KeyCmdCardanoAddressSigningKeyFileError KeyCmdNonLegacyKey KeyCmdExpectedExtendedVerificationKey KeyCmdVerificationKeyReadError","module":"Cardano.CLI.Types.Errors.KeyCmdError","link":"Cardano-CLI-Types-Errors-KeyCmdError.html#t:KeyCmdError"},{"display_html":"renderKeyCmdError ∷ KeyCmdError → Text","name":"renderKeyCmdError","module":"Cardano.CLI.Types.Errors.KeyCmdError","link":"Cardano-CLI-Types-Errors-KeyCmdError.html#v:renderKeyCmdError"},{"display_html":"data MetadataError","name":"MetadataError MetadataErrorFile MetadataErrorJsonParseError MetadataErrorConversionError MetadataErrorValidationError MetadataErrorDecodeError MetadataErrorNotAvailableInEra","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:MetadataError"},{"display_html":"renderMetadataError ∷ MetadataError → Text","name":"renderMetadataError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:renderMetadataError"},{"display_html":"readFileTxMetadata ∷ TxMetadataJsonSchema → MetadataFile → ExceptT MetadataError IO TxMetadata","name":"readFileTxMetadata","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileTxMetadata"},{"display_html":"readTxMetadata ∷ CardanoEra era → TxMetadataJsonSchema → [MetadataFile] → IO (Either MetadataError (TxMetadataInEra era))","name":"readTxMetadata","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readTxMetadata"},{"display_html":"data ScriptWitnessError","name":"ScriptWitnessError ScriptWitnessErrorFile ScriptWitnessErrorScriptLanguageNotSupportedInEra ScriptWitnessErrorExpectedSimple ScriptWitnessErrorExpectedPlutus ScriptWitnessErrorReferenceScriptsNotSupportedInEra ScriptWitnessErrorScriptData","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ScriptWitnessError"},{"display_html":"renderScriptWitnessError ∷ ScriptWitnessError → Text","name":"renderScriptWitnessError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:renderScriptWitnessError"},{"display_html":"readScriptDataOrFile ∷ ScriptDataOrFile → ExceptT ScriptDataError IO HashableScriptData","name":"readScriptDataOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptDataOrFile"},{"display_html":"readScriptWitness ∷ CardanoEra era → ScriptWitnessFiles witctx → ExceptT ScriptWitnessError IO (ScriptWitness witctx era)","name":"readScriptWitness","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptWitness"},{"display_html":"readScriptWitnessFiles ∷ CardanoEra era → [(a, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]","name":"readScriptWitnessFiles","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptWitnessFiles"},{"display_html":"readScriptWitnessFilesThruple ∷ CardanoEra era → [(a, b, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]","name":"readScriptWitnessFilesThruple","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptWitnessFilesThruple"},{"display_html":"data ScriptDecodeError","name":"ScriptDecodeError ScriptDecodeTextEnvelopeError ScriptDecodeSimpleScriptError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ScriptDecodeError"},{"display_html":"deserialiseScriptInAnyLang ∷ ByteString → Either ScriptDecodeError ScriptInAnyLang","name":"deserialiseScriptInAnyLang","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:deserialiseScriptInAnyLang"},{"display_html":"readFileScriptInAnyLang ∷ FilePath → ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang","name":"readFileScriptInAnyLang","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileScriptInAnyLang"},{"display_html":"data ScriptDataError","name":"ScriptDataError ScriptDataErrorFile ScriptDataErrorJsonParse ScriptDataErrorConversion ScriptDataErrorValidation ScriptDataErrorMetadataDecode ScriptDataErrorJsonBytes","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ScriptDataError"},{"display_html":"readScriptDatumOrFile ∷ ScriptDatumOrFile witctx → ExceptT ScriptDataError IO (ScriptDatum witctx)","name":"readScriptDatumOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptDatumOrFile"},{"display_html":"readScriptRedeemerOrFile ∷ ScriptRedeemerOrFile → ExceptT ScriptDataError IO ScriptRedeemer","name":"readScriptRedeemerOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readScriptRedeemerOrFile"},{"display_html":"renderScriptDataError ∷ ScriptDataError → Text","name":"renderScriptDataError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:renderScriptDataError"},{"display_html":"data CddlError","name":"CddlError CddlErrorTextEnv CddlIOError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:CddlError"},{"display_html":"newtype CddlTx = CddlTx {}","name":"CddlTx CddlTx unCddlTx","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:CddlTx"},{"display_html":"data IncompleteTx","name":"IncompleteTx UnwitnessedCliFormattedTxBody IncompleteCddlFormattedTx","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:IncompleteTx"},{"display_html":"readFileTx ∷ FileOrPipe → IO (Either CddlError (InAnyCardanoEra Tx))","name":"readFileTx","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileTx"},{"display_html":"readFileTxBody ∷ FileOrPipe → IO (Either CddlError IncompleteTx)","name":"readFileTxBody","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileTxBody"},{"display_html":"readCddlTx ∷ FileOrPipe → IO (Either (FileError TextEnvelopeCddlError) CddlTx)","name":"readCddlTx","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readCddlTx"},{"display_html":"data ReadWitnessSigningDataError","name":"ReadWitnessSigningDataError ReadWitnessSigningDataSigningKeyDecodeError ReadWitnessSigningDataScriptError ReadWitnessSigningDataSigningKeyAndAddressMismatch","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ReadWitnessSigningDataError"},{"display_html":"renderReadWitnessSigningDataError ∷ ReadWitnessSigningDataError → Text","name":"renderReadWitnessSigningDataError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:renderReadWitnessSigningDataError"},{"display_html":"data SomeSigningWitness","name":"SomeSigningWitness AByronSigningWitness APaymentSigningWitness APaymentExtendedSigningWitness AStakeSigningWitness AStakeExtendedSigningWitness AStakePoolSigningWitness AGenesisSigningWitness AGenesisExtendedSigningWitness AGenesisDelegateSigningWitness AGenesisDelegateExtendedSigningWitness AGenesisUTxOSigningWitness ADRepSigningWitness ACommitteeColdSigningWitness ACommitteeHotSigningWitness","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:SomeSigningWitness"},{"display_html":"data ByronOrShelleyWitness","name":"ByronOrShelleyWitness AByronWitness AShelleyKeyWitness","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ByronOrShelleyWitness"},{"display_html":"data ShelleyBootstrapWitnessSigningKeyData = ShelleyBootstrapWitnessSigningKeyData !(SigningKey ByronKey) !(Maybe (Address ByronAddr))","name":"ShelleyBootstrapWitnessSigningKeyData ShelleyBootstrapWitnessSigningKeyData","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ShelleyBootstrapWitnessSigningKeyData"},{"display_html":"data CddlWitnessError","name":"CddlWitnessError CddlWitnessErrorTextEnv CddlWitnessIOError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:CddlWitnessError"},{"display_html":"readFileTxKeyWitness ∷ FilePath → IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))","name":"readFileTxKeyWitness","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileTxKeyWitness"},{"display_html":"readWitnessSigningData ∷ WitnessSigningData → IO (Either ReadWitnessSigningDataError SomeSigningWitness)","name":"readWitnessSigningData","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readWitnessSigningData"},{"display_html":"data RequiredSignerError","name":"RequiredSignerError RequiredSignerErrorFile RequiredSignerErrorByronKey","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:RequiredSignerError"},{"display_html":"categoriseSomeSigningWitness ∷ SomeSigningWitness → ByronOrShelleyWitness","name":"categoriseSomeSigningWitness","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:categoriseSomeSigningWitness"},{"display_html":"readRequiredSigner ∷ RequiredSigner → IO (Either RequiredSignerError (Hash PaymentKey))","name":"readRequiredSigner","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readRequiredSigner"},{"display_html":"data ConstitutionError","name":"ConstitutionError ConstitutionErrorFile ConstitutionNotSupportedInEra ConstitutionNotUnicodeError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ConstitutionError"},{"display_html":"data ProposalError","name":"ProposalError ProposalErrorFile ProposalNotSupportedInEra ProposalNotUnicodeError","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ProposalError"},{"display_html":"data VoteError","name":"VoteError VoteErrorFile VoteErrorTextNotUnicode","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:VoteError"},{"display_html":"readTxGovernanceActions ∷ CardanoEra era → [ProposalFile In] → IO (Either ConstitutionError [Proposal era])","name":"readTxGovernanceActions","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readTxGovernanceActions"},{"display_html":"constitutionHashSourceToHash ∷ ConstitutionHashSource → ExceptT ConstitutionError IO (SafeHash StandardCrypto AnchorData)","name":"constitutionHashSourceToHash","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:constitutionHashSourceToHash"},{"display_html":"readProposal ∷ ConwayEraOnwards era → ProposalFile In → IO (Either (FileError TextEnvelopeError) (Proposal era))","name":"readProposal","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readProposal"},{"display_html":"data FileOrPipe","name":"FileOrPipe","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:FileOrPipe"},{"display_html":"fileOrPipe ∷ FilePath → IO FileOrPipe","name":"fileOrPipe","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:fileOrPipe"},{"display_html":"fileOrPipePath ∷ FileOrPipe → FilePath","name":"fileOrPipePath","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:fileOrPipePath"},{"display_html":"fileOrPipeCache ∷ FileOrPipe → IO (Maybe ByteString)","name":"fileOrPipeCache","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:fileOrPipeCache"},{"display_html":"readFileOrPipe ∷ FileOrPipe → IO ByteString","name":"readFileOrPipe","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readFileOrPipe"},{"display_html":"getStakeCredentialFromVerifier ∷ StakeVerifier → ExceptT StakeCredentialError IO StakeCredential","name":"getStakeCredentialFromVerifier","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getStakeCredentialFromVerifier"},{"display_html":"getStakeCredentialFromIdentifier ∷ StakeIdentifier → ExceptT StakeCredentialError IO StakeCredential","name":"getStakeCredentialFromIdentifier","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getStakeCredentialFromIdentifier"},{"display_html":"getStakeAddressFromVerifier ∷ NetworkId → StakeVerifier → ExceptT StakeCredentialError IO StakeAddress","name":"getStakeAddressFromVerifier","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getStakeAddressFromVerifier"},{"display_html":"readVotingProceduresFiles ∷ ConwayEraOnwards era → [VoteFile In] → IO (Either VoteError (VotingProcedures era))","name":"readVotingProceduresFiles","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readVotingProceduresFiles"},{"display_html":"readVotingProceduresFile ∷ ConwayEraOnwards era → VoteFile In → IO (Either VoteError (VotingProcedures era))","name":"readVotingProceduresFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readVotingProceduresFile"},{"display_html":"getDRepCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile DRepKey → ExceptT (FileError InputDecodeError) IO (Credential DRepRole StandardCrypto)","name":"getDRepCredentialFromVerKeyHashOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getDRepCredentialFromVerKeyHashOrFile"},{"display_html":"getCommitteeColdCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeColdKey → ExceptT (FileError InputDecodeError) IO (Credential ColdCommitteeRole StandardCrypto)","name":"getCommitteeColdCredentialFromVerKeyHashOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getCommitteeColdCredentialFromVerKeyHashOrFile"},{"display_html":"getCommitteeHotCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeHotKey → ExceptT (FileError InputDecodeError) IO (Credential HotCommitteeRole StandardCrypto)","name":"getCommitteeHotCredentialFromVerKeyHashOrFile","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:getCommitteeHotCredentialFromVerKeyHashOrFile"},{"display_html":"data ReadSafeHashError","name":"ReadSafeHashError ReadSafeHashErrorNotHex ReadSafeHashErrorInvalidHash","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#t:ReadSafeHashError"},{"display_html":"readHexAsSafeHash ∷ Text → Either ReadSafeHashError (SafeHash StandardCrypto AnchorData)","name":"readHexAsSafeHash","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readHexAsSafeHash"},{"display_html":"readSafeHash ∷ ReadM (SafeHash StandardCrypto AnchorData)","name":"readSafeHash","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readSafeHash"},{"display_html":"scriptHashReader ∷ ReadM ScriptHash","name":"scriptHashReader","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:scriptHashReader"},{"display_html":"readTxUpdateProposal ∷ ShelleyToBabbageEra era → UpdateProposalFile → ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)","name":"readTxUpdateProposal","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readTxUpdateProposal"},{"display_html":"readVoteDelegationTarget ∷ VoteDelegationTarget → ExceptT DelegationError IO (DRep StandardCrypto)","name":"readVoteDelegationTarget","module":"Cardano.CLI.Read","link":"Cardano-CLI-Read.html#v:readVoteDelegationTarget"},{"display_html":"data GovernanceVoteCmdError","name":"GovernanceVoteCmdError GovernanceVoteCmdReadVoteTextError GovernanceVoteCmdWriteError GovernanceVoteCmdCredentialDecodeError GovernanceVoteCmdReadVoteFileError GovernanceVoteCmdReadVerificationKeyError","module":"Cardano.CLI.Types.Errors.GovernanceVoteCmdError","link":"Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html#t:GovernanceVoteCmdError"},{"display_html":"data GovernanceCmdError","name":"GovernanceCmdError GovernanceCmdGenesisDelegationNotSupportedInConway GovernanceCmdMIRCertNotSupportedInConway GovernanceCmdDRepMetadataValidationError GovernanceCmdWriteFileError GovernanceCmdVerifyPollError GovernanceCmdDecoderError GovernanceCmdPollInvalidChoice GovernanceCmdPollOutOfBoundAnswer GovernanceCmdUnexpectedKeyType GovernanceCmdEmptyCostModel GovernanceCmdCostModelsJsonDecodeErr GovernanceCmdMIRCertificateKeyRewardMistmach GovernanceCmdEmptyUpdateProposalError GovernanceCmdTextEnvWriteError GovernanceCmdCostModelReadError GovernanceCmdKeyReadError GovernanceCmdCddlError GovernanceCmdTextEnvReadError GovernanceCmdProposalError GovernanceCmdHashError GovernanceCmdConstitutionError ReadFileError WriteFileError VotingCredentialDecodeGovCmdEror StakeCredGovCmdError","module":"Cardano.CLI.Types.Errors.GovernanceCmdError","link":"Cardano-CLI-Types-Errors-GovernanceCmdError.html#t:GovernanceCmdError"},{"display_html":"data GovernanceActionsError","name":"GovernanceActionsError GovernanceActionsCmdConstitutionError GovernanceActionsCmdProposalError GovernanceActionsCmdReadFileError GovernanceActionsCmdReadTextEnvelopeFileError GovernanceActionsCmdWriteFileError GovernanceActionsValueUpdateProtocolParametersNotFound","module":"Cardano.CLI.Types.Errors.GovernanceActionsError","link":"Cardano-CLI-Types-Errors-GovernanceActionsError.html#t:GovernanceActionsError"},{"display_html":"data AddressCmdError","name":"AddressCmdError AddressCmdAddressInfoError AddressCmdReadKeyFileError AddressCmdReadScriptFileError AddressCmdVerificationKeyTextOrFileError AddressCmdWriteFileError AddressCmdExpectedPaymentVerificationKey","module":"Cardano.CLI.Types.Errors.AddressCmdError","link":"Cardano-CLI-Types-Errors-AddressCmdError.html#t:AddressCmdError"},{"display_html":"renderAddressCmdError ∷ AddressCmdError → Text","name":"renderAddressCmdError","module":"Cardano.CLI.Types.Errors.AddressCmdError","link":"Cardano-CLI-Types-Errors-AddressCmdError.html#v:renderAddressCmdError"},{"display_html":"data GenesisCmdError","name":"GenesisCmdError GenesisCmdAesonDecodeError GenesisCmdGenesisFileReadError GenesisCmdGenesisFileDecodeError GenesisCmdGenesisFileError GenesisCmdFileError GenesisCmdMismatchedGenesisKeyFiles GenesisCmdFilesNoIndex GenesisCmdFilesDupIndex GenesisCmdTextEnvReadFileError GenesisCmdUnexpectedAddressVerificationKey GenesisCmdTooFewPoolsForBulkCreds GenesisCmdAddressCmdError GenesisCmdNodeCmdError GenesisCmdStakeAddressCmdError GenesisCmdStakePoolCmdError GenesisCmdCostModelsError GenesisCmdByronError GenesisCmdStakePoolRelayFileError GenesisCmdStakePoolRelayJsonDecodeError","module":"Cardano.CLI.Types.Errors.GenesisCmdError","link":"Cardano-CLI-Types-Errors-GenesisCmdError.html#t:GenesisCmdError"},{"display_html":"data QueryCmdError","name":"QueryCmdError QueryCmdLocalStateQueryError QueryCmdConvenienceError QueryCmdWriteFileError QueryCmdHelpersError QueryCmdAcquireFailure QueryCmdByronEra QueryCmdEraMismatch QueryCmdPastHorizon QueryCmdSystemStartUnavailable QueryCmdGenesisReadError QueryCmdLeaderShipError QueryCmdTextEnvelopeReadError QueryCmdTextReadError QueryCmdOpCertCounterReadError QueryCmdProtocolStateDecodeFailure QueryCmdPoolStateDecodeError QueryCmdStakeSnapshotDecodeError QueryCmdUnsupportedNtcVersion QueryCmdProtocolParameterConversionError QueryCmdDRepKeyError QueryCmdCommitteeColdKeyError QueryCmdCommitteeHotKeyError","module":"Cardano.CLI.Types.Errors.QueryCmdError","link":"Cardano-CLI-Types-Errors-QueryCmdError.html#t:QueryCmdError"},{"display_html":"renderQueryCmdError ∷ QueryCmdError → Text","name":"renderQueryCmdError","module":"Cardano.CLI.Types.Errors.QueryCmdError","link":"Cardano-CLI-Types-Errors-QueryCmdError.html#v:renderQueryCmdError"},{"display_html":"runGovernancePollCmds ∷ GovernancePollCmds era → ExceptT GovernanceCmdError IO ()","name":"runGovernancePollCmds","module":"Cardano.CLI.EraBased.Run.Governance.Poll","link":"Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernancePollCmds"},{"display_html":"runGovernanceCreatePollCmd ∷ GovernanceCreatePollCmdArgs era → ExceptT GovernanceCmdError IO ()","name":"runGovernanceCreatePollCmd","module":"Cardano.CLI.EraBased.Run.Governance.Poll","link":"Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceCreatePollCmd"},{"display_html":"runGovernanceAnswerPollCmd ∷ GovernanceAnswerPollCmdArgs era → ExceptT GovernanceCmdError IO ()","name":"runGovernanceAnswerPollCmd","module":"Cardano.CLI.EraBased.Run.Governance.Poll","link":"Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceAnswerPollCmd"},{"display_html":"runGovernanceVerifyPollCmd ∷ GovernanceVerifyPollCmdArgs era → ExceptT GovernanceCmdError IO ()","name":"runGovernanceVerifyPollCmd","module":"Cardano.CLI.EraBased.Run.Governance.Poll","link":"Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceVerifyPollCmd"},{"display_html":"data LegacyStakePoolCmds","name":"LegacyStakePoolCmds StakePoolDeregistrationCertificateCmd StakePoolIdCmd StakePoolMetadataHashCmd StakePoolRegistrationCertificateCmd","module":"Cardano.CLI.Legacy.Commands.StakePool","link":"Cardano-CLI-Legacy-Commands-StakePool.html#t:LegacyStakePoolCmds"},{"display_html":"renderLegacyStakePoolCmds ∷ LegacyStakePoolCmds → Text","name":"renderLegacyStakePoolCmds","module":"Cardano.CLI.Legacy.Commands.StakePool","link":"Cardano-CLI-Legacy-Commands-StakePool.html#v:renderLegacyStakePoolCmds"},{"display_html":"data LegacyStakeAddressCmds","name":"LegacyStakeAddressCmds StakeAddressKeyGenCmd StakeAddressKeyHashCmd StakeAddressBuildCmd StakeAddressRegistrationCertificateCmd StakeAddressDelegationCertificateCmd StakeAddressDeregistrationCertificateCmd","module":"Cardano.CLI.Legacy.Commands.StakeAddress","link":"Cardano-CLI-Legacy-Commands-StakeAddress.html#t:LegacyStakeAddressCmds"},{"display_html":"renderLegacyStakeAddressCmds ∷ LegacyStakeAddressCmds → Text","name":"renderLegacyStakeAddressCmds","module":"Cardano.CLI.Legacy.Commands.StakeAddress","link":"Cardano-CLI-Legacy-Commands-StakeAddress.html#v:renderLegacyStakeAddressCmds"},{"display_html":"data LegacyQueryCmds","name":"LegacyQueryCmds QueryLeadershipScheduleCmd QueryProtocolParametersCmd QueryConstitutionHashCmd QueryTipCmd QueryStakePoolsCmd QueryStakeDistributionCmd QueryStakeAddressInfoCmd QueryUTxOCmd QueryLedgerStateCmd QueryProtocolStateCmd QueryStakeSnapshotCmd QueryKesPeriodInfoCmd QueryPoolStateCmd QueryTxMempoolCmd QuerySlotNumberCmd","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryCmds"},{"display_html":"data LegacyQueryLeadershipScheduleCmdArgs = LegacyQueryLeadershipScheduleCmdArgs {}","name":"LegacyQueryLeadershipScheduleCmdArgs LegacyQueryLeadershipScheduleCmdArgs $sel:networkId:LegacyQueryLeadershipScheduleCmdArgs $sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgs $sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgs $sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgs $sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgs $sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgs $sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgs $sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryLeadershipScheduleCmdArgs"},{"display_html":"data LegacyQueryProtocolParametersCmdArgs = LegacyQueryProtocolParametersCmdArgs {}","name":"LegacyQueryProtocolParametersCmdArgs LegacyQueryProtocolParametersCmdArgs $sel:networkId:LegacyQueryProtocolParametersCmdArgs $sel:mOutFile:LegacyQueryProtocolParametersCmdArgs $sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgs $sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryProtocolParametersCmdArgs"},{"display_html":"data LegacyQueryConstitutionHashCmdArgs = LegacyQueryConstitutionHashCmdArgs {}","name":"LegacyQueryConstitutionHashCmdArgs LegacyQueryConstitutionHashCmdArgs $sel:networkId:LegacyQueryConstitutionHashCmdArgs $sel:mOutFile:LegacyQueryConstitutionHashCmdArgs $sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgs $sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryConstitutionHashCmdArgs"},{"display_html":"data LegacyQueryTipCmdArgs = LegacyQueryTipCmdArgs {}","name":"LegacyQueryTipCmdArgs LegacyQueryTipCmdArgs $sel:networkId:LegacyQueryTipCmdArgs $sel:mOutFile:LegacyQueryTipCmdArgs $sel:nodeSocketPath:LegacyQueryTipCmdArgs $sel:consensusModeParams:LegacyQueryTipCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryTipCmdArgs"},{"display_html":"data LegacyQueryStakePoolsCmdArgs = LegacyQueryStakePoolsCmdArgs {}","name":"LegacyQueryStakePoolsCmdArgs LegacyQueryStakePoolsCmdArgs $sel:networkId:LegacyQueryStakePoolsCmdArgs $sel:mOutFile:LegacyQueryStakePoolsCmdArgs $sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgs $sel:consensusModeParams:LegacyQueryStakePoolsCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakePoolsCmdArgs"},{"display_html":"data LegacyQueryStakeDistributionCmdArgs = LegacyQueryStakeDistributionCmdArgs {}","name":"LegacyQueryStakeDistributionCmdArgs LegacyQueryStakeDistributionCmdArgs $sel:networkId:LegacyQueryStakeDistributionCmdArgs $sel:mOutFile:LegacyQueryStakeDistributionCmdArgs $sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgs $sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeDistributionCmdArgs"},{"display_html":"data LegacyQueryStakeAddressInfoCmdArgs = LegacyQueryStakeAddressInfoCmdArgs {}","name":"LegacyQueryStakeAddressInfoCmdArgs LegacyQueryStakeAddressInfoCmdArgs $sel:networkId:LegacyQueryStakeAddressInfoCmdArgs $sel:addr:LegacyQueryStakeAddressInfoCmdArgs $sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgs $sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgs $sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeAddressInfoCmdArgs"},{"display_html":"data LegacyQueryUTxOCmdArgs = LegacyQueryUTxOCmdArgs {}","name":"LegacyQueryUTxOCmdArgs LegacyQueryUTxOCmdArgs $sel:networkId:LegacyQueryUTxOCmdArgs $sel:mOutFile:LegacyQueryUTxOCmdArgs $sel:nodeSocketPath:LegacyQueryUTxOCmdArgs $sel:consensusModeParams:LegacyQueryUTxOCmdArgs $sel:queryFilter:LegacyQueryUTxOCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryUTxOCmdArgs"},{"display_html":"data LegacyQueryLedgerStateCmdArgs = LegacyQueryLedgerStateCmdArgs {}","name":"LegacyQueryLedgerStateCmdArgs LegacyQueryLedgerStateCmdArgs $sel:networkId:LegacyQueryLedgerStateCmdArgs $sel:mOutFile:LegacyQueryLedgerStateCmdArgs $sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgs $sel:consensusModeParams:LegacyQueryLedgerStateCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryLedgerStateCmdArgs"},{"display_html":"data LegacyQueryProtocolStateCmdArgs = LegacyQueryProtocolStateCmdArgs {}","name":"LegacyQueryProtocolStateCmdArgs LegacyQueryProtocolStateCmdArgs $sel:networkId:LegacyQueryProtocolStateCmdArgs $sel:mOutFile:LegacyQueryProtocolStateCmdArgs $sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgs $sel:consensusModeParams:LegacyQueryProtocolStateCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryProtocolStateCmdArgs"},{"display_html":"data LegacyQueryStakeSnapshotCmdArgs = LegacyQueryStakeSnapshotCmdArgs {}","name":"LegacyQueryStakeSnapshotCmdArgs LegacyQueryStakeSnapshotCmdArgs $sel:networkId:LegacyQueryStakeSnapshotCmdArgs $sel:mOutFile:LegacyQueryStakeSnapshotCmdArgs $sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgs $sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgs $sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeSnapshotCmdArgs"},{"display_html":"data LegacyQueryKesPeriodInfoCmdArgs = LegacyQueryKesPeriodInfoCmdArgs {}","name":"LegacyQueryKesPeriodInfoCmdArgs LegacyQueryKesPeriodInfoCmdArgs $sel:networkId:LegacyQueryKesPeriodInfoCmdArgs $sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgs $sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgs $sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgs $sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryKesPeriodInfoCmdArgs"},{"display_html":"data LegacyQueryPoolStateCmdArgs = LegacyQueryPoolStateCmdArgs {}","name":"LegacyQueryPoolStateCmdArgs LegacyQueryPoolStateCmdArgs $sel:networkId:LegacyQueryPoolStateCmdArgs $sel:nodeSocketPath:LegacyQueryPoolStateCmdArgs $sel:consensusModeParams:LegacyQueryPoolStateCmdArgs $sel:poolIds:LegacyQueryPoolStateCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryPoolStateCmdArgs"},{"display_html":"data LegacyQueryTxMempoolCmdArgs = LegacyQueryTxMempoolCmdArgs {}","name":"LegacyQueryTxMempoolCmdArgs LegacyQueryTxMempoolCmdArgs $sel:networkId:LegacyQueryTxMempoolCmdArgs $sel:query:LegacyQueryTxMempoolCmdArgs $sel:mOutFile:LegacyQueryTxMempoolCmdArgs $sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgs $sel:consensusModeParams:LegacyQueryTxMempoolCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryTxMempoolCmdArgs"},{"display_html":"data LegacyQuerySlotNumberCmdArgs = LegacyQuerySlotNumberCmdArgs {}","name":"LegacyQuerySlotNumberCmdArgs LegacyQuerySlotNumberCmdArgs $sel:utcTime:LegacyQuerySlotNumberCmdArgs $sel:networkId:LegacyQuerySlotNumberCmdArgs $sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgs $sel:consensusModeParams:LegacyQuerySlotNumberCmdArgs","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQuerySlotNumberCmdArgs"},{"display_html":"renderLegacyQueryCmds ∷ LegacyQueryCmds → Text","name":"renderLegacyQueryCmds","module":"Cardano.CLI.Legacy.Commands.Query","link":"Cardano-CLI-Legacy-Commands-Query.html#v:renderLegacyQueryCmds"},{"display_html":"data LegacyGovernanceCmds","name":"LegacyGovernanceCmds GovernanceUpdateProposal GovernanceGenesisKeyDelegationCertificate GovernanceCreateMirCertificateTransferToReservesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateStakeAddressesCmd GovernanceVerifyPoll GovernanceAnswerPoll GovernanceCreatePoll","module":"Cardano.CLI.Legacy.Commands.Governance","link":"Cardano-CLI-Legacy-Commands-Governance.html#t:LegacyGovernanceCmds"},{"display_html":"renderLegacyGovernanceCmds ∷ LegacyGovernanceCmds → Text","name":"renderLegacyGovernanceCmds","module":"Cardano.CLI.Legacy.Commands.Governance","link":"Cardano-CLI-Legacy-Commands-Governance.html#v:renderLegacyGovernanceCmds"},{"display_html":"data LegacyAddressCmds","name":"LegacyAddressCmds AddressInfo AddressKeyGen AddressKeyHash AddressBuild","module":"Cardano.CLI.Legacy.Commands.Address","link":"Cardano-CLI-Legacy-Commands-Address.html#t:LegacyAddressCmds"},{"display_html":"renderLegacyAddressCmds ∷ LegacyAddressCmds → Text","name":"renderLegacyAddressCmds","module":"Cardano.CLI.Legacy.Commands.Address","link":"Cardano-CLI-Legacy-Commands-Address.html#v:renderLegacyAddressCmds"},{"display_html":"runKeyCmds ∷ KeyCmds era → ExceptT KeyCmdError IO ()","name":"runKeyCmds","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runKeyCmds"},{"display_html":"runConvertByronGenesisVKeyCmd ∷ KeyConvertByronGenesisVKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertByronGenesisVKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertByronGenesisVKeyCmd"},{"display_html":"runConvertByronKeyCmd ∷ KeyConvertByronKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertByronKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertByronKeyCmd"},{"display_html":"runConvertCardanoAddressKeyCmd ∷ KeyConvertCardanoAddressKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertCardanoAddressKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertCardanoAddressKeyCmd"},{"display_html":"runConvertITNBip32KeyCmd ∷ KeyConvertITNBip32KeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertITNBip32KeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNBip32KeyCmd"},{"display_html":"runConvertITNExtendedKeyCmd ∷ KeyConvertITNExtendedKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertITNExtendedKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNExtendedKeyCmd"},{"display_html":"runConvertITNKeyCmd ∷ KeyConvertITNKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runConvertITNKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNKeyCmd"},{"display_html":"runNonExtendedKeyCmd ∷ KeyNonExtendedKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runNonExtendedKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runNonExtendedKeyCmd"},{"display_html":"runVerificationKeyCmd ∷ KeyVerificationKeyCmdArgs → ExceptT KeyCmdError IO ()","name":"runVerificationKeyCmd","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:runVerificationKeyCmd"},{"display_html":"drepVkeyDesc ∷ TextEnvelopeDescr","name":"drepVkeyDesc","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:drepVkeyDesc"},{"display_html":"genesisVkeyDesc ∷ TextEnvelopeDescr","name":"genesisVkeyDesc","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:genesisVkeyDesc"},{"display_html":"genesisVkeyDelegateDesc ∷ TextEnvelopeDescr","name":"genesisVkeyDelegateDesc","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:genesisVkeyDelegateDesc"},{"display_html":"stakeVkeyDesc ∷ TextEnvelopeDescr","name":"stakeVkeyDesc","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:stakeVkeyDesc"},{"display_html":"paymentVkeyDesc ∷ TextEnvelopeDescr","name":"paymentVkeyDesc","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:paymentVkeyDesc"},{"display_html":"decodeBech32 ∷ Text → Either Bech32DecodeError (HumanReadablePart, DataPart, ByteString)","name":"decodeBech32","module":"Cardano.CLI.EraBased.Run.Key","link":"Cardano-CLI-EraBased-Run-Key.html#v:decodeBech32"},{"display_html":"runLegacyKeyCmds ∷ LegacyKeyCmds → ExceptT KeyCmdError IO ()","name":"runLegacyKeyCmds","module":"Cardano.CLI.Legacy.Run.Key","link":"Cardano-CLI-Legacy-Run-Key.html#v:runLegacyKeyCmds"},{"display_html":"runGovernanceGenesisKeyDelegationCertificate ∷ ShelleyToBabbageEra era → VerificationKeyOrHashOrFile GenesisKey → VerificationKeyOrHashOrFile GenesisDelegateKey → VerificationKeyOrHashOrFile VrfKey → File () Out → ExceptT GovernanceCmdError IO ()","name":"runGovernanceGenesisKeyDelegationCertificate","module":"Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate","link":"Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html#v:runGovernanceGenesisKeyDelegationCertificate"},{"display_html":"data StakePoolCmds era","name":"StakePoolCmds StakePoolDeregistrationCertificateCmd StakePoolIdCmd StakePoolMetadataHashCmd StakePoolRegistrationCertificateCmd","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolCmds"},{"display_html":"renderStakePoolCmds ∷ StakePoolCmds era → Text","name":"renderStakePoolCmds","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#v:renderStakePoolCmds"},{"display_html":"data StakePoolDeregistrationCertificateCmdArgs era = StakePoolDeregistrationCertificateCmdArgs {}","name":"StakePoolDeregistrationCertificateCmdArgs StakePoolDeregistrationCertificateCmdArgs $sel:sbe:StakePoolDeregistrationCertificateCmdArgs $sel:outFile:StakePoolDeregistrationCertificateCmdArgs $sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgs $sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolDeregistrationCertificateCmdArgs"},{"display_html":"data StakePoolIdCmdArgs era = StakePoolIdCmdArgs {}","name":"StakePoolIdCmdArgs StakePoolIdCmdArgs $sel:mOutFile:StakePoolIdCmdArgs $sel:outputFormat:StakePoolIdCmdArgs $sel:poolVerificationKeyOrFile:StakePoolIdCmdArgs","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolIdCmdArgs"},{"display_html":"data StakePoolMetadataHashCmdArgs era = StakePoolMetadataHashCmdArgs {}","name":"StakePoolMetadataHashCmdArgs StakePoolMetadataHashCmdArgs $sel:mOutFile:StakePoolMetadataHashCmdArgs $sel:poolMetadataFile:StakePoolMetadataHashCmdArgs","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolMetadataHashCmdArgs"},{"display_html":"data StakePoolRegistrationCertificateCmdArgs era = StakePoolRegistrationCertificateCmdArgs {}","name":"StakePoolRegistrationCertificateCmdArgs StakePoolRegistrationCertificateCmdArgs $sel:network:StakePoolRegistrationCertificateCmdArgs $sel:sbe:StakePoolRegistrationCertificateCmdArgs $sel:outFile:StakePoolRegistrationCertificateCmdArgs $sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:poolPledge:StakePoolRegistrationCertificateCmdArgs $sel:poolCost:StakePoolRegistrationCertificateCmdArgs $sel:poolMargin:StakePoolRegistrationCertificateCmdArgs $sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgs $sel:relays:StakePoolRegistrationCertificateCmdArgs $sel:mMetadata:StakePoolRegistrationCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.StakePool","link":"Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolRegistrationCertificateCmdArgs"},{"display_html":"runStakePoolCmds ∷ StakePoolCmds era → ExceptT StakePoolCmdError IO ()","name":"runStakePoolCmds","module":"Cardano.CLI.EraBased.Run.StakePool","link":"Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolCmds"},{"display_html":"runStakePoolIdCmd ∷ StakePoolIdCmdArgs era → ExceptT StakePoolCmdError IO ()","name":"runStakePoolIdCmd","module":"Cardano.CLI.EraBased.Run.StakePool","link":"Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolIdCmd"},{"display_html":"runStakePoolMetadataHashCmd ∷ StakePoolMetadataHashCmdArgs era → ExceptT StakePoolCmdError IO ()","name":"runStakePoolMetadataHashCmd","module":"Cardano.CLI.EraBased.Run.StakePool","link":"Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolMetadataHashCmd"},{"display_html":"runStakePoolRegistrationCertificateCmd ∷ StakePoolRegistrationCertificateCmdArgs era → ExceptT StakePoolCmdError IO ()","name":"runStakePoolRegistrationCertificateCmd","module":"Cardano.CLI.EraBased.Run.StakePool","link":"Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolRegistrationCertificateCmd"},{"display_html":"runStakePoolDeregistrationCertificateCmd ∷ StakePoolDeregistrationCertificateCmdArgs era → ExceptT StakePoolCmdError IO ()","name":"runStakePoolDeregistrationCertificateCmd","module":"Cardano.CLI.EraBased.Run.StakePool","link":"Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolDeregistrationCertificateCmd"},{"display_html":"runLegacyStakePoolCmds ∷ LegacyStakePoolCmds → ExceptT StakePoolCmdError IO ()","name":"runLegacyStakePoolCmds","module":"Cardano.CLI.Legacy.Run.StakePool","link":"Cardano-CLI-Legacy-Run-StakePool.html#v:runLegacyStakePoolCmds"},{"display_html":"data StakeAddressCmds era","name":"StakeAddressCmds StakeAddressKeyGenCmd StakeAddressKeyHashCmd StakeAddressBuildCmd StakeAddressRegistrationCertificateCmd StakeAddressDeregistrationCertificateCmd StakeAddressStakeDelegationCertificateCmd StakeAddressStakeAndVoteDelegationCertificateCmd StakeAddressVoteDelegationCertificateCmd","module":"Cardano.CLI.EraBased.Commands.StakeAddress","link":"Cardano-CLI-EraBased-Commands-StakeAddress.html#t:StakeAddressCmds"},{"display_html":"renderStakeAddressCmds ∷ StakeAddressCmds era → Text","name":"renderStakeAddressCmds","module":"Cardano.CLI.EraBased.Commands.StakeAddress","link":"Cardano-CLI-EraBased-Commands-StakeAddress.html#v:renderStakeAddressCmds"},{"display_html":"runStakeAddressCmds ∷ StakeAddressCmds era → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressCmds","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressCmds"},{"display_html":"runStakeAddressBuildCmd ∷ StakeVerifier → NetworkId → Maybe (File () Out) → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressBuildCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressBuildCmd"},{"display_html":"runStakeAddressKeyGenCmd ∷ KeyOutputFormat → VerificationKeyFile Out → SigningKeyFile Out → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressKeyGenCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressKeyGenCmd"},{"display_html":"runStakeAddressKeyHashCmd ∷ VerificationKeyOrFile StakeKey → Maybe (File () Out) → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressKeyHashCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressKeyHashCmd"},{"display_html":"runStakeAddressStakeDelegationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → VerificationKeyOrHashOrFile StakePoolKey → File () Out → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressStakeDelegationCertificateCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressStakeDelegationCertificateCmd"},{"display_html":"runStakeAddressDeregistrationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → Maybe Lovelace → File () Out → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressDeregistrationCertificateCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressDeregistrationCertificateCmd"},{"display_html":"runStakeAddressRegistrationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → Maybe Lovelace → File () Out → ExceptT StakeAddressCmdError IO ()","name":"runStakeAddressRegistrationCertificateCmd","module":"Cardano.CLI.EraBased.Run.StakeAddress","link":"Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressRegistrationCertificateCmd"},{"display_html":"runLegacyStakeAddressCmds ∷ LegacyStakeAddressCmds → ExceptT StakeAddressCmdError IO ()","name":"runLegacyStakeAddressCmds","module":"Cardano.CLI.Legacy.Run.StakeAddress","link":"Cardano-CLI-Legacy-Run-StakeAddress.html#v:runLegacyStakeAddressCmds"},{"display_html":"data QueryCmds era","name":"QueryCmds QueryLeadershipScheduleCmd QueryProtocolParametersCmd QueryConstitutionHashCmd QueryTipCmd QueryStakePoolsCmd QueryStakeDistributionCmd QueryStakeAddressInfoCmd QueryUTxOCmd QueryLedgerStateCmd QueryProtocolStateCmd QueryStakeSnapshotCmd QueryKesPeriodInfoCmd QueryPoolStateCmd QueryTxMempoolCmd QuerySlotNumberCmd QueryConstitutionCmd QueryGovStateCmd QueryDRepStateCmd QueryDRepStakeDistributionCmd QueryCommitteeMembersStateCmd","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryCmds"},{"display_html":"data QueryCommitteeMembersStateCmdArgs era = QueryCommitteeMembersStateCmdArgs {}","name":"QueryCommitteeMembersStateCmdArgs QueryCommitteeMembersStateCmdArgs $sel:networkId:QueryCommitteeMembersStateCmdArgs $sel:eon:QueryCommitteeMembersStateCmdArgs $sel:mOutFile:QueryCommitteeMembersStateCmdArgs $sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgs $sel:consensusModeParams:QueryCommitteeMembersStateCmdArgs $sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgs $sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgs $sel:memberStatuses:QueryCommitteeMembersStateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryCommitteeMembersStateCmdArgs"},{"display_html":"data QueryLeadershipScheduleCmdArgs = QueryLeadershipScheduleCmdArgs {}","name":"QueryLeadershipScheduleCmdArgs QueryLeadershipScheduleCmdArgs $sel:networkId:QueryLeadershipScheduleCmdArgs $sel:mOutFile:QueryLeadershipScheduleCmdArgs $sel:nodeSocketPath:QueryLeadershipScheduleCmdArgs $sel:consensusModeParams:QueryLeadershipScheduleCmdArgs $sel:genesisFp:QueryLeadershipScheduleCmdArgs $sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgs $sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgs $sel:whichSchedule:QueryLeadershipScheduleCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryLeadershipScheduleCmdArgs"},{"display_html":"data QueryProtocolParametersCmdArgs = QueryProtocolParametersCmdArgs {}","name":"QueryProtocolParametersCmdArgs QueryProtocolParametersCmdArgs $sel:networkId:QueryProtocolParametersCmdArgs $sel:mOutFile:QueryProtocolParametersCmdArgs $sel:nodeSocketPath:QueryProtocolParametersCmdArgs $sel:consensusModeParams:QueryProtocolParametersCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryProtocolParametersCmdArgs"},{"display_html":"data QueryConstitutionHashCmdArgs = QueryConstitutionHashCmdArgs {}","name":"QueryConstitutionHashCmdArgs QueryConstitutionHashCmdArgs $sel:networkId:QueryConstitutionHashCmdArgs $sel:mOutFile:QueryConstitutionHashCmdArgs $sel:nodeSocketPath:QueryConstitutionHashCmdArgs $sel:consensusModeParams:QueryConstitutionHashCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryConstitutionHashCmdArgs"},{"display_html":"data QueryTipCmdArgs = QueryTipCmdArgs {}","name":"QueryTipCmdArgs QueryTipCmdArgs $sel:networkId:QueryTipCmdArgs $sel:mOutFile:QueryTipCmdArgs $sel:nodeSocketPath:QueryTipCmdArgs $sel:consensusModeParams:QueryTipCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryTipCmdArgs"},{"display_html":"data QueryStakePoolsCmdArgs = QueryStakePoolsCmdArgs {}","name":"QueryStakePoolsCmdArgs QueryStakePoolsCmdArgs $sel:networkId:QueryStakePoolsCmdArgs $sel:mOutFile:QueryStakePoolsCmdArgs $sel:nodeSocketPath:QueryStakePoolsCmdArgs $sel:consensusModeParams:QueryStakePoolsCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakePoolsCmdArgs"},{"display_html":"data QueryStakeDistributionCmdArgs = QueryStakeDistributionCmdArgs {}","name":"QueryStakeDistributionCmdArgs QueryStakeDistributionCmdArgs $sel:networkId:QueryStakeDistributionCmdArgs $sel:mOutFile:QueryStakeDistributionCmdArgs $sel:nodeSocketPath:QueryStakeDistributionCmdArgs $sel:consensusModeParams:QueryStakeDistributionCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeDistributionCmdArgs"},{"display_html":"data QueryStakeAddressInfoCmdArgs = QueryStakeAddressInfoCmdArgs {}","name":"QueryStakeAddressInfoCmdArgs QueryStakeAddressInfoCmdArgs $sel:networkId:QueryStakeAddressInfoCmdArgs $sel:addr:QueryStakeAddressInfoCmdArgs $sel:mOutFile:QueryStakeAddressInfoCmdArgs $sel:nodeSocketPath:QueryStakeAddressInfoCmdArgs $sel:consensusModeParams:QueryStakeAddressInfoCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeAddressInfoCmdArgs"},{"display_html":"data QueryUTxOCmdArgs = QueryUTxOCmdArgs {}","name":"QueryUTxOCmdArgs QueryUTxOCmdArgs $sel:networkId:QueryUTxOCmdArgs $sel:mOutFile:QueryUTxOCmdArgs $sel:nodeSocketPath:QueryUTxOCmdArgs $sel:consensusModeParams:QueryUTxOCmdArgs $sel:queryFilter:QueryUTxOCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryUTxOCmdArgs"},{"display_html":"data QueryLedgerStateCmdArgs = QueryLedgerStateCmdArgs {}","name":"QueryLedgerStateCmdArgs QueryLedgerStateCmdArgs $sel:networkId:QueryLedgerStateCmdArgs $sel:mOutFile:QueryLedgerStateCmdArgs $sel:nodeSocketPath:QueryLedgerStateCmdArgs $sel:consensusModeParams:QueryLedgerStateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryLedgerStateCmdArgs"},{"display_html":"data QueryProtocolStateCmdArgs = QueryProtocolStateCmdArgs {}","name":"QueryProtocolStateCmdArgs QueryProtocolStateCmdArgs $sel:networkId:QueryProtocolStateCmdArgs $sel:mOutFile:QueryProtocolStateCmdArgs $sel:nodeSocketPath:QueryProtocolStateCmdArgs $sel:consensusModeParams:QueryProtocolStateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryProtocolStateCmdArgs"},{"display_html":"data QueryStakeSnapshotCmdArgs = QueryStakeSnapshotCmdArgs {}","name":"QueryStakeSnapshotCmdArgs QueryStakeSnapshotCmdArgs $sel:networkId:QueryStakeSnapshotCmdArgs $sel:mOutFile:QueryStakeSnapshotCmdArgs $sel:nodeSocketPath:QueryStakeSnapshotCmdArgs $sel:consensusModeParams:QueryStakeSnapshotCmdArgs $sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeSnapshotCmdArgs"},{"display_html":"data QueryKesPeriodInfoCmdArgs = QueryKesPeriodInfoCmdArgs {}","name":"QueryKesPeriodInfoCmdArgs QueryKesPeriodInfoCmdArgs $sel:networkId:QueryKesPeriodInfoCmdArgs $sel:mOutFile:QueryKesPeriodInfoCmdArgs $sel:nodeSocketPath:QueryKesPeriodInfoCmdArgs $sel:consensusModeParams:QueryKesPeriodInfoCmdArgs $sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryKesPeriodInfoCmdArgs"},{"display_html":"data QueryPoolStateCmdArgs = QueryPoolStateCmdArgs {}","name":"QueryPoolStateCmdArgs QueryPoolStateCmdArgs $sel:networkId:QueryPoolStateCmdArgs $sel:nodeSocketPath:QueryPoolStateCmdArgs $sel:consensusModeParams:QueryPoolStateCmdArgs $sel:poolIds:QueryPoolStateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryPoolStateCmdArgs"},{"display_html":"data QueryTxMempoolCmdArgs = QueryTxMempoolCmdArgs {}","name":"QueryTxMempoolCmdArgs QueryTxMempoolCmdArgs $sel:networkId:QueryTxMempoolCmdArgs $sel:query:QueryTxMempoolCmdArgs $sel:mOutFile:QueryTxMempoolCmdArgs $sel:nodeSocketPath:QueryTxMempoolCmdArgs $sel:consensusModeParams:QueryTxMempoolCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryTxMempoolCmdArgs"},{"display_html":"data QuerySlotNumberCmdArgs = QuerySlotNumberCmdArgs {}","name":"QuerySlotNumberCmdArgs QuerySlotNumberCmdArgs $sel:utcTime:QuerySlotNumberCmdArgs $sel:networkId:QuerySlotNumberCmdArgs $sel:nodeSocketPath:QuerySlotNumberCmdArgs $sel:consensusModeParams:QuerySlotNumberCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QuerySlotNumberCmdArgs"},{"display_html":"data QueryNoArgCmdArgs era = QueryNoArgCmdArgs {}","name":"QueryNoArgCmdArgs QueryNoArgCmdArgs $sel:networkId:QueryNoArgCmdArgs $sel:eon:QueryNoArgCmdArgs $sel:mOutFile:QueryNoArgCmdArgs $sel:nodeSocketPath:QueryNoArgCmdArgs $sel:consensusModeParams:QueryNoArgCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryNoArgCmdArgs"},{"display_html":"data QueryDRepStateCmdArgs era = QueryDRepStateCmdArgs {}","name":"QueryDRepStateCmdArgs QueryDRepStateCmdArgs $sel:networkId:QueryDRepStateCmdArgs $sel:eon:QueryDRepStateCmdArgs $sel:mOutFile:QueryDRepStateCmdArgs $sel:nodeSocketPath:QueryDRepStateCmdArgs $sel:consensusModeParams:QueryDRepStateCmdArgs $sel:drepKeys:QueryDRepStateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryDRepStateCmdArgs"},{"display_html":"data QueryDRepStakeDistributionCmdArgs era = QueryDRepStakeDistributionCmdArgs {}","name":"QueryDRepStakeDistributionCmdArgs QueryDRepStakeDistributionCmdArgs $sel:networkId:QueryDRepStakeDistributionCmdArgs $sel:eon:QueryDRepStakeDistributionCmdArgs $sel:mOutFile:QueryDRepStakeDistributionCmdArgs $sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgs $sel:consensusModeParams:QueryDRepStakeDistributionCmdArgs $sel:drepKeys:QueryDRepStakeDistributionCmdArgs","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#t:QueryDRepStakeDistributionCmdArgs"},{"display_html":"renderQueryCmds ∷ QueryCmds era → Text","name":"renderQueryCmds","module":"Cardano.CLI.EraBased.Commands.Query","link":"Cardano-CLI-EraBased-Commands-Query.html#v:renderQueryCmds"},{"display_html":"data NodeCmds era","name":"NodeCmds NodeKeyGenColdCmd NodeKeyGenKESCmd NodeKeyGenVRFCmd NodeKeyHashVRFCmd NodeNewCounterCmd NodeIssueOpCertCmd","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeCmds"},{"display_html":"renderNodeCmds ∷ NodeCmds era → Text","name":"renderNodeCmds","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#v:renderNodeCmds"},{"display_html":"data NodeKeyGenColdCmdArgs = NodeKeyGenColdCmdArgs {}","name":"NodeKeyGenColdCmdArgs NodeKeyGenColdCmdArgs $sel:skeyFile:NodeKeyGenColdCmdArgs $sel:vkeyFile:NodeKeyGenColdCmdArgs $sel:keyOutputFormat:NodeKeyGenColdCmdArgs $sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenColdCmdArgs"},{"display_html":"data NodeKeyGenKESCmdArgs = NodeKeyGenKESCmdArgs {}","name":"NodeKeyGenKESCmdArgs NodeKeyGenKESCmdArgs $sel:skeyFile:NodeKeyGenKESCmdArgs $sel:vkeyFile:NodeKeyGenKESCmdArgs $sel:keyOutputFormat:NodeKeyGenKESCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenKESCmdArgs"},{"display_html":"data NodeKeyGenVRFCmdArgs = NodeKeyGenVRFCmdArgs {}","name":"NodeKeyGenVRFCmdArgs NodeKeyGenVRFCmdArgs $sel:skeyFile:NodeKeyGenVRFCmdArgs $sel:vkeyFile:NodeKeyGenVRFCmdArgs $sel:keyOutputFormat:NodeKeyGenVRFCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenVRFCmdArgs"},{"display_html":"data NodeKeyHashVRFCmdArgs = NodeKeyHashVRFCmdArgs {}","name":"NodeKeyHashVRFCmdArgs NodeKeyHashVRFCmdArgs $sel:mOutFile:NodeKeyHashVRFCmdArgs $sel:vkeySource:NodeKeyHashVRFCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyHashVRFCmdArgs"},{"display_html":"data NodeNewCounterCmdArgs = NodeNewCounterCmdArgs {}","name":"NodeNewCounterCmdArgs NodeNewCounterCmdArgs $sel:counter:NodeNewCounterCmdArgs $sel:mOutFile:NodeNewCounterCmdArgs $sel:coldVkeyFile:NodeNewCounterCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeNewCounterCmdArgs"},{"display_html":"data NodeIssueOpCertCmdArgs = NodeIssueOpCertCmdArgs {}","name":"NodeIssueOpCertCmdArgs NodeIssueOpCertCmdArgs $sel:kesPeriod:NodeIssueOpCertCmdArgs $sel:outFile:NodeIssueOpCertCmdArgs $sel:kesVkeySource:NodeIssueOpCertCmdArgs $sel:poolSkeyFile:NodeIssueOpCertCmdArgs $sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgs","module":"Cardano.CLI.EraBased.Commands.Node","link":"Cardano-CLI-EraBased-Commands-Node.html#t:NodeIssueOpCertCmdArgs"},{"display_html":"data LegacyNodeCmds","name":"LegacyNodeCmds LegacyNodeKeyGenColdCmd LegacyNodeKeyGenKESCmd LegacyNodeKeyGenVRFCmd LegacyNodeKeyHashVRFCmd LegacyNodeNewCounterCmd LegacyNodeIssueOpCertCmd","module":"Cardano.CLI.Legacy.Commands.Node","link":"Cardano-CLI-Legacy-Commands-Node.html#t:LegacyNodeCmds"},{"display_html":"renderLegacyNodeCmds ∷ LegacyNodeCmds → Text","name":"renderLegacyNodeCmds","module":"Cardano.CLI.Legacy.Commands.Node","link":"Cardano-CLI-Legacy-Commands-Node.html#v:renderLegacyNodeCmds"},{"display_html":"data LegacyCmds","name":"LegacyCmds LegacyAddressCmds LegacyGenesisCmds LegacyGovernanceCmds LegacyKeyCmds LegacyNodeCmds LegacyQueryCmds LegacyStakeAddressCmds LegacyStakePoolCmds LegacyTextViewCmds LegacyTransactionCmds","module":"Cardano.CLI.Legacy.Commands","link":"Cardano-CLI-Legacy-Commands.html#t:LegacyCmds"},{"display_html":"renderLegacyCommand ∷ LegacyCmds → Text","name":"renderLegacyCommand","module":"Cardano.CLI.Legacy.Commands","link":"Cardano-CLI-Legacy-Commands.html#v:renderLegacyCommand"},{"display_html":"runNodeCmds ∷ NodeCmds era → ExceptT NodeCmdError IO ()","name":"runNodeCmds","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeCmds"},{"display_html":"runNodeIssueOpCertCmd ∷ NodeIssueOpCertCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeIssueOpCertCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeIssueOpCertCmd"},{"display_html":"runNodeKeyGenColdCmd ∷ NodeKeyGenColdCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeKeyGenColdCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenColdCmd"},{"display_html":"runNodeKeyGenKesCmd ∷ NodeKeyGenKESCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeKeyGenKesCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenKesCmd"},{"display_html":"runNodeKeyGenVrfCmd ∷ NodeKeyGenVRFCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeKeyGenVrfCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenVrfCmd"},{"display_html":"runNodeKeyHashVrfCmd ∷ NodeKeyHashVRFCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeKeyHashVrfCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyHashVrfCmd"},{"display_html":"runNodeNewCounterCmd ∷ NodeNewCounterCmdArgs → ExceptT NodeCmdError IO ()","name":"runNodeNewCounterCmd","module":"Cardano.CLI.EraBased.Run.Node","link":"Cardano-CLI-EraBased-Run-Node.html#v:runNodeNewCounterCmd"},{"display_html":"runLegacyNodeCmds ∷ LegacyNodeCmds → ExceptT NodeCmdError IO ()","name":"runLegacyNodeCmds","module":"Cardano.CLI.Legacy.Run.Node","link":"Cardano-CLI-Legacy-Run-Node.html#v:runLegacyNodeCmds"},{"display_html":"runGenesisCmds ∷ GenesisCmds era → ExceptT GenesisCmdError IO ()","name":"runGenesisCmds","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCmds"},{"display_html":"runGenesisAddrCmd ∷ GenesisAddrCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisAddrCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisAddrCmd"},{"display_html":"runGenesisCreateCardanoCmd ∷ GenesisCreateCardanoCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisCreateCardanoCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateCardanoCmd"},{"display_html":"runGenesisCreateCmd ∷ GenesisCreateCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisCreateCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateCmd"},{"display_html":"runGenesisCreateStakedCmd ∷ GenesisCreateStakedCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisCreateStakedCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateStakedCmd"},{"display_html":"runGenesisHashFileCmd ∷ GenesisFile → ExceptT GenesisCmdError IO ()","name":"runGenesisHashFileCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisHashFileCmd"},{"display_html":"runGenesisKeyGenDelegateCmd ∷ GenesisKeyGenDelegateCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisKeyGenDelegateCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenDelegateCmd"},{"display_html":"runGenesisKeyGenGenesisCmd ∷ GenesisKeyGenGenesisCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisKeyGenGenesisCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenGenesisCmd"},{"display_html":"runGenesisKeyGenUTxOCmd ∷ GenesisKeyGenUTxOCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisKeyGenUTxOCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenUTxOCmd"},{"display_html":"runGenesisKeyHashCmd ∷ VerificationKeyFile In → ExceptT GenesisCmdError IO ()","name":"runGenesisKeyHashCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyHashCmd"},{"display_html":"runGenesisTxInCmd ∷ GenesisTxInCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisTxInCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisTxInCmd"},{"display_html":"runGenesisVerKeyCmd ∷ GenesisVerKeyCmdArgs → ExceptT GenesisCmdError IO ()","name":"runGenesisVerKeyCmd","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisVerKeyCmd"},{"display_html":"readAndDecodeShelleyGenesis ∷ FilePath → IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))","name":"readAndDecodeShelleyGenesis","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:readAndDecodeShelleyGenesis"},{"display_html":"readProtocolParameters ∷ ProtocolParamsFile → ExceptT ProtocolParamsError IO ProtocolParameters","name":"readProtocolParameters","module":"Cardano.CLI.EraBased.Run.Genesis","link":"Cardano-CLI-EraBased-Run-Genesis.html#v:readProtocolParameters"},{"display_html":"runLegacyGenesisCmds ∷ LegacyGenesisCmds → ExceptT GenesisCmdError IO ()","name":"runLegacyGenesisCmds","module":"Cardano.CLI.Legacy.Run.Genesis","link":"Cardano-CLI-Legacy-Run-Genesis.html#v:runLegacyGenesisCmds"},{"display_html":"data GovernanceDRepCmds era","name":"GovernanceDRepCmds GovernanceDRepKeyGenCmd GovernanceDRepIdCmd GovernanceDRepRegistrationCertificateCmd GovernanceDRepRetirementCertificateCmd GovernanceDRepMetadataHashCmd","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepCmds"},{"display_html":"renderGovernanceDRepCmds ∷ GovernanceDRepCmds era → Text","name":"renderGovernanceDRepCmds","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#v:renderGovernanceDRepCmds"},{"display_html":"data GovernanceDRepKeyGenCmdArgs era = GovernanceDRepKeyGenCmdArgs {}","name":"GovernanceDRepKeyGenCmdArgs GovernanceDRepKeyGenCmdArgs $sel:eon:GovernanceDRepKeyGenCmdArgs $sel:skeyFile:GovernanceDRepKeyGenCmdArgs $sel:vkeyFile:GovernanceDRepKeyGenCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepKeyGenCmdArgs"},{"display_html":"data GovernanceDRepIdCmdArgs era = GovernanceDRepIdCmdArgs {}","name":"GovernanceDRepIdCmdArgs GovernanceDRepIdCmdArgs $sel:eon:GovernanceDRepIdCmdArgs $sel:mOutFile:GovernanceDRepIdCmdArgs $sel:vkeySource:GovernanceDRepIdCmdArgs $sel:idOutputFormat:GovernanceDRepIdCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepIdCmdArgs"},{"display_html":"data GovernanceDRepRegistrationCertificateCmdArgs era = GovernanceDRepRegistrationCertificateCmdArgs {}","name":"GovernanceDRepRegistrationCertificateCmdArgs GovernanceDRepRegistrationCertificateCmdArgs $sel:deposit:GovernanceDRepRegistrationCertificateCmdArgs $sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgs $sel:eon:GovernanceDRepRegistrationCertificateCmdArgs $sel:outFile:GovernanceDRepRegistrationCertificateCmdArgs $sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepRegistrationCertificateCmdArgs"},{"display_html":"data GovernanceDRepRetirementCertificateCmdArgs era = GovernanceDRepRetirementCertificateCmdArgs {}","name":"GovernanceDRepRetirementCertificateCmdArgs GovernanceDRepRetirementCertificateCmdArgs $sel:deposit:GovernanceDRepRetirementCertificateCmdArgs $sel:eon:GovernanceDRepRetirementCertificateCmdArgs $sel:outFile:GovernanceDRepRetirementCertificateCmdArgs $sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepRetirementCertificateCmdArgs"},{"display_html":"data GovernanceDRepMetadataHashCmdArgs era = GovernanceDRepMetadataHashCmdArgs {}","name":"GovernanceDRepMetadataHashCmdArgs GovernanceDRepMetadataHashCmdArgs $sel:eon:GovernanceDRepMetadataHashCmdArgs $sel:mOutFile:GovernanceDRepMetadataHashCmdArgs $sel:metadataFile:GovernanceDRepMetadataHashCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.DRep","link":"Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepMetadataHashCmdArgs"},{"display_html":"data GovernanceActionCmds era","name":"GovernanceActionCmds GovernanceActionCreateConstitutionCmd GoveranceActionUpdateCommitteeCmd GovernanceActionCreateNoConfidenceCmd GovernanceActionProtocolParametersUpdateCmd GovernanceActionTreasuryWithdrawalCmd GovernanceActionInfoCmd GovernanceActionViewCmd","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCmds"},{"display_html":"data GoveranceActionUpdateCommitteeCmdArgs era = GoveranceActionUpdateCommitteeCmdArgs {}","name":"GoveranceActionUpdateCommitteeCmdArgs GoveranceActionUpdateCommitteeCmdArgs $sel:networkId:GoveranceActionUpdateCommitteeCmdArgs $sel:deposit:GoveranceActionUpdateCommitteeCmdArgs $sel:eon:GoveranceActionUpdateCommitteeCmdArgs $sel:outFile:GoveranceActionUpdateCommitteeCmdArgs $sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgs $sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgs $sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgs $sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs $sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs $sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgs $sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GoveranceActionUpdateCommitteeCmdArgs"},{"display_html":"data GovernanceActionCreateConstitutionCmdArgs era = GovernanceActionCreateConstitutionCmdArgs {}","name":"GovernanceActionCreateConstitutionCmdArgs GovernanceActionCreateConstitutionCmdArgs $sel:networkId:GovernanceActionCreateConstitutionCmdArgs $sel:deposit:GovernanceActionCreateConstitutionCmdArgs $sel:eon:GovernanceActionCreateConstitutionCmdArgs $sel:outFile:GovernanceActionCreateConstitutionCmdArgs $sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgs $sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgs $sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgs $sel:proposalHash:GovernanceActionCreateConstitutionCmdArgs $sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgs $sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCreateConstitutionCmdArgs"},{"display_html":"data GovernanceActionCreateNoConfidenceCmdArgs era = GovernanceActionCreateNoConfidenceCmdArgs {}","name":"GovernanceActionCreateNoConfidenceCmdArgs GovernanceActionCreateNoConfidenceCmdArgs $sel:networkId:GovernanceActionCreateNoConfidenceCmdArgs $sel:deposit:GovernanceActionCreateNoConfidenceCmdArgs $sel:eon:GovernanceActionCreateNoConfidenceCmdArgs $sel:outFile:GovernanceActionCreateNoConfidenceCmdArgs $sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgs $sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgs $sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgs $sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgs $sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCreateNoConfidenceCmdArgs"},{"display_html":"data GovernanceActionInfoCmdArgs era = GovernanceActionInfoCmdArgs {}","name":"GovernanceActionInfoCmdArgs GovernanceActionInfoCmdArgs $sel:networkId:GovernanceActionInfoCmdArgs $sel:deposit:GovernanceActionInfoCmdArgs $sel:eon:GovernanceActionInfoCmdArgs $sel:outFile:GovernanceActionInfoCmdArgs $sel:proposalUrl:GovernanceActionInfoCmdArgs $sel:proposalHash:GovernanceActionInfoCmdArgs $sel:returnStakeAddress:GovernanceActionInfoCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionInfoCmdArgs"},{"display_html":"data GovernanceActionViewCmdArgs era = GovernanceActionViewCmdArgs {}","name":"GovernanceActionViewCmdArgs GovernanceActionViewCmdArgs $sel:eon:GovernanceActionViewCmdArgs $sel:mOutFile:GovernanceActionViewCmdArgs $sel:actionFile:GovernanceActionViewCmdArgs $sel:outFormat:GovernanceActionViewCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionViewCmdArgs"},{"display_html":"data GovernanceActionProtocolParametersUpdateCmdArgs era = GovernanceActionProtocolParametersUpdateCmdArgs {}","name":"GovernanceActionProtocolParametersUpdateCmdArgs GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionProtocolParametersUpdateCmdArgs"},{"display_html":"data GovernanceActionTreasuryWithdrawalCmdArgs era = GovernanceActionTreasuryWithdrawalCmdArgs {}","name":"GovernanceActionTreasuryWithdrawalCmdArgs GovernanceActionTreasuryWithdrawalCmdArgs $sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgs $sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgs $sel:eon:GovernanceActionTreasuryWithdrawalCmdArgs $sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgs $sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgs $sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgs $sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgs $sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionTreasuryWithdrawalCmdArgs"},{"display_html":"data UpdateProtocolParametersConwayOnwards era = UpdateProtocolParametersConwayOnwards {}","name":"UpdateProtocolParametersConwayOnwards UpdateProtocolParametersConwayOnwards $sel:networkId:UpdateProtocolParametersConwayOnwards $sel:deposit:UpdateProtocolParametersConwayOnwards $sel:eon:UpdateProtocolParametersConwayOnwards $sel:proposalUrl:UpdateProtocolParametersConwayOnwards $sel:proposalHash:UpdateProtocolParametersConwayOnwards $sel:governanceActionId:UpdateProtocolParametersConwayOnwards $sel:returnAddr:UpdateProtocolParametersConwayOnwards","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:UpdateProtocolParametersConwayOnwards"},{"display_html":"data UpdateProtocolParametersPreConway era = UpdateProtocolParametersPreConway {}","name":"UpdateProtocolParametersPreConway UpdateProtocolParametersPreConway $sel:eon:UpdateProtocolParametersPreConway $sel:expiryEpoch:UpdateProtocolParametersPreConway $sel:genesisVerificationKeys:UpdateProtocolParametersPreConway","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:UpdateProtocolParametersPreConway"},{"display_html":"renderGovernanceActionCmds ∷ GovernanceActionCmds era → Text","name":"renderGovernanceActionCmds","module":"Cardano.CLI.EraBased.Commands.Governance.Actions","link":"Cardano-CLI-EraBased-Commands-Governance-Actions.html#v:renderGovernanceActionCmds"},{"display_html":"runGovernanceActionCmds ∷ GovernanceActionCmds era → ExceptT GovernanceActionsError IO ()","name":"runGovernanceActionCmds","module":"Cardano.CLI.EraBased.Run.Governance.Actions","link":"Cardano-CLI-EraBased-Run-Governance-Actions.html#v:runGovernanceActionCmds"},{"display_html":"data GovernanceActionsError","name":"GovernanceActionsError GovernanceActionsCmdConstitutionError GovernanceActionsCmdProposalError GovernanceActionsCmdReadFileError GovernanceActionsCmdReadTextEnvelopeFileError GovernanceActionsCmdWriteFileError GovernanceActionsValueUpdateProtocolParametersNotFound","module":"Cardano.CLI.EraBased.Run.Governance.Actions","link":"Cardano-CLI-EraBased-Run-Governance-Actions.html#t:GovernanceActionsError"},{"display_html":"data AddressCmds era","name":"AddressCmds AddressInfo AddressKeyGen AddressKeyHash AddressBuild","module":"Cardano.CLI.EraBased.Commands.Address","link":"Cardano-CLI-EraBased-Commands-Address.html#t:AddressCmds"},{"display_html":"renderAddressCmds ∷ AddressCmds era → Text","name":"renderAddressCmds","module":"Cardano.CLI.EraBased.Commands.Address","link":"Cardano-CLI-EraBased-Commands-Address.html#v:renderAddressCmds"},{"display_html":"runAddressCmds ∷ AddressCmds era → ExceptT AddressCmdError IO ()","name":"runAddressCmds","module":"Cardano.CLI.EraBased.Run.Address","link":"Cardano-CLI-EraBased-Run-Address.html#v:runAddressCmds"},{"display_html":"runAddressBuildCmd ∷ PaymentVerifier → Maybe StakeIdentifier → NetworkId → Maybe (File () Out) → ExceptT AddressCmdError IO ()","name":"runAddressBuildCmd","module":"Cardano.CLI.EraBased.Run.Address","link":"Cardano-CLI-EraBased-Run-Address.html#v:runAddressBuildCmd"},{"display_html":"runAddressKeyGenCmd ∷ KeyOutputFormat → AddressKeyType → VerificationKeyFile Out → SigningKeyFile Out → ExceptT AddressCmdError IO ()","name":"runAddressKeyGenCmd","module":"Cardano.CLI.EraBased.Run.Address","link":"Cardano-CLI-EraBased-Run-Address.html#v:runAddressKeyGenCmd"},{"display_html":"runAddressKeyHashCmd ∷ VerificationKeyTextOrFile → Maybe (File () Out) → ExceptT AddressCmdError IO ()","name":"runAddressKeyHashCmd","module":"Cardano.CLI.EraBased.Run.Address","link":"Cardano-CLI-EraBased-Run-Address.html#v:runAddressKeyHashCmd"},{"display_html":"runLegacyAddressCmds ∷ LegacyAddressCmds → ExceptT AddressCmdError IO ()","name":"runLegacyAddressCmds","module":"Cardano.CLI.Legacy.Run.Address","link":"Cardano-CLI-Legacy-Run-Address.html#v:runLegacyAddressCmds"},{"display_html":"data AnyVerificationKeySource","name":"AnyVerificationKeySource AnyVerificationKeySourceOfText AnyVerificationKeySourceOfFile","module":"Cardano.CLI.Types.Key.VerificationKey","link":"Cardano-CLI-Types-Key-VerificationKey.html#t:AnyVerificationKeySource"},{"display_html":"newtype AnyVerificationKeyText = AnyVerificationKeyText {}","name":"AnyVerificationKeyText AnyVerificationKeyText unAnyVerificationKeyText","module":"Cardano.CLI.Types.Key.VerificationKey","link":"Cardano-CLI-Types-Key-VerificationKey.html#t:AnyVerificationKeyText"},{"display_html":"defaultShelleyBasedEra ∷ EraInEon ShelleyBasedEra","name":"defaultShelleyBasedEra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:defaultShelleyBasedEra"},{"display_html":"defaultShelleyToBabbageEra ∷ EraInEon ShelleyToBabbageEra","name":"defaultShelleyToBabbageEra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:defaultShelleyToBabbageEra"},{"display_html":"command' ∷ String → String → Parser a → Mod CommandFields a","name":"command'","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:command-39-"},{"display_html":"prefixFlag ∷ Maybe String → String → String","name":"prefixFlag","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:prefixFlag"},{"display_html":"pNetworkId ∷ EnvCli → Parser NetworkId","name":"pNetworkId","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pNetworkId"},{"display_html":"toUnitIntervalOrErr ∷ Rational → UnitInterval","name":"toUnitIntervalOrErr","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:toUnitIntervalOrErr"},{"display_html":"pConsensusModeParams ∷ Parser ConsensusModeParams","name":"pConsensusModeParams","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pConsensusModeParams"},{"display_html":"defaultByronEpochSlots ∷ Word64","name":"defaultByronEpochSlots","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:defaultByronEpochSlots"},{"display_html":"pEpochSlots ∷ Parser EpochSlots","name":"pEpochSlots","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pEpochSlots"},{"display_html":"pSocketPath ∷ EnvCli → Parser SocketPath","name":"pSocketPath","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pSocketPath"},{"display_html":"readerFromParsecParser ∷ Parser a → ReadM a","name":"readerFromParsecParser","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:readerFromParsecParser"},{"display_html":"parseTxIn ∷ Parser TxIn","name":"parseTxIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseTxIn"},{"display_html":"parseTxId ∷ Parser TxId","name":"parseTxId","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseTxId"},{"display_html":"parseTxIx ∷ Parser TxIx","name":"parseTxIx","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseTxIx"},{"display_html":"decimal ∷ Parser Integer","name":"decimal","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:decimal"},{"display_html":"pStakeIdentifier ∷ Parser StakeIdentifier","name":"pStakeIdentifier","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeIdentifier"},{"display_html":"pStakeVerifier ∷ Parser StakeVerifier","name":"pStakeVerifier","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerifier"},{"display_html":"pStakeAddress ∷ Parser StakeAddress","name":"pStakeAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeAddress"},{"display_html":"parseStakeAddress ∷ Parser StakeAddress","name":"parseStakeAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseStakeAddress"},{"display_html":"pStakeVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakeKey)","name":"pStakeVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyOrFile"},{"display_html":"pScriptFor ∷ String → Maybe String → String → Parser ScriptFile","name":"pScriptFor","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScriptFor"},{"display_html":"pStakeVerificationKey ∷ Maybe String → Parser (VerificationKey StakeKey)","name":"pStakeVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKey"},{"display_html":"readVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → ReadM (VerificationKey keyrole)","name":"readVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:readVerificationKey"},{"display_html":"pStakeVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In)","name":"pStakeVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyFile"},{"display_html":"subParser ∷ String → ParserInfo a → Parser a","name":"subParser","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:subParser"},{"display_html":"subInfoParser ∷ String → InfoMod a → [Maybe (Parser a)] → Maybe (Parser a)","name":"subInfoParser","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:subInfoParser"},{"display_html":"pAnyShelleyBasedEra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pAnyShelleyBasedEra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnyShelleyBasedEra"},{"display_html":"pAnyShelleyToBabbageEra ∷ EnvCli → Parser (EraInEon ShelleyToBabbageEra)","name":"pAnyShelleyToBabbageEra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnyShelleyToBabbageEra"},{"display_html":"pShelleyBasedShelley ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedShelley","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedShelley"},{"display_html":"pShelleyBasedAllegra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedAllegra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedAllegra"},{"display_html":"pShelleyBasedMary ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedMary","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedMary"},{"display_html":"pShelleyBasedAlonzo ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedAlonzo","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedAlonzo"},{"display_html":"pShelleyBasedBabbage ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedBabbage","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedBabbage"},{"display_html":"pShelleyBasedConway ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pShelleyBasedConway","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedConway"},{"display_html":"pFileOutDirection ∷ String → String → Parser (File a Out)","name":"pFileOutDirection","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pFileOutDirection"},{"display_html":"pFileInDirection ∷ String → String → Parser (File a In)","name":"pFileInDirection","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pFileInDirection"},{"display_html":"parseLovelace ∷ Parser Lovelace","name":"parseLovelace","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseLovelace"},{"display_html":"pStakePoolVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakePoolKey)","name":"pStakePoolVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyOrFile"},{"display_html":"pStakePoolVerificationKey ∷ Maybe String → Parser (VerificationKey StakePoolKey)","name":"pStakePoolVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKey"},{"display_html":"pStakePoolVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In)","name":"pStakePoolVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyFile"},{"display_html":"pOutputFile ∷ Parser (File content Out)","name":"pOutputFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pOutputFile"},{"display_html":"pMIRPot ∷ Parser MIRPot","name":"pMIRPot","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMIRPot"},{"display_html":"pRewardAmt ∷ Parser Lovelace","name":"pRewardAmt","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRewardAmt"},{"display_html":"pTransferAmt ∷ Parser Lovelace","name":"pTransferAmt","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTransferAmt"},{"display_html":"pHexHash ∷ SerialiseAsRawBytes (Hash a) ⇒ AsType a → ReadM (Hash a)","name":"pHexHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pHexHash"},{"display_html":"pBech32KeyHash ∷ SerialiseAsBech32 (Hash a) ⇒ AsType a → ReadM (Hash a)","name":"pBech32KeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pBech32KeyHash"},{"display_html":"pGenesisDelegateVerificationKey ∷ Parser (VerificationKey GenesisDelegateKey)","name":"pGenesisDelegateVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKey"},{"display_html":"pColdVerificationKeyOrFile ∷ Maybe String → Parser ColdVerificationKeyOrFile","name":"pColdVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pColdVerificationKeyOrFile"},{"display_html":"pColdVerificationKeyFile ∷ Parser (VerificationKeyFile direction)","name":"pColdVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pColdVerificationKeyFile"},{"display_html":"pColdSigningKeyFile ∷ Parser (File (SigningKey keyrole) direction)","name":"pColdSigningKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pColdSigningKeyFile"},{"display_html":"pVerificationKeyFileOut ∷ Parser (File (VerificationKey keyrole) Out)","name":"pVerificationKeyFileOut","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyFileOut"},{"display_html":"pSigningKeyFileOut ∷ Parser (File (SigningKey keyrole) Out)","name":"pSigningKeyFileOut","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pSigningKeyFileOut"},{"display_html":"pOperatorCertIssueCounterFile ∷ Parser (File OpCertCounter direction)","name":"pOperatorCertIssueCounterFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pOperatorCertIssueCounterFile"},{"display_html":"pAddCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)","name":"pAddCommitteeColdVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyOrHashOrFile"},{"display_html":"pAddCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)","name":"pAddCommitteeColdVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyHash"},{"display_html":"pAddCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)","name":"pAddCommitteeColdVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyOrFile"},{"display_html":"pAddCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)","name":"pAddCommitteeColdVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKey"},{"display_html":"pAddCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)","name":"pAddCommitteeColdVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyFile"},{"display_html":"pRemoveCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)","name":"pRemoveCommitteeColdVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyOrHashOrFile"},{"display_html":"pRemoveCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)","name":"pRemoveCommitteeColdVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyHash"},{"display_html":"pRemoveCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)","name":"pRemoveCommitteeColdVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyOrFile"},{"display_html":"pRemoveCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)","name":"pRemoveCommitteeColdVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKey"},{"display_html":"pRemoveCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)","name":"pRemoveCommitteeColdVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyFile"},{"display_html":"pCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)","name":"pCommitteeColdVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyOrHashOrFile"},{"display_html":"pCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)","name":"pCommitteeColdVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyOrFile"},{"display_html":"pCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)","name":"pCommitteeColdVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKey"},{"display_html":"pCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)","name":"pCommitteeColdVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyHash"},{"display_html":"pCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)","name":"pCommitteeColdVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyFile"},{"display_html":"pVerificationKeyFileIn ∷ Parser (VerificationKeyFile In)","name":"pVerificationKeyFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyFileIn"},{"display_html":"pAnyVerificationKeyFileIn ∷ String → Parser (VerificationKeyFile In)","name":"pAnyVerificationKeyFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeyFileIn"},{"display_html":"pAnyVerificationKeyText ∷ String → Parser AnyVerificationKeyText","name":"pAnyVerificationKeyText","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeyText"},{"display_html":"pAnyVerificationKeySource ∷ String → Parser AnyVerificationKeySource","name":"pAnyVerificationKeySource","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeySource"},{"display_html":"pCommitteeHotKey ∷ Parser (VerificationKey CommitteeHotKey)","name":"pCommitteeHotKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKey"},{"display_html":"pCommitteeHotVerificationKey ∷ Parser (VerificationKey CommitteeHotKey)","name":"pCommitteeHotVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKey"},{"display_html":"deserialiseHotCCKeyFromHex ∷ String → Either String (VerificationKey CommitteeHotKey)","name":"deserialiseHotCCKeyFromHex","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:deserialiseHotCCKeyFromHex"},{"display_html":"pCommitteeHotKeyFile ∷ Parser (VerificationKeyFile In)","name":"pCommitteeHotKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyFile"},{"display_html":"pCommitteeHotVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pCommitteeHotVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKeyFile"},{"display_html":"pCommitteeHotKeyHash ∷ Maybe String → Parser (Hash CommitteeHotKey)","name":"pCommitteeHotKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyHash"},{"display_html":"pCommitteeHotKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeHotKey)","name":"pCommitteeHotKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyOrFile"},{"display_html":"pCommitteeHotKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey)","name":"pCommitteeHotKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyOrHashOrFile"},{"display_html":"pCommitteeHotVerificationKeyOrHashOrVerificationFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey)","name":"pCommitteeHotVerificationKeyOrHashOrVerificationFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKeyOrHashOrVerificationFile"},{"display_html":"catCommands ∷ [Parser a] → Maybe (Parser a)","name":"catCommands","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:catCommands"},{"display_html":"pConstitutionUrl ∷ Parser ConstitutionUrl","name":"pConstitutionUrl","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionUrl"},{"display_html":"pConstitutionHashSource ∷ Parser ConstitutionHashSource","name":"pConstitutionHashSource","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionHashSource"},{"display_html":"pConstitutionHash ∷ Parser (SafeHash StandardCrypto AnchorData)","name":"pConstitutionHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionHash"},{"display_html":"pUrl ∷ String → String → Parser Url","name":"pUrl","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pUrl"},{"display_html":"pGovActionDeposit ∷ Parser Lovelace","name":"pGovActionDeposit","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGovActionDeposit"},{"display_html":"pStakeVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakeKey)","name":"pStakeVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyOrHashOrFile"},{"display_html":"pStakeVerificationKeyHash ∷ Maybe String → Parser (Hash StakeKey)","name":"pStakeVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyHash"},{"display_html":"pStakePoolVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakePoolKey)","name":"pStakePoolVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyOrHashOrFile"},{"display_html":"pCombinedStakePoolVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile StakePoolKey)","name":"pCombinedStakePoolVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyOrHashOrFile"},{"display_html":"pCombinedStakePoolVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakePoolKey)","name":"pCombinedStakePoolVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyOrFile"},{"display_html":"pCombinedStakePoolVerificationKeyHash ∷ Parser (Hash StakePoolKey)","name":"pCombinedStakePoolVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyHash"},{"display_html":"pCombinedStakePoolVerificationKey ∷ Parser (VerificationKey StakePoolKey)","name":"pCombinedStakePoolVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKey"},{"display_html":"pCombinedStakePoolVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pCombinedStakePoolVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyFile"},{"display_html":"pCBORInFile ∷ Parser FilePath","name":"pCBORInFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCBORInFile"},{"display_html":"pPollQuestion ∷ Parser Text","name":"pPollQuestion","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollQuestion"},{"display_html":"pPollAnswer ∷ Parser Text","name":"pPollAnswer","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollAnswer"},{"display_html":"pPollAnswerIndex ∷ Parser Word","name":"pPollAnswerIndex","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollAnswerIndex"},{"display_html":"pPollFile ∷ Parser (File GovernancePoll In)","name":"pPollFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollFile"},{"display_html":"pPollTxFile ∷ Parser (TxFile In)","name":"pPollTxFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollTxFile"},{"display_html":"pPollNonce ∷ Parser Word","name":"pPollNonce","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPollNonce"},{"display_html":"pScriptWitnessFiles ∷ ∀ witctx. WitCtx witctx → BalanceTxExecUnits → String → Maybe String → String → Parser (ScriptWitnessFiles witctx)","name":"pScriptWitnessFiles","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScriptWitnessFiles"},{"display_html":"pExecutionUnits ∷ String → Parser ExecutionUnits","name":"pExecutionUnits","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pExecutionUnits"},{"display_html":"pScriptRedeemerOrFile ∷ String → Parser ScriptDataOrFile","name":"pScriptRedeemerOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScriptRedeemerOrFile"},{"display_html":"pScriptDatumOrFile ∷ String → WitCtx witctx → Parser (ScriptDatumOrFile witctx)","name":"pScriptDatumOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScriptDatumOrFile"},{"display_html":"pScriptDataOrFile ∷ String → String → String → Parser ScriptDataOrFile","name":"pScriptDataOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScriptDataOrFile"},{"display_html":"pPaymentVerifier ∷ Parser PaymentVerifier","name":"pPaymentVerifier","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerifier"},{"display_html":"pPaymentVerificationKeyTextOrFile ∷ Parser VerificationKeyTextOrFile","name":"pPaymentVerificationKeyTextOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyTextOrFile"},{"display_html":"pPaymentVerificationKeyText ∷ Parser Text","name":"pPaymentVerificationKeyText","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyText"},{"display_html":"pPaymentVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pPaymentVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyFile"},{"display_html":"pScript ∷ Parser ScriptFile","name":"pScript","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pScript"},{"display_html":"pReferenceTxIn ∷ String → String → Parser TxIn","name":"pReferenceTxIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pReferenceTxIn"},{"display_html":"pReadOnlyReferenceTxIn ∷ Parser TxIn","name":"pReadOnlyReferenceTxIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pReadOnlyReferenceTxIn"},{"display_html":"pAddressKeyType ∷ Parser AddressKeyType","name":"pAddressKeyType","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddressKeyType"},{"display_html":"pProtocolParamsFile ∷ Parser ProtocolParamsFile","name":"pProtocolParamsFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pProtocolParamsFile"},{"display_html":"pCalculatePlutusScriptCost ∷ Parser TxBuildOutputOptions","name":"pCalculatePlutusScriptCost","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCalculatePlutusScriptCost"},{"display_html":"pCertificateFile ∷ BalanceTxExecUnits → Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))","name":"pCertificateFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCertificateFile"},{"display_html":"pPoolMetadataFile ∷ Parser (StakePoolMetadataFile In)","name":"pPoolMetadataFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolMetadataFile"},{"display_html":"pTxMetadataJsonSchema ∷ Parser TxMetadataJsonSchema","name":"pTxMetadataJsonSchema","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxMetadataJsonSchema"},{"display_html":"convertTime ∷ String → UTCTime","name":"convertTime","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:convertTime"},{"display_html":"pMetadataFile ∷ Parser MetadataFile","name":"pMetadataFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMetadataFile"},{"display_html":"pWithdrawal ∷ BalanceTxExecUnits → Parser (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))","name":"pWithdrawal","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWithdrawal"},{"display_html":"pPlutusStakeReferenceScriptWitnessFiles ∷ String → BalanceTxExecUnits → Parser (ScriptWitnessFiles WitCtxStake)","name":"pPlutusStakeReferenceScriptWitnessFiles","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPlutusStakeReferenceScriptWitnessFiles"},{"display_html":"pPlutusScriptLanguage ∷ String → Parser AnyScriptLanguage","name":"pPlutusScriptLanguage","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPlutusScriptLanguage"},{"display_html":"pUpdateProposalFile ∷ Parser UpdateProposalFile","name":"pUpdateProposalFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pUpdateProposalFile"},{"display_html":"pRequiredSigner ∷ Parser RequiredSigner","name":"pRequiredSigner","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRequiredSigner"},{"display_html":"pVrfSigningKeyFile ∷ Parser (SigningKeyFile In)","name":"pVrfSigningKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfSigningKeyFile"},{"display_html":"pWhichLeadershipSchedule ∷ Parser EpochLeadershipSchedule","name":"pWhichLeadershipSchedule","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWhichLeadershipSchedule"},{"display_html":"pWitnessSigningData ∷ Parser WitnessSigningData","name":"pWitnessSigningData","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWitnessSigningData"},{"display_html":"pSigningKeyFileIn ∷ Parser (SigningKeyFile In)","name":"pSigningKeyFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pSigningKeyFileIn"},{"display_html":"pKesPeriod ∷ Parser KESPeriod","name":"pKesPeriod","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKesPeriod"},{"display_html":"pEpochNo ∷ String → Parser EpochNo","name":"pEpochNo","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pEpochNo"},{"display_html":"pEpochNoUpdateProp ∷ Parser EpochNo","name":"pEpochNoUpdateProp","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pEpochNoUpdateProp"},{"display_html":"pGenesisFile ∷ String → Parser GenesisFile","name":"pGenesisFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisFile"},{"display_html":"pOperationalCertificateFile ∷ Parser (File () direction)","name":"pOperationalCertificateFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pOperationalCertificateFile"},{"display_html":"pKeyOutputFormat ∷ Parser KeyOutputFormat","name":"pKeyOutputFormat","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKeyOutputFormat"},{"display_html":"pPoolIdOutputFormat ∷ Parser IdOutputFormat","name":"pPoolIdOutputFormat","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolIdOutputFormat"},{"display_html":"pTxViewOutputFormat ∷ Parser TxViewOutputFormat","name":"pTxViewOutputFormat","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxViewOutputFormat"},{"display_html":"pGovernanceActionViewOutputFormat ∷ Parser GovernanceActionViewOutputFormat","name":"pGovernanceActionViewOutputFormat","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGovernanceActionViewOutputFormat"},{"display_html":"pMaybeOutputFile ∷ Parser (Maybe (File content Out))","name":"pMaybeOutputFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaybeOutputFile"},{"display_html":"pVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKey keyrole)","name":"pVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKey"},{"display_html":"pVerificationKeyOrFileIn ∷ SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKeyOrFile keyrole)","name":"pVerificationKeyOrFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyOrFileIn"},{"display_html":"pExtendedVerificationKeyFileIn ∷ Parser (VerificationKeyFile In)","name":"pExtendedVerificationKeyFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pExtendedVerificationKeyFileIn"},{"display_html":"pGenesisVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pGenesisVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyFile"},{"display_html":"pGenesisVerificationKeyHash ∷ Parser (Hash GenesisKey)","name":"pGenesisVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyHash"},{"display_html":"pGenesisVerificationKey ∷ Parser (VerificationKey GenesisKey)","name":"pGenesisVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKey"},{"display_html":"pGenesisVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisKey)","name":"pGenesisVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyOrFile"},{"display_html":"pGenesisVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisKey)","name":"pGenesisVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyOrHashOrFile"},{"display_html":"pGenesisDelegateVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pGenesisDelegateVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyFile"},{"display_html":"pGenesisDelegateVerificationKeyHash ∷ Parser (Hash GenesisDelegateKey)","name":"pGenesisDelegateVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyHash"},{"display_html":"pGenesisDelegateVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisDelegateKey)","name":"pGenesisDelegateVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyOrFile"},{"display_html":"pGenesisDelegateVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)","name":"pGenesisDelegateVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyOrHashOrFile"},{"display_html":"pKesVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile KesKey)","name":"pKesVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKeyOrFile"},{"display_html":"pKesVerificationKey ∷ Parser (VerificationKey KesKey)","name":"pKesVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKey"},{"display_html":"pKesVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pKesVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKeyFile"},{"display_html":"pTxSubmitFile ∷ Parser FilePath","name":"pTxSubmitFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxSubmitFile"},{"display_html":"pTxIn ∷ BalanceTxExecUnits → Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))","name":"pTxIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxIn"},{"display_html":"pTxInCollateral ∷ Parser TxIn","name":"pTxInCollateral","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxInCollateral"},{"display_html":"pReturnCollateral ∷ Parser TxOutAnyEra","name":"pReturnCollateral","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pReturnCollateral"},{"display_html":"pTotalCollateral ∷ Parser Lovelace","name":"pTotalCollateral","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTotalCollateral"},{"display_html":"pWitnessOverride ∷ Parser Word","name":"pWitnessOverride","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWitnessOverride"},{"display_html":"pTxOut ∷ Parser TxOutAnyEra","name":"pTxOut","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxOut"},{"display_html":"pTxOutDatum ∷ Parser TxOutDatumAnyEra","name":"pTxOutDatum","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxOutDatum"},{"display_html":"pRefScriptFp ∷ Parser ReferenceScriptAnyEra","name":"pRefScriptFp","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRefScriptFp"},{"display_html":"pMintMultiAsset ∷ BalanceTxExecUnits → Parser (Value, [ScriptWitnessFiles WitCtxMint])","name":"pMintMultiAsset","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMintMultiAsset"},{"display_html":"pPolicyId ∷ Parser PolicyId","name":"pPolicyId","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPolicyId"},{"display_html":"pInvalidBefore ∷ Parser SlotNo","name":"pInvalidBefore","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pInvalidBefore"},{"display_html":"pLegacyInvalidHereafter ∷ Parser SlotNo","name":"pLegacyInvalidHereafter","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pLegacyInvalidHereafter"},{"display_html":"pInvalidHereafter ∷ CardanoEra era → Parser (TxValidityUpperBound era)","name":"pInvalidHereafter","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pInvalidHereafter"},{"display_html":"pTxFee ∷ Parser Lovelace","name":"pTxFee","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxFee"},{"display_html":"pWitnessFile ∷ Parser WitnessFile","name":"pWitnessFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWitnessFile"},{"display_html":"pTxBodyFileIn ∷ Parser (TxBodyFile In)","name":"pTxBodyFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxBodyFileIn"},{"display_html":"pTxBodyFileOut ∷ Parser (TxBodyFile Out)","name":"pTxBodyFileOut","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxBodyFileOut"},{"display_html":"pTxFileIn ∷ Parser (TxFile In)","name":"pTxFileIn","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxFileIn"},{"display_html":"pTxFileOut ∷ Parser (TxFile Out)","name":"pTxFileOut","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxFileOut"},{"display_html":"pInputTxOrTxBodyFile ∷ Parser InputTxBodyOrTxFile","name":"pInputTxOrTxBodyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pInputTxOrTxBodyFile"},{"display_html":"pTxInCount ∷ Parser TxInCount","name":"pTxInCount","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxInCount"},{"display_html":"pTxOutCount ∷ Parser TxOutCount","name":"pTxOutCount","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxOutCount"},{"display_html":"pTxShelleyWitnessCount ∷ Parser TxShelleyWitnessCount","name":"pTxShelleyWitnessCount","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxShelleyWitnessCount"},{"display_html":"pTxByronWitnessCount ∷ Parser TxByronWitnessCount","name":"pTxByronWitnessCount","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxByronWitnessCount"},{"display_html":"pQueryUTxOFilter ∷ Parser QueryUTxOFilter","name":"pQueryUTxOFilter","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pQueryUTxOFilter"},{"display_html":"pFilterByStakeAddress ∷ Parser StakeAddress","name":"pFilterByStakeAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pFilterByStakeAddress"},{"display_html":"pByronAddress ∷ Parser (Address ByronAddr)","name":"pByronAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pByronAddress"},{"display_html":"pAddress ∷ Parser Text","name":"pAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAddress"},{"display_html":"pStakePoolVerificationKeyHash ∷ Maybe String → Parser (Hash StakePoolKey)","name":"pStakePoolVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyHash"},{"display_html":"pVrfVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pVrfVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyFile"},{"display_html":"pVrfVerificationKeyHash ∷ Parser (Hash VrfKey)","name":"pVrfVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyHash"},{"display_html":"pVrfVerificationKey ∷ Parser (VerificationKey VrfKey)","name":"pVrfVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKey"},{"display_html":"pVrfVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile VrfKey)","name":"pVrfVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyOrFile"},{"display_html":"pVrfVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile VrfKey)","name":"pVrfVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyOrHashOrFile"},{"display_html":"pRewardAcctVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pRewardAcctVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKeyFile"},{"display_html":"pRewardAcctVerificationKey ∷ Parser (VerificationKey StakeKey)","name":"pRewardAcctVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKey"},{"display_html":"pRewardAcctVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey)","name":"pRewardAcctVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKeyOrFile"},{"display_html":"pPoolOwnerVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pPoolOwnerVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKeyFile"},{"display_html":"pPoolOwnerVerificationKey ∷ Parser (VerificationKey StakeKey)","name":"pPoolOwnerVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKey"},{"display_html":"pPoolOwnerVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey)","name":"pPoolOwnerVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKeyOrFile"},{"display_html":"pPoolPledge ∷ Parser Lovelace","name":"pPoolPledge","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolPledge"},{"display_html":"pPoolCost ∷ Parser Lovelace","name":"pPoolCost","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolCost"},{"display_html":"pRational ∷ String → String → Parser Rational","name":"pRational","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pRational"},{"display_html":"pPoolMargin ∷ Parser Rational","name":"pPoolMargin","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolMargin"},{"display_html":"pPoolRelay ∷ Parser StakePoolRelay","name":"pPoolRelay","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolRelay"},{"display_html":"pMultiHostName ∷ Parser StakePoolRelay","name":"pMultiHostName","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMultiHostName"},{"display_html":"pSingleHostName ∷ Parser StakePoolRelay","name":"pSingleHostName","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pSingleHostName"},{"display_html":"pSingleHostAddress ∷ Parser StakePoolRelay","name":"pSingleHostAddress","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pSingleHostAddress"},{"display_html":"pIpV4 ∷ Parser IPv4","name":"pIpV4","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pIpV4"},{"display_html":"pIpV6 ∷ Parser IPv6","name":"pIpV6","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pIpV6"},{"display_html":"pPort ∷ Parser PortNumber","name":"pPort","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPort"},{"display_html":"pStakePoolMetadataReference ∷ Parser (Maybe StakePoolMetadataReference)","name":"pStakePoolMetadataReference","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataReference"},{"display_html":"pStakePoolMetadataUrl ∷ Parser Text","name":"pStakePoolMetadataUrl","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataUrl"},{"display_html":"pStakePoolMetadataHash ∷ Parser (Hash StakePoolMetadata)","name":"pStakePoolMetadataHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataHash"},{"display_html":"pStakePoolRegistrationParserRequirements ∷ EnvCli → Parser StakePoolRegistrationParserRequirements","name":"pStakePoolRegistrationParserRequirements","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolRegistrationParserRequirements"},{"display_html":"pProtocolParametersUpdate ∷ Parser ProtocolParametersUpdate","name":"pProtocolParametersUpdate","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pProtocolParametersUpdate"},{"display_html":"pCostModels ∷ Parser FilePath","name":"pCostModels","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCostModels"},{"display_html":"pMinFeePerByteFactor ∷ Parser Lovelace","name":"pMinFeePerByteFactor","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMinFeePerByteFactor"},{"display_html":"pMinFeeConstantFactor ∷ Parser Lovelace","name":"pMinFeeConstantFactor","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMinFeeConstantFactor"},{"display_html":"pMinUTxOValue ∷ Parser Lovelace","name":"pMinUTxOValue","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMinUTxOValue"},{"display_html":"pMinPoolCost ∷ Parser Lovelace","name":"pMinPoolCost","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMinPoolCost"},{"display_html":"pMaxBodySize ∷ Parser Natural","name":"pMaxBodySize","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxBodySize"},{"display_html":"pMaxTransactionSize ∷ Parser Natural","name":"pMaxTransactionSize","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxTransactionSize"},{"display_html":"pMaxBlockHeaderSize ∷ Parser Natural","name":"pMaxBlockHeaderSize","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxBlockHeaderSize"},{"display_html":"pKeyRegistDeposit ∷ Parser Lovelace","name":"pKeyRegistDeposit","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pKeyRegistDeposit"},{"display_html":"pDrepDeposit ∷ Parser Lovelace","name":"pDrepDeposit","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDrepDeposit"},{"display_html":"pPoolDeposit ∷ Parser Lovelace","name":"pPoolDeposit","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolDeposit"},{"display_html":"pEpochBoundRetirement ∷ Parser EpochNo","name":"pEpochBoundRetirement","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pEpochBoundRetirement"},{"display_html":"pNumberOfPools ∷ Parser Natural","name":"pNumberOfPools","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pNumberOfPools"},{"display_html":"pPoolInfluence ∷ Parser Rational","name":"pPoolInfluence","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolInfluence"},{"display_html":"pTreasuryExpansion ∷ Parser Rational","name":"pTreasuryExpansion","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTreasuryExpansion"},{"display_html":"pMonetaryExpansion ∷ Parser Rational","name":"pMonetaryExpansion","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMonetaryExpansion"},{"display_html":"pDecentralParam ∷ Parser Rational","name":"pDecentralParam","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDecentralParam"},{"display_html":"pExtraEntropy ∷ Parser (Maybe PraosNonce)","name":"pExtraEntropy","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pExtraEntropy"},{"display_html":"pUTxOCostPerByte ∷ Parser Lovelace","name":"pUTxOCostPerByte","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pUTxOCostPerByte"},{"display_html":"pExecutionUnitPrices ∷ Parser ExecutionUnitPrices","name":"pExecutionUnitPrices","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pExecutionUnitPrices"},{"display_html":"pMaxTxExecutionUnits ∷ Parser ExecutionUnits","name":"pMaxTxExecutionUnits","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxTxExecutionUnits"},{"display_html":"pMaxBlockExecutionUnits ∷ Parser ExecutionUnits","name":"pMaxBlockExecutionUnits","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxBlockExecutionUnits"},{"display_html":"pMaxValueSize ∷ Parser Natural","name":"pMaxValueSize","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxValueSize"},{"display_html":"pCollateralPercent ∷ Parser Natural","name":"pCollateralPercent","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCollateralPercent"},{"display_html":"pMaxCollateralInputs ∷ Parser Natural","name":"pMaxCollateralInputs","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMaxCollateralInputs"},{"display_html":"pProtocolVersion ∷ Parser (Natural, Natural)","name":"pProtocolVersion","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pProtocolVersion"},{"display_html":"pPoolVotingThresholds ∷ Parser PoolVotingThresholds","name":"pPoolVotingThresholds","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPoolVotingThresholds"},{"display_html":"pDRepVotingThresholds ∷ Parser DRepVotingThresholds","name":"pDRepVotingThresholds","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVotingThresholds"},{"display_html":"pMinCommitteeSize ∷ Parser Natural","name":"pMinCommitteeSize","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pMinCommitteeSize"},{"display_html":"pCommitteeTermLength ∷ Parser Natural","name":"pCommitteeTermLength","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeTermLength"},{"display_html":"pGovActionLifetime ∷ Parser EpochNo","name":"pGovActionLifetime","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGovActionLifetime"},{"display_html":"pDRepDeposit ∷ Parser Lovelace","name":"pDRepDeposit","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepDeposit"},{"display_html":"pDRepActivity ∷ Parser EpochNo","name":"pDRepActivity","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepActivity"},{"display_html":"parseTxOutAnyEra ∷ Parser (TxOutDatumAnyEra → ReferenceScriptAnyEra → TxOutAnyEra)","name":"parseTxOutAnyEra","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:parseTxOutAnyEra"},{"display_html":"pVoteChoice ∷ Parser Vote","name":"pVoteChoice","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVoteChoice"},{"display_html":"pVoterType ∷ Parser VType","name":"pVoterType","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVoterType"},{"display_html":"pVotingCredential ∷ Parser (VerificationKeyOrFile StakePoolKey)","name":"pVotingCredential","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVotingCredential"},{"display_html":"pVoteDelegationTarget ∷ Parser VoteDelegationTarget","name":"pVoteDelegationTarget","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVoteDelegationTarget"},{"display_html":"pAlwaysAbstain ∷ Parser ()","name":"pAlwaysAbstain","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAlwaysAbstain"},{"display_html":"pVoteAnchor ∷ Parser (VoteUrl, SafeHash StandardCrypto AnchorData)","name":"pVoteAnchor","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVoteAnchor"},{"display_html":"pVoteAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData)","name":"pVoteAnchorDataHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pVoteAnchorDataHash"},{"display_html":"pAlwaysNoConfidence ∷ Parser ()","name":"pAlwaysNoConfidence","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAlwaysNoConfidence"},{"display_html":"pDRepHashSource ∷ Parser DRepHashSource","name":"pDRepHashSource","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepHashSource"},{"display_html":"pDRepScriptHash ∷ Parser ScriptHash","name":"pDRepScriptHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepScriptHash"},{"display_html":"pDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey)","name":"pDRepVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyOrHashOrFile"},{"display_html":"pCombinedDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey)","name":"pCombinedDRepVerificationKeyOrHashOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyOrHashOrFile"},{"display_html":"pCombinedDRepVerificationKeyHash ∷ Parser (Hash DRepKey)","name":"pCombinedDRepVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyHash"},{"display_html":"pCombinedDRepVerificationKey ∷ Parser (VerificationKey DRepKey)","name":"pCombinedDRepVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKey"},{"display_html":"pCombinedDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey)","name":"pCombinedDRepVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyOrFile"},{"display_html":"pCombinedDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pCombinedDRepVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyFile"},{"display_html":"pDRepVerificationKeyHash ∷ Parser (Hash DRepKey)","name":"pDRepVerificationKeyHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyHash"},{"display_html":"pDRepVerificationKey ∷ Parser (VerificationKey DRepKey)","name":"pDRepVerificationKey","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKey"},{"display_html":"pDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey)","name":"pDRepVerificationKeyOrFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyOrFile"},{"display_html":"pDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In)","name":"pDRepVerificationKeyFile","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyFile"},{"display_html":"pAnchorUrl ∷ Parser ProposalUrl","name":"pAnchorUrl","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnchorUrl"},{"display_html":"pAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData)","name":"pAnchorDataHash","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pAnchorDataHash"},{"display_html":"pPreviousGovernanceAction ∷ Parser (Maybe (TxId, Word32))","name":"pPreviousGovernanceAction","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pPreviousGovernanceAction"},{"display_html":"pGovernanceActionId ∷ Parser (TxId, Word32)","name":"pGovernanceActionId","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pGovernanceActionId"},{"display_html":"pWord32 ∷ String → String → Parser Word32","name":"pWord32","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pWord32"},{"display_html":"pTxId ∷ String → String → Parser TxId","name":"pTxId","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pTxId"},{"display_html":"pFeatured ∷ Eon eon ⇒ ToCardanoEra peon ⇒ peon era → Parser a → Parser (Maybe (Featured eon era a))","name":"pFeatured","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:pFeatured"},{"display_html":"hiddenSubParser ∷ String → ParserInfo a → Parser a","name":"hiddenSubParser","module":"Cardano.CLI.EraBased.Options.Common","link":"Cardano-CLI-EraBased-Options-Common.html#v:hiddenSubParser"},{"display_html":"pKeyCmds ∷ Parser LegacyKeyCmds","name":"pKeyCmds","module":"Cardano.CLI.Legacy.Options.Key","link":"Cardano-CLI-Legacy-Options-Key.html#v:pKeyCmds"},{"display_html":"parseLegacyCmds ∷ EnvCli → Parser LegacyCmds","name":"parseLegacyCmds","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:parseLegacyCmds"},{"display_html":"module Cardano.CLI.Legacy.Commands","name":"","module":"Cardano.CLI.Legacy.Options","link":""},{"display_html":"parseTxIn ∷ Parser TxIn","name":"parseTxIn","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:parseTxIn"},{"display_html":"pLegacyCardanoEra ∷ EnvCli → Parser AnyCardanoEra","name":"pLegacyCardanoEra","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:pLegacyCardanoEra"},{"display_html":"pLegacyShelleyBasedEra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)","name":"pLegacyShelleyBasedEra","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:pLegacyShelleyBasedEra"},{"display_html":"pKeyRegistDeposit ∷ Parser Lovelace","name":"pKeyRegistDeposit","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:pKeyRegistDeposit"},{"display_html":"pStakePoolRegistrationParserRequirements ∷ EnvCli → Parser StakePoolRegistrationParserRequirements","name":"pStakePoolRegistrationParserRequirements","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:pStakePoolRegistrationParserRequirements"},{"display_html":"pStakePoolVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakePoolKey)","name":"pStakePoolVerificationKeyOrHashOrFile","module":"Cardano.CLI.Legacy.Options","link":"Cardano-CLI-Legacy-Options.html#v:pStakePoolVerificationKeyOrHashOrFile"},{"display_html":"pTransactionCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (TransactionCmds era))","name":"pTransactionCmds","module":"Cardano.CLI.EraBased.Options.Transaction","link":"Cardano-CLI-EraBased-Options-Transaction.html#v:pTransactionCmds"},{"display_html":"pTextViewCmds ∷ Maybe (Parser (TextViewCmds era))","name":"pTextViewCmds","module":"Cardano.CLI.EraBased.Options.TextView","link":"Cardano-CLI-EraBased-Options-TextView.html#v:pTextViewCmds"},{"display_html":"pStakePoolCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (StakePoolCmds era))","name":"pStakePoolCmds","module":"Cardano.CLI.EraBased.Options.StakePool","link":"Cardano-CLI-EraBased-Options-StakePool.html#v:pStakePoolCmds"},{"display_html":"pStakeAddressCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (StakeAddressCmds era))","name":"pStakeAddressCmds","module":"Cardano.CLI.EraBased.Options.StakeAddress","link":"Cardano-CLI-EraBased-Options-StakeAddress.html#v:pStakeAddressCmds"},{"display_html":"pQueryCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (QueryCmds era))","name":"pQueryCmds","module":"Cardano.CLI.EraBased.Options.Query","link":"Cardano-CLI-EraBased-Options-Query.html#v:pQueryCmds"},{"display_html":"pNodeCmds ∷ Maybe (Parser (NodeCmds era))","name":"pNodeCmds","module":"Cardano.CLI.EraBased.Options.Node","link":"Cardano-CLI-EraBased-Options-Node.html#v:pNodeCmds"},{"display_html":"pKeyCmds ∷ Maybe (Parser (KeyCmds era))","name":"pKeyCmds","module":"Cardano.CLI.EraBased.Options.Key","link":"Cardano-CLI-EraBased-Options-Key.html#v:pKeyCmds"},{"display_html":"pGovernanceVoteCmds ∷ CardanoEra era → Maybe (Parser (GovernanceVoteCmds era))","name":"pGovernanceVoteCmds","module":"Cardano.CLI.EraBased.Options.Governance.Vote","link":"Cardano-CLI-EraBased-Options-Governance-Vote.html#v:pGovernanceVoteCmds"},{"display_html":"pGovernancePollCmds ∷ CardanoEra era → Maybe (Parser (GovernancePollCmds era))","name":"pGovernancePollCmds","module":"Cardano.CLI.EraBased.Options.Governance.Poll","link":"Cardano-CLI-EraBased-Options-Governance-Poll.html#v:pGovernancePollCmds"},{"display_html":"pGovernanceHashCmds ∷ CardanoEra era → Maybe (Parser (GovernanceHashCmds era))","name":"pGovernanceHashCmds","module":"Cardano.CLI.EraBased.Options.Governance.Hash","link":"Cardano-CLI-EraBased-Options-Governance-Hash.html#v:pGovernanceHashCmds"},{"display_html":"pGovernanceDRepCmds ∷ CardanoEra era → Maybe (Parser (GovernanceDRepCmds era))","name":"pGovernanceDRepCmds","module":"Cardano.CLI.EraBased.Options.Governance.DRep","link":"Cardano-CLI-EraBased-Options-Governance-DRep.html#v:pGovernanceDRepCmds"},{"display_html":"pGovernanceActionCmds ∷ CardanoEra era → Maybe (Parser (GovernanceActionCmds era))","name":"pGovernanceActionCmds","module":"Cardano.CLI.EraBased.Options.Governance.Actions","link":"Cardano-CLI-EraBased-Options-Governance-Actions.html#v:pGovernanceActionCmds"},{"display_html":"pGenesisCmds ∷ EnvCli → Maybe (Parser (GenesisCmds era))","name":"pGenesisCmds","module":"Cardano.CLI.EraBased.Options.Genesis","link":"Cardano-CLI-EraBased-Options-Genesis.html#v:pGenesisCmds"},{"display_html":"pAddressCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (AddressCmds era))","name":"pAddressCmds","module":"Cardano.CLI.EraBased.Options.Address","link":"Cardano-CLI-EraBased-Options-Address.html#v:pAddressCmds"},{"display_html":"data GovernanceCommitteeCmds era","name":"GovernanceCommitteeCmds GovernanceCommitteeKeyGenColdCmd GovernanceCommitteeKeyGenHotCmd GovernanceCommitteeKeyHashCmd GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd GovernanceCommitteeCreateColdKeyResignationCertificateCmd","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCmds"},{"display_html":"data GovernanceCommitteeKeyGenColdCmdArgs era = GovernanceCommitteeKeyGenColdCmdArgs {}","name":"GovernanceCommitteeKeyGenColdCmdArgs GovernanceCommitteeKeyGenColdCmdArgs $sel:eon:GovernanceCommitteeKeyGenColdCmdArgs $sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs $sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyGenColdCmdArgs"},{"display_html":"data GovernanceCommitteeKeyGenHotCmdArgs era = GovernanceCommitteeKeyGenHotCmdArgs {}","name":"GovernanceCommitteeKeyGenHotCmdArgs GovernanceCommitteeKeyGenHotCmdArgs $sel:eon:GovernanceCommitteeKeyGenHotCmdArgs $sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs $sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyGenHotCmdArgs"},{"display_html":"data GovernanceCommitteeKeyHashCmdArgs era = GovernanceCommitteeKeyHashCmdArgs {}","name":"GovernanceCommitteeKeyHashCmdArgs GovernanceCommitteeKeyHashCmdArgs $sel:eon:GovernanceCommitteeKeyHashCmdArgs $sel:vkeySource:GovernanceCommitteeKeyHashCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyHashCmdArgs"},{"display_html":"data GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era = GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs {}","name":"GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs"},{"display_html":"data GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era = GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs {}","name":"GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs"},{"display_html":"renderGovernanceCommitteeCmds ∷ GovernanceCommitteeCmds era → Text","name":"renderGovernanceCommitteeCmds","module":"Cardano.CLI.EraBased.Commands.Governance.Committee","link":"Cardano-CLI-EraBased-Commands-Governance-Committee.html#v:renderGovernanceCommitteeCmds"},{"display_html":"runGovernanceCommitteeCmds ∷ GovernanceCommitteeCmds era → ExceptT GovernanceCommitteeError IO ()","name":"runGovernanceCommitteeCmds","module":"Cardano.CLI.EraBased.Run.Governance.Committee","link":"Cardano-CLI-EraBased-Run-Governance-Committee.html#v:runGovernanceCommitteeCmds"},{"display_html":"data GovernanceCommitteeError","name":"GovernanceCommitteeError GovernanceCommitteeCmdKeyDecodeError GovernanceCommitteeCmdKeyReadError GovernanceCommitteeCmdTextEnvReadFileError GovernanceCommitteeCmdTextEnvWriteError GovernanceCommitteeCmdWriteFileError","module":"Cardano.CLI.EraBased.Run.Governance.Committee","link":"Cardano-CLI-EraBased-Run-Governance-Committee.html#t:GovernanceCommitteeError"},{"display_html":"pGovernanceCommitteeCmds ∷ CardanoEra era → Maybe (Parser (GovernanceCommitteeCmds era))","name":"pGovernanceCommitteeCmds","module":"Cardano.CLI.EraBased.Options.Governance.Committee","link":"Cardano-CLI-EraBased-Options-Governance-Committee.html#v:pGovernanceCommitteeCmds"},{"display_html":"data GovernanceCmds era","name":"GovernanceCmds GovernanceActionCmds GovernanceCommitteeCmds GovernanceDRepCmds GovernanceHashCmds GovernancePollCmds GovernanceVoteCmds GovernanceCreateMirCertificateStakeAddressesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateTransferToReservesCmd GovernanceGenesisKeyDelegationCertificate","module":"Cardano.CLI.EraBased.Commands.Governance","link":"Cardano-CLI-EraBased-Commands-Governance.html#t:GovernanceCmds"},{"display_html":"renderGovernanceCmds ∷ GovernanceCmds era → Text","name":"renderGovernanceCmds","module":"Cardano.CLI.EraBased.Commands.Governance","link":"Cardano-CLI-EraBased-Commands-Governance.html#v:renderGovernanceCmds"},{"display_html":"data GovernanceCmds era","name":"GovernanceCmds GovernanceActionCmds GovernanceCommitteeCmds GovernanceDRepCmds GovernanceHashCmds GovernancePollCmds GovernanceVoteCmds GovernanceCreateMirCertificateStakeAddressesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateTransferToReservesCmd GovernanceGenesisKeyDelegationCertificate","module":"Cardano.CLI.EraBased.Options.Governance","link":"Cardano-CLI-EraBased-Options-Governance.html#t:GovernanceCmds"},{"display_html":"renderGovernanceCmds ∷ GovernanceCmds era → Text","name":"renderGovernanceCmds","module":"Cardano.CLI.EraBased.Options.Governance","link":"Cardano-CLI-EraBased-Options-Governance.html#v:renderGovernanceCmds"},{"display_html":"pGovernanceCmds ∷ CardanoEra era → Maybe (Parser (GovernanceCmds era))","name":"pGovernanceCmds","module":"Cardano.CLI.EraBased.Options.Governance","link":"Cardano-CLI-EraBased-Options-Governance.html#v:pGovernanceCmds"},{"display_html":"data AnyEraCommand where","name":"AnyEraCommand AnyEraCommandOf","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#t:AnyEraCommand"},{"display_html":"data Cmds era","name":"Cmds NodeCmds AddressCmds GenesisCmds GovernanceCmds KeyCmds QueryCmds StakeAddressCmds StakePoolCmds TextViewCmds TransactionCmds","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#t:Cmds"},{"display_html":"renderAnyEraCommand ∷ AnyEraCommand → Text","name":"renderAnyEraCommand","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#v:renderAnyEraCommand"},{"display_html":"renderCmds ∷ Cmds era → Text","name":"renderCmds","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#v:renderCmds"},{"display_html":"pAnyEraCommand ∷ EnvCli → Parser AnyEraCommand","name":"pAnyEraCommand","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#v:pAnyEraCommand"},{"display_html":"pCmds ∷ ShelleyBasedEra era → EnvCli → Parser (Cmds era)","name":"pCmds","module":"Cardano.CLI.EraBased.Commands","link":"Cardano-CLI-EraBased-Commands.html#v:pCmds"},{"display_html":"data PlutusScriptCostError","name":"PlutusScriptCostError","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#t:PlutusScriptCostError"},{"display_html":"data QueryKesPeriodInfoOutput = QueryKesPeriodInfoOutput {}","name":"QueryKesPeriodInfoOutput QueryKesPeriodInfoOutput $sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutput $sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutput $sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutput $sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutput $sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutput $sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutput","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#t:QueryKesPeriodInfoOutput"},{"display_html":"data QueryTipLocalState mode = QueryTipLocalState {}","name":"QueryTipLocalState QueryTipLocalState $sel:era:QueryTipLocalState $sel:mSystemStart:QueryTipLocalState $sel:eraHistory:QueryTipLocalState $sel:mChainTip:QueryTipLocalState","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#t:QueryTipLocalState"},{"display_html":"data QueryTipLocalStateOutput = QueryTipLocalStateOutput {}","name":"QueryTipLocalStateOutput QueryTipLocalStateOutput $sel:localStateChainTip:QueryTipLocalStateOutput $sel:mEra:QueryTipLocalStateOutput $sel:mEpoch:QueryTipLocalStateOutput $sel:mSlotInEpoch:QueryTipLocalStateOutput $sel:mSlotsToEpochEnd:QueryTipLocalStateOutput $sel:mSyncProgress:QueryTipLocalStateOutput","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#t:QueryTipLocalStateOutput"},{"display_html":"data ScriptCostOutput = ScriptCostOutput {}","name":"ScriptCostOutput ScriptCostOutput $sel:scScriptHash:ScriptCostOutput $sel:scExecutionUnits:ScriptCostOutput $sel:scAda:ScriptCostOutput","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#t:ScriptCostOutput"},{"display_html":"createOpCertIntervalInfo ∷ CurrentKesPeriod → OpCertStartingKesPeriod → OpCertEndingKesPeriod → Maybe SlotsTillKesKeyExpiry → OpCertIntervalInformation","name":"createOpCertIntervalInfo","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#v:createOpCertIntervalInfo"},{"display_html":"renderScriptCosts ∷ UTxO era → Prices → [(ScriptWitnessIndex, AnyScriptWitness era)] → Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits) → Either PlutusScriptCostError [ScriptCostOutput]","name":"renderScriptCosts","module":"Cardano.CLI.Types.Output","link":"Cardano-CLI-Types-Output.html#v:renderScriptCosts"},{"display_html":"runQueryCmds ∷ QueryCmds era → ExceptT QueryCmdError IO ()","name":"runQueryCmds","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryCmds"},{"display_html":"runQueryConstitutionHashCmd ∷ QueryConstitutionHashCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryConstitutionHashCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryConstitutionHashCmd"},{"display_html":"runQueryKesPeriodInfoCmd ∷ QueryKesPeriodInfoCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryKesPeriodInfoCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryKesPeriodInfoCmd"},{"display_html":"runQueryLeadershipScheduleCmd ∷ QueryLeadershipScheduleCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryLeadershipScheduleCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryLeadershipScheduleCmd"},{"display_html":"runQueryLedgerStateCmd ∷ QueryLedgerStateCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryLedgerStateCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryLedgerStateCmd"},{"display_html":"runQueryPoolStateCmd ∷ QueryPoolStateCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryPoolStateCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryPoolStateCmd"},{"display_html":"runQueryProtocolParametersCmd ∷ QueryProtocolParametersCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryProtocolParametersCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryProtocolParametersCmd"},{"display_html":"runQueryProtocolStateCmd ∷ QueryProtocolStateCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryProtocolStateCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryProtocolStateCmd"},{"display_html":"runQuerySlotNumberCmd ∷ QuerySlotNumberCmdArgs → ExceptT QueryCmdError IO ()","name":"runQuerySlotNumberCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQuerySlotNumberCmd"},{"display_html":"runQueryStakeAddressInfoCmd ∷ QueryStakeAddressInfoCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryStakeAddressInfoCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeAddressInfoCmd"},{"display_html":"runQueryStakeDistributionCmd ∷ QueryStakeDistributionCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryStakeDistributionCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeDistributionCmd"},{"display_html":"runQueryStakePoolsCmd ∷ QueryStakePoolsCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryStakePoolsCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakePoolsCmd"},{"display_html":"runQueryStakeSnapshotCmd ∷ QueryStakeSnapshotCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryStakeSnapshotCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeSnapshotCmd"},{"display_html":"runQueryTipCmd ∷ QueryTipCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryTipCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryTipCmd"},{"display_html":"runQueryTxMempoolCmd ∷ QueryTxMempoolCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryTxMempoolCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryTxMempoolCmd"},{"display_html":"runQueryUTxOCmd ∷ QueryUTxOCmdArgs → ExceptT QueryCmdError IO ()","name":"runQueryUTxOCmd","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:runQueryUTxOCmd"},{"display_html":"newtype DelegationsAndRewards = DelegationsAndRewards (Map StakeAddress Lovelace, Map StakeAddress PoolId)","name":"DelegationsAndRewards DelegationsAndRewards","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#t:DelegationsAndRewards"},{"display_html":"renderQueryCmdError ∷ QueryCmdError → Text","name":"renderQueryCmdError","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:renderQueryCmdError"},{"display_html":"renderLocalStateQueryError ∷ QueryCmdLocalStateQueryError → Text","name":"renderLocalStateQueryError","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:renderLocalStateQueryError"},{"display_html":"renderOpCertIntervalInformation ∷ FilePath → OpCertIntervalInformation → String","name":"renderOpCertIntervalInformation","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:renderOpCertIntervalInformation"},{"display_html":"percentage ∷ RelativeTime → RelativeTime → RelativeTime → Text","name":"percentage","module":"Cardano.CLI.EraBased.Run.Query","link":"Cardano-CLI-EraBased-Run-Query.html#v:percentage"},{"display_html":"runLegacyQueryCmds ∷ LegacyQueryCmds → ExceptT QueryCmdError IO ()","name":"runLegacyQueryCmds","module":"Cardano.CLI.Legacy.Run.Query","link":"Cardano-CLI-Legacy-Run-Query.html#v:runLegacyQueryCmds"},{"display_html":"data TxFeature","name":"TxFeature TxFeatureShelleyAddresses TxFeatureExplicitFees TxFeatureImplicitFees TxFeatureValidityLowerBound TxFeatureValidityUpperBound TxFeatureValidityNoUpperBound TxFeatureTxMetadata TxFeatureAuxScripts TxFeatureWithdrawals TxFeatureCertificates TxFeatureMintValue TxFeatureMultiAssetOutputs TxFeatureScriptWitnesses TxFeatureShelleyKeys TxFeatureCollateral TxFeatureProtocolParameters TxFeatureTxOutDatum TxFeatureScriptValidity TxFeatureExtraKeyWits TxFeatureInlineDatums TxFeatureTotalCollateral TxFeatureReferenceInputs TxFeatureReturnCollateral","module":"Cardano.CLI.Types.TxFeature","link":"Cardano-CLI-Types-TxFeature.html#t:TxFeature"},{"display_html":"renderFeature ∷ TxFeature → Text","name":"renderFeature","module":"Cardano.CLI.Types.TxFeature","link":"Cardano-CLI-Types-TxFeature.html#v:renderFeature"},{"display_html":"data TxCmdError","name":"TxCmdError TxCmdMetadataError TxCmdVoteError TxCmdConstitutionError TxCmdScriptWitnessError TxCmdProtocolParamsError TxCmdScriptFileError TxCmdReadTextViewFileError TxCmdReadWitnessSigningDataError TxCmdWriteFileError TxCmdBootstrapWitnessError TxCmdTxSubmitError TxCmdTxSubmitErrorEraMismatch TxCmdTxFeatureMismatch TxCmdTxBodyError TxCmdNotImplemented TxCmdWitnessEraMismatch TxCmdPolicyIdsMissing TxCmdPolicyIdsExcess TxCmdByronEra TxCmdBalanceTxBody TxCmdTxInsDoNotExist TxCmdPParamsErr TxCmdTextEnvCddlError TxCmdTxExecUnitsErr TxCmdPlutusScriptCostErr TxCmdPParamExecutionUnitsNotAvailable TxCmdPlutusScriptsRequireCardanoMode TxCmdProtocolParametersNotPresentInTxBody TxCmdTxNodeEraMismatchError TxCmdQueryConvenienceError TxCmdQueryNotScriptLocked TxCmdScriptDataError TxCmdCddlError TxCmdCddlWitnessError TxCmdRequiredSignerError TxCmdAuxScriptsValidationError TxCmdTotalCollateralValidationError TxCmdReturnCollateralValidationError TxCmdTxFeeValidationError TxCmdTxValidityLowerBoundValidationError TxCmdTxValidityUpperBoundValidationError TxCmdRequiredSignersValidationError TxCmdProtocolParametersValidationError TxCmdTxWithdrawalsValidationError TxCmdTxCertificatesValidationError TxCmdTxUpdateProposalValidationError TxCmdScriptValidityValidationError TxCmdProtocolParamsConverstionError","module":"Cardano.CLI.Types.Errors.TxCmdError","link":"Cardano-CLI-Types-Errors-TxCmdError.html#t:TxCmdError"},{"display_html":"renderTxCmdError ∷ TxCmdError → Text","name":"renderTxCmdError","module":"Cardano.CLI.Types.Errors.TxCmdError","link":"Cardano-CLI-Types-Errors-TxCmdError.html#v:renderTxCmdError"},{"display_html":"data CmdError","name":"CmdError CmdAddressError CmdEraDelegationError CmdGenesisError CmdGovernanceActionError CmdGovernanceCmdError CmdGovernanceCommitteeError CmdGovernanceQueryError CmdGovernanceVoteError CmdKeyError CmdNodeError CmdQueryError CmdRegistrationError CmdStakeAddressError CmdStakePoolError CmdTextViewError CmdTransactionError","module":"Cardano.CLI.Types.Errors.CmdError","link":"Cardano-CLI-Types-Errors-CmdError.html#t:CmdError"},{"display_html":"renderCmdError ∷ Text → CmdError → Text","name":"renderCmdError","module":"Cardano.CLI.Types.Errors.CmdError","link":"Cardano-CLI-Types-Errors-CmdError.html#v:renderCmdError"},{"display_html":"runGovernanceVoteCmds ∷ GovernanceVoteCmds era → ExceptT CmdError IO ()","name":"runGovernanceVoteCmds","module":"Cardano.CLI.EraBased.Run.Governance.Vote","link":"Cardano-CLI-EraBased-Run-Governance-Vote.html#v:runGovernanceVoteCmds"},{"display_html":"runGovernanceHashCmds ∷ GovernanceHashCmds era → ExceptT CmdError IO ()","name":"runGovernanceHashCmds","module":"Cardano.CLI.EraBased.Run.Governance.Hash","link":"Cardano-CLI-EraBased-Run-Governance-Hash.html#v:runGovernanceHashCmds"},{"display_html":"runGovernanceDRepCmds ∷ GovernanceDRepCmds era → ExceptT CmdError IO ()","name":"runGovernanceDRepCmds","module":"Cardano.CLI.EraBased.Run.Governance.DRep","link":"Cardano-CLI-EraBased-Run-Governance-DRep.html#v:runGovernanceDRepCmds"},{"display_html":"runGovernanceCmds ∷ GovernanceCmds era → ExceptT CmdError IO ()","name":"runGovernanceCmds","module":"Cardano.CLI.EraBased.Run.Governance","link":"Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCmds"},{"display_html":"runGovernanceMIRCertificatePayStakeAddrs ∷ ShelleyToBabbageEra era → MIRPot → [StakeAddress] → [Lovelace] → File () Out → ExceptT GovernanceCmdError IO ()","name":"runGovernanceMIRCertificatePayStakeAddrs","module":"Cardano.CLI.EraBased.Run.Governance","link":"Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceMIRCertificatePayStakeAddrs"},{"display_html":"runGovernanceCreateMirCertificateTransferToTreasuryCmd ∷ ShelleyToBabbageEra era → Lovelace → File () Out → ExceptT GovernanceCmdError IO ()","name":"runGovernanceCreateMirCertificateTransferToTreasuryCmd","module":"Cardano.CLI.EraBased.Run.Governance","link":"Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCreateMirCertificateTransferToTreasuryCmd"},{"display_html":"runGovernanceCreateMirCertificateTransferToReservesCmd ∷ ShelleyToBabbageEra era → Lovelace → File () Out → ExceptT GovernanceCmdError IO ()","name":"runGovernanceCreateMirCertificateTransferToReservesCmd","module":"Cardano.CLI.EraBased.Run.Governance","link":"Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCreateMirCertificateTransferToReservesCmd"},{"display_html":"runLegacyGovernanceCmds ∷ LegacyGovernanceCmds → ExceptT GovernanceCmdError IO ()","name":"runLegacyGovernanceCmds","module":"Cardano.CLI.Legacy.Run.Governance","link":"Cardano-CLI-Legacy-Run-Governance.html#v:runLegacyGovernanceCmds"},{"display_html":"runTransactionCmds ∷ TransactionCmds era → ExceptT TxCmdError IO ()","name":"runTransactionCmds","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCmds"},{"display_html":"runTransactionBuildCmd ∷ TransactionBuildCmdArgs era → ExceptT TxCmdError IO ()","name":"runTransactionBuildCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionBuildCmd"},{"display_html":"runTransactionBuildRawCmd ∷ TransactionBuildRawCmdArgs era → ExceptT TxCmdError IO ()","name":"runTransactionBuildRawCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionBuildRawCmd"},{"display_html":"runTransactionSignCmd ∷ TransactionSignCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionSignCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSignCmd"},{"display_html":"runTransactionSubmitCmd ∷ TransactionSubmitCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionSubmitCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSubmitCmd"},{"display_html":"runTransactionCalculateMinFeeCmd ∷ TransactionCalculateMinFeeCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionCalculateMinFeeCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCalculateMinFeeCmd"},{"display_html":"runTransactionCalculateMinValueCmd ∷ TransactionCalculateMinValueCmdArgs era → ExceptT TxCmdError IO ()","name":"runTransactionCalculateMinValueCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCalculateMinValueCmd"},{"display_html":"runTransactionPolicyIdCmd ∷ TransactionPolicyIdCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionPolicyIdCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionPolicyIdCmd"},{"display_html":"runTransactionHashScriptDataCmd ∷ TransactionHashScriptDataCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionHashScriptDataCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionHashScriptDataCmd"},{"display_html":"runTransactionTxIdCmd ∷ TransactionTxIdCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionTxIdCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionTxIdCmd"},{"display_html":"runTransactionViewCmd ∷ TransactionViewCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionViewCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionViewCmd"},{"display_html":"runTransactionWitnessCmd ∷ TransactionWitnessCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionWitnessCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionWitnessCmd"},{"display_html":"runTransactionSignWitnessCmd ∷ TransactionSignWitnessCmdArgs → ExceptT TxCmdError IO ()","name":"runTransactionSignWitnessCmd","module":"Cardano.CLI.EraBased.Run.Transaction","link":"Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSignWitnessCmd"},{"display_html":"runLegacyTransactionCmds ∷ LegacyTransactionCmds → ExceptT TxCmdError IO ()","name":"runLegacyTransactionCmds","module":"Cardano.CLI.Legacy.Run.Transaction","link":"Cardano-CLI-Legacy-Run-Transaction.html#v:runLegacyTransactionCmds"},{"display_html":"runLegacyCmds ∷ LegacyCmds → ExceptT CmdError IO ()","name":"runLegacyCmds","module":"Cardano.CLI.Legacy.Run","link":"Cardano-CLI-Legacy-Run.html#v:runLegacyCmds"},{"display_html":"runAnyEraCommand ∷ AnyEraCommand → ExceptT CmdError IO ()","name":"runAnyEraCommand","module":"Cardano.CLI.EraBased.Run","link":"Cardano-CLI-EraBased-Run.html#v:runAnyEraCommand"},{"display_html":"runCmds ∷ Cmds era → ExceptT CmdError IO ()","name":"runCmds","module":"Cardano.CLI.EraBased.Run","link":"Cardano-CLI-EraBased-Run.html#v:runCmds"},{"display_html":"runGovernanceCmds ∷ GovernanceCmds era → ExceptT CmdError IO ()","name":"runGovernanceCmds","module":"Cardano.CLI.EraBased.Run","link":"Cardano-CLI-EraBased-Run.html#v:runGovernanceCmds"},{"display_html":"version ∷ Version","name":"version","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:version"},{"display_html":"getBinDir ∷ IO FilePath","name":"getBinDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getBinDir"},{"display_html":"getLibDir ∷ IO FilePath","name":"getLibDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getLibDir"},{"display_html":"getDynLibDir ∷ IO FilePath","name":"getDynLibDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getDynLibDir"},{"display_html":"getDataDir ∷ IO FilePath","name":"getDataDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getDataDir"},{"display_html":"getLibexecDir ∷ IO FilePath","name":"getLibexecDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getLibexecDir"},{"display_html":"getDataFileName ∷ FilePath → IO FilePath","name":"getDataFileName","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getDataFileName"},{"display_html":"getSysconfDir ∷ IO FilePath","name":"getSysconfDir","module":"Paths_cardano_cli","link":"Paths_cardano_cli.html#v:getSysconfDir"},{"display_html":"data ClientCommand","name":"ClientCommand ByronCommand AnyEraCommand Help LegacyCmds CliPingCommand DisplayVersion","module":"Cardano.CLI.Run","link":"Cardano-CLI-Run.html#t:ClientCommand"},{"display_html":"data ClientCommandErrors","name":"ClientCommandErrors","module":"Cardano.CLI.Run","link":"Cardano-CLI-Run.html#t:ClientCommandErrors"},{"display_html":"renderClientCommandError ∷ ClientCommandErrors → Text","name":"renderClientCommandError","module":"Cardano.CLI.Run","link":"Cardano-CLI-Run.html#v:renderClientCommandError"},{"display_html":"runClientCommand ∷ ClientCommand → ExceptT ClientCommandErrors IO ()","name":"runClientCommand","module":"Cardano.CLI.Run","link":"Cardano-CLI-Run.html#v:runClientCommand"},{"display_html":"data ByronCommand","name":"ByronCommand Genesis NodeCmds PrintGenesisHash Keygen ToVerification PrettySigningKeyPublic MigrateDelegateKeyFrom PrintSigningKeyAddress SubmitTx SpendGenesisUTxO SpendUTxO GetTxId ValidateCBOR PrettyPrintCBOR","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#t:ByronCommand"},{"display_html":"data NodeCmds","name":"NodeCmds UpdateProposal CreateVote SubmitUpdateProposal SubmitVote","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#t:NodeCmds"},{"display_html":"backwardsCompatibilityCommands ∷ EnvCli → Parser ClientCommand","name":"backwardsCompatibilityCommands","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:backwardsCompatibilityCommands"},{"display_html":"parseByronCommands ∷ EnvCli → Parser ByronCommand","name":"parseByronCommands","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseByronCommands"},{"display_html":"parseHeavyDelThd ∷ Parser LovelacePortion","name":"parseHeavyDelThd","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseHeavyDelThd"},{"display_html":"parseInstallerHash ∷ Parser InstallerHash","name":"parseInstallerHash","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseInstallerHash"},{"display_html":"parseMaxBlockSize ∷ Parser Natural","name":"parseMaxBlockSize","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseMaxBlockSize"},{"display_html":"parseMaxHeaderSize ∷ Parser Natural","name":"parseMaxHeaderSize","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseMaxHeaderSize"},{"display_html":"parseMaxTxSize ∷ Parser Natural","name":"parseMaxTxSize","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseMaxTxSize"},{"display_html":"parseMaxProposalSize ∷ Parser Natural","name":"parseMaxProposalSize","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseMaxProposalSize"},{"display_html":"parseMpcThd ∷ Parser LovelacePortion","name":"parseMpcThd","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseMpcThd"},{"display_html":"parseScriptVersion ∷ Parser Word16","name":"parseScriptVersion","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseScriptVersion"},{"display_html":"parseSlotDuration ∷ Parser Natural","name":"parseSlotDuration","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseSlotDuration"},{"display_html":"parseSoftforkRule ∷ Parser SoftforkRule","name":"parseSoftforkRule","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseSoftforkRule"},{"display_html":"parseSystemTag ∷ Parser SystemTag","name":"parseSystemTag","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseSystemTag"},{"display_html":"parseTxFeePolicy ∷ Parser TxFeePolicy","name":"parseTxFeePolicy","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseTxFeePolicy"},{"display_html":"parseUpdateProposalThd ∷ Parser LovelacePortion","name":"parseUpdateProposalThd","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseUpdateProposalThd"},{"display_html":"parseUpdateProposalTTL ∷ Parser SlotNumber","name":"parseUpdateProposalTTL","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseUpdateProposalTTL"},{"display_html":"parseUnlockStakeEpoch ∷ Parser EpochNumber","name":"parseUnlockStakeEpoch","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseUnlockStakeEpoch"},{"display_html":"parseUpdateVoteThd ∷ Parser LovelacePortion","name":"parseUpdateVoteThd","module":"Cardano.CLI.Byron.Parsers","link":"Cardano-CLI-Byron-Parsers.html#v:parseUpdateVoteThd"},{"display_html":"opts ∷ EnvCli → ParserInfo ClientCommand","name":"opts","module":"Cardano.CLI.Options","link":"Cardano-CLI-Options.html#v:opts"},{"display_html":"pref ∷ ParserPrefs","name":"pref","module":"Cardano.CLI.Options","link":"Cardano-CLI-Options.html#v:pref"}] \ No newline at end of file diff --git a/cardano-cli/lib/haddock-bundle.min.js b/cardano-cli/lib/haddock-bundle.min.js new file mode 100644 index 0000000000..188ab76a38 --- /dev/null +++ b/cardano-cli/lib/haddock-bundle.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;e element with id '"+e+"'");return t}function x(){return u.defaultInstanceState==i.Open}function w(e){for(var t=S(e.target.id),n=t.element.open,o=0,r=t.toggles;owindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return d(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),y}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");p=p.name}else a[p]={weight:1};this._analyze({key:p,value:this.options.getFn(u,p),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,d=void 0===u?[]:u,h=t.resultMap,p=void 0===h?{}:h,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,m=-1,y=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var _=d.search(i);if(this._log('Full text: "'+i+'", score: '+_.score),this.options.tokenize){for(var b=i.split(this.options.tokenSeparator),k=[],S=0;S=c.length;if(this._log("\nCheck Matches: "+T),(g||_.isMatch)&&T){var N=p[a];N?N.output.push({key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}):(p[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}]},v.push(p[a]))}}else if(V(i))for(var P=0,j=i.length;Pcardano-cli-8.14.0.0: The Cardano command-line interface
cardano-cli-8.14.0.0: The Cardano command-line interface

cardano-cli-8.14.0.0: The Cardano command-line interface

The Cardano command-line interface.

Modules

\ No newline at end of file diff --git a/cardano-cli/lib/linuwial.css b/cardano-cli/lib/linuwial.css new file mode 100644 index 0000000000..cbb58a0389 --- /dev/null +++ b/cardano-cli/lib/linuwial.css @@ -0,0 +1,877 @@ +/* @group Fundamentals */ + +* { margin: 0; padding: 0 } + +/* Is this portable? */ +html { + background-color: white; + width: 100%; + height: 100%; +} + +body { + background: #fefefe; + color: #111; + text-align: left; + min-height: 100vh; + position: relative; + -webkit-text-size-adjust: 100%; + -webkit-font-feature-settings: "kern" 1, "liga" 0; + -moz-font-feature-settings: "kern" 1, "liga" 0; + -o-font-feature-settings: "kern" 1, "liga" 0; + font-feature-settings: "kern" 1, "liga" 0; + letter-spacing: 0.0015rem; +} + +#content a { + overflow-wrap: break-word; +} + +p { + margin: 0.8em 0; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +dl { + margin: 0.8em 0; +} + +dt { + font-weight: bold; +} +dd { + margin-left: 2em; +} + +a { text-decoration: none; } +a[href]:link { color: #9E358F; } +a[href]:visited {color: #6F5F9C; } +a[href]:hover { text-decoration:underline; } + +a[href].def:link, a[href].def:visited { color: rgba(69, 59, 97, 0.8); } +a[href].def:hover { color: rgb(78, 98, 114); } + +/* @end */ + +/* @group Show and hide with JS */ + +body.js-enabled .hide-when-js-enabled { + display: none; +} + +/* @end */ + + +/* @group responsive */ + +#package-header .caption { + margin: 0px 1em 0 2em; +} + +@media only screen and (min-width: 1280px) { + #content { + width: 63vw; + max-width: 1450px; + } + + #table-of-contents { + position: fixed; + max-width: 10vw; + top: 10.2em; + left: 2em; + bottom: 1em; + overflow-y: auto; + } + + #synopsis { + display: block; + position: fixed; + float: left; + top: 5em; + bottom: 1em; + right: 0; + max-width: 65vw; + overflow-y: auto; + /* Ensure that synopsis covers everything (including MathJAX markup) */ + z-index: 1; + } + + #synopsis .show { + border: 1px solid #5E5184; + padding: 0.7em; + max-height: 65vh; + } + +} + +@media only screen and (max-width: 1279px) { + #content { + width: 80vw; + } + + #synopsis { + display: block; + padding: 0; + position: relative; + margin: 0; + width: 100%; + } +} + +@media only screen and (max-width: 999px) { + #content { + width: 93vw; + } +} + + +/* menu for wider screens + + Display the package name at the left and the menu links at the right, + inline with each other: + The package name Source . Contents . Index +*/ +@media only screen and (min-width: 1000px) { + #package-header { + text-align: left; + white-space: nowrap; + height: 40px; + padding: 4px 1.5em 0px 1.5em; + overflow: visible; + + display: flex; + justify-content: space-between; + align-items: center; + } + + #package-header .caption { + display: inline-block; + margin: 0; + } + + #package-header ul.links { + margin: 0; + display: inline-table; + } + + #package-header .caption + ul.links { + margin-left: 1em; + } +} + +/* menu for smaller screens + +Display the package name on top of the menu links and center both elements: + The package name + Source . Contents . Index +*/ +@media only screen and (max-width: 999px) { + #package-header { + text-align: center; + padding: 6px 0 4px 0; + overflow: hidden; + } + + #package-header ul.links { + display: block; + text-align: center; + margin: 0; + + /* Hide scrollbar but allow scrolling menu links horizontally */ + white-space: nowrap; + overflow-x: auto; + overflow-y: hidden; + margin-bottom: -17px; + height: 50px; + } + + #package-header .caption { + display: block; + margin: 4px 0; + text-align: center; + } + + #package-header ul.links::-webkit-scrollbar { + display: none; + } + + #package-header ul.links li:first-of-type { + padding-left: 1em; + } + + #package-header ul.links li:last-of-type { + /* + The last link of the menu should offer the same distance to the right + as the #package-header enforces at the left. + */ + padding-right: 1em; + } + + #package-header .caption + ul.links { + padding-top: 9px; + } + + #module-header table.info { + float: none; + top: 0; + margin: 0 auto; + overflow: hidden; + max-width: 80vw; + } +} + +/* @end */ + + +/* @group Fonts & Sizes */ + +/* Basic technique & IE workarounds from YUI 3 + For reasons, see: + http://yui.yahooapis.com/3.1.1/build/cssfonts/fonts.css + */ + + body, button { + font: 400 14px/1.4 'PT Sans', + /* Fallback Font Stack */ + -apple-system, + BlinkMacSystemFont, + 'Segoe UI', + Roboto, + Oxygen-Sans, + Cantarell, + 'Helvetica Neue', + sans-serif; + *font-size: medium; /* for IE */ + *font:x-small; /* for IE in quirks mode */ + } + +h1 { font-size: 146.5%; /* 19pt */ } +h2 { font-size: 131%; /* 17pt */ } +h3 { font-size: 116%; /* 15pt */ } +h4 { font-size: 100%; /* 13pt */ } +h5 { font-size: 100%; /* 13pt */ } + +table { + font-size:inherit; + font:100%; +} + +pre, code, kbd, samp, tt, .src { + font-family:monospace; +} + +.links, .link { + font-size: 85%; /* 11pt */ +} + +#module-header .caption { + font-size: 182%; /* 24pt */ +} + +#module-header .caption sup { + font-size: 80%; + font-weight: normal; +} + +#package-header #page-menu a:link, #package-header #page-menu a:visited { color: white; } + + +.info { + font-size: 90%; +} + + +/* @end */ + +/* @group Common */ + +.caption, h1, h2, h3, h4, h5, h6, summary { + font-weight: bold; + color: #5E5184; + margin: 1.5em 0 1em 0; +} + + +* + h1, * + h2, * + h3, * + h4, * + h5, * + h6 { + margin-top: 2em; +} + +h1 + h2, h2 + h3, h3 + h4, h4 + h5, h5 + h6 { + margin-top: inherit; +} + +ul li + li { + margin-top: 0.2rem; +} + +ul + p { + margin-top: 0.93em; +} + +p + ul { + margin-top: 0.5em; +} + +p { + margin-top: 0.7rem; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +ul.links { + list-style: none; + text-align: left; + font-size: 0.95em; +} + +#package-header ul.links, #package-header ul.links button { + font-size: 1rem; +} + +ul.links li { + display: inline; + white-space: nowrap; + padding: 0; +} + +ul.links > li + li:before { + content: '\00B7'; +} + +ul.links li a { + padding: 0.2em 0.5em; +} + +.hide { display: none; } +.show { display: inherit; } +.clear { clear: both; } + +.collapser:before, .expander:before, .noexpander:before { + font-size: 1.2em; + color: #9C5791; + display: inline-block; + padding-right: 7px; +} + +.collapser:before { + content: '▿'; +} +.expander:before { + content: '▹'; +} +.noexpander:before { + content: '▿'; + visibility: hidden; +} + +.collapser, .expander { + cursor: pointer; +} + +.instance.collapser, .instance.expander { + margin-left: 0px; + background-position: left center; + min-width: 9px; + min-height: 9px; +} + +summary { + cursor: pointer; + outline: none; +} + +pre { + padding: 0.5rem 1rem; + margin: 1em 0 0 0; + background-color: #f7f7f7; + overflow: auto; + border: 1px solid #ddd; + border-radius: 0.3em; +} + +pre + p { + margin-top: 1em; +} + +pre + pre { + margin-top: 0.5em; +} + +blockquote { + border-left: 3px solid #c7a5d3; + background-color: #eee4f1; + margin: 0.5em; + padding: 0.0005em 0.3em 0.5em 0.5em; +} + +.src { + background: #f2f2f2; + padding: 0.2em 0.5em; +} + +.keyword { font-weight: normal; } +.def { font-weight: bold; } + +@media print { + #footer { display: none; } +} + +/* @end */ + +/* @group Page Structure */ + +#content { + margin: 3em auto 6em auto; + padding: 0; +} + +#package-header { + background: #5E5184; + border-bottom: 5px solid rgba(69, 59, 97, 0.5); + color: #ddd; + position: relative; + font-size: 1.2em; + text-align: left; + margin: 0 auto; +} + +#package-header .caption { + color: white; + font-style: normal; + font-size: 1rem; + font-weight: bold; +} + +#module-header .caption { + font-weight: bold; + border-bottom: 1px solid #ddd; +} + +table.info { + float: right; + padding: 0.5em 1em; + border: 1px solid #ddd; + color: rgb(78,98,114); + background-color: #fff; + max-width: 60%; + border-spacing: 0; + position: relative; + top: -0.78em; + margin: 0 0 0 2em; +} + +.info th { + padding: 0 1em 0 0; + text-align: right; +} + +#style-menu li { + display: block; + border-style: none; + list-style-type: none; +} + +#footer { + background: #ededed; + border-top: 1px solid #aaa; + padding: 0.5em 0; + color: #222; + text-align: center; + width: 100%; + height: 3em; + margin-top: 3em; + position: relative; + clear: both; +} + +/* @end */ + +/* @group Front Matter */ + +#synopsis .caption, +#contents-list .caption { + font-size: 1rem; +} + +#synopsis, #table-of-contents { + font-size: 16px; +} + +#contents-list { + background: #f4f4f4; + padding: 1em; + margin: 0; +} + +#contents-list .caption { + text-align: left; + margin: 0; +} + +#contents-list ul { + list-style: none; + margin: 0; + margin-top: 10px; + font-size: 14px; +} + +#contents-list ul ul { + margin-left: 1.5em; +} + +#description .caption { + display: none; +} + +#synopsis summary { + display: block; + float: right; + width: 29px; + color: rgba(255,255,255,0); + height: 110px; + margin: 0; + font-size: 1px; + padding: 0; + background: url(synopsis.png) no-repeat 0px -8px; +} + +#synopsis details[open] > summary { + background: url(synopsis.png) no-repeat -75px -8px; +} + +#synopsis ul { + height: 100%; + overflow: auto; + padding: 0.5em; + margin: 0; +} + +#synopsis ul ul { + overflow: hidden; +} + +#synopsis ul, +#synopsis ul li.src { + background-color: rgb(250,247,224); + white-space: nowrap; + list-style: none; + margin-left: 0; +} + +#interface td.src { + white-space: nowrap; +} + +/* @end */ + +/* @group Main Content */ + +#interface div.top + div.top { + margin-top: 1.5em; +} + +#interface p + div.top, +#interface h1 + div.top, +#interface h2 + div.top, +#interface h3 + div.top, +#interface h4 + div.top, +#interface h5 + div.top { + margin-top: 1em; +} +#interface .src .selflink, +#interface .src .link { + float: right; + color: #888; + padding: 0 7px; + -moz-user-select: none; + font-weight: bold; + line-height: 30px; +} +#interface .src .selflink { + margin: 0 -0.5em 0 0.5em; +} + +#interface span.fixity { + color: #919191; + border-left: 1px solid #919191; + padding: 0.2em 0.5em 0.2em 0.5em; + margin: 0 -1em 0 1em; +} + +#interface span.rightedge { + border-left: 1px solid #919191; + padding: 0.2em 0 0.2em 0; + margin: 0 0 0 1em; +} + +#interface table { border-spacing: 2px; } +#interface td { + vertical-align: top; + padding-left: 0.5em; +} + +#interface td.doc p { + margin: 0; +} +#interface td.doc p + p { + margin-top: 0.8em; +} + +.doc table { + border-collapse: collapse; + border-spacing: 0px; +} + +.doc th, +.doc td { + padding: 5px; + border: 1px solid #ddd; +} + +.doc th { + background-color: #f0f0f0; +} + +.clearfix:after { + clear: both; + content: " "; + display: block; + height: 0; + visibility: hidden; +} + +.subs, .top > .doc, .subs > .doc { + padding-left: 1em; + border-left: 1px solid gainsboro; + margin-bottom: 1em; +} + +.top .subs { + margin-bottom: 0.6em; +} + +.subs.fields ul { + list-style: none; + display: table; + margin: 0; +} + +.subs.fields ul li { + display: table-row; +} + +.subs ul li dfn { + display: table-cell; + font-style: normal; + font-weight: bold; + margin: 1px 0; + white-space: nowrap; +} + +.subs ul li > .doc { + display: table-cell; + padding-left: 0.5em; + margin-bottom: 0.5em; +} + +.subs ul li > .doc p { + margin: 0; +} + +.subs .subs p.src { + border: none; + background-color: #f8f8f8; +} + +.subs .subs .caption { + margin-top: 1em ; + margin-bottom: 0px; +} + +.subs p.caption { + margin-top: 0; +} + +.subs .subs .caption + .src { + margin: 0px; + margin-top: 8px; +} + +.subs .subs .src + .src { + margin: 7px 0 0 0; +} + +/* Render short-style data instances */ +.inst ul { + height: 100%; + padding: 0.5em; + margin: 0; +} + +.inst, .inst li { + list-style: none; + margin-left: 1em; +} + +/* Workaround for bug in Firefox (issue #384) */ +.inst-left { + float: left; +} + +.top p.src { + border-bottom: 3px solid #e5e5e5; + line-height: 2rem; + margin-bottom: 1em; +} + +.warning { + color: red; +} + +.arguments { + margin-top: -0.4em; +} +.arguments .caption { + display: none; +} + +.fields { padding-left: 1em; } + +.fields .caption { display: none; } + +.fields p { margin: 0 0; } + +/* this seems bulky to me +.methods, .constructors { + background: #f8f8f8; + border: 1px solid #eee; +} +*/ + +/* @end */ + +/* @group Auxillary Pages */ + + +.extension-list { + list-style-type: none; + margin-left: 0; +} + +#mini { + margin: 0 auto; + padding: 0 1em 1em; +} + +#mini > * { + font-size: 93%; /* 12pt */ +} + +#mini #module-list .caption, +#mini #module-header .caption { + font-size: 125%; /* 15pt */ +} + +#mini #interface h1, +#mini #interface h2, +#mini #interface h3, +#mini #interface h4 { + font-size: 109%; /* 13pt */ + margin: 1em 0 0; +} + +#mini #interface .top, +#mini #interface .src { + margin: 0; +} + +#mini #module-list ul { + list-style: none; + margin: 0; +} + +#alphabet ul { + list-style: none; + padding: 0; + margin: 0.5em 0 0; + text-align: center; +} + +#alphabet li { + display: inline; + margin: 0 0.25em; +} + +#alphabet a { + font-weight: bold; +} + +#index .caption, +#module-list .caption { font-size: 131%; /* 17pt */ } + +#index table { + margin-left: 2em; +} + +#index .src { + font-weight: bold; +} +#index .alt { + font-size: 77%; /* 10pt */ + font-style: italic; + padding-left: 2em; +} + +#index td + td { + padding-left: 1em; +} + +#module-list ul { + list-style: none; + margin: 0 0 0 2em; +} + +#module-list li { + clear: right; +} + +#module-list span.collapser, +#module-list span.expander { + background-position: 0 0.3em; +} + +#module-list .package { + float: right; +} + +:target { + background: -webkit-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); +} + +:target:hover { + background: -webkit-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); +} + +/* @end */ + +/* @group Dropdown menus */ + +#preferences-menu, #style-menu { + width: 25em; + overflow-y: auto; +} + +/* @end */ diff --git a/cardano-cli/lib/meta.json b/cardano-cli/lib/meta.json new file mode 100644 index 0000000000..96ee58e1d4 --- /dev/null +++ b/cardano-cli/lib/meta.json @@ -0,0 +1 @@ +{"haddock_version":"2.26.0","quickjump_version":1} \ No newline at end of file diff --git a/cardano-cli/lib/quick-jump.css b/cardano-cli/lib/quick-jump.css new file mode 100644 index 0000000000..cf10eee48e --- /dev/null +++ b/cardano-cli/lib/quick-jump.css @@ -0,0 +1,221 @@ +/* @group Fundamentals */ + +.hidden { + display: none; +} + +/* @end */ + +/* @group Search box layout */ + +#search { + position: fixed; + top: 3.2em; + bottom: 0; + left: calc(50% - 22em); + width: 44em; + z-index: 1000; + overflow-y: auto; +} + +@media only screen and (max-width: 999px) { + #search { + top: 5.7em; + } +} + +#search-form, #search-results { + box-shadow: 2px 2px 6px rgb(199, 204, 208); + pointer-events: all; +} + +#search-form input { + font-size: 1.25em; line-height: 2.3em; height: 2.4em; + display: block; + box-sizing: border-box; + width: 100%; + margin: 0; + padding: 0 0.75em; + border: 0.05em solid rgb(151, 179, 202); +} + +#search input:focus { + outline: none; +} + +#search p.error { + color: rgb(107, 24, 24); + font-weight: bold; +} + +#search-results { + box-sizing: border-box; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; + max-height: 80%; + overflow: scroll; +} + +#search-form input + #search-results { + border-top: none; + top: 3em; + max-height: calc(100% - 3em); +} + +/* @end */ + +/* @group search results */ + +#search-results > ul { + margin: 0; + list-style: none; +} + +#search-results > ul > li, +#search-results > p, +#search-results > table { + padding: 0.5em 1em; + margin: 0; +} + +#search-results > ul > li { + border-bottom: 1px solid #b2d5fb; +} + +#search-results > ul > li > ul { + list-style: none; +} + +.search-module h4 { + margin: 0; +} + +.search-module > ul { + margin: 0.5em 0 0.5em 2em; +} + +.search-module > ul > li > a[href] { + display: block; + color: inherit; + padding: 0.25em 0.5em; +} + +.search-module > ul > li > a[href].active-link { + background: #faf9dc; +} + +.search-module a[href]:hover { + text-decoration: none; +} + +.search-result a a { + pointer-events: none; +} + +.search-result ul.subs { + display: inline-block; + margin: 0; padding: 0; +} + +.search-result ul.subs li { + display: none; +} + +.search-result ul.subs::after { + display: inline-block; + content: "..."; + color: rgb(78,98,114); + margin: 0 0.25em; +} + +.more-results { + color: rgb(99, 141, 173); + position: relative; +} + +.more-results::before { + content: "+"; + display: inline-block; + color: #b2d5fb; + font-weight: bold; + font-size: 1.25em; line-height: inherit; + position: absolute; + left: -1em; +} + +/* @end */ + +/* @group Keyboard shortcuts table */ + +.keyboard-shortcuts { + line-height: 1.6em; +} + +.keyboard-shortcuts th { + color: rgb(78,98,114); +} + +.keyboard-shortcuts td:first-child, +.keyboard-shortcuts th:first-child { + text-align: right; + padding-right: 0.6em; +} + +.key { + display: inline-block; + font-size: 0.9em; + min-width: 0.8em; line-height: 1.2em; + text-align: center; + background: #b2d5fb; + border: 1px solid #74a3d6; + padding: 0 0.2em; + margin: 0 0.1em; +} + +/* @end */ + +/* @group Dropdown menus */ + +/* Based on #search styling above. */ + +.dropdown-menu { + position: fixed; + /* Not robust to window size changes. */ + top: 3.2em; + right: 0; + /* To display on top of synopsis menu on right side. */ + z-index: 1000; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; +} + +@media only screen and (max-width: 999px) { + .dropdown-menu { + top: 5.7em; + } +} + +.dropdown-menu * { + margin: 0.1em; +} + +.dropdown-menu button { + border: 1px #5E5184 solid; + border-radius: 3px; + background: #5E5184; + padding: 3px; + color: #f4f4f4; + min-width: 6em; +} + +.dropdown-menu button:hover { + color: #5E5184; + background: #f4f4f4; +} + +.dropdown-menu button:active { + color: #f4f4f4; + background: #5E5184; +} + +/* @end */ diff --git a/cardano-cli/lib/quick-jump.min.js b/cardano-cli/lib/quick-jump.min.js new file mode 100644 index 0000000000..06c35c7454 --- /dev/null +++ b/cardano-cli/lib/quick-jump.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;ewindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return h(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),m}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");d=d.name}else a[d]={weight:1};this._analyze({key:d,value:this.options.getFn(u,d),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,h=void 0===u?[]:u,p=t.resultMap,d=void 0===p?{}:p,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,_=-1,m=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var y=h.search(i);if(this._log('Full text: "'+i+'", score: '+y.score),this.options.tokenize){for(var k=i.split(this.options.tokenSeparator),b=[],x=0;x=c.length;if(this._log("\nCheck Matches: "+O),(g||y.isMatch)&&O){var P=d[a];P?P.output.push({key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}):(d[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}]},v.push(d[a]))}}else if(U(i))for(var j=0,E=i.length;j
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+
+module Cardano.CLI.Byron.Commands
+  ( ByronCommand (..)
+  , NodeCmds (..)
+  , VerificationKeyFile
+  , NewVerificationKeyFile (..)
+  , CertificateFile (..)
+  , NewCertificateFile (..)
+  ) where
+
+import           Cardano.Api hiding (GenesisParameters)
+import           Cardano.Api.Byron hiding (GenesisParameters)
+
+import           Cardano.Chain.Update (InstallerHash (..), ProtocolVersion (..),
+                   SoftwareVersion (..), SystemTag (..))
+import           Cardano.CLI.Byron.Genesis
+import           Cardano.CLI.Byron.Key
+import           Cardano.CLI.Byron.Tx
+import           Cardano.CLI.Types.Common
+
+import           Data.String (IsString)
+
+data ByronCommand =
+
+  --- Node Related Commands ---
+    NodeCmds
+        NodeCmds
+
+  --- Genesis Related Commands ---
+  | Genesis
+        NewDirectory
+        GenesisParameters
+
+  | PrintGenesisHash
+        GenesisFile
+
+  --- Key Related Commands ---
+  | Keygen
+        NewSigningKeyFile
+
+  | ToVerification
+        ByronKeyFormat
+        (SigningKeyFile In)
+        NewVerificationKeyFile
+
+  | PrettySigningKeyPublic
+        ByronKeyFormat
+        (SigningKeyFile In)
+
+  | MigrateDelegateKeyFrom
+        (SigningKeyFile In)
+        -- ^ Old key
+        NewSigningKeyFile
+        -- ^ New Key
+
+  | PrintSigningKeyAddress
+        ByronKeyFormat
+        NetworkId
+        (SigningKeyFile In)
+
+    -----------------------------------
+
+  | SubmitTx
+        SocketPath
+        NetworkId
+        (TxFile In)
+        -- ^ Filepath of transaction to submit.
+
+  | SpendGenesisUTxO
+        GenesisFile
+        NetworkId
+        ByronKeyFormat
+        NewTxFile
+        -- ^ Filepath of the newly created transaction.
+        (SigningKeyFile In)
+        -- ^ Signing key of genesis UTxO owner.
+        (Address ByronAddr)
+        -- ^ Genesis UTxO address.
+        [TxOut CtxTx ByronEra]
+        -- ^ Tx output.
+  | SpendUTxO
+        NetworkId
+        ByronKeyFormat
+        NewTxFile
+        -- ^ Filepath of the newly created transaction.
+        (SigningKeyFile In)
+        -- ^ Signing key of Tx underwriter.
+        [TxIn]
+        -- ^ Inputs available for spending to the Tx underwriter's key.
+        [TxOut CtxTx ByronEra]
+        -- ^ Genesis UTxO output Address.
+
+  | GetTxId (TxFile In)
+
+    --- Misc Commands ---
+
+  | ValidateCBOR
+        CBORObject
+        -- ^ Type of the CBOR object
+        FilePath
+
+  | PrettyPrintCBOR
+        FilePath
+  deriving Int -> ByronCommand -> ShowS
+[ByronCommand] -> ShowS
+ByronCommand -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ByronCommand] -> ShowS
+$cshowList :: [ByronCommand] -> ShowS
+show :: ByronCommand -> String
+$cshow :: ByronCommand -> String
+showsPrec :: Int -> ByronCommand -> ShowS
+$cshowsPrec :: Int -> ByronCommand -> ShowS
+Show
+
+
+data NodeCmds =
+    CreateVote
+      NetworkId
+      (SigningKeyFile In)
+      FilePath -- ^ filepath to update proposal
+      Bool
+      FilePath
+  | UpdateProposal
+      NetworkId
+      (SigningKeyFile In)
+      ProtocolVersion
+      SoftwareVersion
+      SystemTag
+      InstallerHash
+      FilePath
+      ByronProtocolParametersUpdate
+  | SubmitUpdateProposal
+      SocketPath
+      NetworkId
+      FilePath -- ^ Update proposal filepath.
+  | SubmitVote
+      SocketPath
+      NetworkId
+      FilePath -- ^ Vote filepath.
+  deriving Int -> NodeCmds -> ShowS
+[NodeCmds] -> ShowS
+NodeCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeCmds] -> ShowS
+$cshowList :: [NodeCmds] -> ShowS
+show :: NodeCmds -> String
+$cshow :: NodeCmds -> String
+showsPrec :: Int -> NodeCmds -> ShowS
+$cshowsPrec :: Int -> NodeCmds -> ShowS
+Show
+
+newtype NewCertificateFile
+  = NewCertificateFile { NewCertificateFile -> String
+nFp :: FilePath }
+  deriving (NewCertificateFile -> NewCertificateFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: NewCertificateFile -> NewCertificateFile -> Bool
+$c/= :: NewCertificateFile -> NewCertificateFile -> Bool
+== :: NewCertificateFile -> NewCertificateFile -> Bool
+$c== :: NewCertificateFile -> NewCertificateFile -> Bool
+Eq, Int -> NewCertificateFile -> ShowS
+[NewCertificateFile] -> ShowS
+NewCertificateFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NewCertificateFile] -> ShowS
+$cshowList :: [NewCertificateFile] -> ShowS
+show :: NewCertificateFile -> String
+$cshow :: NewCertificateFile -> String
+showsPrec :: Int -> NewCertificateFile -> ShowS
+$cshowsPrec :: Int -> NewCertificateFile -> ShowS
+Show, String -> NewCertificateFile
+forall a. (String -> a) -> IsString a
+fromString :: String -> NewCertificateFile
+$cfromString :: String -> NewCertificateFile
+IsString)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Delegation.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Delegation.html new file mode 100644 index 0000000000..84a77343b7 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Delegation.html @@ -0,0 +1,333 @@ +
{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Byron.Delegation
+  ( ByronDelegationError(..)
+  , checkByronGenesisDelegation
+  , issueByronGenesisDelegation
+  , renderByronDelegationError
+  , serialiseDelegationCert
+  , serialiseByronWitness
+  )
+where
+
+import           Cardano.Api.Byron
+
+import qualified Cardano.Chain.Delegation as Dlg
+import           Cardano.Chain.Slotting (EpochNumber)
+import           Cardano.CLI.Byron.Key (ByronKeyFailure, renderByronKeyFailure)
+import           Cardano.CLI.Types.Common (CertificateFile (..))
+import           Cardano.Crypto (ProtocolMagicId)
+import qualified Cardano.Crypto as Crypto
+import           Cardano.Ledger.Binary (Annotated (..), byronProtVer, serialize')
+import           Cardano.Prelude (canonicalDecodePretty, canonicalEncodePretty)
+
+import           Prelude hiding ((.))
+
+import           Control.Category
+import           Control.Monad (unless)
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (left)
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Lazy as LB
+import           Data.Text (Text)
+import           Formatting (Format, sformat)
+
+data ByronDelegationError
+  = CertificateValidationErrors !FilePath ![Text]
+  | DlgCertificateDeserialisationFailed !FilePath !Text
+  | ByronDelegationKeyError !ByronKeyFailure
+  deriving Int -> ByronDelegationError -> ShowS
+[ByronDelegationError] -> ShowS
+ByronDelegationError -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [ByronDelegationError] -> ShowS
+$cshowList :: [ByronDelegationError] -> ShowS
+show :: ByronDelegationError -> FilePath
+$cshow :: ByronDelegationError -> FilePath
+showsPrec :: Int -> ByronDelegationError -> ShowS
+$cshowsPrec :: Int -> ByronDelegationError -> ShowS
+Show
+
+renderByronDelegationError :: ByronDelegationError -> Text
+renderByronDelegationError :: ByronDelegationError -> Text
+renderByronDelegationError ByronDelegationError
+err =
+  case ByronDelegationError
+err of
+    CertificateValidationErrors FilePath
+certFp [Text]
+errs ->
+      Text
+"Certificate validation error(s) at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+certFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Errors: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Text]
+errs
+    DlgCertificateDeserialisationFailed FilePath
+certFp Text
+deSererr ->
+      Text
+"Certificate deserialisation error at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+certFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+deSererr
+    ByronDelegationKeyError ByronKeyFailure
+kerr -> ByronKeyFailure -> Text
+renderByronKeyFailure ByronKeyFailure
+kerr
+
+-- TODO:  we need to support password-protected secrets.
+-- | Issue a certificate for genesis delegation to a delegate key, signed by the
+--   issuer key, for a given protocol magic and coming into effect at given epoch.
+issueByronGenesisDelegation
+  :: ProtocolMagicId
+  -> EpochNumber
+  -> Crypto.SigningKey
+  -> Crypto.VerificationKey
+  -> Dlg.Certificate
+issueByronGenesisDelegation :: ProtocolMagicId
+-> EpochNumber -> SigningKey -> VerificationKey -> Certificate
+issueByronGenesisDelegation ProtocolMagicId
+magic EpochNumber
+epoch SigningKey
+issuerSK VerificationKey
+delegateVK =
+  ProtocolMagicId
+-> VerificationKey -> EpochNumber -> SafeSigner -> Certificate
+Dlg.signCertificate ProtocolMagicId
+magic VerificationKey
+delegateVK EpochNumber
+epoch forall a b. (a -> b) -> a -> b
+$
+  SigningKey -> SafeSigner
+Crypto.noPassSafeSigner SigningKey
+issuerSK
+
+-- | Verify that a certificate signifies genesis delegation by assumed genesis key
+--   to a delegate key, for a given protocol magic.
+--   If certificate fails validation, throw an error.
+checkByronGenesisDelegation
+  :: CertificateFile
+  -> ProtocolMagicId
+  -> Crypto.VerificationKey
+  -> Crypto.VerificationKey
+  -> ExceptT ByronDelegationError IO ()
+checkByronGenesisDelegation :: CertificateFile
+-> ProtocolMagicId
+-> VerificationKey
+-> VerificationKey
+-> ExceptT ByronDelegationError IO ()
+checkByronGenesisDelegation (CertificateFile FilePath
+certF) ProtocolMagicId
+magic VerificationKey
+issuer VerificationKey
+delegate = do
+  Either Text Certificate
+ecert <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a.
+FromJSON (Either SchemaError) a =>
+ByteString -> Either Text a
+canonicalDecodePretty forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> IO ByteString
+LB.readFile FilePath
+certF
+  case Either Text Certificate
+ecert of
+    Left Text
+e -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> Text -> ByronDelegationError
+DlgCertificateDeserialisationFailed FilePath
+certF Text
+e
+    Right (Certificate
+cert :: Dlg.Certificate) -> do
+      let issues :: [Text]
+issues = forall a.
+ACertificate a
+-> ProtocolMagicId -> VerificationKey -> VerificationKey -> [Text]
+checkDlgCert Certificate
+cert ProtocolMagicId
+magic VerificationKey
+issuer VerificationKey
+delegate
+      forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless (forall (t :: * -> *) a. Foldable t => t a -> Bool
+null [Text]
+issues) forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> [Text] -> ByronDelegationError
+CertificateValidationErrors FilePath
+certF [Text]
+issues
+
+checkDlgCert
+  :: Dlg.ACertificate a
+  -> ProtocolMagicId
+  -> Crypto.VerificationKey
+  -> Crypto.VerificationKey -> [Text]
+checkDlgCert :: forall a.
+ACertificate a
+-> ProtocolMagicId -> VerificationKey -> VerificationKey -> [Text]
+checkDlgCert ACertificate a
+cert ProtocolMagicId
+magic VerificationKey
+issuerVK' VerificationKey
+delegateVK' =
+  forall a. Monoid a => [a] -> a
+mconcat
+  [ [ forall a. Format Text a -> a
+sformat Format Text Text
+"Certificate does not have a valid signature."
+      | Bool -> Bool
+not (Annotated ProtocolMagicId ByteString
+-> ACertificate ByteString -> Bool
+Dlg.isValid Annotated ProtocolMagicId ByteString
+magic' ACertificate ByteString
+cert')
+    ]
+  , [ forall a. Format Text a -> a
+sformat (Format
+  (VerificationKey -> VerificationKey -> Text)
+  (VerificationKey -> VerificationKey -> Text)
+"Certificate issuer "forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.forall r. Format r (VerificationKey -> r)
+vkFforall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.Format (VerificationKey -> Text) (VerificationKey -> Text)
+" doesn't match expected: "forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.forall r. Format r (VerificationKey -> r)
+vkF)
+      ( forall a. ACertificate a -> VerificationKey
+Dlg.issuerVK ACertificate a
+cert) VerificationKey
+issuerVK'
+      | forall a. ACertificate a -> VerificationKey
+Dlg.issuerVK ACertificate a
+cert forall a. Eq a => a -> a -> Bool
+/= VerificationKey
+issuerVK'
+    ]
+  , [ forall a. Format Text a -> a
+sformat (Format
+  (VerificationKey -> VerificationKey -> Text)
+  (VerificationKey -> VerificationKey -> Text)
+"Certificate delegate "forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.forall r. Format r (VerificationKey -> r)
+vkFforall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.Format (VerificationKey -> Text) (VerificationKey -> Text)
+" doesn't match expected: "forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+.forall r. Format r (VerificationKey -> r)
+vkF)
+      ( forall a. ACertificate a -> VerificationKey
+Dlg.delegateVK ACertificate a
+cert) VerificationKey
+delegateVK'
+      | forall a. ACertificate a -> VerificationKey
+Dlg.delegateVK ACertificate a
+cert forall a. Eq a => a -> a -> Bool
+/= VerificationKey
+delegateVK'
+    ]
+  ]
+  where
+    magic' :: Annotated ProtocolMagicId ByteString
+    magic' :: Annotated ProtocolMagicId ByteString
+magic' = forall b a. b -> a -> Annotated b a
+Annotated ProtocolMagicId
+magic (forall a. EncCBOR a => Version -> a -> ByteString
+serialize' Version
+byronProtVer ProtocolMagicId
+magic)
+
+    epoch :: EpochNumber
+    epoch :: EpochNumber
+epoch = forall b a. Annotated b a -> b
+unAnnotated forall a b. (a -> b) -> a -> b
+$ forall a. ACertificate a -> Annotated EpochNumber a
+Dlg.aEpoch ACertificate a
+cert
+
+    cert' :: Dlg.ACertificate ByteString
+    cert' :: ACertificate ByteString
+cert' =
+      let unannotated :: Certificate
+unannotated = ACertificate a
+cert { aEpoch :: Annotated EpochNumber ()
+Dlg.aEpoch = forall b a. b -> a -> Annotated b a
+Annotated EpochNumber
+epoch ()
+                             , annotation :: ()
+Dlg.annotation = () }
+      in Certificate
+unannotated { annotation :: ByteString
+Dlg.annotation = forall a. EncCBOR a => Version -> a -> ByteString
+serialize' Version
+byronProtVer Certificate
+unannotated
+                     , aEpoch :: Annotated EpochNumber ByteString
+Dlg.aEpoch = forall b a. b -> a -> Annotated b a
+Annotated EpochNumber
+epoch (forall a. EncCBOR a => Version -> a -> ByteString
+serialize' Version
+byronProtVer EpochNumber
+epoch) }
+
+    vkF :: forall r. Format r (Crypto.VerificationKey -> r)
+    vkF :: forall r. Format r (VerificationKey -> r)
+vkF = forall r. Format r (VerificationKey -> r)
+Crypto.fullVerificationKeyF
+
+
+serialiseDelegationCert :: Dlg.Certificate -> ByteString
+serialiseDelegationCert :: Certificate -> ByteString
+serialiseDelegationCert = ByteString -> ByteString
+LB.toStrict forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
+Category cat =>
+cat b c -> cat a b -> cat a c
+. forall a. ToJSON Identity a => a -> ByteString
+canonicalEncodePretty
+
+serialiseByronWitness :: SomeByronSigningKey -> ByteString
+serialiseByronWitness :: SomeByronSigningKey -> ByteString
+serialiseByronWitness SomeByronSigningKey
+sk =
+  case SomeByronSigningKey
+sk of
+    AByronSigningKeyLegacy SigningKey ByronKeyLegacy
+bSkey -> forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes SigningKey ByronKeyLegacy
+bSkey
+    AByronSigningKey SigningKey ByronKey
+legBKey -> forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes SigningKey ByronKey
+legBKey
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Genesis.html new file mode 100644 index 0000000000..14f38120c5 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Genesis.html @@ -0,0 +1,612 @@ +
{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+
+
+module Cardano.CLI.Byron.Genesis
+  ( ByronGenesisError(..)
+  , GenesisParameters(..)
+  , NewDirectory(..)
+  , dumpGenesis
+  , mkGenesis
+  , readGenesis
+  , renderByronGenesisError
+  )
+where
+
+import           Cardano.Api (Key (..), NetworkId, textShow, writeSecrets)
+import           Cardano.Api.Byron (ByronKey, SerialiseAsRawBytes (..), SigningKey (..),
+                   toByronRequiresNetworkMagic)
+
+import qualified Cardano.Chain.Common as Common
+import           Cardano.Chain.Delegation hiding (Map, epoch)
+import           Cardano.Chain.Genesis (GeneratedSecrets (..))
+import qualified Cardano.Chain.Genesis as Genesis
+import qualified Cardano.Chain.UTxO as UTxO
+import           Cardano.CLI.Byron.Delegation
+import           Cardano.CLI.Byron.Key
+import           Cardano.CLI.Types.Common (GenesisFile (..))
+import qualified Cardano.Crypto as Crypto
+import           Cardano.Prelude (canonicalDecodePretty, canonicalEncodePretty)
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans (MonadTrans (..))
+import           Control.Monad.Trans.Except (ExceptT (..), withExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, left, right)
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Lazy as LB
+import qualified Data.List as List
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.String (IsString)
+import           Data.Text (Text)
+import qualified Data.Text.Encoding as Text
+import           Data.Text.Lazy (toStrict)
+import           Data.Text.Lazy.Builder (toLazyText)
+import           Data.Time (UTCTime)
+import           Formatting.Buildable
+import           System.Directory (createDirectory, doesPathExist)
+
+data ByronGenesisError
+  = ByronDelegationCertSerializationError !ByronDelegationError
+  | ByronDelegationKeySerializationError ByronDelegationError
+  | GenesisGenerationError !Genesis.GenesisDataGenerationError
+  | GenesisOutputDirAlreadyExists FilePath
+  | GenesisReadError !FilePath !Genesis.GenesisDataError
+  | GenesisSpecError !Text
+  | MakeGenesisDelegationError !Genesis.GenesisDelegationError
+  | NoGenesisDelegationForKey !Text
+  | ProtocolParametersParseFailed !FilePath !Text
+  | PoorKeyFailure !ByronKeyFailure
+
+  deriving Int -> ByronGenesisError -> ShowS
+[ByronGenesisError] -> ShowS
+ByronGenesisError -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [ByronGenesisError] -> ShowS
+$cshowList :: [ByronGenesisError] -> ShowS
+show :: ByronGenesisError -> FilePath
+$cshow :: ByronGenesisError -> FilePath
+showsPrec :: Int -> ByronGenesisError -> ShowS
+$cshowsPrec :: Int -> ByronGenesisError -> ShowS
+Show
+
+renderByronGenesisError :: ByronGenesisError -> Text
+renderByronGenesisError :: ByronGenesisError -> Text
+renderByronGenesisError ByronGenesisError
+err =
+  case ByronGenesisError
+err of
+    ProtocolParametersParseFailed FilePath
+pParamFp Text
+parseError ->
+      Text
+"Protocol parameters parse failed at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+pParamFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> Text
+parseError
+    ByronDelegationCertSerializationError ByronDelegationError
+bDelegSerErr ->
+      Text
+"Error while serializing the delegation certificate: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronDelegationError
+bDelegSerErr
+    ByronDelegationKeySerializationError ByronDelegationError
+bKeySerErr ->
+      Text
+"Error while serializing the delegation key: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronDelegationError
+bKeySerErr
+    PoorKeyFailure ByronKeyFailure
+bKeyFailure ->
+      Text
+"Error creating poor keys: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronKeyFailure
+bKeyFailure
+    MakeGenesisDelegationError GenesisDelegationError
+genDelegError ->
+      Text
+"Error creating genesis delegation: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow GenesisDelegationError
+genDelegError
+    GenesisGenerationError GenesisDataGenerationError
+genDataGenError ->
+      Text
+"Error generating genesis: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow GenesisDataGenerationError
+genDataGenError
+    GenesisOutputDirAlreadyExists FilePath
+genOutDir ->
+      Text
+"Genesis output directory already exists: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+genOutDir
+    GenesisReadError FilePath
+genFp GenesisDataError
+genDataError ->
+      Text
+"Error while reading genesis file at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+genFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow GenesisDataError
+genDataError
+    GenesisSpecError Text
+genSpecError ->
+      Text
+"Error while creating genesis spec" forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+genSpecError
+    NoGenesisDelegationForKey Text
+verKey ->
+      Text
+"Error while creating genesis, no delegation certificate for this verification key:" forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+verKey
+
+newtype NewDirectory =
+  NewDirectory FilePath
+  deriving (NewDirectory -> NewDirectory -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: NewDirectory -> NewDirectory -> Bool
+$c/= :: NewDirectory -> NewDirectory -> Bool
+== :: NewDirectory -> NewDirectory -> Bool
+$c== :: NewDirectory -> NewDirectory -> Bool
+Eq, Eq NewDirectory
+NewDirectory -> NewDirectory -> Bool
+NewDirectory -> NewDirectory -> Ordering
+NewDirectory -> NewDirectory -> NewDirectory
+forall a.
+Eq a
+-> (a -> a -> Ordering)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> a)
+-> (a -> a -> a)
+-> Ord a
+min :: NewDirectory -> NewDirectory -> NewDirectory
+$cmin :: NewDirectory -> NewDirectory -> NewDirectory
+max :: NewDirectory -> NewDirectory -> NewDirectory
+$cmax :: NewDirectory -> NewDirectory -> NewDirectory
+>= :: NewDirectory -> NewDirectory -> Bool
+$c>= :: NewDirectory -> NewDirectory -> Bool
+> :: NewDirectory -> NewDirectory -> Bool
+$c> :: NewDirectory -> NewDirectory -> Bool
+<= :: NewDirectory -> NewDirectory -> Bool
+$c<= :: NewDirectory -> NewDirectory -> Bool
+< :: NewDirectory -> NewDirectory -> Bool
+$c< :: NewDirectory -> NewDirectory -> Bool
+compare :: NewDirectory -> NewDirectory -> Ordering
+$ccompare :: NewDirectory -> NewDirectory -> Ordering
+Ord, Int -> NewDirectory -> ShowS
+[NewDirectory] -> ShowS
+NewDirectory -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [NewDirectory] -> ShowS
+$cshowList :: [NewDirectory] -> ShowS
+show :: NewDirectory -> FilePath
+$cshow :: NewDirectory -> FilePath
+showsPrec :: Int -> NewDirectory -> ShowS
+$cshowsPrec :: Int -> NewDirectory -> ShowS
+Show, FilePath -> NewDirectory
+forall a. (FilePath -> a) -> IsString a
+fromString :: FilePath -> NewDirectory
+$cfromString :: FilePath -> NewDirectory
+IsString)
+
+-- | Parameters required for generation of new genesis.
+data GenesisParameters = GenesisParameters
+  { GenesisParameters -> UTCTime
+gpStartTime :: !UTCTime
+  , GenesisParameters -> FilePath
+gpProtocolParamsFile :: !FilePath
+  , GenesisParameters -> BlockCount
+gpK :: !Common.BlockCount
+  , GenesisParameters -> ProtocolMagic
+gpProtocolMagic :: !Crypto.ProtocolMagic
+  , GenesisParameters -> TestnetBalanceOptions
+gpTestnetBalance :: !Genesis.TestnetBalanceOptions
+  , GenesisParameters -> FakeAvvmOptions
+gpFakeAvvmOptions :: !Genesis.FakeAvvmOptions
+  , GenesisParameters -> LovelacePortion
+gpAvvmBalanceFactor :: !Common.LovelacePortion
+  , GenesisParameters -> Maybe Integer
+gpSeed :: !(Maybe Integer)
+  } deriving Int -> GenesisParameters -> ShowS
+[GenesisParameters] -> ShowS
+GenesisParameters -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisParameters] -> ShowS
+$cshowList :: [GenesisParameters] -> ShowS
+show :: GenesisParameters -> FilePath
+$cshow :: GenesisParameters -> FilePath
+showsPrec :: Int -> GenesisParameters -> ShowS
+$cshowsPrec :: Int -> GenesisParameters -> ShowS
+Show
+
+
+mkGenesisSpec :: GenesisParameters -> ExceptT ByronGenesisError IO Genesis.GenesisSpec
+mkGenesisSpec :: GenesisParameters -> ExceptT ByronGenesisError IO GenesisSpec
+mkGenesisSpec GenesisParameters
+gp = do
+  ByteString
+protoParamsRaw <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> IO ByteString
+LB.readFile forall a b. (a -> b) -> a -> b
+$ GenesisParameters -> FilePath
+gpProtocolParamsFile GenesisParameters
+gp
+
+  ProtocolParameters
+protocolParameters <- forall (m :: * -> *) e e' a.
+Functor m =>
+(e -> e') -> ExceptT e m a -> ExceptT e' m a
+withExceptT
+    (FilePath -> Text -> ByronGenesisError
+ProtocolParametersParseFailed (GenesisParameters -> FilePath
+gpProtocolParamsFile GenesisParameters
+gp)) forall a b. (a -> b) -> a -> b
+$
+    forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a.
+FromJSON (Either SchemaError) a =>
+ByteString -> Either Text a
+canonicalDecodePretty ByteString
+protoParamsRaw
+
+  -- We're relying on the generator to fake AVVM and delegation.
+  GenesisDelegation
+genesisDelegation <- forall (m :: * -> *) e e' a.
+Functor m =>
+(e -> e') -> ExceptT e m a -> ExceptT e' m a
+withExceptT GenesisDelegationError -> ByronGenesisError
+MakeGenesisDelegationError forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *).
+MonadError GenesisDelegationError m =>
+[Certificate] -> m GenesisDelegation
+Genesis.mkGenesisDelegation []
+
+  forall (m :: * -> *) e e' a.
+Functor m =>
+(e -> e') -> ExceptT e m a -> ExceptT e' m a
+withExceptT Text -> ByronGenesisError
+GenesisSpecError forall a b. (a -> b) -> a -> b
+$
+    forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ GenesisAvvmBalances
+-> GenesisDelegation
+-> ProtocolParameters
+-> BlockCount
+-> ProtocolMagic
+-> GenesisInitializer
+-> Either Text GenesisSpec
+Genesis.mkGenesisSpec
+      (Map CompactRedeemVerificationKey Lovelace -> GenesisAvvmBalances
+Genesis.GenesisAvvmBalances forall a. Monoid a => a
+mempty)
+      GenesisDelegation
+genesisDelegation
+      ProtocolParameters
+protocolParameters
+      (GenesisParameters -> BlockCount
+gpK GenesisParameters
+gp)
+      (GenesisParameters -> ProtocolMagic
+gpProtocolMagic GenesisParameters
+gp)
+      (Bool -> GenesisInitializer
+mkGenesisInitialiser Bool
+True)
+
+  where
+    mkGenesisInitialiser :: Bool -> Genesis.GenesisInitializer
+    mkGenesisInitialiser :: Bool -> GenesisInitializer
+mkGenesisInitialiser =
+      TestnetBalanceOptions
+-> FakeAvvmOptions -> Rational -> Bool -> GenesisInitializer
+Genesis.GenesisInitializer
+      (GenesisParameters -> TestnetBalanceOptions
+gpTestnetBalance GenesisParameters
+gp)
+      (GenesisParameters -> FakeAvvmOptions
+gpFakeAvvmOptions GenesisParameters
+gp)
+      (LovelacePortion -> Rational
+Common.lovelacePortionToRational (GenesisParameters -> LovelacePortion
+gpAvvmBalanceFactor GenesisParameters
+gp))
+
+-- | Generate a genesis, for given blockchain start time, protocol parameters,
+-- security parameter, protocol magic, testnet balance options, fake AVVM options,
+-- AVVM balance factor and seed.  Throw an error in the following cases: if the
+-- protocol parameters file can't be read or fails parse, if genesis delegation
+-- couldn't be generated, if the parameter-derived genesis specification is wrong,
+-- or if the genesis fails generation.
+mkGenesis
+  :: GenesisParameters
+  -> ExceptT ByronGenesisError IO (Genesis.GenesisData, Genesis.GeneratedSecrets)
+mkGenesis :: GenesisParameters
+-> ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets)
+mkGenesis GenesisParameters
+gp = do
+  GenesisSpec
+genesisSpec <- GenesisParameters -> ExceptT ByronGenesisError IO GenesisSpec
+mkGenesisSpec GenesisParameters
+gp
+
+  forall (m :: * -> *) e e' a.
+Functor m =>
+(e -> e') -> ExceptT e m a -> ExceptT e' m a
+withExceptT GenesisDataGenerationError -> ByronGenesisError
+GenesisGenerationError forall a b. (a -> b) -> a -> b
+$
+    UTCTime
+-> GenesisSpec
+-> ExceptT
+     GenesisDataGenerationError IO (GenesisData, GeneratedSecrets)
+Genesis.generateGenesisData (GenesisParameters -> UTCTime
+gpStartTime GenesisParameters
+gp) GenesisSpec
+genesisSpec
+
+-- | Read genesis from a file.
+readGenesis :: GenesisFile
+            -> NetworkId
+            -> ExceptT ByronGenesisError IO Genesis.Config
+readGenesis :: GenesisFile -> NetworkId -> ExceptT ByronGenesisError IO Config
+readGenesis (GenesisFile FilePath
+file) NetworkId
+nw =
+  forall (m :: * -> *) e e' a.
+Functor m =>
+(e -> e') -> ExceptT e m a -> ExceptT e' m a
+firstExceptT (FilePath -> GenesisDataError -> ByronGenesisError
+GenesisReadError FilePath
+file) forall a b. (a -> b) -> a -> b
+$ do
+    (GenesisData
+genesisData, GenesisHash
+genesisHash) <- forall (m :: * -> *).
+(MonadError GenesisDataError m, MonadIO m) =>
+FilePath -> m (GenesisData, GenesisHash)
+Genesis.readGenesisData FilePath
+file
+    forall (m :: * -> *) a. Monad m => a -> m a
+return Genesis.Config {
+      configGenesisData :: GenesisData
+Genesis.configGenesisData       = GenesisData
+genesisData,
+      configGenesisHash :: GenesisHash
+Genesis.configGenesisHash       = GenesisHash
+genesisHash,
+      configReqNetMagic :: RequiresNetworkMagic
+Genesis.configReqNetMagic       = NetworkId -> RequiresNetworkMagic
+toByronRequiresNetworkMagic NetworkId
+nw,
+      configUTxOConfiguration :: UTxOConfiguration
+Genesis.configUTxOConfiguration = UTxOConfiguration
+UTxO.defaultUTxOConfiguration
+    }
+
+-- | Write out genesis into a directory that must not yet exist.  An error is
+-- thrown if the directory already exists, or the genesis has delegate keys that
+-- are not delegated to.
+dumpGenesis
+  :: NewDirectory
+  -> Genesis.GenesisData
+  -> Genesis.GeneratedSecrets
+  -> ExceptT ByronGenesisError IO ()
+dumpGenesis :: NewDirectory
+-> GenesisData
+-> GeneratedSecrets
+-> ExceptT ByronGenesisError IO ()
+dumpGenesis (NewDirectory FilePath
+outDir) GenesisData
+genesisData GeneratedSecrets
+gs = do
+  Bool
+exists <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO Bool
+doesPathExist FilePath
+outDir
+  if Bool
+exists
+  then forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> ByronGenesisError
+GenesisOutputDirAlreadyExists FilePath
+outDir
+  else forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ()
+createDirectory FilePath
+outDir
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+LB.writeFile FilePath
+genesisJSONFile (forall a. ToJSON Identity a => a -> ByteString
+canonicalEncodePretty GenesisData
+genesisData)
+
+  [Certificate]
+dlgCerts <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (SigningKey ByronKey -> ExceptT ByronGenesisError IO Certificate
+findDelegateCert forall b c a. (b -> c) -> (a -> b) -> a -> c
+. SigningKey -> SigningKey ByronKey
+ByronSigningKey) forall a b. (a -> b) -> a -> b
+$ GeneratedSecrets -> [SigningKey]
+gsRichSecrets GeneratedSecrets
+gs
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut FilePath
+"genesis-keys" FilePath
+"key"
+                forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes
+                (forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey ByronKey
+ByronSigningKey forall a b. (a -> b) -> a -> b
+$ GeneratedSecrets -> [SigningKey]
+gsDlgIssuersSecrets GeneratedSecrets
+gs)
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut FilePath
+"delegate-keys" FilePath
+"key"
+                forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes
+                (forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey ByronKey
+ByronSigningKey forall a b. (a -> b) -> a -> b
+$ GeneratedSecrets -> [SigningKey]
+gsRichSecrets GeneratedSecrets
+gs)
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut FilePath
+"poor-keys" FilePath
+"key"
+                forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes
+                (forall a b. (a -> b) -> [a] -> [b]
+map (SigningKey -> SigningKey ByronKey
+ByronSigningKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. PoorSecret -> SigningKey
+Genesis.poorSecretToKey) forall a b. (a -> b) -> a -> b
+$ GeneratedSecrets -> [PoorSecret]
+gsPoorSecrets GeneratedSecrets
+gs)
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut FilePath
+"delegation-cert" FilePath
+"json" Certificate -> ByteString
+serialiseDelegationCert [Certificate]
+dlgCerts
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut FilePath
+"avvm-secrets" FilePath
+"secret" RedeemSigningKey -> ByteString
+printFakeAvvmSecrets forall a b. (a -> b) -> a -> b
+$ GeneratedSecrets -> [RedeemSigningKey]
+gsFakeAvvmSecrets GeneratedSecrets
+gs
+ where
+  dlgCertMap :: Map Common.KeyHash Certificate
+  dlgCertMap :: Map KeyHash Certificate
+dlgCertMap = GenesisDelegation -> Map KeyHash Certificate
+Genesis.unGenesisDelegation forall a b. (a -> b) -> a -> b
+$ GenesisData -> GenesisDelegation
+Genesis.gdHeavyDelegation GenesisData
+genesisData
+
+  findDelegateCert :: SigningKey ByronKey -> ExceptT ByronGenesisError IO Certificate
+  findDelegateCert :: SigningKey ByronKey -> ExceptT ByronGenesisError IO Certificate
+findDelegateCert bSkey :: SigningKey ByronKey
+bSkey@(ByronSigningKey SigningKey
+sk) =
+    case forall (t :: * -> *) a. Foldable t => (a -> Bool) -> t a -> Maybe a
+List.find (SigningKey -> Certificate -> Bool
+isCertForSK SigningKey
+sk) (forall k a. Map k a -> [a]
+Map.elems Map KeyHash Certificate
+dlgCertMap) of
+      Maybe Certificate
+Nothing -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> ByronGenesisError
+NoGenesisDelegationForKey
+                 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKey ByronKey -> Text
+prettyPublicKey forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey ByronKey
+bSkey
+      Just Certificate
+x  -> forall (m :: * -> *) a x. Monad m => a -> ExceptT x m a
+right Certificate
+x
+
+  genesisJSONFile :: FilePath
+  genesisJSONFile :: FilePath
+genesisJSONFile = FilePath
+outDir forall a. Semigroup a => a -> a -> a
+<> FilePath
+"/genesis.json"
+
+  printFakeAvvmSecrets :: Crypto.RedeemSigningKey -> ByteString
+  printFakeAvvmSecrets :: RedeemSigningKey -> ByteString
+printFakeAvvmSecrets RedeemSigningKey
+rskey = Text -> ByteString
+Text.encodeUtf8 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> Text
+toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Builder -> Text
+toLazyText forall a b. (a -> b) -> a -> b
+$ forall p. Buildable p => p -> Builder
+build RedeemSigningKey
+rskey
+
+  -- Compare a given 'SigningKey' with a 'Certificate' 'VerificationKey'
+  isCertForSK :: Crypto.SigningKey -> Certificate -> Bool
+  isCertForSK :: SigningKey -> Certificate -> Bool
+isCertForSK SigningKey
+sk Certificate
+cert = forall a. ACertificate a -> VerificationKey
+delegateVK Certificate
+cert forall a. Eq a => a -> a -> Bool
+== SigningKey -> VerificationKey
+Crypto.toVerification SigningKey
+sk
+
+  wOut :: String -> String -> (a -> ByteString) -> [a] -> IO ()
+  wOut :: forall a. FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+wOut = forall a.
+FilePath
+-> FilePath -> FilePath -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets FilePath
+outDir
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Key.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Key.html new file mode 100644 index 0000000000..b68dbef238 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Key.html @@ -0,0 +1,398 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+
+module Cardano.CLI.Byron.Key
+  ( -- * Keys
+    ByronKeyFailure(..)
+  , NewSigningKeyFile(..)
+  , NewVerificationKeyFile(..)
+  , VerificationKeyFile
+  , prettyPublicKey
+  , readByronSigningKey
+  , readPaymentVerificationKey
+  , renderByronKeyFailure
+  , byronWitnessToVerKey
+  )
+where
+
+import           Cardano.Api.Byron
+
+import qualified Cardano.Chain.Common as Common
+import           Cardano.CLI.Types.Common
+import qualified Cardano.Crypto.Signing as Crypto
+
+import           Control.Exception (Exception (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left,
+                   right)
+import qualified Data.ByteString as SB
+import qualified Data.ByteString.UTF8 as UTF8
+import           Data.String (IsString, fromString)
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           Formatting (build, sformat, (%))
+
+
+data ByronKeyFailure
+  = ReadSigningKeyFailure !FilePath !Text
+  | ReadVerificationKeyFailure !FilePath !Text
+  | LegacySigningKeyDeserialisationFailed !FilePath
+  | SigningKeyDeserialisationFailed !FilePath
+  | VerificationKeyDeserialisationFailed !FilePath !Text
+  | CannotMigrateFromNonLegacySigningKey !FilePath
+  deriving Int -> ByronKeyFailure -> ShowS
+[ByronKeyFailure] -> ShowS
+ByronKeyFailure -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [ByronKeyFailure] -> ShowS
+$cshowList :: [ByronKeyFailure] -> ShowS
+show :: ByronKeyFailure -> FilePath
+$cshow :: ByronKeyFailure -> FilePath
+showsPrec :: Int -> ByronKeyFailure -> ShowS
+$cshowsPrec :: Int -> ByronKeyFailure -> ShowS
+Show
+
+renderByronKeyFailure :: ByronKeyFailure -> Text
+renderByronKeyFailure :: ByronKeyFailure -> Text
+renderByronKeyFailure ByronKeyFailure
+err =
+  case ByronKeyFailure
+err of
+    CannotMigrateFromNonLegacySigningKey FilePath
+fp ->
+      Text
+"Migrate from non-legacy Byron key unnecessary: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+fp
+    ReadSigningKeyFailure FilePath
+sKeyFp Text
+readErr ->
+      Text
+"Error reading signing key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+sKeyFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+readErr
+    ReadVerificationKeyFailure FilePath
+vKeyFp Text
+readErr ->
+      Text
+"Error reading verification key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+vKeyFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+readErr
+    LegacySigningKeyDeserialisationFailed FilePath
+fp ->
+      Text
+"Error attempting to deserialise a legacy signing key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+fp
+    SigningKeyDeserialisationFailed FilePath
+sKeyFp  ->
+      Text
+"Error deserialising signing key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+sKeyFp
+    VerificationKeyDeserialisationFailed FilePath
+vKeyFp Text
+deSerError ->
+      Text
+"Error deserialising verification key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+vKeyFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+deSerError
+
+newtype NewSigningKeyFile =
+  NewSigningKeyFile FilePath
+  deriving (NewSigningKeyFile -> NewSigningKeyFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c/= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+== :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c== :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+Eq, Eq NewSigningKeyFile
+NewSigningKeyFile -> NewSigningKeyFile -> Bool
+NewSigningKeyFile -> NewSigningKeyFile -> Ordering
+NewSigningKeyFile -> NewSigningKeyFile -> NewSigningKeyFile
+forall a.
+Eq a
+-> (a -> a -> Ordering)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> a)
+-> (a -> a -> a)
+-> Ord a
+min :: NewSigningKeyFile -> NewSigningKeyFile -> NewSigningKeyFile
+$cmin :: NewSigningKeyFile -> NewSigningKeyFile -> NewSigningKeyFile
+max :: NewSigningKeyFile -> NewSigningKeyFile -> NewSigningKeyFile
+$cmax :: NewSigningKeyFile -> NewSigningKeyFile -> NewSigningKeyFile
+>= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c>= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+> :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c> :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+<= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c<= :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+< :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+$c< :: NewSigningKeyFile -> NewSigningKeyFile -> Bool
+compare :: NewSigningKeyFile -> NewSigningKeyFile -> Ordering
+$ccompare :: NewSigningKeyFile -> NewSigningKeyFile -> Ordering
+Ord, Int -> NewSigningKeyFile -> ShowS
+[NewSigningKeyFile] -> ShowS
+NewSigningKeyFile -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [NewSigningKeyFile] -> ShowS
+$cshowList :: [NewSigningKeyFile] -> ShowS
+show :: NewSigningKeyFile -> FilePath
+$cshow :: NewSigningKeyFile -> FilePath
+showsPrec :: Int -> NewSigningKeyFile -> ShowS
+$cshowsPrec :: Int -> NewSigningKeyFile -> ShowS
+Show, FilePath -> NewSigningKeyFile
+forall a. (FilePath -> a) -> IsString a
+fromString :: FilePath -> NewSigningKeyFile
+$cfromString :: FilePath -> NewSigningKeyFile
+IsString)
+
+newtype NewVerificationKeyFile =
+  NewVerificationKeyFile FilePath
+   deriving (NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c/= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+== :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c== :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+Eq, Eq NewVerificationKeyFile
+NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+NewVerificationKeyFile -> NewVerificationKeyFile -> Ordering
+NewVerificationKeyFile
+-> NewVerificationKeyFile -> NewVerificationKeyFile
+forall a.
+Eq a
+-> (a -> a -> Ordering)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> a)
+-> (a -> a -> a)
+-> Ord a
+min :: NewVerificationKeyFile
+-> NewVerificationKeyFile -> NewVerificationKeyFile
+$cmin :: NewVerificationKeyFile
+-> NewVerificationKeyFile -> NewVerificationKeyFile
+max :: NewVerificationKeyFile
+-> NewVerificationKeyFile -> NewVerificationKeyFile
+$cmax :: NewVerificationKeyFile
+-> NewVerificationKeyFile -> NewVerificationKeyFile
+>= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c>= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+> :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c> :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+<= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c<= :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+< :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+$c< :: NewVerificationKeyFile -> NewVerificationKeyFile -> Bool
+compare :: NewVerificationKeyFile -> NewVerificationKeyFile -> Ordering
+$ccompare :: NewVerificationKeyFile -> NewVerificationKeyFile -> Ordering
+Ord, Int -> NewVerificationKeyFile -> ShowS
+[NewVerificationKeyFile] -> ShowS
+NewVerificationKeyFile -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [NewVerificationKeyFile] -> ShowS
+$cshowList :: [NewVerificationKeyFile] -> ShowS
+show :: NewVerificationKeyFile -> FilePath
+$cshow :: NewVerificationKeyFile -> FilePath
+showsPrec :: Int -> NewVerificationKeyFile -> ShowS
+$cshowsPrec :: Int -> NewVerificationKeyFile -> ShowS
+Show, FilePath -> NewVerificationKeyFile
+forall a. (FilePath -> a) -> IsString a
+fromString :: FilePath -> NewVerificationKeyFile
+$cfromString :: FilePath -> NewVerificationKeyFile
+IsString)
+
+-- | Print some invariant properties of a public key:
+--   its hash and formatted view.
+prettyPublicKey :: VerificationKey ByronKey-> Text
+prettyPublicKey :: VerificationKey ByronKey -> Text
+prettyPublicKey (ByronVerificationKey VerificationKey
+vk) =
+  forall a. Format Text a -> a
+sformat (  Format
+  (AddressHash VerificationKey
+   -> VerificationKey -> VerificationKey -> Text)
+  (AddressHash VerificationKey
+   -> VerificationKey -> VerificationKey -> Text)
+"    public key hash: " forall r a r'. Format r a -> Format r' r -> Format r' a
+% forall a r. Buildable a => Format r (a -> r)
+build forall r a r'. Format r a -> Format r' r -> Format r' a
+%
+           Format
+  (VerificationKey -> VerificationKey -> Text)
+  (VerificationKey -> VerificationKey -> Text)
+"\npublic key (base64): " forall r a r'. Format r a -> Format r' r -> Format r' a
+% forall r. Format r (VerificationKey -> r)
+Crypto.fullVerificationKeyF forall r a r'. Format r a -> Format r' r -> Format r' a
+%
+           Format (VerificationKey -> Text) (VerificationKey -> Text)
+"\n   public key (hex): " forall r a r'. Format r a -> Format r' r -> Format r' a
+% forall r. Format r (VerificationKey -> r)
+Crypto.fullVerificationKeyHexF)
+    (forall a. EncCBOR a => a -> AddressHash a
+Common.addressHash VerificationKey
+vk) VerificationKey
+vk VerificationKey
+vk
+
+byronWitnessToVerKey :: SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey :: SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey (AByronSigningKeyLegacy SigningKey ByronKeyLegacy
+sKeyLeg) = forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey ByronKeyLegacy
+sKeyLeg
+byronWitnessToVerKey (AByronSigningKey SigningKey ByronKey
+sKeyNonLeg) = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey ByronKey
+sKeyNonLeg
+
+-- TODO:  we need to support password-protected secrets.
+-- | Read signing key from a file.
+readByronSigningKey :: ByronKeyFormat -> SigningKeyFile In -> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey :: ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat (File FilePath
+fp) = do
+  ByteString
+sK <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FilePath -> Text -> ByronKeyFailure
+ReadSigningKeyFailure FilePath
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+T.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Exception e => e -> FilePath
+displayException) forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ByteString
+SB.readFile FilePath
+fp
+  case ByronKeyFormat
+bKeyFormat of
+    ByronKeyFormat
+LegacyByronKeyFormat ->
+      case forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either SerialiseAsRawBytesError a
+deserialiseFromRawBytes (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType ByronKeyLegacy
+AsByronKeyLegacy) ByteString
+sK of
+        Right SigningKey ByronKeyLegacy
+legKey -> forall (m :: * -> *) a x. Monad m => a -> ExceptT x m a
+right forall a b. (a -> b) -> a -> b
+$ SigningKey ByronKeyLegacy -> SomeByronSigningKey
+AByronSigningKeyLegacy SigningKey ByronKeyLegacy
+legKey
+        Left SerialiseAsRawBytesError
+_ -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> ByronKeyFailure
+LegacySigningKeyDeserialisationFailed FilePath
+fp
+    ByronKeyFormat
+NonLegacyByronKeyFormat ->
+      case forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either SerialiseAsRawBytesError a
+deserialiseFromRawBytes (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType ByronKey
+AsByronKey) ByteString
+sK of
+        Right SigningKey ByronKey
+nonLegSKey -> forall (m :: * -> *) a x. Monad m => a -> ExceptT x m a
+right forall a b. (a -> b) -> a -> b
+$ SigningKey ByronKey -> SomeByronSigningKey
+AByronSigningKey SigningKey ByronKey
+nonLegSKey
+        Left SerialiseAsRawBytesError
+_ -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> ByronKeyFailure
+SigningKeyDeserialisationFailed FilePath
+fp
+
+-- | Read verification key from a file.  Throw an error if the file can't be read
+-- or the key fails to deserialise.
+readPaymentVerificationKey :: VerificationKeyFile In -> ExceptT ByronKeyFailure IO Crypto.VerificationKey
+readPaymentVerificationKey :: VerificationKeyFile 'In
+-> ExceptT ByronKeyFailure IO VerificationKey
+readPaymentVerificationKey (File FilePath
+fp) = do
+  ByteString
+vkB <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FilePath -> Text -> ByronKeyFailure
+ReadVerificationKeyFailure FilePath
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+T.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Exception e => e -> FilePath
+displayException) (FilePath -> IO ByteString
+SB.readFile FilePath
+fp)
+  -- Verification Key
+  let eVk :: ExceptT VerificationKeyParseError IO VerificationKey
+eVk = forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> Either VerificationKeyParseError VerificationKey
+Crypto.parseFullVerificationKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. IsString a => FilePath -> a
+fromString forall a b. (a -> b) -> a -> b
+$ ByteString -> FilePath
+UTF8.toString ByteString
+vkB
+  -- Convert error to 'CliError'
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (FilePath -> Text -> ByronKeyFailure
+VerificationKeyDeserialisationFailed FilePath
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+T.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> FilePath
+show) ExceptT VerificationKeyParseError IO VerificationKey
+eVk
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Legacy.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Legacy.html new file mode 100644 index 0000000000..a7bceb3617 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Legacy.html @@ -0,0 +1,183 @@ +
{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Byron.Legacy (
+      LegacyDelegateKey(..)
+    , encodeLegacyDelegateKey
+    , decodeLegacyDelegateKey
+    ) where
+
+import           Cardano.Api (textShow)
+
+import           Cardano.Crypto.Signing (SigningKey (..))
+import qualified Cardano.Crypto.Wallet as Wallet
+
+import qualified Codec.CBOR.Decoding as D
+import qualified Codec.CBOR.Encoding as E
+import           Control.Monad (when)
+import           Data.Text (Text)
+import           Formatting (build, formatToString)
+
+
+-- | LegacyDelegateKey is a subset of the UserSecret's from the legacy codebase:
+-- 1. the VSS keypair must be present
+-- 2. the signing key must be present
+-- 3. the rest must be absent (Nothing)
+--
+-- Legacy reference: https://github.com/input-output-hk/cardano-sl/blob/release/3.0.1/lib/src/Pos/Util/UserSecret.hs#L189
+newtype LegacyDelegateKey =  LegacyDelegateKey { LegacyDelegateKey -> SigningKey
+lrkSigningKey :: SigningKey}
+
+encodeXPrv :: Wallet.XPrv -> E.Encoding
+encodeXPrv :: XPrv -> Encoding
+encodeXPrv XPrv
+a = ByteString -> Encoding
+E.encodeBytes forall a b. (a -> b) -> a -> b
+$ XPrv -> ByteString
+Wallet.unXPrv XPrv
+a
+
+decodeXPrv :: D.Decoder s Wallet.XPrv
+decodeXPrv :: forall s. Decoder s XPrv
+decodeXPrv =
+  forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
+either (forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Format String a -> a
+formatToString forall a r. Buildable a => Format r (a -> r)
+build) forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall bin. ByteArrayAccess bin => bin -> Either String XPrv
+Wallet.xprv forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< forall s. Decoder s ByteString
+D.decodeBytesCanonical
+
+-- Stolen from: cardano-sl/binary/src/Pos/Binary/Class/Core.hs
+-- | Enforces that the input size is the same as the decoded one, failing in
+-- case it's not.
+enforceSize :: Text -> Int -> D.Decoder s ()
+enforceSize :: forall s. Text -> Int -> Decoder s ()
+enforceSize Text
+lbl Int
+requestedSize = forall s. Decoder s Int
+D.decodeListLenCanonical forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
+>>= forall s. Int -> Text -> Int -> Decoder s ()
+matchSize Int
+requestedSize Text
+lbl
+
+-- Stolen from: cardano-sl/binary/src/Pos/Binary/Class/Core.hs
+-- | Compare two sizes, failing if they are not equal.
+matchSize :: Int -> Text -> Int -> D.Decoder s ()
+matchSize :: forall s. Int -> Text -> Int -> Decoder s ()
+matchSize Int
+requestedSize Text
+lbl Int
+actualSize =
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (Int
+actualSize forall a. Eq a => a -> a -> Bool
+/= Int
+requestedSize) forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Format String a -> a
+formatToString forall a r. Buildable a => Format r (a -> r)
+build (Text
+lbl forall a. Semigroup a => a -> a -> a
+<> Text
+" failed the size check. Expected " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Int
+requestedSize forall a. Semigroup a => a -> a -> a
+<> Text
+", found " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Int
+actualSize)
+
+-- | Encoder for a Byron/Classic signing key.
+--   Lifted from cardano-sl legacy codebase.
+encodeLegacyDelegateKey :: LegacyDelegateKey -> E.Encoding
+encodeLegacyDelegateKey :: LegacyDelegateKey -> Encoding
+encodeLegacyDelegateKey (LegacyDelegateKey (SigningKey XPrv
+sk))
+  =  Word -> Encoding
+E.encodeListLen Word
+4
+  forall a. Semigroup a => a -> a -> a
+<> Word -> Encoding
+E.encodeListLen Word
+1 forall a. Semigroup a => a -> a -> a
+<> ByteString -> Encoding
+E.encodeBytes ByteString
+"vss deprecated"
+  forall a. Semigroup a => a -> a -> a
+<> Word -> Encoding
+E.encodeListLen Word
+1 forall a. Semigroup a => a -> a -> a
+<> XPrv -> Encoding
+encodeXPrv XPrv
+sk
+  forall a. Semigroup a => a -> a -> a
+<> Encoding
+E.encodeListLenIndef forall a. Semigroup a => a -> a -> a
+<> Encoding
+E.encodeBreak
+  forall a. Semigroup a => a -> a -> a
+<> Word -> Encoding
+E.encodeListLen Word
+0
+
+-- | Decoder for a Byron/Classic signing key.
+--   Lifted from cardano-sl legacy codebase.
+decodeLegacyDelegateKey :: D.Decoder s LegacyDelegateKey
+decodeLegacyDelegateKey :: forall s. Decoder s LegacyDelegateKey
+decodeLegacyDelegateKey = do
+    forall s. Text -> Int -> Decoder s ()
+enforceSize Text
+"UserSecret" Int
+4
+    ByteString
+_    <- do
+      forall s. Text -> Int -> Decoder s ()
+enforceSize Text
+"vss" Int
+1
+      forall s. Decoder s ByteString
+D.decodeBytes
+    SigningKey
+pkey <- do
+      forall s. Text -> Int -> Decoder s ()
+enforceSize Text
+"pkey" Int
+1
+      XPrv -> SigningKey
+SigningKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. Decoder s XPrv
+decodeXPrv
+    [()]
+_    <- do
+      forall s. Decoder s ()
+D.decodeListLenIndef
+      forall r a r' s.
+(r -> a -> r) -> r -> (r -> r') -> Decoder s a -> Decoder s r'
+D.decodeSequenceLenIndef (forall a b c. (a -> b -> c) -> b -> a -> c
+flip (:)) [] forall a. [a] -> [a]
+reverse forall s. Decoder s ()
+D.decodeNull
+    ()
+_    <- do
+      forall s. Text -> Int -> Decoder s ()
+enforceSize Text
+"wallet" Int
+0
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ SigningKey -> LegacyDelegateKey
+LegacyDelegateKey SigningKey
+pkey
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Parsers.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Parsers.html new file mode 100644 index 0000000000..9fe20a7c7b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Parsers.html @@ -0,0 +1,2015 @@ +
{-# LANGUAGE DataKinds #-}
+
+module Cardano.CLI.Byron.Parsers
+  ( ByronCommand(..)
+  , NodeCmds(..)
+  , backwardsCompatibilityCommands
+  , parseByronCommands
+  , parseHeavyDelThd
+  , parseInstallerHash
+  , parseMaxBlockSize
+  , parseMaxHeaderSize
+  , parseMaxTxSize
+  , parseMaxProposalSize
+  , parseMpcThd
+  , parseScriptVersion
+  , parseSlotDuration
+  , parseSoftforkRule
+  , parseSystemTag
+  , parseTxFeePolicy
+  , parseUpdateProposalThd
+  , parseUpdateProposalTTL
+  , parseUnlockStakeEpoch
+  , parseUpdateVoteThd
+  ) where
+
+
+import           Cardano.Api hiding (GenesisParameters, UpdateProposal)
+import           Cardano.Api.Byron (Address (..), ByronProtocolParametersUpdate (..),
+                   toByronLovelace)
+import           Cardano.Api.Shelley (ReferenceScript (ReferenceScriptNone))
+
+import           Cardano.Chain.Common (BlockCount (..), TxFeePolicy (..), TxSizeLinear (..),
+                   decodeAddressBase58, rationalToLovelacePortion)
+import qualified Cardano.Chain.Common as Byron
+import           Cardano.Chain.Genesis (FakeAvvmOptions (..), TestnetBalanceOptions (..))
+import           Cardano.Chain.Slotting (EpochNumber (..), SlotNumber (..))
+import           Cardano.Chain.Update (ApplicationName (..), InstallerHash (..), NumSoftwareVersion,
+                   ProtocolVersion (..), SoftforkRule (..), SoftwareVersion (..), SystemTag (..),
+                   checkApplicationName, checkSystemTag)
+import           Cardano.CLI.Byron.Commands
+import           Cardano.CLI.Byron.Genesis
+import           Cardano.CLI.Byron.Key
+import           Cardano.CLI.Byron.Tx
+import           Cardano.CLI.Environment (EnvCli (..))
+import           Cardano.CLI.EraBased.Options.Common hiding (parseLovelace, parseTxIn)
+import           Cardano.CLI.Run (ClientCommand (ByronCommand))
+import           Cardano.CLI.Types.Common
+import           Cardano.Crypto (RequiresNetworkMagic (..))
+import           Cardano.Crypto.Hashing (hashRaw)
+import           Cardano.Crypto.ProtocolMagic (AProtocolMagic (..), ProtocolMagic,
+                   ProtocolMagicId (..))
+import           Cardano.Ledger.Binary (Annotated (..))
+
+import           Control.Monad (when)
+import qualified Data.Attoparsec.ByteString.Char8 as Atto
+import           Data.Attoparsec.Combinator ((<?>))
+import qualified Data.ByteString.Char8 as BSC
+import qualified Data.ByteString.Lazy.Char8 as C8
+import qualified Data.Char as Char
+import           Data.Foldable
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import           Data.Time (UTCTime)
+import           Data.Time.Clock.POSIX (posixSecondsToUTCTime)
+import           Data.Word (Word16, Word64)
+import           Formatting (build, sformat)
+import           GHC.Natural (Natural)
+import           GHC.Word (Word8)
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+
+backwardsCompatibilityCommands :: EnvCli -> Parser ClientCommand
+backwardsCompatibilityCommands :: EnvCli -> Parser ClientCommand
+backwardsCompatibilityCommands EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum [Parser ClientCommand]
+hiddenCmds
+
+  where
+    convertToByronCommand :: Mod CommandFields ByronCommand -> Parser ClientCommand
+    convertToByronCommand :: Mod CommandFields ByronCommand -> Parser ClientCommand
+convertToByronCommand Mod CommandFields ByronCommand
+p = ByronCommand -> ClientCommand
+ByronCommand forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Mod CommandFields a -> Parser a
+Opt.subparser (Mod CommandFields ByronCommand
+p forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal)
+
+    hiddenCmds :: [Parser ClientCommand]
+    hiddenCmds :: [Parser ClientCommand]
+hiddenCmds =
+     forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
+concatMap (forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Mod CommandFields ByronCommand -> Parser ClientCommand
+convertToByronCommand)
+          [ [Mod CommandFields ByronCommand]
+parseGenesisRelatedValues
+          , EnvCli -> [Mod CommandFields ByronCommand]
+parseKeyRelatedValues EnvCli
+envCli
+          , EnvCli -> [Mod CommandFields ByronCommand]
+parseTxRelatedValues EnvCli
+envCli
+          , [Mod CommandFields ByronCommand]
+parseMiscellaneous
+          ]
+
+-- Implemented with asum so all commands don't get hidden when trying to hide
+-- the 'pNodeCmdBackwardCompatible' parser.
+parseByronCommands :: EnvCli -> Parser ByronCommand
+parseByronCommands :: EnvCli -> Parser ByronCommand
+parseByronCommands EnvCli
+envCli = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+"key" (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map forall a. Mod CommandFields a -> Parser a
+Opt.subparser (EnvCli -> [Mod CommandFields ByronCommand]
+parseKeyRelatedValues EnvCli
+envCli))
+      forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Byron key utility commands")
+  , [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+"transaction" (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map forall a. Mod CommandFields a -> Parser a
+Opt.subparser (EnvCli -> [Mod CommandFields ByronCommand]
+parseTxRelatedValues EnvCli
+envCli))
+      forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Byron transaction commands")
+  , [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+"genesis" (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map forall a. Mod CommandFields a -> Parser a
+Opt.subparser [Mod CommandFields ByronCommand]
+parseGenesisRelatedValues)
+      forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Byron genesis block commands")
+  , [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+"governance" (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (NodeCmds -> ByronCommand
+NodeCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Mod CommandFields a -> Parser a
+Opt.subparser (EnvCli -> Mod CommandFields NodeCmds
+pNodeCmds EnvCli
+envCli))
+      forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Byron governance commands")
+  , [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+"miscellaneous" (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map forall a. Mod CommandFields a -> Parser a
+Opt.subparser [Mod CommandFields ByronCommand]
+parseMiscellaneous)
+      forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Byron miscellaneous commands")
+  , NodeCmds -> ByronCommand
+NodeCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser NodeCmds
+pNodeCmdBackwardCompatible EnvCli
+envCli
+  ]
+ where
+   subParser' :: String -> ParserInfo ByronCommand -> Parser ByronCommand
+   subParser' :: [Char] -> ParserInfo ByronCommand -> Parser ByronCommand
+subParser' [Char]
+name ParserInfo ByronCommand
+pInfo = forall a. Mod CommandFields a -> Parser a
+Opt.subparser forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Mod CommandFields a
+Opt.command [Char]
+name ParserInfo ByronCommand
+pInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+Opt.metavar [Char]
+name
+
+pNodeCmdBackwardCompatible :: EnvCli -> Parser NodeCmds
+pNodeCmdBackwardCompatible :: EnvCli -> Parser NodeCmds
+pNodeCmdBackwardCompatible EnvCli
+envCli = forall a. Mod CommandFields a -> Parser a
+Opt.subparser forall a b. (a -> b) -> a -> b
+$ EnvCli -> Mod CommandFields NodeCmds
+pNodeCmds EnvCli
+envCli forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+
+parseCBORObject :: Parser CBORObject
+parseCBORObject :: Parser CBORObject
+parseCBORObject = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ EpochSlots -> CBORObject
+CBORBlockByron forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+      (  forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-block"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help
+          (   [Char]
+"The CBOR file is a byron era block."
+          forall a. Semigroup a => a -> a -> a
+<>  [Char]
+" Enter the number of slots in an epoch. The default value is 21600")
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"INT"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasValue f => a -> Mod f a
+value (Word64 -> EpochSlots
+EpochSlots Word64
+21600)
+      )
+
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' CBORObject
+CBORDelegationCertificateByron forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-delegation-certificate"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"The CBOR file is a byron era delegation certificate"
+
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' CBORObject
+CBORTxByron forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-tx"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"The CBOR file is a byron era tx"
+
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' CBORObject
+CBORUpdateProposalByron forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-update-proposal"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"The CBOR file is a byron era update proposal"
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' CBORObject
+CBORVoteByron forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-vote"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"The CBOR file is a byron era vote"
+  ]
+
+-- | Values required to create genesis.
+parseGenesisParameters :: Parser GenesisParameters
+parseGenesisParameters :: Parser GenesisParameters
+parseGenesisParameters =
+  UTCTime
+-> [Char]
+-> BlockCount
+-> ProtocolMagic
+-> TestnetBalanceOptions
+-> FakeAvvmOptions
+-> LovelacePortion
+-> Maybe Integer
+-> GenesisParameters
+GenesisParameters
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser UTCTime
+parseUTCTime
+          [Char]
+"start-time"
+          [Char]
+"Start time of the new cluster to be enshrined in the new genesis."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath
+          [Char]
+"protocol-parameters-file"
+          [Char]
+"JSON file with protocol parameters."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser BlockCount
+parseK
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolMagic
+parseProtocolMagic
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TestnetBalanceOptions
+parseTestnetBalanceOptions
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser FakeAvvmOptions
+parseFakeAvvmOptions
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Rational -> LovelacePortion
+rationalToLovelacePortion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+         [Char] -> [Char] -> Double -> Parser Rational
+parseFractionWithDefault
+          [Char]
+"avvm-balance-factor"
+          [Char]
+"AVVM balances will be multiplied by this factor (defaults to 1)."
+          Double
+1)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional
+        ( forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral
+            [Char]
+"secret-seed"
+            [Char]
+"Optionally specify the seed of generation."
+        )
+
+parseGenesisRelatedValues :: [Mod CommandFields ByronCommand]
+parseGenesisRelatedValues :: [Mod CommandFields ByronCommand]
+parseGenesisRelatedValues =
+    [ forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command' [Char]
+"genesis" [Char]
+"Create genesis."
+      forall a b. (a -> b) -> a -> b
+$ NewDirectory -> GenesisParameters -> ByronCommand
+Genesis
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser NewDirectory
+parseNewDirectory
+              [Char]
+"genesis-output-dir"
+              [Char]
+"Non-existent directory where genesis JSON file and secrets shall be placed."
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GenesisParameters
+parseGenesisParameters
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command' [Char]
+"print-genesis-hash" [Char]
+"Compute hash of a genesis file."
+        forall a b. (a -> b) -> a -> b
+$ GenesisFile -> ByronCommand
+PrintGenesisHash
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> Parser GenesisFile
+parseGenesisFile [Char]
+"genesis-json"
+    ]
+
+-- | Values required to create keys and perform
+-- transformation on keys.
+parseKeyRelatedValues :: EnvCli -> [Mod CommandFields ByronCommand]
+parseKeyRelatedValues :: EnvCli -> [Mod CommandFields ByronCommand]
+parseKeyRelatedValues EnvCli
+envCli =
+    [ forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command' [Char]
+"keygen" [Char]
+"Generate a signing key."
+        forall a b. (a -> b) -> a -> b
+$ NewSigningKeyFile -> ByronCommand
+Keygen
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> Parser NewSigningKeyFile
+parseNewSigningKeyFile [Char]
+"secret"
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"to-verification"
+        [Char]
+"Extract a verification key in its base64 form."
+        forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In -> NewVerificationKeyFile -> ByronCommand
+ToVerification
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByronKeyFormat
+parseByronKeyFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile
+                  [Char]
+"secret"
+                  [Char]
+"Signing key file to extract the verification part from."
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser NewVerificationKeyFile
+parseNewVerificationKeyFile [Char]
+"to"
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"signing-key-public"
+        [Char]
+"Pretty-print a signing key's verification key (not a secret)."
+        forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat -> SigningKeyFile 'In -> ByronCommand
+PrettySigningKeyPublic
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByronKeyFormat
+parseByronKeyFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile
+                  [Char]
+"secret"
+                  [Char]
+"Signing key to pretty-print."
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"signing-key-address"
+        [Char]
+"Print address of a signing key."
+        forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat -> NetworkId -> SigningKeyFile 'In -> ByronCommand
+PrintSigningKeyAddress
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByronKeyFormat
+parseByronKeyFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile
+                  [Char]
+"secret"
+                  [Char]
+"Signing key, whose address is to be printed."
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"migrate-delegate-key-from"
+        [Char]
+"Migrate a delegate key from an older version."
+        forall a b. (a -> b) -> a -> b
+$ SigningKeyFile 'In -> NewSigningKeyFile -> ByronCommand
+MigrateDelegateKeyFrom
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile [Char]
+"from" [Char]
+"Legacy signing key file to migrate."
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser NewSigningKeyFile
+parseNewSigningKeyFile [Char]
+"to"
+    ]
+
+parseMiscellaneous :: [Mod CommandFields ByronCommand]
+parseMiscellaneous :: [Mod CommandFields ByronCommand]
+parseMiscellaneous =
+  [ forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+      [Char]
+"validate-cbor"
+      [Char]
+"Validate a CBOR blockchain object."
+      forall a b. (a -> b) -> a -> b
+$ CBORObject -> [Char] -> ByronCommand
+ValidateCBOR
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CBORObject
+parseCBORObject
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"filepath" [Char]
+"Filepath of CBOR file."
+  , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+      [Char]
+"pretty-print-cbor"
+      [Char]
+"Pretty print a CBOR file."
+      forall a b. (a -> b) -> a -> b
+$ [Char] -> ByronCommand
+PrettyPrintCBOR
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"filepath" [Char]
+"Filepath of CBOR file."
+  ]
+
+parseTestnetBalanceOptions :: Parser TestnetBalanceOptions
+parseTestnetBalanceOptions :: Parser TestnetBalanceOptions
+parseTestnetBalanceOptions =
+  Word -> Word -> Lovelace -> Rational -> TestnetBalanceOptions
+TestnetBalanceOptions
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral
+          [Char]
+"n-poor-addresses"
+          [Char]
+"Number of poor nodes (with small balance)."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral
+          [Char]
+"n-delegate-addresses"
+          [Char]
+"Number of delegate nodes (with huge balance)."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Lovelace
+parseLovelace
+          [Char]
+"total-balance"
+          [Char]
+"Total balance owned by these nodes."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Rational
+parseFraction
+          [Char]
+"delegate-share"
+          [Char]
+"Portion of stake owned by all delegates together."
+
+parseTxIn :: Parser TxIn
+parseTxIn :: Parser TxIn
+parseTxIn =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option
+  (forall a. Parser a -> ReadM a
+readerFromAttoParser Parser TxIn
+parseTxInAtto)
+  forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"txin"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"(TXID,INDEX)"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Transaction input is a pair of an UTxO TxId and a zero-based output index."
+
+parseTxInAtto :: Atto.Parser TxIn
+parseTxInAtto :: Parser TxIn
+parseTxInAtto =
+  TxId -> TxIx -> TxIn
+TxIn forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (Char -> Parser Char
+Atto.char Char
+'(' forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
+*> Parser ByteString TxId
+parseTxIdAtto forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* Char -> Parser Char
+Atto.char Char
+',')
+       forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Parser ByteString TxIx
+parseTxIxAtto forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* Char -> Parser Char
+Atto.char Char
+')')
+
+
+parseTxIdAtto :: Atto.Parser TxId
+parseTxIdAtto :: Parser ByteString TxId
+parseTxIdAtto = (forall i a. Parser i a -> [Char] -> Parser i a
+<?> [Char]
+"Transaction ID (hexadecimal)") forall a b. (a -> b) -> a -> b
+$ do
+  ByteString
+bstr <- (Char -> Bool) -> Parser ByteString
+Atto.takeWhile1 Char -> Bool
+Char.isHexDigit
+  case forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex AsType TxId
+AsTxId ByteString
+bstr of
+    Right TxId
+addr -> forall (m :: * -> *) a. Monad m => a -> m a
+return TxId
+addr
+    Left RawBytesHexError
+e -> forall (m :: * -> *) a. MonadFail m => [Char] -> m a
+fail forall a b. (a -> b) -> a -> b
+$ [Char]
+"Incorrect transaction id format: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> [Char]
+displayError RawBytesHexError
+e
+
+parseTxIxAtto :: Atto.Parser TxIx
+parseTxIxAtto :: Parser ByteString TxIx
+parseTxIxAtto = forall a. Enum a => Int -> a
+toEnum forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Integral a => Parser a
+Atto.decimal
+
+parseTxOut :: Parser (TxOut CtxTx ByronEra)
+parseTxOut :: Parser (TxOut CtxTx ByronEra)
+parseTxOut =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option
+    ( (\(Text
+addr, Word64
+lovelace) -> forall ctx era.
+AddressInEra era
+-> TxOutValue era
+-> TxOutDatum ctx era
+-> ReferenceScript era
+-> TxOut ctx era
+TxOut (Text -> AddressInEra ByronEra
+pAddressInEra Text
+addr)
+                                  (Word64 -> TxOutValue ByronEra
+pLovelaceTxOut Word64
+lovelace)
+                                  forall ctx era. TxOutDatum ctx era
+TxOutDatumNone
+                                  forall era. ReferenceScript era
+ReferenceScriptNone)
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Read a => ReadM a
+auto
+    )
+    forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"txout"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"'(\"ADDR\", LOVELACE)'"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Specify a transaction output, as a pair of an address and lovelace."
+ where
+  pAddressInEra :: Text -> AddressInEra ByronEra
+  pAddressInEra :: Text -> AddressInEra ByronEra
+pAddressInEra Text
+t =
+    case Text -> Either DecoderError Address
+decodeAddressBase58 Text
+t of
+      Left DecoderError
+err -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"Bad Base58 address: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show DecoderError
+err
+      Right Address
+byronAddress -> forall addrtype era.
+AddressTypeInEra addrtype era
+-> Address addrtype -> AddressInEra era
+AddressInEra forall era. AddressTypeInEra ByronAddr era
+ByronAddressInAnyEra forall a b. (a -> b) -> a -> b
+$ Address -> Address ByronAddr
+ByronAddress Address
+byronAddress
+
+  pLovelaceTxOut :: Word64 -> TxOutValue ByronEra
+  pLovelaceTxOut :: Word64 -> TxOutValue ByronEra
+pLovelaceTxOut Word64
+l =
+    if Word64
+l forall a. Ord a => a -> a -> Bool
+> (forall a. Bounded a => a
+maxBound :: Word64)
+      then forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> [Char]
+show Word64
+l forall a. Semigroup a => a -> a -> a
+<> [Char]
+" lovelace exceeds the Word64 upper bound"
+      else forall era. ByronEraOnly era -> Lovelace -> TxOutValue era
+TxOutValueByron ByronEraOnly ByronEra
+ByronEraOnlyByron forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Integer -> Lovelace
+Lovelace forall a b. (a -> b) -> a -> b
+$ forall a. Integral a => a -> Integer
+toInteger Word64
+l
+
+readerFromAttoParser :: Atto.Parser a -> Opt.ReadM a
+readerFromAttoParser :: forall a. Parser a -> ReadM a
+readerFromAttoParser Parser a
+p =
+  forall a. ([Char] -> Either [Char] a) -> ReadM a
+Opt.eitherReader (forall a. Parser a -> ByteString -> Either [Char] a
+Atto.parseOnly (Parser a
+p forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* forall t. Chunk t => Parser t ()
+Atto.endOfInput) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> ByteString
+BSC.pack)
+
+parseTxRelatedValues :: EnvCli -> [Mod CommandFields ByronCommand]
+parseTxRelatedValues :: EnvCli -> [Mod CommandFields ByronCommand]
+parseTxRelatedValues EnvCli
+envCli =
+    [ forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"submit-tx"
+        [Char]
+"Submit a raw, signed transaction, in its on-wire representation."
+        forall a b. (a -> b) -> a -> b
+$ SocketPath -> NetworkId -> TxFile 'In -> ByronCommand
+SubmitTx
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser (TxFile 'In)
+parseTxFile [Char]
+"tx"
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"issue-genesis-utxo-expenditure"
+        [Char]
+"Write a file with a signed transaction, spending genesis UTxO."
+        forall a b. (a -> b) -> a -> b
+$ GenesisFile
+-> NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> Address ByronAddr
+-> [TxOut CtxTx ByronEra]
+-> ByronCommand
+SpendGenesisUTxO
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> Parser GenesisFile
+parseGenesisFile [Char]
+"genesis-json"
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ByronKeyFormat
+parseByronKeyFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser NewTxFile
+parseNewTxFile [Char]
+"tx"
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile
+                  [Char]
+"wallet-key"
+                  [Char]
+"Key that has access to all mentioned genesis UTxO inputs."
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (Address ByronAddr)
+parseAddress
+                  [Char]
+"rich-addr-from"
+                  [Char]
+"Tx source: genesis UTxO richman address (non-HD)."
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (TxOut CtxTx ByronEra)
+parseTxOut
+
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"issue-utxo-expenditure"
+        [Char]
+"Write a file with a signed transaction, spending normal UTxO."
+        forall a b. (a -> b) -> a -> b
+$ NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> [TxIn]
+-> [TxOut CtxTx ByronEra]
+-> ByronCommand
+SpendUTxO
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ByronKeyFormat
+parseByronKeyFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser NewTxFile
+parseNewTxFile [Char]
+"tx"
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile
+                  [Char]
+"wallet-key"
+                  [Char]
+"Key that has access to all mentioned genesis UTxO inputs."
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser TxIn
+parseTxIn
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (TxOut CtxTx ByronEra)
+parseTxOut
+
+    , forall a. [Char] -> [Char] -> Parser a -> Mod CommandFields a
+command'
+        [Char]
+"txid"
+        [Char]
+"Print the txid of a raw, signed transaction."
+        forall a b. (a -> b) -> a -> b
+$ TxFile 'In -> ByronCommand
+GetTxId
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> Parser (TxFile 'In)
+parseTxFile [Char]
+"tx"
+    ]
+
+pNodeCmds :: EnvCli -> Mod CommandFields NodeCmds
+pNodeCmds :: EnvCli -> Mod CommandFields NodeCmds
+pNodeCmds EnvCli
+envCli =
+  forall a. Monoid a => [a] -> a
+mconcat
+    [ forall a. [Char] -> ParserInfo a -> Mod CommandFields a
+Opt.command [Char]
+"create-update-proposal" forall a b. (a -> b) -> a -> b
+$
+        forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser NodeCmds
+parseByronUpdateProposal EnvCli
+envCli) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc  [Char]
+"Create an update proposal."
+    , forall a. [Char] -> ParserInfo a -> Mod CommandFields a
+Opt.command [Char]
+"create-proposal-vote" forall a b. (a -> b) -> a -> b
+$
+        forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser NodeCmds
+parseByronVote EnvCli
+envCli) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create an update proposal vote."
+    , forall a. [Char] -> ParserInfo a -> Mod CommandFields a
+Opt.command [Char]
+"submit-update-proposal" forall a b. (a -> b) -> a -> b
+$
+        forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser NodeCmds
+parseByronUpdateProposalSubmission EnvCli
+envCli) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Submit an update proposal."
+    , forall a. [Char] -> ParserInfo a -> Mod CommandFields a
+Opt.command [Char]
+"submit-proposal-vote" forall a b. (a -> b) -> a -> b
+$
+        forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser NodeCmds
+parseByronVoteSubmission EnvCli
+envCli) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Submit a proposal vote."
+    ]
+
+parseByronUpdateProposal :: EnvCli -> Parser NodeCmds
+parseByronUpdateProposal :: EnvCli -> Parser NodeCmds
+parseByronUpdateProposal EnvCli
+envCli = do
+  NetworkId
+-> SigningKeyFile 'In
+-> ProtocolVersion
+-> SoftwareVersion
+-> SystemTag
+-> InstallerHash
+-> [Char]
+-> ByronProtocolParametersUpdate
+-> NodeCmds
+UpdateProposal
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile [Char]
+"signing-key" [Char]
+"Path to signing key."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolVersion
+parseProtocolVersion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser SoftwareVersion
+parseSoftwareVersion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser SystemTag
+parseSystemTag
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser InstallerHash
+parseInstallerHash
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"filepath" [Char]
+"Byron proposal output filepath."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ByronProtocolParametersUpdate
+pByronProtocolParametersUpdate
+
+parseByronVoteSubmission :: EnvCli -> Parser NodeCmds
+parseByronVoteSubmission :: EnvCli -> Parser NodeCmds
+parseByronVoteSubmission EnvCli
+envCli = do
+  SocketPath -> NetworkId -> [Char] -> NodeCmds
+SubmitVote
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"filepath" [Char]
+"Filepath of Byron update proposal vote."
+
+
+pByronProtocolParametersUpdate :: Parser ByronProtocolParametersUpdate
+pByronProtocolParametersUpdate :: Parser ByronProtocolParametersUpdate
+pByronProtocolParametersUpdate =
+  Maybe Word16
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe LovelacePortion
+-> Maybe LovelacePortion
+-> Maybe LovelacePortion
+-> Maybe LovelacePortion
+-> Maybe SlotNumber
+-> Maybe SoftforkRule
+-> Maybe TxFeePolicy
+-> Maybe EpochNumber
+-> ByronProtocolParametersUpdate
+ByronProtocolParametersUpdate
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word16
+parseScriptVersion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+parseSlotDuration
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+parseMaxBlockSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+parseMaxHeaderSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+parseMaxTxSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+parseMaxProposalSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser LovelacePortion
+parseMpcThd
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser LovelacePortion
+parseHeavyDelThd
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser LovelacePortion
+parseUpdateVoteThd
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser LovelacePortion
+parseUpdateProposalThd
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNumber
+parseUpdateProposalTTL
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SoftforkRule
+parseSoftforkRule
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser TxFeePolicy
+parseTxFeePolicy
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser EpochNumber
+parseUnlockStakeEpoch
+
+parseByronUpdateProposalSubmission :: EnvCli -> Parser NodeCmds
+parseByronUpdateProposalSubmission :: EnvCli -> Parser NodeCmds
+parseByronUpdateProposalSubmission EnvCli
+envCli =
+  SocketPath -> NetworkId -> [Char] -> NodeCmds
+SubmitUpdateProposal
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"filepath" [Char]
+"Filepath of Byron update proposal."
+
+parseByronVote :: EnvCli -> Parser NodeCmds
+parseByronVote :: EnvCli -> Parser NodeCmds
+parseByronVote EnvCli
+envCli =
+  NetworkId
+-> SigningKeyFile 'In -> [Char] -> Bool -> [Char] -> NodeCmds
+CreateVote
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall content (direction :: FileDirection).
+[Char] -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"signing-key" [Char]
+"Filepath of signing key.")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"proposal-filepath" [Char]
+"Filepath of Byron update proposal."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Bool
+parseVoteBool
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+"output-filepath" [Char]
+"Byron vote output filepath."
+
+--------------------------------------------------------------------------------
+-- CLI Parsers
+--------------------------------------------------------------------------------
+
+parseScriptVersion :: Parser Word16
+parseScriptVersion :: Parser Word16
+parseScriptVersion =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"script-version"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"WORD16"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed script version."
+    )
+
+parseSlotDuration :: Parser Natural
+parseSlotDuration :: Parser Natural
+parseSlotDuration =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"slot-duration"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"NATURAL"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed slot duration."
+    )
+
+parseSystemTag :: Parser SystemTag
+parseSystemTag :: Parser SystemTag
+parseSystemTag = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. ([Char] -> Either [Char] a) -> ReadM a
+eitherReader [Char] -> Either [Char] SystemTag
+checkSysTag)
+                   ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"system-tag"
+                   forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"STRING"
+                   forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Identify which system (linux, win64, etc) the update proposal is for."
+                   )
+ where
+  checkSysTag :: String -> Either String SystemTag
+  checkSysTag :: [Char] -> Either [Char] SystemTag
+checkSysTag [Char]
+name =
+    let tag :: SystemTag
+tag = Text -> SystemTag
+SystemTag forall a b. (a -> b) -> a -> b
+$ [Char] -> Text
+Text.pack [Char]
+name
+    in case forall (m :: * -> *).
+MonadError SystemTagError m =>
+SystemTag -> m ()
+checkSystemTag SystemTag
+tag of
+         Left SystemTagError
+err -> forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> [Char]
+Text.unpack forall a b. (a -> b) -> a -> b
+$ forall a. Format Text a -> a
+sformat forall a r. Buildable a => Format r (a -> r)
+build SystemTagError
+err
+         Right () -> forall a b. b -> Either a b
+Right SystemTag
+tag
+
+parseInstallerHash :: Parser InstallerHash
+parseInstallerHash :: Parser InstallerHash
+parseInstallerHash =
+  Hash Raw -> InstallerHash
+InstallerHash forall b c a. (b -> c) -> (a -> b) -> a -> c
+.  ByteString -> Hash Raw
+hashRaw forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> ByteString
+C8.pack
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+strOption ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"installer-hash"
+                  forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"HASH"
+                  forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Software hash."
+                  )
+
+parseMaxBlockSize :: Parser Natural
+parseMaxBlockSize :: Parser Natural
+parseMaxBlockSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"max-block-size"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"NATURAL"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed max block size."
+    )
+
+parseMaxHeaderSize :: Parser Natural
+parseMaxHeaderSize :: Parser Natural
+parseMaxHeaderSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"max-header-size"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"NATURAL"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed max block header size."
+    )
+
+parseMaxTxSize :: Parser Natural
+parseMaxTxSize :: Parser Natural
+parseMaxTxSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"max-tx-size"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"NATURAL"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed max transaction size."
+    )
+
+parseMaxProposalSize :: Parser  Natural
+parseMaxProposalSize :: Parser Natural
+parseMaxProposalSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"max-proposal-size"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"NATURAL"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed max update proposal size."
+    )
+
+parseMpcThd :: Parser Byron.LovelacePortion
+parseMpcThd :: Parser LovelacePortion
+parseMpcThd =
+  Rational -> LovelacePortion
+rationalToLovelacePortion
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"max-mpc-thd" [Char]
+"Proposed max mpc threshold."
+
+parseProtocolVersion :: Parser ProtocolVersion
+parseProtocolVersion :: Parser ProtocolVersion
+parseProtocolVersion =
+  Word16 -> Word16 -> Word8 -> ProtocolVersion
+ProtocolVersion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (forall a. Integral a => [Char] -> [Char] -> [Char] -> Parser a
+parseWord [Char]
+"protocol-version-major" [Char]
+"Protocol version major." [Char]
+"WORD16" :: Parser Word16)
+                  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall a. Integral a => [Char] -> [Char] -> [Char] -> Parser a
+parseWord [Char]
+"protocol-version-minor" [Char]
+"Protocol version minor." [Char]
+"WORD16" :: Parser Word16)
+                  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall a. Integral a => [Char] -> [Char] -> [Char] -> Parser a
+parseWord [Char]
+"protocol-version-alt" [Char]
+"Protocol version alt." [Char]
+"WORD8" :: Parser Word8)
+
+parseHeavyDelThd :: Parser Byron.LovelacePortion
+parseHeavyDelThd :: Parser LovelacePortion
+parseHeavyDelThd =
+  Rational -> LovelacePortion
+rationalToLovelacePortion
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"heavy-del-thd" [Char]
+"Proposed heavy delegation threshold."
+
+parseUpdateVoteThd :: Parser Byron.LovelacePortion
+parseUpdateVoteThd :: Parser LovelacePortion
+parseUpdateVoteThd =
+  Rational -> LovelacePortion
+rationalToLovelacePortion
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"update-vote-thd" [Char]
+"Propose update vote threshold."
+
+parseUpdateProposalThd :: Parser Byron.LovelacePortion
+parseUpdateProposalThd :: Parser LovelacePortion
+parseUpdateProposalThd =
+  Rational -> LovelacePortion
+rationalToLovelacePortion
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"update-proposal-thd" [Char]
+"Propose update proposal threshold."
+
+parseUpdateProposalTTL :: Parser SlotNumber
+parseUpdateProposalTTL :: Parser SlotNumber
+parseUpdateProposalTTL =
+  Word64 -> SlotNumber
+SlotNumber
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+          ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"time-to-live"
+          forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"WORD64"
+          forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed time for an update proposal to live."
+          )
+
+parseSoftforkRule :: Parser SoftforkRule
+parseSoftforkRule :: Parser SoftforkRule
+parseSoftforkRule =
+  LovelacePortion
+-> LovelacePortion -> LovelacePortion -> SoftforkRule
+SoftforkRule
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (Rational -> LovelacePortion
+rationalToLovelacePortion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"softfork-init-thd" [Char]
+"Propose initial threshold (right after proposal is confirmed).")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Rational -> LovelacePortion
+rationalToLovelacePortion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"softfork-min-thd" [Char]
+"Propose minimum threshold (threshold can't be less than this).")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Rational -> LovelacePortion
+rationalToLovelacePortion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"softfork-thd-dec" [Char]
+"Propose threshold decrement (threshold will decrease by this amount after each epoch).")
+
+
+parseSoftwareVersion :: Parser SoftwareVersion
+parseSoftwareVersion :: Parser SoftwareVersion
+parseSoftwareVersion =
+  ApplicationName -> Word32 -> SoftwareVersion
+SoftwareVersion forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ApplicationName
+parseApplicationName forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word32
+parseNumSoftwareVersion
+
+parseApplicationName :: Parser ApplicationName
+parseApplicationName :: Parser ApplicationName
+parseApplicationName = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. ([Char] -> Either [Char] a) -> ReadM a
+eitherReader [Char] -> Either [Char] ApplicationName
+checkAppNameLength)
+       (  forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"application-name"
+       forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"STRING"
+       forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"The name of the application."
+       )
+ where
+  checkAppNameLength :: String -> Either String ApplicationName
+  checkAppNameLength :: [Char] -> Either [Char] ApplicationName
+checkAppNameLength [Char]
+name =
+    let appName :: ApplicationName
+appName = Text -> ApplicationName
+ApplicationName forall a b. (a -> b) -> a -> b
+$ [Char] -> Text
+Text.pack [Char]
+name
+    in case forall (m :: * -> *).
+MonadError ApplicationNameError m =>
+ApplicationName -> m ()
+checkApplicationName ApplicationName
+appName of
+         Left ApplicationNameError
+err -> forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> [Char]
+Text.unpack forall a b. (a -> b) -> a -> b
+$ forall a. Format Text a -> a
+sformat forall a r. Buildable a => Format r (a -> r)
+build ApplicationNameError
+err
+         Right () -> forall a b. b -> Either a b
+Right ApplicationName
+appName
+
+parseNumSoftwareVersion :: Parser NumSoftwareVersion
+parseNumSoftwareVersion :: Parser Word32
+parseNumSoftwareVersion =
+  forall a. Integral a => [Char] -> [Char] -> [Char] -> Parser a
+parseWord
+    [Char]
+"software-version-num"
+    [Char]
+"Numeric software version associated with application name."
+    [Char]
+"WORD32"
+
+parseTxFeePolicy :: Parser TxFeePolicy
+parseTxFeePolicy :: Parser TxFeePolicy
+parseTxFeePolicy =
+  TxSizeLinear -> TxFeePolicy
+TxFeePolicyTxSizeLinear
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( Lovelace -> Rational -> TxSizeLinear
+TxSizeLinear forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser Lovelace
+parseLovelace [Char]
+"tx-fee-a-constant" [Char]
+"Propose the constant a for txfee = a + b*s where s is the size."
+                       forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+"tx-fee-b-constant" [Char]
+"Propose the constant b for txfee = a + b*s where s is the size."
+        )
+
+parseVoteBool :: Parser Bool
+parseVoteBool :: Parser Bool
+parseVoteBool = forall a. a -> Mod FlagFields a -> Parser a
+flag' Bool
+True (forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"vote-yes" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Vote yes with respect to an update proposal.")
+            forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall a. a -> Mod FlagFields a -> Parser a
+flag' Bool
+False (forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"vote-no" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Vote no with respect to an update proposal.")
+
+parseUnlockStakeEpoch :: Parser EpochNumber
+parseUnlockStakeEpoch :: Parser EpochNumber
+parseUnlockStakeEpoch =
+  Word64 -> EpochNumber
+EpochNumber
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto
+      ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"unlock-stake-epoch"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"WORD64"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Proposed epoch to unlock all stake."
+      )
+
+
+parseWord :: Integral a => String -> String -> String -> Parser a
+parseWord :: forall a. Integral a => [Char] -> [Char] -> [Char] -> Parser a
+parseWord [Char]
+optname [Char]
+desc [Char]
+metvar = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Num a => Integer -> a
+fromInteger forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Read a => ReadM a
+auto)
+  forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+metvar forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+
+
+
+parseAddress :: String -> String -> Parser (Address ByronAddr)
+parseAddress :: [Char] -> [Char] -> Parser (Address ByronAddr)
+parseAddress [Char]
+opt [Char]
+desc =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Text -> Address ByronAddr
+cliParseBase58Address forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => ReadM s
+str)
+    forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+opt forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"ADDR" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+
+parseByronKeyFormat :: Parser ByronKeyFormat
+parseByronKeyFormat :: Parser ByronKeyFormat
+parseByronKeyFormat = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ forall a. a -> Mod FlagFields a -> Parser a
+flag' ByronKeyFormat
+LegacyByronKeyFormat forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-legacy-formats"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Byron/cardano-sl formats and compatibility"
+
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' ByronKeyFormat
+NonLegacyByronKeyFormat forall a b. (a -> b) -> a -> b
+$
+        forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-formats"
+     forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+"Byron era formats and compatibility"
+
+    -- And hidden compatibility flag aliases that should be deprecated:
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' ByronKeyFormat
+LegacyByronKeyFormat forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Mod f a
+hidden forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"byron-legacy"
+  , forall a. a -> Mod FlagFields a -> Parser a
+flag' ByronKeyFormat
+NonLegacyByronKeyFormat forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Mod f a
+hidden forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+"real-pbft"
+
+  -- Default Byron key format
+  , forall (f :: * -> *) a. Applicative f => a -> f a
+pure ByronKeyFormat
+NonLegacyByronKeyFormat
+  ]
+
+
+parseFakeAvvmOptions :: Parser FakeAvvmOptions
+parseFakeAvvmOptions :: Parser FakeAvvmOptions
+parseFakeAvvmOptions =
+  Word -> Lovelace -> FakeAvvmOptions
+FakeAvvmOptions
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral [Char]
+"avvm-entry-count" [Char]
+"Number of AVVM addresses."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Lovelace
+parseLovelace [Char]
+"avvm-entry-balance" [Char]
+"AVVM address."
+
+parseK :: Parser BlockCount
+parseK :: Parser BlockCount
+parseK =
+  Word64 -> BlockCount
+BlockCount
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral [Char]
+"k" [Char]
+"The security parameter of the Ouroboros protocol."
+
+parseNewDirectory :: String -> String -> Parser NewDirectory
+parseNewDirectory :: [Char] -> [Char] -> Parser NewDirectory
+parseNewDirectory [Char]
+opt [Char]
+desc = [Char] -> NewDirectory
+NewDirectory forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+desc
+
+parseFractionWithDefault
+  :: String
+  -> String
+  -> Double
+  -> Parser Rational
+parseFractionWithDefault :: [Char] -> [Char] -> Double -> Parser Rational
+parseFractionWithDefault [Char]
+optname [Char]
+desc Double
+w =
+  forall a. Real a => a -> Rational
+toRational forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Double
+readDouble
+    ( forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"DOUBLE"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasValue f => a -> Mod f a
+value Double
+w
+    )
+
+parseNewSigningKeyFile :: String -> Parser NewSigningKeyFile
+parseNewSigningKeyFile :: [Char] -> Parser NewSigningKeyFile
+parseNewSigningKeyFile [Char]
+opt =
+  [Char] -> NewSigningKeyFile
+NewSigningKeyFile
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+"Non-existent file to write the signing key to."
+
+parseNewTxFile :: String -> Parser NewTxFile
+parseNewTxFile :: [Char] -> Parser NewTxFile
+parseNewTxFile [Char]
+opt =
+  [Char] -> NewTxFile
+NewTxFile
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+"Non-existent file to write the signed transaction to."
+
+parseNewVerificationKeyFile :: String -> Parser NewVerificationKeyFile
+parseNewVerificationKeyFile :: [Char] -> Parser NewVerificationKeyFile
+parseNewVerificationKeyFile [Char]
+opt =
+  [Char] -> NewVerificationKeyFile
+NewVerificationKeyFile
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+"Non-existent file to write the verification key to."
+
+parseProtocolMagicId :: String -> Parser ProtocolMagicId
+parseProtocolMagicId :: [Char] -> Parser ProtocolMagicId
+parseProtocolMagicId [Char]
+arg =
+  Word32 -> ProtocolMagicId
+ProtocolMagicId
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral [Char]
+arg [Char]
+"The magic number unique to any instance of Cardano."
+
+parseProtocolMagic :: Parser ProtocolMagic
+parseProtocolMagic :: Parser ProtocolMagic
+parseProtocolMagic =
+  forall a b c. (a -> b -> c) -> b -> a -> c
+flip forall a.
+Annotated ProtocolMagicId a
+-> RequiresNetworkMagic -> AProtocolMagic a
+AProtocolMagic RequiresNetworkMagic
+RequiresMagic forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b c. (a -> b -> c) -> b -> a -> c
+flip forall b a. b -> a -> Annotated b a
+Annotated ()
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> Parser ProtocolMagicId
+parseProtocolMagicId [Char]
+"protocol-magic"
+
+parseTxFile :: String -> Parser (TxFile In)
+parseTxFile :: [Char] -> Parser (TxFile 'In)
+parseTxFile [Char]
+opt =
+  forall content (direction :: FileDirection).
+[Char] -> File content direction
+File
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+"File containing the signed transaction."
+
+parseUTCTime :: String -> String -> Parser UTCTime
+parseUTCTime :: [Char] -> [Char] -> Parser UTCTime
+parseUTCTime [Char]
+optname [Char]
+desc =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (POSIXTime -> UTCTime
+posixSecondsToUTCTime forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Num a => Integer -> a
+fromInteger forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Read a => ReadM a
+auto)
+    forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"POSIXSECONDS" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+
+cliParseBase58Address :: Text -> Address ByronAddr
+cliParseBase58Address :: Text -> Address ByronAddr
+cliParseBase58Address Text
+t =
+  case Text -> Either DecoderError Address
+decodeAddressBase58 Text
+t of
+    Left DecoderError
+err -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"Bad Base58 address: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show DecoderError
+err
+    Right Address
+byronAddress -> Address -> Address ByronAddr
+ByronAddress Address
+byronAddress
+
+parseFraction :: String -> String -> Parser Rational
+parseFraction :: [Char] -> [Char] -> Parser Rational
+parseFraction [Char]
+optname [Char]
+desc =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Real a => a -> Rational
+toRational forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Double
+readDouble) forall a b. (a -> b) -> a -> b
+$
+      forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname
+   forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"DOUBLE"
+   forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+
+parseIntegral :: Integral a => String -> String -> Parser a
+parseIntegral :: forall a. Integral a => [Char] -> [Char] -> Parser a
+parseIntegral [Char]
+optname [Char]
+desc = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Num a => Integer -> a
+fromInteger forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Read a => ReadM a
+auto)
+  forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"INT" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+
+parseLovelace :: String -> String -> Parser Byron.Lovelace
+parseLovelace :: [Char] -> [Char] -> Parser Lovelace
+parseLovelace [Char]
+optname [Char]
+desc =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromAttoParser Parser Lovelace
+parseLovelaceAtto)
+    (  forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+long [Char]
+optname
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
+metavar [Char]
+"INT"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. [Char] -> Mod f a
+help [Char]
+desc
+    )
+ where
+  parseLovelaceAtto :: Atto.Parser Byron.Lovelace
+  parseLovelaceAtto :: Parser Lovelace
+parseLovelaceAtto = do
+    Integer
+i <- forall a. Integral a => Parser a
+Atto.decimal
+    if Integer
+i forall a. Ord a => a -> a -> Bool
+> forall a. Integral a => a -> Integer
+toInteger (forall a. Bounded a => a
+maxBound :: Word64)
+    then forall (m :: * -> *) a. MonadFail m => [Char] -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> [Char]
+show Integer
+i forall a. Semigroup a => a -> a -> a
+<> [Char]
+" lovelace exceeds the Word64 upper bound"
+    else case Lovelace -> Maybe Lovelace
+toByronLovelace (Integer -> Lovelace
+Lovelace Integer
+i) of
+           Just Lovelace
+byronLovelace -> forall (m :: * -> *) a. Monad m => a -> m a
+return Lovelace
+byronLovelace
+           Maybe Lovelace
+Nothing -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"Error converting lovelace: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show Integer
+i
+
+readDouble :: ReadM Double
+readDouble :: ReadM Double
+readDouble = do
+  Double
+f <- forall a. Read a => ReadM a
+auto
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (Double
+f forall a. Ord a => a -> a -> Bool
+< Double
+0) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ReadM a
+readerError [Char]
+"fraction must be >= 0"
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (Double
+f forall a. Ord a => a -> a -> Bool
+> Double
+1) forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ReadM a
+readerError [Char]
+"fraction must be <= 1"
+  forall (m :: * -> *) a. Monad m => a -> m a
+return Double
+f
+
+parseSigningKeyFile :: String -> String -> Parser (SigningKeyFile In)
+parseSigningKeyFile :: [Char] -> [Char] -> Parser (SigningKeyFile 'In)
+parseSigningKeyFile [Char]
+opt [Char]
+desc = forall content (direction :: FileDirection).
+[Char] -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+desc
+
+
+parseGenesisFile :: String -> Parser GenesisFile
+parseGenesisFile :: [Char] -> Parser GenesisFile
+parseGenesisFile [Char]
+opt =
+  [Char] -> GenesisFile
+GenesisFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Char] -> [Char] -> Parser [Char]
+parseFilePath [Char]
+opt [Char]
+"Genesis JSON file."
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Run.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Run.html new file mode 100644 index 0000000000..5384a2b5be --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Run.html @@ -0,0 +1,829 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.Byron.Run
+  ( ByronClientCmdError
+  , renderByronClientCmdError
+  , runByronClientCommand
+  ) where
+
+import           Cardano.Api hiding (GenesisParameters, UpdateProposal)
+import           Cardano.Api.Byron (SomeByronSigningKey (..), Tx (..))
+
+import qualified Cardano.Chain.Genesis as Genesis
+import           Cardano.CLI.Byron.Commands
+import           Cardano.CLI.Byron.Delegation
+import           Cardano.CLI.Byron.Genesis
+import           Cardano.CLI.Byron.Key
+import           Cardano.CLI.Byron.Tx
+import           Cardano.CLI.Byron.UpdateProposal
+import           Cardano.CLI.Byron.Vote
+import           Cardano.CLI.Helpers
+import           Cardano.CLI.Types.Common
+import qualified Cardano.Crypto.Hashing as Crypto
+import qualified Cardano.Crypto.Signing as Crypto
+
+import           Control.Monad.IO.Class (MonadIO (liftIO))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left)
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.ByteString.Char8 as BS
+import           Data.Text (Text)
+import qualified Data.Text.IO as Text
+import qualified Data.Text.Lazy.Builder as Builder
+import qualified Data.Text.Lazy.IO as TL
+import qualified Formatting as F
+
+-- | Data type that encompasses all the possible errors of the
+-- Byron client.
+data ByronClientCmdError
+  = ByronCmdDelegationError !ByronDelegationError
+  | ByronCmdGenesisError !ByronGenesisError
+  | ByronCmdHelpersError !HelpersError
+  | ByronCmdKeyFailure !ByronKeyFailure
+  | ByronCmdTxError !ByronTxError
+  | ByronCmdUpdateProposalError !ByronUpdateProposalError
+  | ByronCmdVoteError !ByronVoteError
+  deriving Int -> ByronClientCmdError -> ShowS
+[ByronClientCmdError] -> ShowS
+ByronClientCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ByronClientCmdError] -> ShowS
+$cshowList :: [ByronClientCmdError] -> ShowS
+show :: ByronClientCmdError -> String
+$cshow :: ByronClientCmdError -> String
+showsPrec :: Int -> ByronClientCmdError -> ShowS
+$cshowsPrec :: Int -> ByronClientCmdError -> ShowS
+Show
+
+renderByronClientCmdError :: ByronClientCmdError -> Text
+renderByronClientCmdError :: ByronClientCmdError -> Text
+renderByronClientCmdError ByronClientCmdError
+err =
+  case ByronClientCmdError
+err of
+    ByronCmdDelegationError ByronDelegationError
+e -> ByronDelegationError -> Text
+renderByronDelegationError ByronDelegationError
+e
+    ByronCmdGenesisError ByronGenesisError
+e -> ByronGenesisError -> Text
+renderByronGenesisError ByronGenesisError
+e
+    ByronCmdHelpersError HelpersError
+e -> HelpersError -> Text
+renderHelpersError HelpersError
+e
+    ByronCmdKeyFailure ByronKeyFailure
+e -> ByronKeyFailure -> Text
+renderByronKeyFailure ByronKeyFailure
+e
+    ByronCmdTxError ByronTxError
+e -> ByronTxError -> Text
+renderByronTxError ByronTxError
+e
+    ByronCmdUpdateProposalError ByronUpdateProposalError
+e -> ByronUpdateProposalError -> Text
+renderByronUpdateProposalError ByronUpdateProposalError
+e
+    ByronCmdVoteError ByronVoteError
+e -> ByronVoteError -> Text
+renderByronVoteError ByronVoteError
+e
+
+runByronClientCommand :: ByronCommand -> ExceptT ByronClientCmdError IO ()
+runByronClientCommand :: ByronCommand -> ExceptT ByronClientCmdError IO ()
+runByronClientCommand ByronCommand
+c =
+  case ByronCommand
+c of
+    NodeCmds NodeCmds
+bc -> NodeCmds -> ExceptT ByronClientCmdError IO ()
+runNodeCmds NodeCmds
+bc
+    Genesis NewDirectory
+outDir GenesisParameters
+params -> NewDirectory
+-> GenesisParameters -> ExceptT ByronClientCmdError IO ()
+runGenesisCommand NewDirectory
+outDir GenesisParameters
+params
+    ValidateCBOR CBORObject
+cborObject String
+fp -> CBORObject -> String -> ExceptT ByronClientCmdError IO ()
+runValidateCBOR CBORObject
+cborObject String
+fp
+    PrettyPrintCBOR String
+fp -> String -> ExceptT ByronClientCmdError IO ()
+runPrettyPrintCBOR String
+fp
+    PrettySigningKeyPublic ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skF -> ByronKeyFormat
+-> SigningKeyFile 'In -> ExceptT ByronClientCmdError IO ()
+runPrettySigningKeyPublic ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skF
+    MigrateDelegateKeyFrom SigningKeyFile 'In
+oldKey NewSigningKeyFile
+nskf ->
+       SigningKeyFile 'In
+-> NewSigningKeyFile -> ExceptT ByronClientCmdError IO ()
+runMigrateDelegateKeyFrom SigningKeyFile 'In
+oldKey NewSigningKeyFile
+nskf
+    PrintGenesisHash GenesisFile
+genFp -> GenesisFile -> ExceptT ByronClientCmdError IO ()
+runPrintGenesisHash GenesisFile
+genFp
+    PrintSigningKeyAddress ByronKeyFormat
+bKeyFormat NetworkId
+networkid SigningKeyFile 'In
+skF -> ByronKeyFormat
+-> NetworkId
+-> SigningKeyFile 'In
+-> ExceptT ByronClientCmdError IO ()
+runPrintSigningKeyAddress ByronKeyFormat
+bKeyFormat NetworkId
+networkid SigningKeyFile 'In
+skF
+    Keygen NewSigningKeyFile
+nskf -> NewSigningKeyFile -> ExceptT ByronClientCmdError IO ()
+runKeygen NewSigningKeyFile
+nskf
+    ToVerification ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skFp NewVerificationKeyFile
+nvkFp -> ByronKeyFormat
+-> SigningKeyFile 'In
+-> NewVerificationKeyFile
+-> ExceptT ByronClientCmdError IO ()
+runToVerification ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skFp NewVerificationKeyFile
+nvkFp
+    SubmitTx SocketPath
+socketPath NetworkId
+network TxFile 'In
+fp -> SocketPath
+-> NetworkId -> TxFile 'In -> ExceptT ByronClientCmdError IO ()
+runSubmitTx SocketPath
+socketPath NetworkId
+network TxFile 'In
+fp
+    GetTxId TxFile 'In
+fp -> TxFile 'In -> ExceptT ByronClientCmdError IO ()
+runGetTxId TxFile 'In
+fp
+    SpendGenesisUTxO GenesisFile
+genFp NetworkId
+nw ByronKeyFormat
+era NewTxFile
+nftx SigningKeyFile 'In
+ctKey Address ByronAddr
+genRichAddr [TxOut CtxTx ByronEra]
+outs ->
+      GenesisFile
+-> NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> Address ByronAddr
+-> [TxOut CtxTx ByronEra]
+-> ExceptT ByronClientCmdError IO ()
+runSpendGenesisUTxO GenesisFile
+genFp NetworkId
+nw ByronKeyFormat
+era NewTxFile
+nftx SigningKeyFile 'In
+ctKey Address ByronAddr
+genRichAddr [TxOut CtxTx ByronEra]
+outs
+    SpendUTxO NetworkId
+nw ByronKeyFormat
+era NewTxFile
+nftx SigningKeyFile 'In
+ctKey [TxIn]
+ins [TxOut CtxTx ByronEra]
+outs ->
+      NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> [TxIn]
+-> [TxOut CtxTx ByronEra]
+-> ExceptT ByronClientCmdError IO ()
+runSpendUTxO NetworkId
+nw ByronKeyFormat
+era NewTxFile
+nftx SigningKeyFile 'In
+ctKey [TxIn]
+ins [TxOut CtxTx ByronEra]
+outs
+
+
+runNodeCmds :: NodeCmds -> ExceptT ByronClientCmdError IO ()
+runNodeCmds :: NodeCmds -> ExceptT ByronClientCmdError IO ()
+runNodeCmds (CreateVote NetworkId
+nw SigningKeyFile 'In
+sKey String
+upPropFp Bool
+voteBool String
+outputFp) =
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronVoteError -> ByronClientCmdError
+ByronCmdVoteError forall a b. (a -> b) -> a -> b
+$ NetworkId
+-> SigningKeyFile 'In
+-> String
+-> Bool
+-> String
+-> ExceptT ByronVoteError IO ()
+runVoteCreation NetworkId
+nw SigningKeyFile 'In
+sKey String
+upPropFp Bool
+voteBool String
+outputFp
+
+runNodeCmds (SubmitUpdateProposal SocketPath
+nodeSocketPath NetworkId
+network String
+proposalFp) = do
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronUpdateProposalError -> ByronClientCmdError
+ByronCmdUpdateProposalError
+    forall a b. (a -> b) -> a -> b
+$ SocketPath
+-> NetworkId -> String -> ExceptT ByronUpdateProposalError IO ()
+submitByronUpdateProposal SocketPath
+nodeSocketPath NetworkId
+network String
+proposalFp
+
+runNodeCmds (SubmitVote SocketPath
+nodeSocketPath NetworkId
+network String
+voteFp) = do
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronVoteError -> ByronClientCmdError
+ByronCmdVoteError forall a b. (a -> b) -> a -> b
+$ SocketPath -> NetworkId -> String -> ExceptT ByronVoteError IO ()
+submitByronVote SocketPath
+nodeSocketPath NetworkId
+network String
+voteFp
+
+runNodeCmds (UpdateProposal NetworkId
+nw SigningKeyFile 'In
+sKey ProtocolVersion
+pVer SoftwareVersion
+sVer SystemTag
+sysTag InstallerHash
+insHash String
+outputFp ByronProtocolParametersUpdate
+params) =
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronUpdateProposalError -> ByronClientCmdError
+ByronCmdUpdateProposalError
+    forall a b. (a -> b) -> a -> b
+$ NetworkId
+-> SigningKeyFile 'In
+-> ProtocolVersion
+-> SoftwareVersion
+-> SystemTag
+-> InstallerHash
+-> String
+-> ByronProtocolParametersUpdate
+-> ExceptT ByronUpdateProposalError IO ()
+runProposalCreation NetworkId
+nw SigningKeyFile 'In
+sKey ProtocolVersion
+pVer SoftwareVersion
+sVer SystemTag
+sysTag InstallerHash
+insHash String
+outputFp ByronProtocolParametersUpdate
+params
+
+runGenesisCommand :: NewDirectory -> GenesisParameters -> ExceptT ByronClientCmdError IO ()
+runGenesisCommand :: NewDirectory
+-> GenesisParameters -> ExceptT ByronClientCmdError IO ()
+runGenesisCommand NewDirectory
+outDir GenesisParameters
+params = do
+  (GenesisData
+genData, GeneratedSecrets
+genSecrets) <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronGenesisError -> ByronClientCmdError
+ByronCmdGenesisError forall a b. (a -> b) -> a -> b
+$ GenesisParameters
+-> ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets)
+mkGenesis GenesisParameters
+params
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronGenesisError -> ByronClientCmdError
+ByronCmdGenesisError forall a b. (a -> b) -> a -> b
+$ NewDirectory
+-> GenesisData
+-> GeneratedSecrets
+-> ExceptT ByronGenesisError IO ()
+dumpGenesis NewDirectory
+outDir GenesisData
+genData GeneratedSecrets
+genSecrets
+
+runValidateCBOR :: CBORObject -> FilePath -> ExceptT ByronClientCmdError IO ()
+runValidateCBOR :: CBORObject -> String -> ExceptT ByronClientCmdError IO ()
+runValidateCBOR CBORObject
+cborObject String
+fp = do
+  ByteString
+bs <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall a b. (a -> b) -> a -> b
+$ String -> ExceptT HelpersError IO ByteString
+readCBOR String
+fp
+  Text
+res <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall a b. (a -> b) -> a -> b
+$ CBORObject -> ByteString -> Either HelpersError Text
+validateCBOR CBORObject
+cborObject ByteString
+bs
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStrLn Text
+res
+
+runPrettyPrintCBOR :: FilePath -> ExceptT ByronClientCmdError IO ()
+runPrettyPrintCBOR :: String -> ExceptT ByronClientCmdError IO ()
+runPrettyPrintCBOR String
+fp = do
+  ByteString
+bs <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall a b. (a -> b) -> a -> b
+$ String -> ExceptT HelpersError IO ByteString
+readCBOR String
+fp
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall a b. (a -> b) -> a -> b
+$ ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+bs
+
+runPrettySigningKeyPublic :: ByronKeyFormat -> SigningKeyFile In -> ExceptT ByronClientCmdError IO ()
+runPrettySigningKeyPublic :: ByronKeyFormat
+-> SigningKeyFile 'In -> ExceptT ByronClientCmdError IO ()
+runPrettySigningKeyPublic ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skF = do
+  SomeByronSigningKey
+sK <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skF
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+Text.putStrLn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKey ByronKey -> Text
+prettyPublicKey forall a b. (a -> b) -> a -> b
+$ SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey SomeByronSigningKey
+sK
+
+runMigrateDelegateKeyFrom
+  :: SigningKeyFile In
+  -- ^ Legacy Byron signing key
+  -> NewSigningKeyFile
+  -> ExceptT ByronClientCmdError IO ()
+runMigrateDelegateKeyFrom :: SigningKeyFile 'In
+-> NewSigningKeyFile -> ExceptT ByronClientCmdError IO ()
+runMigrateDelegateKeyFrom oldKey :: SigningKeyFile 'In
+oldKey@(File String
+fp) (NewSigningKeyFile String
+newKey) = do
+  SomeByronSigningKey
+sk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+LegacyByronKeyFormat SigningKeyFile 'In
+oldKey
+  SomeByronSigningKey
+migratedWitness <- case SomeByronSigningKey
+sk of
+                       AByronSigningKeyLegacy (ByronSigningKeyLegacy SigningKey
+sKey) ->
+                         forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. SigningKey ByronKey -> SomeByronSigningKey
+AByronSigningKey forall a b. (a -> b) -> a -> b
+$ SigningKey -> SigningKey ByronKey
+ByronSigningKey SigningKey
+sKey
+                       AByronSigningKey SigningKey ByronKey
+_ ->
+                         forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ String -> ByronKeyFailure
+CannotMigrateFromNonLegacySigningKey String
+fp
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS String
+newKey forall a b. (a -> b) -> a -> b
+$ SomeByronSigningKey -> ByteString
+serialiseByronWitness SomeByronSigningKey
+migratedWitness
+
+runPrintGenesisHash :: GenesisFile -> ExceptT ByronClientCmdError IO ()
+runPrintGenesisHash :: GenesisFile -> ExceptT ByronClientCmdError IO ()
+runPrintGenesisHash GenesisFile
+genFp = do
+    Config
+genesis <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronGenesisError -> ByronClientCmdError
+ByronCmdGenesisError forall a b. (a -> b) -> a -> b
+$
+                 GenesisFile -> NetworkId -> ExceptT ByronGenesisError IO Config
+readGenesis GenesisFile
+genFp NetworkId
+dummyNetwork
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$ Config -> Text
+formatter Config
+genesis
+  where
+    -- For this purpose of getting the hash, it does not matter what network
+    -- value we use here.
+    dummyNetwork :: NetworkId
+    dummyNetwork :: NetworkId
+dummyNetwork = NetworkId
+Mainnet
+
+    formatter :: Genesis.Config -> Text
+    formatter :: Config -> Text
+formatter = forall a. Format Text a -> a
+F.sformat forall r algo a. Format r (AbstractHash algo a -> r)
+Crypto.hashHexF
+              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. GenesisHash -> AbstractHash Blake2b_256 Raw
+Genesis.unGenesisHash
+              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Config -> GenesisHash
+Genesis.configGenesisHash
+
+runPrintSigningKeyAddress
+  :: ByronKeyFormat
+  -> NetworkId
+  -> SigningKeyFile In
+  -> ExceptT ByronClientCmdError IO ()
+runPrintSigningKeyAddress :: ByronKeyFormat
+-> NetworkId
+-> SigningKeyFile 'In
+-> ExceptT ByronClientCmdError IO ()
+runPrintSigningKeyAddress ByronKeyFormat
+bKeyFormat NetworkId
+networkid SigningKeyFile 'In
+skF = do
+  SomeByronSigningKey
+sK <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skF
+  let sKeyAddr :: Text
+sKeyAddr = Address ByronAddr -> Text
+prettyAddress forall b c a. (b -> c) -> (a -> b) -> a -> c
+. NetworkId -> VerificationKey ByronKey -> Address ByronAddr
+makeByronAddress NetworkId
+networkid forall a b. (a -> b) -> a -> b
+$ SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey SomeByronSigningKey
+sK
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStrLn Text
+sKeyAddr
+
+runKeygen :: NewSigningKeyFile -> ExceptT ByronClientCmdError IO ()
+runKeygen :: NewSigningKeyFile -> ExceptT ByronClientCmdError IO ()
+runKeygen (NewSigningKeyFile String
+skF)  = do
+  SigningKey ByronKey
+sK <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType ByronKey
+AsByronKey
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS String
+skF forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes SigningKey ByronKey
+sK
+
+runToVerification :: ByronKeyFormat -> SigningKeyFile In -> NewVerificationKeyFile -> ExceptT ByronClientCmdError IO ()
+runToVerification :: ByronKeyFormat
+-> SigningKeyFile 'In
+-> NewVerificationKeyFile
+-> ExceptT ByronClientCmdError IO ()
+runToVerification ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skFp (NewVerificationKeyFile String
+vkFp) = do
+  SomeByronSigningKey
+sk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+skFp
+  let ByronVerificationKey VerificationKey
+vK = SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey SomeByronSigningKey
+sk
+  let vKey :: Text
+vKey = Builder -> Text
+Builder.toLazyText forall a b. (a -> b) -> a -> b
+$ VerificationKey -> Builder
+Crypto.formatFullVerificationKey VerificationKey
+vK
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall a b. (a -> b) -> a -> b
+$ forall a.
+(String -> a -> IO ()) -> String -> a -> ExceptT HelpersError IO ()
+ensureNewFile String -> Text -> IO ()
+TL.writeFile String
+vkFp Text
+vKey
+
+runSubmitTx ::SocketPath -> NetworkId -> TxFile In -> ExceptT ByronClientCmdError IO ()
+runSubmitTx :: SocketPath
+-> NetworkId -> TxFile 'In -> ExceptT ByronClientCmdError IO ()
+runSubmitTx SocketPath
+nodeSocketPath NetworkId
+network TxFile 'In
+fp = do
+  ATxAux ByteString
+tx <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronTxError -> ByronClientCmdError
+ByronCmdTxError forall a b. (a -> b) -> a -> b
+$ TxFile 'In -> ExceptT ByronTxError IO (ATxAux ByteString)
+readByronTx TxFile 'In
+fp
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronTxError -> ByronClientCmdError
+ByronCmdTxError forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> NetworkId -> GenTx ByronBlock -> ExceptT ByronTxError IO ()
+nodeSubmitTx SocketPath
+nodeSocketPath NetworkId
+network (ATxAux ByteString -> GenTx ByronBlock
+normalByronTxToGenTx ATxAux ByteString
+tx)
+
+runGetTxId :: TxFile In -> ExceptT ByronClientCmdError IO ()
+runGetTxId :: TxFile 'In -> ExceptT ByronClientCmdError IO ()
+runGetTxId TxFile 'In
+fp = forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronTxError -> ByronClientCmdError
+ByronCmdTxError forall a b. (a -> b) -> a -> b
+$ do
+    ATxAux ByteString
+tx <- TxFile 'In -> ExceptT ByronTxError IO (ATxAux ByteString)
+readByronTx TxFile 'In
+fp
+    let txbody :: TxBody ByronEra
+txbody = forall era. Tx era -> TxBody era
+getTxBody (forall era. ByronEraOnly era -> ATxAux ByteString -> Tx era
+ByronTx ByronEraOnly ByronEra
+ByronEraOnlyByron ATxAux ByteString
+tx)
+        txid :: TxId
+txid   = forall era. TxBody era -> TxId
+getTxId TxBody ByronEra
+txbody
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex TxId
+txid
+
+runSpendGenesisUTxO
+  :: GenesisFile
+  -> NetworkId
+  -> ByronKeyFormat
+  -> NewTxFile
+  -> SigningKeyFile In
+  -> Address ByronAddr
+  -> [TxOut CtxTx ByronEra]
+  -> ExceptT ByronClientCmdError IO ()
+runSpendGenesisUTxO :: GenesisFile
+-> NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> Address ByronAddr
+-> [TxOut CtxTx ByronEra]
+-> ExceptT ByronClientCmdError IO ()
+runSpendGenesisUTxO GenesisFile
+genesisFile NetworkId
+nw ByronKeyFormat
+bKeyFormat (NewTxFile String
+ctTx) SigningKeyFile 'In
+ctKey Address ByronAddr
+genRichAddr [TxOut CtxTx ByronEra]
+outs = do
+    Config
+genesis <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronGenesisError -> ByronClientCmdError
+ByronCmdGenesisError forall a b. (a -> b) -> a -> b
+$ GenesisFile -> NetworkId -> ExceptT ByronGenesisError IO Config
+readGenesis GenesisFile
+genesisFile NetworkId
+nw
+    SomeByronSigningKey
+sk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+ctKey
+
+    let tx :: Tx ByronEra
+tx = Config
+-> NetworkId
+-> SomeByronSigningKey
+-> Address ByronAddr
+-> [TxOut CtxTx ByronEra]
+-> Tx ByronEra
+txSpendGenesisUTxOByronPBFT Config
+genesis NetworkId
+nw SomeByronSigningKey
+sk Address ByronAddr
+genRichAddr [TxOut CtxTx ByronEra]
+outs
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS String
+ctTx forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsCBOR a => a -> ByteString
+serialiseToCBOR Tx ByronEra
+tx
+
+runSpendUTxO
+  :: NetworkId
+  -> ByronKeyFormat
+  -> NewTxFile
+  -> SigningKeyFile In
+  -> [TxIn]
+  -> [TxOut CtxTx ByronEra]
+  -> ExceptT ByronClientCmdError IO ()
+runSpendUTxO :: NetworkId
+-> ByronKeyFormat
+-> NewTxFile
+-> SigningKeyFile 'In
+-> [TxIn]
+-> [TxOut CtxTx ByronEra]
+-> ExceptT ByronClientCmdError IO ()
+runSpendUTxO NetworkId
+nw ByronKeyFormat
+bKeyFormat (NewTxFile String
+ctTx) SigningKeyFile 'In
+ctKey [TxIn]
+ins [TxOut CtxTx ByronEra]
+outs = do
+    SomeByronSigningKey
+sk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronClientCmdError
+ByronCmdKeyFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+bKeyFormat SigningKeyFile 'In
+ctKey
+
+    let gTx :: Tx ByronEra
+gTx = NetworkId
+-> SomeByronSigningKey
+-> [TxIn]
+-> [TxOut CtxTx ByronEra]
+-> Tx ByronEra
+txSpendUTxOByronPBFT NetworkId
+nw SomeByronSigningKey
+sk [TxIn]
+ins [TxOut CtxTx ByronEra]
+outs
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronClientCmdError
+ByronCmdHelpersError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS String
+ctTx forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsCBOR a => a -> ByteString
+serialiseToCBOR Tx ByronEra
+gTx
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Tx.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Tx.html new file mode 100644 index 0000000000..a93ceabd4d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Tx.html @@ -0,0 +1,744 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE NamedFieldPuns #-}
+
+module Cardano.CLI.Byron.Tx
+  ( ByronTxError(..)
+  , Tx
+  , TxFile
+  , NewTxFile(..)
+  , prettyAddress
+  , readByronTx
+  , normalByronTxToGenTx
+  , txSpendGenesisUTxOByronPBFT
+  , txSpendUTxOByronPBFT
+  , nodeSubmitTx
+  , renderByronTxError
+
+    --TODO: remove when they are exported from the ledger
+  , fromCborTxAux
+  , toCborTxAux
+
+  , ScriptValidity(..)
+  )
+where
+
+import           Cardano.Api
+import           Cardano.Api.Byron
+
+import qualified Cardano.Binary as Binary
+import qualified Cardano.Chain.Common as Common
+import           Cardano.Chain.Genesis as Genesis
+import qualified Cardano.Chain.UTxO as UTxO
+import           Cardano.CLI.Byron.Key (byronWitnessToVerKey)
+import           Cardano.CLI.Types.Common (TxFile)
+import qualified Cardano.Crypto.Signing as Crypto
+import qualified Cardano.Ledger.Binary.Decoding as LedgerBinary
+import           Ouroboros.Consensus.Byron.Ledger (ByronBlock, GenTx (..))
+import qualified Ouroboros.Consensus.Byron.Ledger as Byron
+import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
+import qualified Ouroboros.Network.Protocol.LocalTxSubmission.Client as Net.Tx
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (left)
+import           Data.Bifunctor (Bifunctor (..))
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as LB
+import qualified Data.List as List
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.Maybe (fromMaybe, mapMaybe)
+import           Data.String (IsString)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
+import           Formatting (sformat, (%))
+
+data ByronTxError
+  = TxDeserialisationFailed !FilePath !Binary.DecoderError
+  | ByronTxSubmitError !Text
+  | ByronTxSubmitErrorEraMismatch !EraMismatch
+  deriving Int -> ByronTxError -> ShowS
+[ByronTxError] -> ShowS
+ByronTxError -> [Char]
+forall a.
+(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
+showList :: [ByronTxError] -> ShowS
+$cshowList :: [ByronTxError] -> ShowS
+show :: ByronTxError -> [Char]
+$cshow :: ByronTxError -> [Char]
+showsPrec :: Int -> ByronTxError -> ShowS
+$cshowsPrec :: Int -> ByronTxError -> ShowS
+Show
+
+renderByronTxError :: ByronTxError -> Text
+renderByronTxError :: ByronTxError -> Text
+renderByronTxError ByronTxError
+err =
+  case ByronTxError
+err of
+    ByronTxSubmitError Text
+res -> Text
+"Error while submitting tx: " forall a. Semigroup a => a -> a -> a
+<> Text
+res
+    ByronTxSubmitErrorEraMismatch EraMismatch{Text
+ledgerEraName :: EraMismatch -> Text
+ledgerEraName :: Text
+ledgerEraName, Text
+otherEraName :: EraMismatch -> Text
+otherEraName :: Text
+otherEraName} ->
+      Text
+"The era of the node and the tx do not match. " forall a. Semigroup a => a -> a -> a
+<>
+      Text
+"The node is running in the " forall a. Semigroup a => a -> a -> a
+<> Text
+ledgerEraName forall a. Semigroup a => a -> a -> a
+<>
+      Text
+" era, but the transaction is for the " forall a. Semigroup a => a -> a -> a
+<> Text
+otherEraName forall a. Semigroup a => a -> a -> a
+<> Text
+" era."
+    TxDeserialisationFailed [Char]
+txFp DecoderError
+decErr ->
+      Text
+"Transaction deserialisation failed at " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Char]
+txFp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow DecoderError
+decErr
+
+newtype NewTxFile =
+  NewTxFile FilePath
+  deriving (NewTxFile -> NewTxFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: NewTxFile -> NewTxFile -> Bool
+$c/= :: NewTxFile -> NewTxFile -> Bool
+== :: NewTxFile -> NewTxFile -> Bool
+$c== :: NewTxFile -> NewTxFile -> Bool
+Eq, Eq NewTxFile
+NewTxFile -> NewTxFile -> Bool
+NewTxFile -> NewTxFile -> Ordering
+NewTxFile -> NewTxFile -> NewTxFile
+forall a.
+Eq a
+-> (a -> a -> Ordering)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> a)
+-> (a -> a -> a)
+-> Ord a
+min :: NewTxFile -> NewTxFile -> NewTxFile
+$cmin :: NewTxFile -> NewTxFile -> NewTxFile
+max :: NewTxFile -> NewTxFile -> NewTxFile
+$cmax :: NewTxFile -> NewTxFile -> NewTxFile
+>= :: NewTxFile -> NewTxFile -> Bool
+$c>= :: NewTxFile -> NewTxFile -> Bool
+> :: NewTxFile -> NewTxFile -> Bool
+$c> :: NewTxFile -> NewTxFile -> Bool
+<= :: NewTxFile -> NewTxFile -> Bool
+$c<= :: NewTxFile -> NewTxFile -> Bool
+< :: NewTxFile -> NewTxFile -> Bool
+$c< :: NewTxFile -> NewTxFile -> Bool
+compare :: NewTxFile -> NewTxFile -> Ordering
+$ccompare :: NewTxFile -> NewTxFile -> Ordering
+Ord, Int -> NewTxFile -> ShowS
+[NewTxFile] -> ShowS
+NewTxFile -> [Char]
+forall a.
+(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
+showList :: [NewTxFile] -> ShowS
+$cshowList :: [NewTxFile] -> ShowS
+show :: NewTxFile -> [Char]
+$cshow :: NewTxFile -> [Char]
+showsPrec :: Int -> NewTxFile -> ShowS
+$cshowsPrec :: Int -> NewTxFile -> ShowS
+Show, [Char] -> NewTxFile
+forall a. ([Char] -> a) -> IsString a
+fromString :: [Char] -> NewTxFile
+$cfromString :: [Char] -> NewTxFile
+IsString)
+
+
+-- | Pretty-print an address in its Base58 form, and also
+--   its full structure.
+prettyAddress :: Address ByronAddr -> Text
+prettyAddress :: Address ByronAddr -> Text
+prettyAddress (ByronAddress Address
+addr) = forall a. Format Text a -> a
+sformat
+  (forall r. Format r (Address -> r)
+Common.addressF forall r a r'. Format r a -> Format r' r -> Format r' a
+% Format (Address -> Text) (Address -> Text)
+"\n" forall r a r'. Format r a -> Format r' r -> Format r' a
+% forall r. Format r (Address -> r)
+Common.addressDetailedF)
+  Address
+addr Address
+addr
+
+readByronTx :: TxFile In -> ExceptT ByronTxError IO (UTxO.ATxAux ByteString)
+readByronTx :: TxFile 'In -> ExceptT ByronTxError IO (ATxAux ByteString)
+readByronTx (File [Char]
+fp) = do
+  ByteString
+txBS <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ [Char] -> IO ByteString
+LB.readFile [Char]
+fp
+  case ByteString -> Either DecoderError (ATxAux ByteString)
+fromCborTxAux ByteString
+txBS of
+    Left DecoderError
+e -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ [Char] -> DecoderError -> ByronTxError
+TxDeserialisationFailed [Char]
+fp DecoderError
+e
+    Right ATxAux ByteString
+tx -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ATxAux ByteString
+tx
+
+-- | The 'GenTx' is all the kinds of transactions that can be submitted
+-- and \"normal\" Byron transactions are just one of the kinds.
+normalByronTxToGenTx :: UTxO.ATxAux ByteString -> GenTx ByronBlock
+normalByronTxToGenTx :: ATxAux ByteString -> GenTx ByronBlock
+normalByronTxToGenTx ATxAux ByteString
+tx' = TxId -> ATxAux ByteString -> GenTx ByronBlock
+Byron.ByronTx (ATxAux ByteString -> TxId
+Byron.byronIdTx ATxAux ByteString
+tx') ATxAux ByteString
+tx'
+
+-- | Given a genesis, and a pair of a genesis public key and address,
+--   reconstruct a TxIn corresponding to the genesis UTxO entry.
+genesisUTxOTxIn :: Genesis.Config -> Crypto.VerificationKey -> Common.Address -> UTxO.TxIn
+genesisUTxOTxIn :: Config -> VerificationKey -> Address -> TxIn
+genesisUTxOTxIn Config
+gc VerificationKey
+vk Address
+genAddr =
+  Maybe TxIn -> TxIn
+handleMissingAddr forall a b. (a -> b) -> a -> b
+$ forall a b. (a, b) -> a
+fst forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup Address
+genAddr Map Address (TxIn, TxOut)
+initialUtxo
+  where
+    initialUtxo :: Map Common.Address (UTxO.TxIn, UTxO.TxOut)
+    initialUtxo :: Map Address (TxIn, TxOut)
+initialUtxo =
+          forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (a -> Maybe b) -> [a] -> [b]
+mapMaybe (\(TxIn
+inp, TxOut
+out) -> TxIn -> Address -> TxOut -> (Address, (TxIn, TxOut))
+mkEntry TxIn
+inp Address
+genAddr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> VerificationKey -> TxOut -> Maybe TxOut
+keyMatchesUTxO VerificationKey
+vk TxOut
+out)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [(CompactTxIn, CompactTxOut)] -> [(TxIn, TxOut)]
+fromCompactTxInTxOutList
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall k a. Map k a -> [(k, a)]
+Map.toList
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UTxO -> Map CompactTxIn CompactTxOut
+UTxO.unUTxO
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Config -> UTxO
+UTxO.genesisUtxo
+        forall a b. (a -> b) -> a -> b
+$ Config
+gc
+      where
+        mkEntry :: UTxO.TxIn
+                -> Common.Address
+                -> UTxO.TxOut
+                -> (Common.Address, (UTxO.TxIn, UTxO.TxOut))
+        mkEntry :: TxIn -> Address -> TxOut -> (Address, (TxIn, TxOut))
+mkEntry TxIn
+inp Address
+addr TxOut
+out = (Address
+addr, (TxIn
+inp, TxOut
+out))
+
+    fromCompactTxInTxOutList :: [(UTxO.CompactTxIn, UTxO.CompactTxOut)]
+                             -> [(UTxO.TxIn, UTxO.TxOut)]
+    fromCompactTxInTxOutList :: [(CompactTxIn, CompactTxOut)] -> [(TxIn, TxOut)]
+fromCompactTxInTxOutList =
+        forall a b. (a -> b) -> [a] -> [b]
+map (forall (p :: * -> * -> *) a b c d.
+Bifunctor p =>
+(a -> b) -> (c -> d) -> p a c -> p b d
+bimap CompactTxIn -> TxIn
+UTxO.fromCompactTxIn CompactTxOut -> TxOut
+UTxO.fromCompactTxOut)
+
+    keyMatchesUTxO :: Crypto.VerificationKey -> UTxO.TxOut -> Maybe UTxO.TxOut
+    keyMatchesUTxO :: VerificationKey -> TxOut -> Maybe TxOut
+keyMatchesUTxO VerificationKey
+key TxOut
+out =
+      if VerificationKey -> Address -> Bool
+Common.checkVerKeyAddress VerificationKey
+key (TxOut -> Address
+UTxO.txOutAddress TxOut
+out)
+      then forall a. a -> Maybe a
+Just TxOut
+out else forall a. Maybe a
+Nothing
+
+    handleMissingAddr :: Maybe UTxO.TxIn -> UTxO.TxIn
+    handleMissingAddr :: Maybe TxIn -> TxIn
+handleMissingAddr  = forall a. a -> Maybe a -> a
+fromMaybe forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. HasCallStack => [Char] -> a
+error
+      forall a b. (a -> b) -> a -> b
+$  [Char]
+"\nGenesis UTxO has no address\n"
+      forall a. Semigroup a => a -> a -> a
+<> Text -> [Char]
+Text.unpack (Address ByronAddr -> Text
+prettyAddress (Address -> Address ByronAddr
+ByronAddress Address
+genAddr))
+      forall a. Semigroup a => a -> a -> a
+<> [Char]
+"\n\nIt has the following, though:\n\n"
+      forall a. Semigroup a => a -> a -> a
+<> forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
+List.concatMap (Text -> [Char]
+Text.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Address ByronAddr -> Text
+prettyAddress forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Address -> Address ByronAddr
+ByronAddress) (forall k a. Map k a -> [k]
+Map.keys Map Address (TxIn, TxOut)
+initialUtxo)
+
+-- | Generate a transaction spending genesis UTxO at a given address,
+--   to given outputs, signed by the given key.
+txSpendGenesisUTxOByronPBFT
+  :: Genesis.Config
+  -> NetworkId
+  -> SomeByronSigningKey
+  -> Address ByronAddr
+  -> [TxOut CtxTx ByronEra]
+  -> Tx ByronEra
+txSpendGenesisUTxOByronPBFT :: Config
+-> NetworkId
+-> SomeByronSigningKey
+-> Address ByronAddr
+-> [TxOut CtxTx ByronEra]
+-> Tx ByronEra
+txSpendGenesisUTxOByronPBFT Config
+gc NetworkId
+nId SomeByronSigningKey
+sk (ByronAddress Address
+bAddr) [TxOut CtxTx ByronEra]
+outs = do
+    let txBodyCont :: TxBodyContent BuildTx ByronEra
+txBodyCont =
+          TxBodyContent
+            { txIns :: TxIns BuildTx ByronEra
+txIns =
+                [ (TxIn -> TxIn
+fromByronTxIn TxIn
+txIn, forall a. a -> BuildTxWith BuildTx a
+BuildTxWith (forall witctx era. KeyWitnessInCtx witctx -> Witness witctx era
+KeyWitness KeyWitnessInCtx WitCtxTxIn
+KeyWitnessForSpending))
+                ]
+            , txInsCollateral :: TxInsCollateral ByronEra
+txInsCollateral = forall era. TxInsCollateral era
+TxInsCollateralNone
+            , txInsReference :: TxInsReference BuildTx ByronEra
+txInsReference = forall build era. TxInsReference build era
+TxInsReferenceNone
+            , txOuts :: [TxOut CtxTx ByronEra]
+txOuts = [TxOut CtxTx ByronEra]
+outs
+            , txTotalCollateral :: TxTotalCollateral ByronEra
+txTotalCollateral = forall era. TxTotalCollateral era
+TxTotalCollateralNone
+            , txReturnCollateral :: TxReturnCollateral CtxTx ByronEra
+txReturnCollateral = forall ctx era. TxReturnCollateral ctx era
+TxReturnCollateralNone
+            , txFee :: TxFee ByronEra
+txFee = forall era. ByronEraOnly era -> TxFee era
+TxFeeImplicit ByronEraOnly ByronEra
+ByronEraOnlyByron
+            , txValidityLowerBound :: TxValidityLowerBound ByronEra
+txValidityLowerBound = forall era. TxValidityLowerBound era
+TxValidityNoLowerBound
+            , txValidityUpperBound :: TxValidityUpperBound ByronEra
+txValidityUpperBound = forall era. CardanoEra era -> TxValidityUpperBound era
+defaultTxValidityUpperBound CardanoEra ByronEra
+ByronEra
+            , txMetadata :: TxMetadataInEra ByronEra
+txMetadata = forall era. TxMetadataInEra era
+TxMetadataNone
+            , txAuxScripts :: TxAuxScripts ByronEra
+txAuxScripts = forall era. TxAuxScripts era
+TxAuxScriptsNone
+            , txExtraKeyWits :: TxExtraKeyWitnesses ByronEra
+txExtraKeyWits = forall era. TxExtraKeyWitnesses era
+TxExtraKeyWitnessesNone
+            , txProtocolParams :: BuildTxWith BuildTx (Maybe (LedgerProtocolParameters ByronEra))
+txProtocolParams = forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a. Maybe a
+Nothing
+            , txWithdrawals :: TxWithdrawals BuildTx ByronEra
+txWithdrawals = forall build era. TxWithdrawals build era
+TxWithdrawalsNone
+            , txCertificates :: TxCertificates BuildTx ByronEra
+txCertificates = forall build era. TxCertificates build era
+TxCertificatesNone
+            , txUpdateProposal :: TxUpdateProposal ByronEra
+txUpdateProposal = forall era. TxUpdateProposal era
+TxUpdateProposalNone
+            , txMintValue :: TxMintValue BuildTx ByronEra
+txMintValue = forall build era. TxMintValue build era
+TxMintNone
+            , txScriptValidity :: TxScriptValidity ByronEra
+txScriptValidity = forall era. TxScriptValidity era
+TxScriptValidityNone
+            , txProposalProcedures :: Maybe (Featured ConwayEraOnwards ByronEra [Proposal ByronEra])
+txProposalProcedures = forall a. Maybe a
+Nothing
+            , txVotingProcedures :: Maybe
+  (Featured ConwayEraOnwards ByronEra (VotingProcedures ByronEra))
+txVotingProcedures = forall a. Maybe a
+Nothing
+            }
+
+    case forall era.
+CardanoEra era
+-> TxBodyContent BuildTx era -> Either TxBodyError (TxBody era)
+createAndValidateTransactionBody CardanoEra ByronEra
+ByronEra TxBodyContent BuildTx ByronEra
+txBodyCont of
+      Left TxBodyError
+err -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"Error occurred while creating a Byron genesis based UTxO transaction: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show TxBodyError
+err
+      Right TxBody ByronEra
+txBody -> let bWit :: KeyWitness ByronEra
+bWit = SomeByronSigningKey
+-> NetworkId -> TxBody ByronEra -> KeyWitness ByronEra
+fromByronWitness SomeByronSigningKey
+sk NetworkId
+nId TxBody ByronEra
+txBody
+                      in forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [KeyWitness ByronEra
+bWit] TxBody ByronEra
+txBody
+  where
+    ByronVerificationKey VerificationKey
+vKey = SomeByronSigningKey -> VerificationKey ByronKey
+byronWitnessToVerKey SomeByronSigningKey
+sk
+
+    txIn :: UTxO.TxIn
+    txIn :: TxIn
+txIn  = Config -> VerificationKey -> Address -> TxIn
+genesisUTxOTxIn Config
+gc VerificationKey
+vKey Address
+bAddr
+
+-- | Generate a transaction from given Tx inputs to outputs,
+--   signed by the given key.
+txSpendUTxOByronPBFT
+  :: NetworkId
+  -> SomeByronSigningKey
+  -> [TxIn]
+  -> [TxOut CtxTx ByronEra]
+  -> Tx ByronEra
+txSpendUTxOByronPBFT :: NetworkId
+-> SomeByronSigningKey
+-> [TxIn]
+-> [TxOut CtxTx ByronEra]
+-> Tx ByronEra
+txSpendUTxOByronPBFT NetworkId
+nId SomeByronSigningKey
+sk [TxIn]
+txIns [TxOut CtxTx ByronEra]
+outs = do
+  let txBodyCont :: TxBodyContent BuildTx ByronEra
+txBodyCont =
+        TxBodyContent
+          { txIns :: TxIns BuildTx ByronEra
+txIns =
+              [ ( TxIn
+txIn
+                , forall a. a -> BuildTxWith BuildTx a
+BuildTxWith (forall witctx era. KeyWitnessInCtx witctx -> Witness witctx era
+KeyWitness KeyWitnessInCtx WitCtxTxIn
+KeyWitnessForSpending)
+                ) | TxIn
+txIn <- [TxIn]
+txIns
+              ]
+          , txInsCollateral :: TxInsCollateral ByronEra
+txInsCollateral = forall era. TxInsCollateral era
+TxInsCollateralNone
+          , txInsReference :: TxInsReference BuildTx ByronEra
+txInsReference = forall build era. TxInsReference build era
+TxInsReferenceNone
+          , txOuts :: [TxOut CtxTx ByronEra]
+txOuts = [TxOut CtxTx ByronEra]
+outs
+          , txTotalCollateral :: TxTotalCollateral ByronEra
+txTotalCollateral = forall era. TxTotalCollateral era
+TxTotalCollateralNone
+          , txReturnCollateral :: TxReturnCollateral CtxTx ByronEra
+txReturnCollateral = forall ctx era. TxReturnCollateral ctx era
+TxReturnCollateralNone
+          , txFee :: TxFee ByronEra
+txFee = forall era. ByronEraOnly era -> TxFee era
+TxFeeImplicit ByronEraOnly ByronEra
+ByronEraOnlyByron
+          , txValidityLowerBound :: TxValidityLowerBound ByronEra
+txValidityLowerBound = forall era. TxValidityLowerBound era
+TxValidityNoLowerBound
+          , txValidityUpperBound :: TxValidityUpperBound ByronEra
+txValidityUpperBound = forall era. CardanoEra era -> TxValidityUpperBound era
+defaultTxValidityUpperBound CardanoEra ByronEra
+ByronEra
+          , txMetadata :: TxMetadataInEra ByronEra
+txMetadata = forall era. TxMetadataInEra era
+TxMetadataNone
+          , txAuxScripts :: TxAuxScripts ByronEra
+txAuxScripts = forall era. TxAuxScripts era
+TxAuxScriptsNone
+          , txExtraKeyWits :: TxExtraKeyWitnesses ByronEra
+txExtraKeyWits = forall era. TxExtraKeyWitnesses era
+TxExtraKeyWitnessesNone
+          , txProtocolParams :: BuildTxWith BuildTx (Maybe (LedgerProtocolParameters ByronEra))
+txProtocolParams = forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a. Maybe a
+Nothing
+          , txWithdrawals :: TxWithdrawals BuildTx ByronEra
+txWithdrawals = forall build era. TxWithdrawals build era
+TxWithdrawalsNone
+          , txCertificates :: TxCertificates BuildTx ByronEra
+txCertificates = forall build era. TxCertificates build era
+TxCertificatesNone
+          , txUpdateProposal :: TxUpdateProposal ByronEra
+txUpdateProposal = forall era. TxUpdateProposal era
+TxUpdateProposalNone
+          , txMintValue :: TxMintValue BuildTx ByronEra
+txMintValue = forall build era. TxMintValue build era
+TxMintNone
+          , txScriptValidity :: TxScriptValidity ByronEra
+txScriptValidity = forall era. TxScriptValidity era
+TxScriptValidityNone
+          , txProposalProcedures :: Maybe (Featured ConwayEraOnwards ByronEra [Proposal ByronEra])
+txProposalProcedures = forall a. Maybe a
+Nothing
+          , txVotingProcedures :: Maybe
+  (Featured ConwayEraOnwards ByronEra (VotingProcedures ByronEra))
+txVotingProcedures = forall a. Maybe a
+Nothing
+          }
+
+  case forall era.
+CardanoEra era
+-> TxBodyContent BuildTx era -> Either TxBodyError (TxBody era)
+createAndValidateTransactionBody CardanoEra ByronEra
+ByronEra TxBodyContent BuildTx ByronEra
+txBodyCont of
+    Left TxBodyError
+err -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"Error occurred while creating a Byron genesis based UTxO transaction: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show TxBodyError
+err
+    Right TxBody ByronEra
+txBody -> let bWit :: KeyWitness ByronEra
+bWit = SomeByronSigningKey
+-> NetworkId -> TxBody ByronEra -> KeyWitness ByronEra
+fromByronWitness SomeByronSigningKey
+sk NetworkId
+nId TxBody ByronEra
+txBody
+                    in forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [KeyWitness ByronEra
+bWit] TxBody ByronEra
+txBody
+
+fromByronWitness :: SomeByronSigningKey -> NetworkId -> TxBody ByronEra -> KeyWitness ByronEra
+fromByronWitness :: SomeByronSigningKey
+-> NetworkId -> TxBody ByronEra -> KeyWitness ByronEra
+fromByronWitness SomeByronSigningKey
+bw NetworkId
+nId TxBody ByronEra
+txBody =
+  case SomeByronSigningKey
+bw of
+    AByronSigningKeyLegacy SigningKey ByronKeyLegacy
+sk -> forall key.
+IsByronKey key =>
+NetworkId
+-> TxBody ByronEra -> SigningKey key -> KeyWitness ByronEra
+makeByronKeyWitness NetworkId
+nId TxBody ByronEra
+txBody SigningKey ByronKeyLegacy
+sk
+    AByronSigningKey SigningKey ByronKey
+sk' -> forall key.
+IsByronKey key =>
+NetworkId
+-> TxBody ByronEra -> SigningKey key -> KeyWitness ByronEra
+makeByronKeyWitness NetworkId
+nId TxBody ByronEra
+txBody SigningKey ByronKey
+sk'
+
+-- | Submit a transaction to a node specified by topology info.
+nodeSubmitTx
+  :: SocketPath
+  -> NetworkId
+  -> GenTx ByronBlock
+  -> ExceptT ByronTxError IO ()
+nodeSubmitTx :: SocketPath
+-> NetworkId -> GenTx ByronBlock -> ExceptT ByronTxError IO ()
+nodeSubmitTx SocketPath
+nodeSocketPath NetworkId
+network GenTx ByronBlock
+gentx = do
+    let connctInfo :: LocalNodeConnectInfo
+connctInfo =
+          LocalNodeConnectInfo {
+            localNodeSocketPath :: SocketPath
+localNodeSocketPath = SocketPath
+nodeSocketPath,
+            localNodeNetworkId :: NetworkId
+localNodeNetworkId = NetworkId
+network,
+            localConsensusModeParams :: ConsensusModeParams
+localConsensusModeParams = EpochSlots -> ConsensusModeParams
+CardanoModeParams (Word64 -> EpochSlots
+EpochSlots Word64
+21600)
+          }
+    SubmitResult TxValidationErrorInCardanoMode
+res <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo
+-> TxInMode -> IO (SubmitResult TxValidationErrorInCardanoMode)
+submitTxToNodeLocal LocalNodeConnectInfo
+connctInfo (forall era. ByronEraOnly era -> GenTx ByronBlock -> TxInMode
+TxInByronSpecial ByronEraOnly ByronEra
+ByronEraOnlyByron GenTx ByronBlock
+gentx)
+    case SubmitResult TxValidationErrorInCardanoMode
+res of
+      SubmitResult TxValidationErrorInCardanoMode
+Net.Tx.SubmitSuccess -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStrLn Text
+"Transaction successfully submitted."
+      Net.Tx.SubmitFail TxValidationErrorInCardanoMode
+reason ->
+        case TxValidationErrorInCardanoMode
+reason of
+          TxValidationErrorInCardanoMode TxValidationError era
+err -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> ByronTxError
+ByronTxSubmitError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> [Char]
+show TxValidationError era
+err
+          TxValidationEraMismatch EraMismatch
+mismatchErr -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ EraMismatch -> ByronTxError
+ByronTxSubmitErrorEraMismatch EraMismatch
+mismatchErr
+
+    forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+
+
+--TODO: remove these local definitions when the updated ledger lib is available
+fromCborTxAux :: LB.ByteString ->  Either Binary.DecoderError (UTxO.ATxAux B.ByteString)
+fromCborTxAux :: ByteString -> Either DecoderError (ATxAux ByteString)
+fromCborTxAux ByteString
+lbs =
+    forall (f :: * -> *).
+Functor f =>
+ByteString -> f ByteSpan -> f ByteString
+annotationBytes ByteString
+lbs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a.
+Text
+-> (forall s. Decoder s a) -> ByteString -> Either DecoderError a
+Binary.decodeFullDecoder Text
+"Cardano.Chain.UTxO.TxAux.fromCborTxAux"
+                                 forall a s. FromCBOR a => Decoder s a
+Binary.fromCBOR ByteString
+lbs
+  where
+    annotationBytes :: Functor f => LB.ByteString -> f LedgerBinary.ByteSpan -> f B.ByteString
+    annotationBytes :: forall (f :: * -> *).
+Functor f =>
+ByteString -> f ByteSpan -> f ByteString
+annotationBytes ByteString
+bytes = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (ByteString -> ByteString
+LB.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> ByteSpan -> ByteString
+LedgerBinary.slice ByteString
+bytes)
+
+toCborTxAux :: UTxO.ATxAux ByteString -> LB.ByteString
+toCborTxAux :: ATxAux ByteString -> ByteString
+toCborTxAux = ByteString -> ByteString
+LB.fromStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ATxAux a -> a
+UTxO.aTaAnnotation -- The ByteString anotation is the CBOR encoded version.
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.UpdateProposal.html b/cardano-cli/lib/src/Cardano.CLI.Byron.UpdateProposal.html new file mode 100644 index 0000000000..9220e04065 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.UpdateProposal.html @@ -0,0 +1,271 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.Byron.UpdateProposal
+  ( ByronUpdateProposalError(..)
+  , runProposalCreation
+  , readByronUpdateProposal
+  , renderByronUpdateProposalError
+  , submitByronUpdateProposal
+  ) where
+
+import           Cardano.Api (NetworkId, SerialiseAsRawBytes (..), SocketPath, textShow)
+import           Cardano.Api.Byron (AsType (AsByronUpdateProposal), ByronProtocolParametersUpdate,
+                   ByronUpdateProposal, makeByronUpdateProposal, toByronLedgerUpdateProposal)
+
+import           Cardano.Chain.Update (InstallerHash (..), ProtocolVersion (..),
+                   SoftwareVersion (..), SystemTag (..))
+import           Cardano.CLI.Byron.Genesis (ByronGenesisError)
+import           Cardano.CLI.Byron.Key (ByronKeyFailure, readByronSigningKey)
+import           Cardano.CLI.Byron.Tx (ByronTxError, nodeSubmitTx)
+import           Cardano.CLI.Helpers (HelpersError, ensureNewFileLBS, renderHelpersError)
+import           Cardano.CLI.Types.Common
+import           Ouroboros.Consensus.Ledger.SupportsMempool (txId)
+import           Ouroboros.Consensus.Util.Condense (condense)
+
+import           Control.Exception (Exception (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither)
+import           Control.Tracer (stdoutTracer, traceWith)
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.ByteString as BS
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data ByronUpdateProposalError
+  = ByronReadUpdateProposalFileFailure !FilePath !Text
+  | ByronUpdateProposalWriteError !HelpersError
+  | ByronUpdateProposalGenesisReadError !FilePath !ByronGenesisError
+  | ByronUpdateProposalTxError !ByronTxError
+  | ReadSigningKeyFailure !FilePath !ByronKeyFailure
+  | UpdateProposalDecodingError !FilePath
+  deriving Int -> ByronUpdateProposalError -> ShowS
+[ByronUpdateProposalError] -> ShowS
+ByronUpdateProposalError -> [Char]
+forall a.
+(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
+showList :: [ByronUpdateProposalError] -> ShowS
+$cshowList :: [ByronUpdateProposalError] -> ShowS
+show :: ByronUpdateProposalError -> [Char]
+$cshow :: ByronUpdateProposalError -> [Char]
+showsPrec :: Int -> ByronUpdateProposalError -> ShowS
+$cshowsPrec :: Int -> ByronUpdateProposalError -> ShowS
+Show
+
+renderByronUpdateProposalError :: ByronUpdateProposalError -> Text
+renderByronUpdateProposalError :: ByronUpdateProposalError -> Text
+renderByronUpdateProposalError ByronUpdateProposalError
+err =
+  case ByronUpdateProposalError
+err of
+    ByronReadUpdateProposalFileFailure [Char]
+fp Text
+rErr ->
+      Text
+"Error reading update proposal at " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Char]
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Text
+rErr
+    ByronUpdateProposalWriteError HelpersError
+hErr ->
+      Text
+"Error writing update proposal: " forall a. Semigroup a => a -> a -> a
+<> HelpersError -> Text
+renderHelpersError HelpersError
+hErr
+    ByronUpdateProposalGenesisReadError [Char]
+fp ByronGenesisError
+rErr ->
+      Text
+"Error reading update proposal at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Char]
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronGenesisError
+rErr
+    ByronUpdateProposalTxError ByronTxError
+txErr ->
+      Text
+"Error submitting update proposal: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronTxError
+txErr
+    ReadSigningKeyFailure [Char]
+fp ByronKeyFailure
+rErr ->
+      Text
+"Error reading signing key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Char]
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow ByronKeyFailure
+rErr
+    UpdateProposalDecodingError [Char]
+fp ->
+      Text
+"Error decoding update proposal at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow [Char]
+fp
+
+runProposalCreation
+  :: NetworkId
+  -> SigningKeyFile In
+  -> ProtocolVersion
+  -> SoftwareVersion
+  -> SystemTag
+  -> InstallerHash
+  -> FilePath
+  -> ByronProtocolParametersUpdate
+  -> ExceptT ByronUpdateProposalError IO ()
+runProposalCreation :: NetworkId
+-> SigningKeyFile 'In
+-> ProtocolVersion
+-> SoftwareVersion
+-> SystemTag
+-> InstallerHash
+-> [Char]
+-> ByronProtocolParametersUpdate
+-> ExceptT ByronUpdateProposalError IO ()
+runProposalCreation NetworkId
+nw sKey :: SigningKeyFile 'In
+sKey@(File [Char]
+sKeyfp) ProtocolVersion
+pVer SoftwareVersion
+sVer
+                    SystemTag
+sysTag InstallerHash
+insHash [Char]
+outputFp ByronProtocolParametersUpdate
+params = do
+  SomeByronSigningKey
+sK <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ([Char] -> ByronKeyFailure -> ByronUpdateProposalError
+ReadSigningKeyFailure [Char]
+sKeyfp) forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+NonLegacyByronKeyFormat SigningKeyFile 'In
+sKey
+  let proposal :: ByronUpdateProposal
+proposal = NetworkId
+-> ProtocolVersion
+-> SoftwareVersion
+-> SystemTag
+-> InstallerHash
+-> SomeByronSigningKey
+-> ByronProtocolParametersUpdate
+-> ByronUpdateProposal
+makeByronUpdateProposal NetworkId
+nw ProtocolVersion
+pVer SoftwareVersion
+sVer SystemTag
+sysTag InstallerHash
+insHash SomeByronSigningKey
+sK ByronProtocolParametersUpdate
+params
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronUpdateProposalError
+ByronUpdateProposalWriteError forall a b. (a -> b) -> a -> b
+$
+    [Char] -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS [Char]
+outputFp forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes ByronUpdateProposal
+proposal
+
+readByronUpdateProposal :: FilePath -> ExceptT ByronUpdateProposalError IO ByronUpdateProposal
+readByronUpdateProposal :: [Char] -> ExceptT ByronUpdateProposalError IO ByronUpdateProposal
+readByronUpdateProposal [Char]
+fp = do
+  ByteString
+proposalBs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT ([Char] -> Text -> ByronUpdateProposalError
+ByronReadUpdateProposalFileFailure [Char]
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Exception e => e -> [Char]
+displayException)
+                  forall a b. (a -> b) -> a -> b
+$ [Char] -> IO ByteString
+BS.readFile [Char]
+fp
+  let proposalResult :: Either SerialiseAsRawBytesError ByronUpdateProposal
+proposalResult = forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either SerialiseAsRawBytesError a
+deserialiseFromRawBytes AsType ByronUpdateProposal
+AsByronUpdateProposal ByteString
+proposalBs
+  forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (forall a b. a -> b -> a
+const ([Char] -> ByronUpdateProposalError
+UpdateProposalDecodingError [Char]
+fp)) Either SerialiseAsRawBytesError ByronUpdateProposal
+proposalResult
+
+submitByronUpdateProposal
+  :: SocketPath
+  -> NetworkId
+  -> FilePath
+  -> ExceptT ByronUpdateProposalError IO ()
+submitByronUpdateProposal :: SocketPath
+-> NetworkId -> [Char] -> ExceptT ByronUpdateProposalError IO ()
+submitByronUpdateProposal SocketPath
+nodeSocketPath NetworkId
+network [Char]
+proposalFp = do
+  ByronUpdateProposal
+proposal <- [Char] -> ExceptT ByronUpdateProposalError IO ByronUpdateProposal
+readByronUpdateProposal [Char]
+proposalFp
+  let genTx :: GenTx ByronBlock
+genTx = ByronUpdateProposal -> GenTx ByronBlock
+toByronLedgerUpdateProposal ByronUpdateProposal
+proposal
+  forall (m :: * -> *) a. Tracer m a -> a -> m ()
+traceWith forall (m :: * -> *). MonadIO m => Tracer m [Char]
+stdoutTracer forall a b. (a -> b) -> a -> b
+$ [Char]
+"Update proposal TxId: " forall a. [a] -> [a] -> [a]
+++ forall a. Condense a => a -> [Char]
+condense (forall tx. HasTxId tx => tx -> TxId tx
+txId GenTx ByronBlock
+genTx)
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronTxError -> ByronUpdateProposalError
+ByronUpdateProposalTxError forall a b. (a -> b) -> a -> b
+$ SocketPath
+-> NetworkId -> GenTx ByronBlock -> ExceptT ByronTxError IO ()
+nodeSubmitTx SocketPath
+nodeSocketPath NetworkId
+network GenTx ByronBlock
+genTx
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Byron.Vote.html b/cardano-cli/lib/src/Cardano.CLI.Byron.Vote.html new file mode 100644 index 0000000000..7f52cb7c76 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Byron.Vote.html @@ -0,0 +1,250 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.Byron.Vote
+  ( ByronVoteError(..)
+  , readByronVote
+  , renderByronVoteError
+  , runVoteCreation
+  , submitByronVote
+  ) where
+
+import           Cardano.Api.Byron
+
+import qualified Cardano.Binary as Binary
+import           Cardano.CLI.Byron.Genesis (ByronGenesisError)
+import           Cardano.CLI.Byron.Key (ByronKeyFailure, readByronSigningKey)
+import           Cardano.CLI.Byron.Tx (ByronTxError, nodeSubmitTx)
+import           Cardano.CLI.Byron.UpdateProposal (ByronUpdateProposalError,
+                   readByronUpdateProposal)
+import           Cardano.CLI.Helpers (HelpersError, ensureNewFileLBS)
+import           Cardano.CLI.Types.Common
+import           Ouroboros.Consensus.Ledger.SupportsMempool (txId)
+import           Ouroboros.Consensus.Util.Condense (condense)
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither)
+import           Control.Tracer (stdoutTracer, traceWith)
+import           Data.Bifunctor (first)
+import qualified Data.ByteString as BS
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+
+data ByronVoteError
+  = ByronVoteDecodingError !FilePath
+  | ByronVoteGenesisReadError !ByronGenesisError
+  | ByronVoteKeyReadFailure !ByronKeyFailure
+  | ByronVoteReadFileFailure !FilePath !Text
+  | ByronVoteTxSubmissionError !ByronTxError
+  | ByronVoteUpdateProposalFailure !ByronUpdateProposalError
+  | ByronVoteUpdateProposalDecodingError !Binary.DecoderError
+  | ByronVoteUpdateHelperError !HelpersError
+  deriving Int -> ByronVoteError -> ShowS
+[ByronVoteError] -> ShowS
+ByronVoteError -> [Char]
+forall a.
+(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
+showList :: [ByronVoteError] -> ShowS
+$cshowList :: [ByronVoteError] -> ShowS
+show :: ByronVoteError -> [Char]
+$cshow :: ByronVoteError -> [Char]
+showsPrec :: Int -> ByronVoteError -> ShowS
+$cshowsPrec :: Int -> ByronVoteError -> ShowS
+Show
+
+renderByronVoteError :: ByronVoteError -> Text
+renderByronVoteError :: ByronVoteError -> Text
+renderByronVoteError ByronVoteError
+bVerr =
+  case ByronVoteError
+bVerr of
+    ByronVoteDecodingError [Char]
+fp -> Text
+"Error decoding Byron vote at " forall a. Semigroup a => a -> a -> a
+<>  [Char] -> Text
+Text.pack [Char]
+fp
+    ByronVoteGenesisReadError ByronGenesisError
+genErr -> Text
+"Error reading the genesis file:" forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show ByronGenesisError
+genErr)
+    ByronVoteReadFileFailure [Char]
+fp Text
+err -> Text
+"Error reading Byron vote at " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack [Char]
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> Text
+err
+    ByronVoteTxSubmissionError ByronTxError
+txErr -> Text
+"Error submitting the transaction: " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show ByronTxError
+txErr)
+    ByronVoteUpdateProposalDecodingError DecoderError
+err -> Text
+"Error decoding Byron update proposal: " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show DecoderError
+err)
+    ByronVoteUpdateProposalFailure ByronUpdateProposalError
+err -> Text
+"Error reading the update proposal: " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show ByronUpdateProposalError
+err)
+    ByronVoteUpdateHelperError HelpersError
+err ->Text
+"Error creating the vote: " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show HelpersError
+err)
+    ByronVoteKeyReadFailure ByronKeyFailure
+err -> Text
+"Error reading the signing key: " forall a. Semigroup a => a -> a -> a
+<> [Char] -> Text
+Text.pack (forall a. Show a => a -> [Char]
+show ByronKeyFailure
+err)
+
+
+runVoteCreation
+  :: NetworkId
+  -> SigningKeyFile In
+  -> FilePath
+  -> Bool
+  -> FilePath
+  -> ExceptT ByronVoteError IO ()
+runVoteCreation :: NetworkId
+-> SigningKeyFile 'In
+-> [Char]
+-> Bool
+-> [Char]
+-> ExceptT ByronVoteError IO ()
+runVoteCreation NetworkId
+nw SigningKeyFile 'In
+sKey [Char]
+upPropFp Bool
+voteBool [Char]
+outputFp = do
+  SomeByronSigningKey
+sK <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> ByronVoteError
+ByronVoteKeyReadFailure forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+readByronSigningKey ByronKeyFormat
+NonLegacyByronKeyFormat SigningKeyFile 'In
+sKey
+  ByronUpdateProposal
+proposal <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronUpdateProposalError -> ByronVoteError
+ByronVoteUpdateProposalFailure forall a b. (a -> b) -> a -> b
+$ [Char] -> ExceptT ByronUpdateProposalError IO ByronUpdateProposal
+readByronUpdateProposal [Char]
+upPropFp
+  let vote :: ByronVote
+vote = NetworkId
+-> SomeByronSigningKey -> ByronUpdateProposal -> Bool -> ByronVote
+makeByronVote NetworkId
+nw SomeByronSigningKey
+sK ByronUpdateProposal
+proposal Bool
+voteBool
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> ByronVoteError
+ByronVoteUpdateHelperError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS [Char]
+outputFp
+    forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes ByronVote
+vote
+
+submitByronVote
+  :: SocketPath
+  -> NetworkId
+  -> FilePath
+  -> ExceptT ByronVoteError IO ()
+submitByronVote :: SocketPath -> NetworkId -> [Char] -> ExceptT ByronVoteError IO ()
+submitByronVote SocketPath
+nodeSocketPath NetworkId
+network [Char]
+voteFp = do
+  ByronVote
+vote <- [Char] -> ExceptT ByronVoteError IO ByronVote
+readByronVote [Char]
+voteFp
+  let genTx :: GenTx ByronBlock
+genTx = ByronVote -> GenTx ByronBlock
+toByronLedgertoByronVote ByronVote
+vote
+  forall (m :: * -> *) a. Tracer m a -> a -> m ()
+traceWith forall (m :: * -> *). MonadIO m => Tracer m [Char]
+stdoutTracer ([Char]
+"Vote TxId: " forall a. [a] -> [a] -> [a]
+++ forall a. Condense a => a -> [Char]
+condense (forall tx. HasTxId tx => tx -> TxId tx
+txId GenTx ByronBlock
+genTx))
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronTxError -> ByronVoteError
+ByronVoteTxSubmissionError forall a b. (a -> b) -> a -> b
+$ SocketPath
+-> NetworkId -> GenTx ByronBlock -> ExceptT ByronTxError IO ()
+nodeSubmitTx SocketPath
+nodeSocketPath NetworkId
+network GenTx ByronBlock
+genTx
+
+readByronVote :: FilePath -> ExceptT ByronVoteError IO ByronVote
+readByronVote :: [Char] -> ExceptT ByronVoteError IO ByronVote
+readByronVote [Char]
+fp = do
+  ByteString
+voteBs <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ [Char] -> IO ByteString
+BS.readFile [Char]
+fp
+  let voteResult :: Either SerialiseAsRawBytesError ByronVote
+voteResult = forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either SerialiseAsRawBytesError a
+deserialiseFromRawBytes AsType ByronVote
+AsByronVote ByteString
+voteBs
+  forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (forall a b. a -> b -> a
+const ([Char] -> ByronVoteError
+ByronVoteDecodingError [Char]
+fp)) Either SerialiseAsRawBytesError ByronVote
+voteResult
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Environment.html b/cardano-cli/lib/src/Cardano.CLI.Environment.html new file mode 100644 index 0000000000..76f8f7d3a4 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Environment.html @@ -0,0 +1,243 @@ +
{-# LANGUAGE GADTs #-}
+{-# LANGUAGE TypeApplications #-}
+
+-- | This module defines constants derived from the environment.
+module Cardano.CLI.Environment
+  ( EnvCli(..)
+  , envCliAnyShelleyBasedEra
+  , envCliAnyShelleyToBabbageEra
+  , getEnvCli
+  , getEnvNetworkId
+  , getEnvSocketPath
+  ) where
+
+import           Cardano.Api (AnyCardanoEra (..), CardanoEra (..), EraInEon (..), NetworkId (..),
+                   NetworkMagic (..), ShelleyBasedEra (..), ShelleyToBabbageEra (..),
+                   forEraInEonMaybe)
+
+import           Data.Word (Word32)
+import qualified System.Environment as IO
+import qualified System.IO as IO
+import           Text.Read (readMaybe)
+
+data EnvCli = EnvCli
+  { EnvCli -> Maybe NetworkId
+envCliNetworkId :: Maybe NetworkId
+  , EnvCli -> Maybe String
+envCliSocketPath :: Maybe FilePath
+  , EnvCli -> Maybe AnyCardanoEra
+envCliAnyCardanoEra :: Maybe AnyCardanoEra
+  }
+
+getEnvCli :: IO EnvCli
+getEnvCli :: IO EnvCli
+getEnvCli = do
+  Maybe NetworkId
+mNetworkId <- IO (Maybe NetworkId)
+getEnvNetworkId
+  Maybe String
+mSocketPath <- IO (Maybe String)
+getEnvSocketPath
+  Maybe AnyCardanoEra
+mCardanoEra <- IO (Maybe AnyCardanoEra)
+getCardanoEra
+
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure EnvCli
+    { envCliNetworkId :: Maybe NetworkId
+envCliNetworkId = Maybe NetworkId
+mNetworkId
+    , envCliSocketPath :: Maybe String
+envCliSocketPath = Maybe String
+mSocketPath
+    , envCliAnyCardanoEra :: Maybe AnyCardanoEra
+envCliAnyCardanoEra = Maybe AnyCardanoEra
+mCardanoEra
+    }
+
+envCliAnyShelleyBasedEra :: EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra :: EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli = do
+  AnyCardanoEra CardanoEra era
+era <- EnvCli -> Maybe AnyCardanoEra
+envCliAnyCardanoEra EnvCli
+envCli
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon
+
+envCliAnyShelleyToBabbageEra :: EnvCli -> Maybe (EraInEon ShelleyToBabbageEra)
+envCliAnyShelleyToBabbageEra :: EnvCli -> Maybe (EraInEon ShelleyToBabbageEra)
+envCliAnyShelleyToBabbageEra EnvCli
+envCli = do
+  AnyCardanoEra CardanoEra era
+era <- EnvCli -> Maybe AnyCardanoEra
+envCliAnyCardanoEra EnvCli
+envCli
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon
+
+-- | If the environment variable @CARDANO_NODE_NETWORK_ID@ is set, then return the network id therein.
+-- Otherwise, return 'Nothing'.
+getEnvNetworkId :: IO (Maybe NetworkId)
+getEnvNetworkId :: IO (Maybe NetworkId)
+getEnvNetworkId = do
+  Maybe String
+mNetworkIdString <- String -> IO (Maybe String)
+IO.lookupEnv String
+"CARDANO_NODE_NETWORK_ID"
+
+  case Maybe String
+mNetworkIdString of
+    Maybe String
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+    Just String
+networkIdString -> do
+      case String
+networkIdString of
+        String
+"mainnet" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just NetworkId
+Mainnet
+        String
+_ ->
+          case forall a. Read a => String -> Maybe a
+readMaybe @Word32 String
+networkIdString of
+            Just Word32
+networkId -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ NetworkMagic -> NetworkId
+Testnet forall a b. (a -> b) -> a -> b
+$ Word32 -> NetworkMagic
+NetworkMagic Word32
+networkId
+            Maybe Word32
+Nothing -> do
+              Handle -> String -> IO ()
+IO.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+                [ String
+"The network id specified in CARDANO_NODE_NETWORK_ID invalid: " forall a. Semigroup a => a -> a -> a
+<> String
+networkIdString
+                , String
+" It should be either 'mainnet' or a number."
+                ]
+              forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+
+-- | If the environment variable @CARDANO_NODE_SOCKET_PATH@ is set, then return the set value.
+-- Otherwise, return 'Nothing'.
+getEnvSocketPath :: IO (Maybe FilePath)
+getEnvSocketPath :: IO (Maybe String)
+getEnvSocketPath = String -> IO (Maybe String)
+IO.lookupEnv String
+"CARDANO_NODE_SOCKET_PATH"
+
+-- | If the environment variable @CARDANO_ERA@ is set, then return the set value.
+-- Otherwise, return 'Nothing'.
+getCardanoEra :: IO (Maybe AnyCardanoEra)
+getCardanoEra :: IO (Maybe AnyCardanoEra)
+getCardanoEra = do
+  Maybe String
+mEraString <- String -> IO (Maybe String)
+IO.lookupEnv String
+"CARDANO_ERA"
+
+  case Maybe String
+mEraString of
+    Just String
+eraString ->
+      case String
+eraString of
+        String
+"byron" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra ByronEra
+ByronEra
+        String
+"shelley" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra ShelleyEra
+ShelleyEra
+        String
+"allegra" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra AllegraEra
+AllegraEra
+        String
+"mary" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra MaryEra
+MaryEra
+        String
+"alonzo" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra AlonzoEra
+AlonzoEra
+        String
+"babbage" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra BabbageEra
+BabbageEra
+        String
+"conway" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra ConwayEra
+ConwayEra
+        String
+unknown -> forall a. HasCallStack => String -> a
+error forall a b. (a -> b) -> a -> b
+$ String
+"Unknown era: " forall a. Semigroup a => a -> a -> a
+<> String
+unknown -- TODO improve error handling
+
+    Maybe String
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Address.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Address.html new file mode 100644 index 0000000000..b4d79e6d65 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Address.html @@ -0,0 +1,60 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Address
+  ( AddressCmds (..)
+  , renderAddressCmds
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data AddressCmds era
+  = AddressKeyGen
+      KeyOutputFormat
+      AddressKeyType
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | AddressKeyHash
+      VerificationKeyTextOrFile
+      (Maybe (File () Out))
+  | AddressBuild
+      PaymentVerifier
+      (Maybe StakeIdentifier)
+      NetworkId
+      (Maybe (File () Out))
+  | AddressInfo
+      Text
+      (Maybe (File () Out))
+  deriving Int -> AddressCmds era -> ShowS
+forall era. Int -> AddressCmds era -> ShowS
+forall era. [AddressCmds era] -> ShowS
+forall era. AddressCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AddressCmds era] -> ShowS
+$cshowList :: forall era. [AddressCmds era] -> ShowS
+show :: AddressCmds era -> String
+$cshow :: forall era. AddressCmds era -> String
+showsPrec :: Int -> AddressCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> AddressCmds era -> ShowS
+Show
+
+renderAddressCmds :: AddressCmds era -> Text
+renderAddressCmds :: forall era. AddressCmds era -> Text
+renderAddressCmds = \case
+  AddressKeyGen {} -> Text
+"address key-gen"
+  AddressKeyHash {} -> Text
+"address key-hash"
+  AddressBuild {} -> Text
+"address build"
+  AddressInfo {} -> Text
+"address info"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Genesis.html new file mode 100644 index 0000000000..2e7afc913d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Genesis.html @@ -0,0 +1,314 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Genesis
+  ( GenesisCmds (..)
+  , GenesisCreateCmdArgs (..)
+  , GenesisCreateCardanoCmdArgs (..)
+  , GenesisCreateStakedCmdArgs (..)
+  , GenesisKeyGenGenesisCmdArgs (..)
+  , GenesisKeyGenDelegateCmdArgs (..)
+  , GenesisKeyGenUTxOCmdArgs (..)
+  , GenesisVerKeyCmdArgs (..)
+  , GenesisTxInCmdArgs (..)
+  , GenesisAddrCmdArgs (..)
+  , renderGenesisCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.Chain.Common (BlockCount)
+import           Cardano.CLI.Types.Common
+
+import           Data.Text (Text)
+
+data GenesisCmds era
+  = GenesisCreate !GenesisCreateCmdArgs
+  | GenesisCreateCardano !GenesisCreateCardanoCmdArgs
+  | GenesisCreateStaked !GenesisCreateStakedCmdArgs
+  | GenesisKeyGenGenesis !GenesisKeyGenGenesisCmdArgs
+  | GenesisKeyGenDelegate !GenesisKeyGenDelegateCmdArgs
+  | GenesisKeyGenUTxO !GenesisKeyGenUTxOCmdArgs
+  | GenesisCmdKeyHash !(VerificationKeyFile In)
+  | GenesisVerKey !GenesisVerKeyCmdArgs
+  | GenesisTxIn !GenesisTxInCmdArgs
+  | GenesisAddr !GenesisAddrCmdArgs
+  | GenesisHashFile !GenesisFile
+  deriving Int -> GenesisCmds era -> ShowS
+forall era. Int -> GenesisCmds era -> ShowS
+forall era. [GenesisCmds era] -> ShowS
+forall era. GenesisCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisCmds era] -> ShowS
+$cshowList :: forall era. [GenesisCmds era] -> ShowS
+show :: GenesisCmds era -> String
+$cshow :: forall era. GenesisCmds era -> String
+showsPrec :: Int -> GenesisCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> GenesisCmds era -> ShowS
+Show
+
+data GenesisCreateCmdArgs = GenesisCreateCmdArgs
+  { GenesisCreateCmdArgs -> KeyOutputFormat
+keyOutputFormat :: !KeyOutputFormat
+  , GenesisCreateCmdArgs -> GenesisDir
+genesisDir :: !GenesisDir
+  , GenesisCreateCmdArgs -> Word
+numGenesisKeys :: !Word
+  , GenesisCreateCmdArgs -> Word
+numUTxOKeys :: !Word
+  , GenesisCreateCmdArgs -> Maybe SystemStart
+mSystemStart :: !(Maybe SystemStart)
+  , GenesisCreateCmdArgs -> Maybe Lovelace
+mSupply :: !(Maybe Lovelace)
+  , GenesisCreateCmdArgs -> NetworkId
+network :: !NetworkId
+  } deriving Int -> GenesisCreateCmdArgs -> ShowS
+[GenesisCreateCmdArgs] -> ShowS
+GenesisCreateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisCreateCmdArgs] -> ShowS
+$cshowList :: [GenesisCreateCmdArgs] -> ShowS
+show :: GenesisCreateCmdArgs -> String
+$cshow :: GenesisCreateCmdArgs -> String
+showsPrec :: Int -> GenesisCreateCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisCreateCmdArgs -> ShowS
+Show
+
+data GenesisCreateCardanoCmdArgs = GenesisCreateCardanoCmdArgs
+  { GenesisCreateCardanoCmdArgs -> GenesisDir
+genesisDir :: !GenesisDir
+  , GenesisCreateCardanoCmdArgs -> Word
+numGenesisKeys :: !Word
+  , GenesisCreateCardanoCmdArgs -> Word
+numUTxOKeys :: !Word
+  , GenesisCreateCardanoCmdArgs -> Maybe SystemStart
+mSystemStart :: !(Maybe SystemStart)
+  , GenesisCreateCardanoCmdArgs -> Maybe Lovelace
+mSupply :: !(Maybe Lovelace)
+  , GenesisCreateCardanoCmdArgs -> BlockCount
+security :: !BlockCount
+  , GenesisCreateCardanoCmdArgs -> Word
+slotLength :: !Word
+  , GenesisCreateCardanoCmdArgs -> Rational
+slotCoeff :: !Rational
+  , GenesisCreateCardanoCmdArgs -> NetworkId
+network :: !NetworkId
+  , GenesisCreateCardanoCmdArgs -> String
+byronGenesisTemplate :: !FilePath
+  , GenesisCreateCardanoCmdArgs -> String
+shelleyGenesisTemplate :: !FilePath
+  , GenesisCreateCardanoCmdArgs -> String
+alonzoGenesisTemplate :: !FilePath
+  , GenesisCreateCardanoCmdArgs -> String
+conwayGenesisTemplate :: !FilePath
+  , GenesisCreateCardanoCmdArgs -> Maybe String
+mNodeConfigTemplate :: !(Maybe FilePath)
+  } deriving Int -> GenesisCreateCardanoCmdArgs -> ShowS
+[GenesisCreateCardanoCmdArgs] -> ShowS
+GenesisCreateCardanoCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisCreateCardanoCmdArgs] -> ShowS
+$cshowList :: [GenesisCreateCardanoCmdArgs] -> ShowS
+show :: GenesisCreateCardanoCmdArgs -> String
+$cshow :: GenesisCreateCardanoCmdArgs -> String
+showsPrec :: Int -> GenesisCreateCardanoCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisCreateCardanoCmdArgs -> ShowS
+Show
+
+data GenesisCreateStakedCmdArgs = GenesisCreateStakedCmdArgs
+  { GenesisCreateStakedCmdArgs -> KeyOutputFormat
+keyOutputFormat :: !KeyOutputFormat
+  , GenesisCreateStakedCmdArgs -> GenesisDir
+genesisDir :: !GenesisDir
+  , GenesisCreateStakedCmdArgs -> Word
+numGenesisKeys :: !Word
+  , GenesisCreateStakedCmdArgs -> Word
+numUTxOKeys :: !Word
+  , GenesisCreateStakedCmdArgs -> Word
+numPools :: !Word
+  , GenesisCreateStakedCmdArgs -> Word
+numStakeDelegators :: !Word
+  , GenesisCreateStakedCmdArgs -> Maybe SystemStart
+mSystemStart :: !(Maybe SystemStart)
+  , GenesisCreateStakedCmdArgs -> Maybe Lovelace
+mNonDelegatedSupply :: !(Maybe Lovelace)
+  , GenesisCreateStakedCmdArgs -> Lovelace
+delegatedSupply :: !Lovelace
+  , GenesisCreateStakedCmdArgs -> NetworkId
+network :: !NetworkId
+  , GenesisCreateStakedCmdArgs -> Word
+numBulkPoolCredFiles :: !Word
+  , GenesisCreateStakedCmdArgs -> Word
+numBulkPoolsPerFile :: !Word
+  , GenesisCreateStakedCmdArgs -> Word
+numStuffedUtxo :: !Word
+  , GenesisCreateStakedCmdArgs -> Maybe String
+mStakePoolRelaySpecFile :: !(Maybe FilePath) -- ^ Relay specification filepath
+  } deriving Int -> GenesisCreateStakedCmdArgs -> ShowS
+[GenesisCreateStakedCmdArgs] -> ShowS
+GenesisCreateStakedCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisCreateStakedCmdArgs] -> ShowS
+$cshowList :: [GenesisCreateStakedCmdArgs] -> ShowS
+show :: GenesisCreateStakedCmdArgs -> String
+$cshow :: GenesisCreateStakedCmdArgs -> String
+showsPrec :: Int -> GenesisCreateStakedCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisCreateStakedCmdArgs -> ShowS
+Show
+
+data GenesisKeyGenGenesisCmdArgs = GenesisKeyGenGenesisCmdArgs
+  { GenesisKeyGenGenesisCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: !(VerificationKeyFile Out)
+  , GenesisKeyGenGenesisCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: !(SigningKeyFile Out)
+  } deriving Int -> GenesisKeyGenGenesisCmdArgs -> ShowS
+[GenesisKeyGenGenesisCmdArgs] -> ShowS
+GenesisKeyGenGenesisCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisKeyGenGenesisCmdArgs] -> ShowS
+$cshowList :: [GenesisKeyGenGenesisCmdArgs] -> ShowS
+show :: GenesisKeyGenGenesisCmdArgs -> String
+$cshow :: GenesisKeyGenGenesisCmdArgs -> String
+showsPrec :: Int -> GenesisKeyGenGenesisCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisKeyGenGenesisCmdArgs -> ShowS
+Show
+
+data GenesisKeyGenDelegateCmdArgs = GenesisKeyGenDelegateCmdArgs
+  { GenesisKeyGenDelegateCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: !(VerificationKeyFile Out)
+  , GenesisKeyGenDelegateCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: !(SigningKeyFile Out)
+  , GenesisKeyGenDelegateCmdArgs -> OpCertCounterFile 'Out
+opCertCounterPath :: !(OpCertCounterFile Out)
+  } deriving Int -> GenesisKeyGenDelegateCmdArgs -> ShowS
+[GenesisKeyGenDelegateCmdArgs] -> ShowS
+GenesisKeyGenDelegateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisKeyGenDelegateCmdArgs] -> ShowS
+$cshowList :: [GenesisKeyGenDelegateCmdArgs] -> ShowS
+show :: GenesisKeyGenDelegateCmdArgs -> String
+$cshow :: GenesisKeyGenDelegateCmdArgs -> String
+showsPrec :: Int -> GenesisKeyGenDelegateCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisKeyGenDelegateCmdArgs -> ShowS
+Show
+
+data GenesisKeyGenUTxOCmdArgs = GenesisKeyGenUTxOCmdArgs
+  { GenesisKeyGenUTxOCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: !(VerificationKeyFile Out)
+  , GenesisKeyGenUTxOCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: !(SigningKeyFile Out)
+  } deriving Int -> GenesisKeyGenUTxOCmdArgs -> ShowS
+[GenesisKeyGenUTxOCmdArgs] -> ShowS
+GenesisKeyGenUTxOCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisKeyGenUTxOCmdArgs] -> ShowS
+$cshowList :: [GenesisKeyGenUTxOCmdArgs] -> ShowS
+show :: GenesisKeyGenUTxOCmdArgs -> String
+$cshow :: GenesisKeyGenUTxOCmdArgs -> String
+showsPrec :: Int -> GenesisKeyGenUTxOCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisKeyGenUTxOCmdArgs -> ShowS
+Show
+
+data GenesisVerKeyCmdArgs = GenesisVerKeyCmdArgs
+  { GenesisVerKeyCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: !(VerificationKeyFile Out)
+  , GenesisVerKeyCmdArgs -> SigningKeyFile 'In
+signingKeyPath :: !(SigningKeyFile In)
+  } deriving Int -> GenesisVerKeyCmdArgs -> ShowS
+[GenesisVerKeyCmdArgs] -> ShowS
+GenesisVerKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisVerKeyCmdArgs] -> ShowS
+$cshowList :: [GenesisVerKeyCmdArgs] -> ShowS
+show :: GenesisVerKeyCmdArgs -> String
+$cshow :: GenesisVerKeyCmdArgs -> String
+showsPrec :: Int -> GenesisVerKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisVerKeyCmdArgs -> ShowS
+Show
+
+data GenesisTxInCmdArgs = GenesisTxInCmdArgs
+  { GenesisTxInCmdArgs -> VerificationKeyFile 'In
+verificationKeyPath :: !(VerificationKeyFile In)
+  , GenesisTxInCmdArgs -> NetworkId
+network :: !NetworkId
+  , GenesisTxInCmdArgs -> Maybe (File () 'Out)
+mOutFile :: !(Maybe (File () Out))
+  } deriving Int -> GenesisTxInCmdArgs -> ShowS
+[GenesisTxInCmdArgs] -> ShowS
+GenesisTxInCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisTxInCmdArgs] -> ShowS
+$cshowList :: [GenesisTxInCmdArgs] -> ShowS
+show :: GenesisTxInCmdArgs -> String
+$cshow :: GenesisTxInCmdArgs -> String
+showsPrec :: Int -> GenesisTxInCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisTxInCmdArgs -> ShowS
+Show
+
+data GenesisAddrCmdArgs = GenesisAddrCmdArgs
+  { GenesisAddrCmdArgs -> VerificationKeyFile 'In
+verificationKeyPath :: !(VerificationKeyFile In)
+  , GenesisAddrCmdArgs -> NetworkId
+network :: !NetworkId
+  , GenesisAddrCmdArgs -> Maybe (File () 'Out)
+mOutFile :: !(Maybe (File () Out))
+  } deriving Int -> GenesisAddrCmdArgs -> ShowS
+[GenesisAddrCmdArgs] -> ShowS
+GenesisAddrCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisAddrCmdArgs] -> ShowS
+$cshowList :: [GenesisAddrCmdArgs] -> ShowS
+show :: GenesisAddrCmdArgs -> String
+$cshow :: GenesisAddrCmdArgs -> String
+showsPrec :: Int -> GenesisAddrCmdArgs -> ShowS
+$cshowsPrec :: Int -> GenesisAddrCmdArgs -> ShowS
+Show
+
+renderGenesisCmds :: GenesisCmds era -> Text
+renderGenesisCmds :: forall era. GenesisCmds era -> Text
+renderGenesisCmds = \case
+  GenesisCreate {} ->
+    Text
+"genesis create"
+  GenesisCreateCardano {} ->
+    Text
+"genesis create-cardano"
+  GenesisCreateStaked {} ->
+    Text
+"genesis create-staked"
+  GenesisKeyGenGenesis {} ->
+    Text
+"genesis key-gen-genesis"
+  GenesisKeyGenDelegate {} ->
+    Text
+"genesis key-gen-delegate"
+  GenesisKeyGenUTxO {} ->
+    Text
+"genesis key-gen-utxo"
+  GenesisCmdKeyHash {} ->
+    Text
+"genesis key-hash"
+  GenesisVerKey {} ->
+    Text
+"genesis get-ver-key"
+  GenesisTxIn {} ->
+    Text
+"genesis initial-txin"
+  GenesisAddr {} ->
+    Text
+"genesis initial-addr"
+  GenesisHashFile {} ->
+    Text
+"genesis hash"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Actions.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Actions.html new file mode 100644 index 0000000000..884ddbcb5b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Actions.html @@ -0,0 +1,437 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE StandaloneDeriving #-}
+
+
+module Cardano.CLI.EraBased.Commands.Governance.Actions
+  ( GovernanceActionCmds(..)
+  , GoveranceActionUpdateCommitteeCmdArgs(..)
+  , GovernanceActionCreateConstitutionCmdArgs(..)
+  , GovernanceActionCreateNoConfidenceCmdArgs(..)
+  , GovernanceActionInfoCmdArgs(..)
+  , GovernanceActionViewCmdArgs(..)
+  , GovernanceActionProtocolParametersUpdateCmdArgs(..)
+  , GovernanceActionTreasuryWithdrawalCmdArgs(..)
+  , UpdateProtocolParametersConwayOnwards(..)
+  , UpdateProtocolParametersPreConway(..)
+  , renderGovernanceActionCmds
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+import qualified Cardano.Ledger.BaseTypes as Ledger
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as Ledger
+
+import           Data.Text (Text)
+import           Data.Word
+
+data GovernanceActionCmds era
+  = GovernanceActionCreateConstitutionCmd         !(GovernanceActionCreateConstitutionCmdArgs era)
+  | GoveranceActionUpdateCommitteeCmd             !(GoveranceActionUpdateCommitteeCmdArgs era)
+  | GovernanceActionCreateNoConfidenceCmd         !(GovernanceActionCreateNoConfidenceCmdArgs era)
+  | GovernanceActionProtocolParametersUpdateCmd   !(GovernanceActionProtocolParametersUpdateCmdArgs era)
+  | GovernanceActionTreasuryWithdrawalCmd         !(GovernanceActionTreasuryWithdrawalCmdArgs era)
+  | GovernanceActionInfoCmd                       !(GovernanceActionInfoCmdArgs era)
+  | GovernanceActionViewCmd                       !(GovernanceActionViewCmdArgs era)
+  deriving Int -> GovernanceActionCmds era -> ShowS
+forall era. Int -> GovernanceActionCmds era -> ShowS
+forall era. [GovernanceActionCmds era] -> ShowS
+forall era. GovernanceActionCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionCmds era] -> ShowS
+$cshowList :: forall era. [GovernanceActionCmds era] -> ShowS
+show :: GovernanceActionCmds era -> String
+$cshow :: forall era. GovernanceActionCmds era -> String
+showsPrec :: Int -> GovernanceActionCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceActionCmds era -> ShowS
+Show
+
+data GoveranceActionUpdateCommitteeCmdArgs era
+  = GoveranceActionUpdateCommitteeCmdArgs
+      { forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> ConwayEraOnwards era
+eon                     :: !(ConwayEraOnwards era)
+      , forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Network
+networkId               :: !Ledger.Network
+      , forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Lovelace
+deposit                 :: !Lovelace
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnAddress           :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> ProposalUrl
+proposalUrl             :: !ProposalUrl
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash            :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+oldCommitteeVkeySource  :: ![VerificationKeyOrHashOrFile CommitteeColdKey]
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+newCommitteeVkeySource  :: ![(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+      , forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Rational
+requiredQuorum          :: !Rational
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> Maybe (TxId, Word32)
+mPrevGovernanceActionId :: !(Maybe (TxId, Word32))
+      , forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> File () 'Out
+outFile                 :: !(File () Out)
+      } deriving Int -> GoveranceActionUpdateCommitteeCmdArgs era -> ShowS
+forall era.
+Int -> GoveranceActionUpdateCommitteeCmdArgs era -> ShowS
+forall era. [GoveranceActionUpdateCommitteeCmdArgs era] -> ShowS
+forall era. GoveranceActionUpdateCommitteeCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GoveranceActionUpdateCommitteeCmdArgs era] -> ShowS
+$cshowList :: forall era. [GoveranceActionUpdateCommitteeCmdArgs era] -> ShowS
+show :: GoveranceActionUpdateCommitteeCmdArgs era -> String
+$cshow :: forall era. GoveranceActionUpdateCommitteeCmdArgs era -> String
+showsPrec :: Int -> GoveranceActionUpdateCommitteeCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GoveranceActionUpdateCommitteeCmdArgs era -> ShowS
+Show
+
+data GovernanceActionCreateConstitutionCmdArgs era
+  = GovernanceActionCreateConstitutionCmdArgs
+      { forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ConwayEraOnwards era
+eon                     :: !(ConwayEraOnwards era)
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> Network
+networkId               :: !Ledger.Network
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> Lovelace
+deposit                 :: !Lovelace
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+stakeCredential         :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> Maybe (TxId, Word32)
+mPrevGovernanceActionId :: !(Maybe (TxId, Word32))
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> ProposalUrl
+proposalUrl             :: !ProposalUrl
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash            :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> ConstitutionUrl
+constitutionUrl         :: !ConstitutionUrl
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ConstitutionHashSource
+constitutionHashSource  :: !ConstitutionHashSource
+      , forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> File () 'Out
+outFile                 :: !(File () Out)
+      } deriving Int -> GovernanceActionCreateConstitutionCmdArgs era -> ShowS
+forall era.
+Int -> GovernanceActionCreateConstitutionCmdArgs era -> ShowS
+forall era.
+[GovernanceActionCreateConstitutionCmdArgs era] -> ShowS
+forall era. GovernanceActionCreateConstitutionCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionCreateConstitutionCmdArgs era] -> ShowS
+$cshowList :: forall era.
+[GovernanceActionCreateConstitutionCmdArgs era] -> ShowS
+show :: GovernanceActionCreateConstitutionCmdArgs era -> String
+$cshow :: forall era. GovernanceActionCreateConstitutionCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionCreateConstitutionCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GovernanceActionCreateConstitutionCmdArgs era -> ShowS
+Show
+
+-- | Datatype to carry data for the create-info governance action
+data GovernanceActionInfoCmdArgs era
+   = GovernanceActionInfoCmdArgs
+      { forall era. GovernanceActionInfoCmdArgs era -> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+      , forall era. GovernanceActionInfoCmdArgs era -> Network
+networkId           :: !Ledger.Network
+      , forall era. GovernanceActionInfoCmdArgs era -> Lovelace
+deposit             :: !Lovelace
+      , forall era.
+GovernanceActionInfoCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress  :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era. GovernanceActionInfoCmdArgs era -> ProposalUrl
+proposalUrl         :: !ProposalUrl
+      , forall era.
+GovernanceActionInfoCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash        :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era. GovernanceActionInfoCmdArgs era -> File () 'Out
+outFile             :: !(File () Out)
+      } deriving Int -> GovernanceActionInfoCmdArgs era -> ShowS
+forall era. Int -> GovernanceActionInfoCmdArgs era -> ShowS
+forall era. [GovernanceActionInfoCmdArgs era] -> ShowS
+forall era. GovernanceActionInfoCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionInfoCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceActionInfoCmdArgs era] -> ShowS
+show :: GovernanceActionInfoCmdArgs era -> String
+$cshow :: forall era. GovernanceActionInfoCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionInfoCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceActionInfoCmdArgs era -> ShowS
+Show
+
+data GovernanceActionCreateNoConfidenceCmdArgs era
+  = GovernanceActionCreateNoConfidenceCmdArgs
+      { forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> ConwayEraOnwards era
+eon                   :: !(ConwayEraOnwards era)
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> Network
+networkId             :: !Ledger.Network
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> Lovelace
+deposit               :: !Lovelace
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress    :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> ProposalUrl
+proposalUrl           :: !ProposalUrl
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash          :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> TxId
+governanceActionId    :: !TxId
+      , forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> Word32
+governanceActionIndex :: !Word32
+      , forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> File () 'Out
+outFile               :: !(File () Out)
+      } deriving Int -> GovernanceActionCreateNoConfidenceCmdArgs era -> ShowS
+forall era.
+Int -> GovernanceActionCreateNoConfidenceCmdArgs era -> ShowS
+forall era.
+[GovernanceActionCreateNoConfidenceCmdArgs era] -> ShowS
+forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionCreateNoConfidenceCmdArgs era] -> ShowS
+$cshowList :: forall era.
+[GovernanceActionCreateNoConfidenceCmdArgs era] -> ShowS
+show :: GovernanceActionCreateNoConfidenceCmdArgs era -> String
+$cshow :: forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionCreateNoConfidenceCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GovernanceActionCreateNoConfidenceCmdArgs era -> ShowS
+Show
+
+data GovernanceActionProtocolParametersUpdateCmdArgs era
+  = GovernanceActionProtocolParametersUpdateCmdArgs
+      { forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> ShelleyBasedEra era
+uppShelleyBasedEra :: !(ShelleyBasedEra era)
+      , forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> Maybe (UpdateProtocolParametersPreConway era)
+uppPreConway       :: !(Maybe (UpdateProtocolParametersPreConway era))
+      , forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> Maybe (UpdateProtocolParametersConwayOnwards era)
+uppConwayOnwards   :: !(Maybe (UpdateProtocolParametersConwayOnwards era))
+      , forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> EraBasedProtocolParametersUpdate era
+uppNewPParams      :: !(EraBasedProtocolParametersUpdate era)
+      , forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era -> File () 'Out
+uppFilePath        :: !(File () Out)
+      } deriving Int -> GovernanceActionProtocolParametersUpdateCmdArgs era -> ShowS
+forall era.
+Int -> GovernanceActionProtocolParametersUpdateCmdArgs era -> ShowS
+forall era.
+[GovernanceActionProtocolParametersUpdateCmdArgs era] -> ShowS
+forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionProtocolParametersUpdateCmdArgs era] -> ShowS
+$cshowList :: forall era.
+[GovernanceActionProtocolParametersUpdateCmdArgs era] -> ShowS
+show :: GovernanceActionProtocolParametersUpdateCmdArgs era -> String
+$cshow :: forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionProtocolParametersUpdateCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GovernanceActionProtocolParametersUpdateCmdArgs era -> ShowS
+Show
+
+data GovernanceActionTreasuryWithdrawalCmdArgs era
+  = GovernanceActionTreasuryWithdrawalCmdArgs
+      { forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> Network
+networkId           :: !Ledger.Network
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> Lovelace
+deposit             :: !Lovelace
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnAddr          :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> ProposalUrl
+proposalUrl         :: !ProposalUrl
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash        :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+treasuryWithdrawal  :: ![(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+      , forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> File () 'Out
+outFile             :: !(File () Out)
+      } deriving Int -> GovernanceActionTreasuryWithdrawalCmdArgs era -> ShowS
+forall era.
+Int -> GovernanceActionTreasuryWithdrawalCmdArgs era -> ShowS
+forall era.
+[GovernanceActionTreasuryWithdrawalCmdArgs era] -> ShowS
+forall era. GovernanceActionTreasuryWithdrawalCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionTreasuryWithdrawalCmdArgs era] -> ShowS
+$cshowList :: forall era.
+[GovernanceActionTreasuryWithdrawalCmdArgs era] -> ShowS
+show :: GovernanceActionTreasuryWithdrawalCmdArgs era -> String
+$cshow :: forall era. GovernanceActionTreasuryWithdrawalCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionTreasuryWithdrawalCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GovernanceActionTreasuryWithdrawalCmdArgs era -> ShowS
+Show
+
+data GovernanceActionViewCmdArgs era
+  = GovernanceActionViewCmdArgs
+      { forall era. GovernanceActionViewCmdArgs era -> ConwayEraOnwards era
+eon        :: !(ConwayEraOnwards era)
+      , forall era. GovernanceActionViewCmdArgs era -> ProposalFile 'In
+actionFile :: !(ProposalFile In)
+      , forall era.
+GovernanceActionViewCmdArgs era -> GovernanceActionViewOutputFormat
+outFormat  :: !GovernanceActionViewOutputFormat
+      , forall era. GovernanceActionViewCmdArgs era -> Maybe (File () 'Out)
+mOutFile   :: !(Maybe (File () Out))
+      } deriving Int -> GovernanceActionViewCmdArgs era -> ShowS
+forall era. Int -> GovernanceActionViewCmdArgs era -> ShowS
+forall era. [GovernanceActionViewCmdArgs era] -> ShowS
+forall era. GovernanceActionViewCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionViewCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceActionViewCmdArgs era] -> ShowS
+show :: GovernanceActionViewCmdArgs era -> String
+$cshow :: forall era. GovernanceActionViewCmdArgs era -> String
+showsPrec :: Int -> GovernanceActionViewCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceActionViewCmdArgs era -> ShowS
+Show
+
+data UpdateProtocolParametersConwayOnwards era
+  = UpdateProtocolParametersConwayOnwards
+      { forall era.
+UpdateProtocolParametersConwayOnwards era -> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+      , forall era. UpdateProtocolParametersConwayOnwards era -> Network
+networkId           :: !Ledger.Network
+      , forall era. UpdateProtocolParametersConwayOnwards era -> Lovelace
+deposit             :: !Lovelace
+      , forall era.
+UpdateProtocolParametersConwayOnwards era
+-> VerificationKeyOrHashOrFile StakeKey
+returnAddr          :: !(VerificationKeyOrHashOrFile StakeKey)
+      , forall era.
+UpdateProtocolParametersConwayOnwards era -> ProposalUrl
+proposalUrl         :: !ProposalUrl
+      , forall era.
+UpdateProtocolParametersConwayOnwards era
+-> SafeHash StandardCrypto AnchorData
+proposalHash        :: !(Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era.
+UpdateProtocolParametersConwayOnwards era -> Maybe (TxId, Word32)
+governanceActionId  :: !(Maybe (TxId, Word32))
+      }
+
+deriving instance Show (UpdateProtocolParametersConwayOnwards era)
+
+data UpdateProtocolParametersPreConway era
+  = UpdateProtocolParametersPreConway
+      { forall era.
+UpdateProtocolParametersPreConway era -> ShelleyToBabbageEra era
+eon                     :: !(ShelleyToBabbageEra era)
+      , forall era. UpdateProtocolParametersPreConway era -> EpochNo
+expiryEpoch             :: !EpochNo
+      , forall era.
+UpdateProtocolParametersPreConway era -> [VerificationKeyFile 'In]
+genesisVerificationKeys :: ![VerificationKeyFile In]
+      }
+
+
+deriving instance Show (UpdateProtocolParametersPreConway era)
+
+renderGovernanceActionCmds :: GovernanceActionCmds era -> Text
+renderGovernanceActionCmds :: forall era. GovernanceActionCmds era -> Text
+renderGovernanceActionCmds = (Text
+"governance action " forall a. Semigroup a => a -> a -> a
+<>) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. \case
+  GovernanceActionCreateConstitutionCmd {} ->
+    Text
+"create-constitution"
+
+  GovernanceActionProtocolParametersUpdateCmd {} ->
+    Text
+"create-protocol-parameters-update"
+
+  GovernanceActionTreasuryWithdrawalCmd {} ->
+    Text
+"create-treasury-withdrawal"
+
+  GoveranceActionUpdateCommitteeCmd {} ->
+    Text
+"update-committee"
+
+  GovernanceActionCreateNoConfidenceCmd {} ->
+    Text
+"create-no-confidence"
+
+  GovernanceActionInfoCmd {} ->
+    Text
+"create-info"
+
+  GovernanceActionViewCmd {} ->
+    Text
+"view"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Committee.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Committee.html new file mode 100644 index 0000000000..fe4b5efd0b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Committee.html @@ -0,0 +1,255 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Governance.Committee
+  ( GovernanceCommitteeCmds(..)
+  , GovernanceCommitteeKeyGenColdCmdArgs(..)
+  , GovernanceCommitteeKeyGenHotCmdArgs(..)
+  , GovernanceCommitteeKeyHashCmdArgs(..)
+  , GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs(..)
+  , GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs(..)
+  , renderGovernanceCommitteeCmds
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Key
+import           Cardano.CLI.Types.Key.VerificationKey
+
+import           Data.Text (Text)
+
+data GovernanceCommitteeCmds era
+  = GovernanceCommitteeKeyGenColdCmd                            (GovernanceCommitteeKeyGenColdCmdArgs                           era)
+  | GovernanceCommitteeKeyGenHotCmd                             (GovernanceCommitteeKeyGenHotCmdArgs                            era)
+  | GovernanceCommitteeKeyHashCmd                               (GovernanceCommitteeKeyHashCmdArgs                              era)
+  | GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd  (GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era)
+  | GovernanceCommitteeCreateColdKeyResignationCertificateCmd   (GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs  era)
+  deriving Int -> GovernanceCommitteeCmds era -> ShowS
+forall era. Int -> GovernanceCommitteeCmds era -> ShowS
+forall era. [GovernanceCommitteeCmds era] -> ShowS
+forall era. GovernanceCommitteeCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeCmds era] -> ShowS
+$cshowList :: forall era. [GovernanceCommitteeCmds era] -> ShowS
+show :: GovernanceCommitteeCmds era -> String
+$cshow :: forall era. GovernanceCommitteeCmds era -> String
+showsPrec :: Int -> GovernanceCommitteeCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceCommitteeCmds era -> ShowS
+Show
+
+data GovernanceCommitteeKeyGenColdCmdArgs era =
+  GovernanceCommitteeKeyGenColdCmdArgs
+    { forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era -> ConwayEraOnwards era
+eon         :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> File (VerificationKey ()) 'Out
+vkeyOutFile :: !(File (VerificationKey ()) Out)
+    , forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> File (SigningKey ()) 'Out
+skeyOutFile :: !(File (SigningKey ()) Out)
+    } deriving Int -> GovernanceCommitteeKeyGenColdCmdArgs era -> ShowS
+forall era.
+Int -> GovernanceCommitteeKeyGenColdCmdArgs era -> ShowS
+forall era. [GovernanceCommitteeKeyGenColdCmdArgs era] -> ShowS
+forall era. GovernanceCommitteeKeyGenColdCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeKeyGenColdCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceCommitteeKeyGenColdCmdArgs era] -> ShowS
+show :: GovernanceCommitteeKeyGenColdCmdArgs era -> String
+$cshow :: forall era. GovernanceCommitteeKeyGenColdCmdArgs era -> String
+showsPrec :: Int -> GovernanceCommitteeKeyGenColdCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> GovernanceCommitteeKeyGenColdCmdArgs era -> ShowS
+Show
+
+data GovernanceCommitteeKeyGenHotCmdArgs era =
+  GovernanceCommitteeKeyGenHotCmdArgs
+    { forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era -> ConwayEraOnwards era
+eon         :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> File (VerificationKey ()) 'Out
+vkeyOutFile :: !(File (VerificationKey ()) Out)
+    , forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> File (SigningKey ()) 'Out
+skeyOutFile :: !(File (SigningKey ()) Out)
+    } deriving Int -> GovernanceCommitteeKeyGenHotCmdArgs era -> ShowS
+forall era. Int -> GovernanceCommitteeKeyGenHotCmdArgs era -> ShowS
+forall era. [GovernanceCommitteeKeyGenHotCmdArgs era] -> ShowS
+forall era. GovernanceCommitteeKeyGenHotCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeKeyGenHotCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceCommitteeKeyGenHotCmdArgs era] -> ShowS
+show :: GovernanceCommitteeKeyGenHotCmdArgs era -> String
+$cshow :: forall era. GovernanceCommitteeKeyGenHotCmdArgs era -> String
+showsPrec :: Int -> GovernanceCommitteeKeyGenHotCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceCommitteeKeyGenHotCmdArgs era -> ShowS
+Show
+
+data GovernanceCommitteeKeyHashCmdArgs era =
+  GovernanceCommitteeKeyHashCmdArgs
+    { forall era.
+GovernanceCommitteeKeyHashCmdArgs era -> ConwayEraOnwards era
+eon         :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceCommitteeKeyHashCmdArgs era -> AnyVerificationKeySource
+vkeySource  :: !AnyVerificationKeySource
+    } deriving Int -> GovernanceCommitteeKeyHashCmdArgs era -> ShowS
+forall era. Int -> GovernanceCommitteeKeyHashCmdArgs era -> ShowS
+forall era. [GovernanceCommitteeKeyHashCmdArgs era] -> ShowS
+forall era. GovernanceCommitteeKeyHashCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeKeyHashCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceCommitteeKeyHashCmdArgs era] -> ShowS
+show :: GovernanceCommitteeKeyHashCmdArgs era -> String
+$cshow :: forall era. GovernanceCommitteeKeyHashCmdArgs era -> String
+showsPrec :: Int -> GovernanceCommitteeKeyHashCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceCommitteeKeyHashCmdArgs era -> ShowS
+Show
+
+data GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era =
+  GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+    { forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon               :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyColdKeySource :: !(VerificationKeyOrHashOrFile CommitteeColdKey)
+    , forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeHotKey
+vkeyHotKeySource  :: !(VerificationKeyOrHashOrFile CommitteeHotKey)
+    , forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> File () 'Out
+outFile           :: !(File () Out)
+    } deriving Int
+-> GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+     era
+-> ShowS
+forall era.
+Int
+-> GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+     era
+-> ShowS
+forall era.
+[GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+   era]
+-> ShowS
+forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+   era]
+-> ShowS
+$cshowList :: forall era.
+[GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+   era]
+-> ShowS
+show :: GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> String
+$cshow :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> String
+showsPrec :: Int
+-> GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+     era
+-> ShowS
+$cshowsPrec :: forall era.
+Int
+-> GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+     era
+-> ShowS
+Show
+
+data GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era =
+  GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+    { forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon               :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyColdKeySource :: !(VerificationKeyOrHashOrFile CommitteeColdKey)
+    , forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+anchor            :: !(Maybe (Ledger.Anchor (Ledger.EraCrypto (ShelleyLedgerEra era))))
+    , forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> File () 'Out
+outFile           :: !(File () Out)
+    } deriving Int
+-> GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+     era
+-> ShowS
+forall era.
+Int
+-> GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+     era
+-> ShowS
+forall era.
+[GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era]
+-> ShowS
+forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era]
+-> ShowS
+$cshowList :: forall era.
+[GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era]
+-> ShowS
+show :: GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> String
+$cshow :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> String
+showsPrec :: Int
+-> GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+     era
+-> ShowS
+$cshowsPrec :: forall era.
+Int
+-> GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+     era
+-> ShowS
+Show
+
+renderGovernanceCommitteeCmds :: GovernanceCommitteeCmds era -> Text
+renderGovernanceCommitteeCmds :: forall era. GovernanceCommitteeCmds era -> Text
+renderGovernanceCommitteeCmds = \case
+  GovernanceCommitteeKeyGenColdCmd {} ->
+    Text
+"governance committee key-gen-cold"
+  GovernanceCommitteeKeyGenHotCmd {} ->
+    Text
+"governance committee key-gen-hot"
+  GovernanceCommitteeKeyHashCmd {} ->
+    Text
+"governance committee key-hash"
+  GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd {} ->
+    Text
+"governance committee create-hot-key-authorization-certificate"
+  GovernanceCommitteeCreateColdKeyResignationCertificateCmd {} ->
+    Text
+"governance committee create-cold-key-resignation-certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.DRep.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.DRep.html new file mode 100644 index 0000000000..0c566af64c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.DRep.html @@ -0,0 +1,131 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Governance.DRep
+  ( GovernanceDRepCmds (..)
+  , renderGovernanceDRepCmds
+
+  , GovernanceDRepKeyGenCmdArgs(..)
+  , GovernanceDRepIdCmdArgs(..)
+  , GovernanceDRepRegistrationCertificateCmdArgs(..)
+  , GovernanceDRepRetirementCertificateCmdArgs(..)
+  , GovernanceDRepMetadataHashCmdArgs(..)
+  )
+where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+
+data GovernanceDRepCmds era
+  = GovernanceDRepKeyGenCmd                   !(GovernanceDRepKeyGenCmdArgs era)
+  | GovernanceDRepIdCmd                       !(GovernanceDRepIdCmdArgs era)
+  | GovernanceDRepRegistrationCertificateCmd  !(GovernanceDRepRegistrationCertificateCmdArgs era)
+  | GovernanceDRepRetirementCertificateCmd    !(GovernanceDRepRetirementCertificateCmdArgs era)
+  | GovernanceDRepMetadataHashCmd             !(GovernanceDRepMetadataHashCmdArgs era)
+
+data GovernanceDRepKeyGenCmdArgs era =
+  GovernanceDRepKeyGenCmdArgs
+    { forall era. GovernanceDRepKeyGenCmdArgs era -> ConwayEraOnwards era
+eon       :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceDRepKeyGenCmdArgs era -> File (VerificationKey ()) 'Out
+vkeyFile  :: !(File (VerificationKey ()) Out)
+    , forall era.
+GovernanceDRepKeyGenCmdArgs era -> File (SigningKey ()) 'Out
+skeyFile  :: !(File (SigningKey ()) Out)
+    }
+
+data GovernanceDRepIdCmdArgs era =
+  GovernanceDRepIdCmdArgs
+    { forall era. GovernanceDRepIdCmdArgs era -> ConwayEraOnwards era
+eon             :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceDRepIdCmdArgs era -> VerificationKeyOrFile DRepKey
+vkeySource      :: !(VerificationKeyOrFile DRepKey)
+    , forall era. GovernanceDRepIdCmdArgs era -> IdOutputFormat
+idOutputFormat  :: !IdOutputFormat
+    , forall era. GovernanceDRepIdCmdArgs era -> Maybe (File () 'Out)
+mOutFile        :: !(Maybe (File () Out))
+    }
+
+data GovernanceDRepRegistrationCertificateCmdArgs era =
+  GovernanceDRepRegistrationCertificateCmdArgs
+    { forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile DRepKey
+drepVkeyHashSource  :: !(VerificationKeyOrHashOrFile DRepKey)
+    , forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era -> Lovelace
+deposit             :: !Lovelace
+    , forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor             :: !(Maybe (Ledger.Anchor (Ledger.EraCrypto (ShelleyLedgerEra era))))
+    , forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era -> File () 'Out
+outFile             :: !(File () Out)
+    }
+
+data GovernanceDRepRetirementCertificateCmdArgs era =
+  GovernanceDRepRetirementCertificateCmdArgs
+    { forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon             :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile DRepKey
+vkeyHashSource  :: !(VerificationKeyOrHashOrFile DRepKey)
+    , forall era.
+GovernanceDRepRetirementCertificateCmdArgs era -> Lovelace
+deposit         :: !Lovelace
+    , forall era.
+GovernanceDRepRetirementCertificateCmdArgs era -> File () 'Out
+outFile         :: !(File () Out)
+    }
+
+data GovernanceDRepMetadataHashCmdArgs era =
+  GovernanceDRepMetadataHashCmdArgs
+    { forall era.
+GovernanceDRepMetadataHashCmdArgs era -> ConwayEraOnwards era
+eon           :: !(ConwayEraOnwards era)
+    , forall era.
+GovernanceDRepMetadataHashCmdArgs era -> DRepMetadataFile 'In
+metadataFile  :: !(DRepMetadataFile In)
+    , forall era.
+GovernanceDRepMetadataHashCmdArgs era -> Maybe (File () 'Out)
+mOutFile      :: !(Maybe (File () Out))
+    }
+
+renderGovernanceDRepCmds :: ()
+  => GovernanceDRepCmds era
+  -> Text
+renderGovernanceDRepCmds :: forall era. GovernanceDRepCmds era -> Text
+renderGovernanceDRepCmds = \case
+  GovernanceDRepKeyGenCmd {} ->
+    Text
+"governance drep key-gen"
+  GovernanceDRepIdCmd {} ->
+    Text
+"governance drep id"
+  GovernanceDRepRegistrationCertificateCmd {} ->
+    Text
+"governance drep registration-certificate"
+  GovernanceDRepRetirementCertificateCmd {} ->
+    Text
+"governance drep retirement-certificate"
+  GovernanceDRepMetadataHashCmd {} ->
+    Text
+"governance drep metadata-hash"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Hash.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Hash.html new file mode 100644 index 0000000000..a967e8fb37 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Hash.html @@ -0,0 +1,65 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+
+module Cardano.CLI.EraBased.Commands.Governance.Hash
+  (
+    GovernanceHashCmds (..),
+    GovernanceHashCmdArgs (..),
+    GovernanceHashSource (..),
+    renderGovernanceHashCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Common
+
+import           Data.Text (Text)
+
+newtype GovernanceHashCmds era = GovernanceHashCmd (GovernanceHashCmdArgs era)
+
+data GovernanceHashCmdArgs era
+  = GovernanceHashCmdArgs {
+      forall era. GovernanceHashCmdArgs era -> ConwayEraOnwards era
+eon     :: !(ConwayEraOnwards era)
+    , forall era. GovernanceHashCmdArgs era -> GovernanceHashSource
+toHash  :: !GovernanceHashSource
+    , forall era. GovernanceHashCmdArgs era -> Maybe (File () 'Out)
+moutFile :: !(Maybe (File () Out)) -- ^ The output file to which the hash is written
+  } deriving Int -> GovernanceHashCmdArgs era -> ShowS
+forall era. Int -> GovernanceHashCmdArgs era -> ShowS
+forall era. [GovernanceHashCmdArgs era] -> ShowS
+forall era. GovernanceHashCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceHashCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceHashCmdArgs era] -> ShowS
+show :: GovernanceHashCmdArgs era -> String
+$cshow :: forall era. GovernanceHashCmdArgs era -> String
+showsPrec :: Int -> GovernanceHashCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceHashCmdArgs era -> ShowS
+Show
+
+data GovernanceHashSource
+  = GovernanceHashSourceBinaryFile (File ProposalText In)
+  | GovernanceHashSourceTextFile (File ProposalText In)
+  | GovernanceHashSourceText Text
+  deriving Int -> GovernanceHashSource -> ShowS
+[GovernanceHashSource] -> ShowS
+GovernanceHashSource -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceHashSource] -> ShowS
+$cshowList :: [GovernanceHashSource] -> ShowS
+show :: GovernanceHashSource -> String
+$cshow :: GovernanceHashSource -> String
+showsPrec :: Int -> GovernanceHashSource -> ShowS
+$cshowsPrec :: Int -> GovernanceHashSource -> ShowS
+Show
+
+renderGovernanceHashCmds :: GovernanceHashCmds era -> Text
+renderGovernanceHashCmds :: forall era. GovernanceHashCmds era -> Text
+renderGovernanceHashCmds =
+  \case GovernanceHashCmd {} -> Text
+"governance hash"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Poll.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Poll.html new file mode 100644 index 0000000000..997c836b82 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Poll.html @@ -0,0 +1,166 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Governance.Poll
+  ( GovernancePollCmds(..)
+  , renderGovernancePollCmds
+
+  , GovernanceCreatePollCmdArgs(..)
+  , GovernanceAnswerPollCmdArgs(..)
+  , GovernanceVerifyPollCmdArgs(..)
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Data.Text (Text)
+
+data GovernancePollCmds era
+  = GovernanceCreatePoll !(GovernanceCreatePollCmdArgs era)
+  | GovernanceAnswerPoll !(GovernanceAnswerPollCmdArgs era)
+  | GovernanceVerifyPoll !(GovernanceVerifyPollCmdArgs era)
+
+-- | Create a SPO poll
+data GovernanceCreatePollCmdArgs era =
+  GovernanceCreatePollCmdArgs
+    { forall era.
+GovernanceCreatePollCmdArgs era -> BabbageEraOnwards era
+eon     :: !(BabbageEraOnwards era)
+    , forall era. GovernanceCreatePollCmdArgs era -> Text
+prompt  :: !Text
+    , forall era. GovernanceCreatePollCmdArgs era -> [Text]
+choices :: ![Text]
+    , forall era. GovernanceCreatePollCmdArgs era -> Maybe Word
+nonce   :: !(Maybe Word)
+    , forall era.
+GovernanceCreatePollCmdArgs era -> File GovernancePoll 'Out
+outFile :: !(File GovernancePoll Out)
+    } deriving (GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+forall era.
+GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+$c/= :: forall era.
+GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+== :: GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+$c== :: forall era.
+GovernanceCreatePollCmdArgs era
+-> GovernanceCreatePollCmdArgs era -> Bool
+Eq, Int -> GovernanceCreatePollCmdArgs era -> ShowS
+forall era. Int -> GovernanceCreatePollCmdArgs era -> ShowS
+forall era. [GovernanceCreatePollCmdArgs era] -> ShowS
+forall era. GovernanceCreatePollCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCreatePollCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceCreatePollCmdArgs era] -> ShowS
+show :: GovernanceCreatePollCmdArgs era -> String
+$cshow :: forall era. GovernanceCreatePollCmdArgs era -> String
+showsPrec :: Int -> GovernanceCreatePollCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceCreatePollCmdArgs era -> ShowS
+Show)
+
+-- | Answer a SPO poll
+data GovernanceAnswerPollCmdArgs era =
+  GovernanceAnswerPollCmdArgs
+    { forall era.
+GovernanceAnswerPollCmdArgs era -> BabbageEraOnwards era
+eon         :: !(BabbageEraOnwards era)
+    , forall era.
+GovernanceAnswerPollCmdArgs era -> File GovernancePoll 'In
+pollFile    :: !(File GovernancePoll In)
+    , forall era. GovernanceAnswerPollCmdArgs era -> Maybe Word
+answerIndex :: !(Maybe Word)
+    , forall era. GovernanceAnswerPollCmdArgs era -> Maybe (File () 'Out)
+mOutFile    :: !(Maybe (File () Out))
+    } deriving (GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+forall era.
+GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+$c/= :: forall era.
+GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+== :: GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+$c== :: forall era.
+GovernanceAnswerPollCmdArgs era
+-> GovernanceAnswerPollCmdArgs era -> Bool
+Eq, Int -> GovernanceAnswerPollCmdArgs era -> ShowS
+forall era. Int -> GovernanceAnswerPollCmdArgs era -> ShowS
+forall era. [GovernanceAnswerPollCmdArgs era] -> ShowS
+forall era. GovernanceAnswerPollCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceAnswerPollCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceAnswerPollCmdArgs era] -> ShowS
+show :: GovernanceAnswerPollCmdArgs era -> String
+$cshow :: forall era. GovernanceAnswerPollCmdArgs era -> String
+showsPrec :: Int -> GovernanceAnswerPollCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceAnswerPollCmdArgs era -> ShowS
+Show)
+
+-- | Verify answer to a given SPO poll
+data GovernanceVerifyPollCmdArgs era =
+  GovernanceVerifyPollCmdArgs
+    { forall era.
+GovernanceVerifyPollCmdArgs era -> BabbageEraOnwards era
+eon       :: !(BabbageEraOnwards era)
+    , forall era.
+GovernanceVerifyPollCmdArgs era -> File GovernancePoll 'In
+pollFile  :: !(File GovernancePoll In)
+    , forall era. GovernanceVerifyPollCmdArgs era -> File (Tx ()) 'In
+txFile    :: !(File (Tx ()) In)
+    , forall era. GovernanceVerifyPollCmdArgs era -> Maybe (File () 'Out)
+mOutFile  :: !(Maybe (File () Out))
+    } deriving (GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+forall era.
+GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+$c/= :: forall era.
+GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+== :: GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+$c== :: forall era.
+GovernanceVerifyPollCmdArgs era
+-> GovernanceVerifyPollCmdArgs era -> Bool
+Eq, Int -> GovernanceVerifyPollCmdArgs era -> ShowS
+forall era. Int -> GovernanceVerifyPollCmdArgs era -> ShowS
+forall era. [GovernanceVerifyPollCmdArgs era] -> ShowS
+forall era. GovernanceVerifyPollCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceVerifyPollCmdArgs era] -> ShowS
+$cshowList :: forall era. [GovernanceVerifyPollCmdArgs era] -> ShowS
+show :: GovernanceVerifyPollCmdArgs era -> String
+$cshow :: forall era. GovernanceVerifyPollCmdArgs era -> String
+showsPrec :: Int -> GovernanceVerifyPollCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> GovernanceVerifyPollCmdArgs era -> ShowS
+Show)
+
+renderGovernancePollCmds :: ()
+  => GovernancePollCmds era
+  -> Text
+renderGovernancePollCmds :: forall era. GovernancePollCmds era -> Text
+renderGovernancePollCmds = \case
+  GovernanceCreatePoll {} -> Text
+"governance create-poll"
+  GovernanceAnswerPoll {} -> Text
+"governance answer-poll"
+  GovernanceVerifyPoll {} -> Text
+"governance verify-poll"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Vote.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Vote.html new file mode 100644 index 0000000000..3662c832dd --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.Vote.html @@ -0,0 +1,72 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Governance.Vote
+  ( GovernanceVoteCmds(..)
+  , GovernanceVoteViewCmdArgs(..)
+  , GovernanceVoteCreateCmdArgs(..)
+  , renderGovernanceVoteCmds
+  ) where
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Governance
+import qualified Cardano.Ledger.BaseTypes as Ledger
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as Ledger
+
+import           Data.Text (Text)
+import           Data.Word
+
+data GovernanceVoteCmds era
+  = GovernanceVoteCreateCmd
+      (GovernanceVoteCreateCmdArgs era)
+  | GovernanceVoteViewCmd
+      (GovernanceVoteViewCmdArgs era)
+
+data GovernanceVoteCreateCmdArgs era
+  = GovernanceVoteCreateCmdArgs
+      { forall era. GovernanceVoteCreateCmdArgs era -> ConwayEraOnwards era
+eon                         :: ConwayEraOnwards era
+      , forall era. GovernanceVoteCreateCmdArgs era -> Vote
+voteChoice                  :: Vote
+      , forall era. GovernanceVoteCreateCmdArgs era -> (TxId, Word32)
+governanceAction            :: (TxId, Word32)
+      , forall era.
+GovernanceVoteCreateCmdArgs era
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+votingStakeCredentialSource :: AnyVotingStakeVerificationKeyOrHashOrFile
+      , forall era.
+GovernanceVoteCreateCmdArgs era
+-> Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+mAnchor                     :: Maybe (VoteUrl, Ledger.SafeHash Crypto.StandardCrypto Ledger.AnchorData)
+      , forall era. GovernanceVoteCreateCmdArgs era -> VoteFile 'Out
+outFile                     :: VoteFile Out
+      }
+
+data GovernanceVoteViewCmdArgs era
+  = GovernanceVoteViewCmdArgs
+      { forall era. GovernanceVoteViewCmdArgs era -> ConwayEraOnwards era
+eon         :: ConwayEraOnwards era
+      , forall era. GovernanceVoteViewCmdArgs era -> Bool
+yamlOutput  :: Bool
+      , forall era. GovernanceVoteViewCmdArgs era -> VoteFile 'In
+voteFile    :: VoteFile In
+      , forall era. GovernanceVoteViewCmdArgs era -> Maybe (File () 'Out)
+mOutFile    :: Maybe (File () Out)
+      }
+
+renderGovernanceVoteCmds :: ()
+  => GovernanceVoteCmds era
+  -> Text
+renderGovernanceVoteCmds :: forall era. GovernanceVoteCmds era -> Text
+renderGovernanceVoteCmds = \case
+  GovernanceVoteCreateCmd {} ->
+    Text
+"governance vote create"
+  GovernanceVoteViewCmd {} ->
+    Text
+"governance vote view"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.html new file mode 100644 index 0000000000..57ea4fbba3 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Governance.html @@ -0,0 +1,102 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Governance
+  ( GovernanceCmds(..)
+  , renderGovernanceCmds
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley (VrfKey)
+
+import           Cardano.CLI.EraBased.Commands.Governance.Actions
+import           Cardano.CLI.EraBased.Commands.Governance.Committee
+import           Cardano.CLI.EraBased.Commands.Governance.DRep
+import           Cardano.CLI.EraBased.Commands.Governance.Hash
+import           Cardano.CLI.EraBased.Commands.Governance.Poll
+import           Cardano.CLI.EraBased.Commands.Governance.Vote
+import           Cardano.CLI.Types.Key (VerificationKeyOrHashOrFile)
+
+import           Data.Text (Text)
+
+data GovernanceCmds era
+  = GovernanceCreateMirCertificateStakeAddressesCmd
+      (ShelleyToBabbageEra era)
+      MIRPot
+      [StakeAddress]
+      [Lovelace]
+      (File () Out)
+  | GovernanceCreateMirCertificateTransferToTreasuryCmd
+      (ShelleyToBabbageEra era)
+      Lovelace
+      (File () Out)
+  | GovernanceCreateMirCertificateTransferToReservesCmd
+      (ShelleyToBabbageEra era)
+      Lovelace
+      (File () Out)
+  | GovernanceGenesisKeyDelegationCertificate
+      (ShelleyToBabbageEra era)
+      (VerificationKeyOrHashOrFile GenesisKey)
+      (VerificationKeyOrHashOrFile GenesisDelegateKey)
+      (VerificationKeyOrHashOrFile VrfKey)
+      (File () Out)
+  | GovernanceActionCmds
+      (GovernanceActionCmds era)
+  | GovernanceCommitteeCmds
+      (GovernanceCommitteeCmds era)
+  | GovernanceDRepCmds
+      (GovernanceDRepCmds era)
+  | GovernanceHashCmds
+      (GovernanceHashCmds era)
+  | GovernancePollCmds
+      (GovernancePollCmds era)
+  | GovernanceVoteCmds
+      (GovernanceVoteCmds era)
+
+renderGovernanceCmds :: GovernanceCmds era -> Text
+renderGovernanceCmds :: forall era. GovernanceCmds era -> Text
+renderGovernanceCmds = \case
+  GovernanceCreateMirCertificateStakeAddressesCmd {} ->
+    Text
+"governance create-mir-certificate stake-addresses"
+  GovernanceCreateMirCertificateTransferToTreasuryCmd {} ->
+    Text
+"governance create-mir-certificate transfer-to-treasury"
+  GovernanceCreateMirCertificateTransferToReservesCmd {} ->
+    Text
+"governance create-mir-certificate transfer-to-reserves"
+  GovernanceGenesisKeyDelegationCertificate {} ->
+    Text
+"governance create-genesis-key-delegation-certificate"
+  GovernanceActionCmds GovernanceActionCmds era
+cmds ->
+    forall era. GovernanceActionCmds era -> Text
+renderGovernanceActionCmds GovernanceActionCmds era
+cmds
+  GovernanceCommitteeCmds GovernanceCommitteeCmds era
+cmds ->
+    forall era. GovernanceCommitteeCmds era -> Text
+renderGovernanceCommitteeCmds GovernanceCommitteeCmds era
+cmds
+  GovernanceDRepCmds GovernanceDRepCmds era
+cmds ->
+    forall era. GovernanceDRepCmds era -> Text
+renderGovernanceDRepCmds GovernanceDRepCmds era
+cmds
+  GovernanceHashCmds GovernanceHashCmds era
+cmds ->
+    forall era. GovernanceHashCmds era -> Text
+renderGovernanceHashCmds GovernanceHashCmds era
+cmds
+  GovernancePollCmds GovernancePollCmds era
+cmds ->
+    forall era. GovernancePollCmds era -> Text
+renderGovernancePollCmds GovernancePollCmds era
+cmds
+  GovernanceVoteCmds GovernanceVoteCmds era
+cmds ->
+    forall era. GovernanceVoteCmds era -> Text
+renderGovernanceVoteCmds GovernanceVoteCmds era
+cmds
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Key.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Key.html new file mode 100644 index 0000000000..ecd808a87a --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Key.html @@ -0,0 +1,239 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Key
+  ( KeyCmds (..)
+  , KeyVerificationKeyCmdArgs(..)
+  , KeyNonExtendedKeyCmdArgs(..)
+  , KeyConvertByronKeyCmdArgs(..)
+  , KeyConvertByronGenesisVKeyCmdArgs(..)
+  , KeyConvertITNKeyCmdArgs(..)
+  , KeyConvertITNExtendedKeyCmdArgs(..)
+  , KeyConvertITNBip32KeyCmdArgs(..)
+  , KeyConvertCardanoAddressKeyCmdArgs(..)
+  , renderKeyCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+
+import           Data.Text (Text)
+
+data KeyCmds era
+  = KeyVerificationKeyCmd           !KeyVerificationKeyCmdArgs
+  | KeyNonExtendedKeyCmd            !KeyNonExtendedKeyCmdArgs
+  | KeyConvertByronKeyCmd           !KeyConvertByronKeyCmdArgs
+  | KeyConvertByronGenesisVKeyCmd   !KeyConvertByronGenesisVKeyCmdArgs
+  | KeyConvertITNKeyCmd             !KeyConvertITNKeyCmdArgs
+  | KeyConvertITNExtendedKeyCmd     !KeyConvertITNExtendedKeyCmdArgs
+  | KeyConvertITNBip32KeyCmd        !KeyConvertITNBip32KeyCmdArgs
+  | KeyConvertCardanoAddressKeyCmd  !KeyConvertCardanoAddressKeyCmdArgs
+  deriving Int -> KeyCmds era -> ShowS
+forall era. Int -> KeyCmds era -> ShowS
+forall era. [KeyCmds era] -> ShowS
+forall era. KeyCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyCmds era] -> ShowS
+$cshowList :: forall era. [KeyCmds era] -> ShowS
+show :: KeyCmds era -> String
+$cshow :: forall era. KeyCmds era -> String
+showsPrec :: Int -> KeyCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> KeyCmds era -> ShowS
+Show
+
+-- | Get a verification key from a signing key. This supports all key types
+data KeyVerificationKeyCmdArgs = KeyVerificationKeyCmdArgs
+  { KeyVerificationKeyCmdArgs -> SigningKeyFile 'In
+skeyFile  :: !(SigningKeyFile In)       -- ^ Input filepath of the signing key
+  , KeyVerificationKeyCmdArgs -> VerificationKeyFile 'Out
+vkeyFile  :: !(VerificationKeyFile Out) -- ^ Output filepath of the verification key
+  } deriving Int -> KeyVerificationKeyCmdArgs -> ShowS
+[KeyVerificationKeyCmdArgs] -> ShowS
+KeyVerificationKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyVerificationKeyCmdArgs] -> ShowS
+$cshowList :: [KeyVerificationKeyCmdArgs] -> ShowS
+show :: KeyVerificationKeyCmdArgs -> String
+$cshow :: KeyVerificationKeyCmdArgs -> String
+showsPrec :: Int -> KeyVerificationKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyVerificationKeyCmdArgs -> ShowS
+Show
+
+-- | Get a non-extended verification key from an extended verification key. This
+-- supports all extended key types.
+data KeyNonExtendedKeyCmdArgs = KeyNonExtendedKeyCmdArgs
+  { KeyNonExtendedKeyCmdArgs -> VerificationKeyFile 'In
+extendedVkeyFileIn      :: !(VerificationKeyFile In)  -- ^ Input filepath of the ed25519-bip32 verification key
+  , KeyNonExtendedKeyCmdArgs -> VerificationKeyFile 'Out
+nonExtendedVkeyFileOut  :: !(VerificationKeyFile Out) -- ^ Output filepath of the verification key
+  } deriving Int -> KeyNonExtendedKeyCmdArgs -> ShowS
+[KeyNonExtendedKeyCmdArgs] -> ShowS
+KeyNonExtendedKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyNonExtendedKeyCmdArgs] -> ShowS
+$cshowList :: [KeyNonExtendedKeyCmdArgs] -> ShowS
+show :: KeyNonExtendedKeyCmdArgs -> String
+$cshow :: KeyNonExtendedKeyCmdArgs -> String
+showsPrec :: Int -> KeyNonExtendedKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyNonExtendedKeyCmdArgs -> ShowS
+Show
+
+-- | Convert a Byron payment, genesis or genesis delegate key (signing or
+-- verification) to a corresponding Shelley-format key.
+data KeyConvertByronKeyCmdArgs = KeyConvertByronKeyCmdArgs
+  { KeyConvertByronKeyCmdArgs -> Maybe Text
+mPassword       :: !(Maybe Text)      -- ^ Password for signing key (if applicable)
+  , KeyConvertByronKeyCmdArgs -> ByronKeyType
+byronKeyType    :: !ByronKeyType      -- ^ The byron key type of the input file
+  , KeyConvertByronKeyCmdArgs -> SomeKeyFile 'In
+someKeyFileIn   :: !(SomeKeyFile In)  -- ^ Input file containing the byron key
+  , KeyConvertByronKeyCmdArgs -> File () 'Out
+someKeyFileOut  :: !(File () Out)     -- ^ The output file to which the Shelley-format key will be written
+  } deriving Int -> KeyConvertByronKeyCmdArgs -> ShowS
+[KeyConvertByronKeyCmdArgs] -> ShowS
+KeyConvertByronKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertByronKeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertByronKeyCmdArgs] -> ShowS
+show :: KeyConvertByronKeyCmdArgs -> String
+$cshow :: KeyConvertByronKeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertByronKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertByronKeyCmdArgs -> ShowS
+Show
+
+-- Convert a Base64-encoded Byron genesis verification key to a Shelley genesis
+-- verification key
+data KeyConvertByronGenesisVKeyCmdArgs = KeyConvertByronGenesisVKeyCmdArgs
+  { KeyConvertByronGenesisVKeyCmdArgs -> VerificationKeyBase64
+vkey        :: !VerificationKeyBase64 -- ^ Base64 string for the Byron genesis verification key
+  , KeyConvertByronGenesisVKeyCmdArgs -> File () 'Out
+vkeyFileOut :: !(File () Out)         -- ^ The output file
+  } deriving Int -> KeyConvertByronGenesisVKeyCmdArgs -> ShowS
+[KeyConvertByronGenesisVKeyCmdArgs] -> ShowS
+KeyConvertByronGenesisVKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertByronGenesisVKeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertByronGenesisVKeyCmdArgs] -> ShowS
+show :: KeyConvertByronGenesisVKeyCmdArgs -> String
+$cshow :: KeyConvertByronGenesisVKeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertByronGenesisVKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertByronGenesisVKeyCmdArgs -> ShowS
+Show
+
+-- | Convert an Incentivized Testnet (ITN) non-extended (Ed25519) signing or
+-- verification key to a corresponding Shelley stake key
+data KeyConvertITNKeyCmdArgs = KeyConvertITNKeyCmdArgs
+  { KeyConvertITNKeyCmdArgs -> SomeKeyFile 'In
+itnKeyFile  :: !(SomeKeyFile In)      -- ^ Filepath of the ITN key (signing or verification)
+  , KeyConvertITNKeyCmdArgs -> File () 'Out
+outFile     :: !(File () Out)         -- ^ The output file
+  } deriving Int -> KeyConvertITNKeyCmdArgs -> ShowS
+[KeyConvertITNKeyCmdArgs] -> ShowS
+KeyConvertITNKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertITNKeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertITNKeyCmdArgs] -> ShowS
+show :: KeyConvertITNKeyCmdArgs -> String
+$cshow :: KeyConvertITNKeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertITNKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertITNKeyCmdArgs -> ShowS
+Show
+
+-- | Convert an Incentivized Testnet (ITN) extended (Ed25519Extended) signing key
+-- to a corresponding Shelley stake signing key
+data KeyConvertITNExtendedKeyCmdArgs = KeyConvertITNExtendedKeyCmdArgs
+  { KeyConvertITNExtendedKeyCmdArgs -> SomeKeyFile 'In
+itnPrivKeyFile  :: !(SomeKeyFile In)  -- ^ Filepath of the ITN signing key
+  , KeyConvertITNExtendedKeyCmdArgs -> File () 'Out
+outFile         :: !(File () Out)     -- ^ The output file
+  } deriving Int -> KeyConvertITNExtendedKeyCmdArgs -> ShowS
+[KeyConvertITNExtendedKeyCmdArgs] -> ShowS
+KeyConvertITNExtendedKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertITNExtendedKeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertITNExtendedKeyCmdArgs] -> ShowS
+show :: KeyConvertITNExtendedKeyCmdArgs -> String
+$cshow :: KeyConvertITNExtendedKeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertITNExtendedKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertITNExtendedKeyCmdArgs -> ShowS
+Show
+
+-- | Convert an Incentivized Testnet (ITN) BIP32 (Ed25519Bip32) signing key to a
+-- corresponding Shelley stake signing key
+data KeyConvertITNBip32KeyCmdArgs = KeyConvertITNBip32KeyCmdArgs
+  { KeyConvertITNBip32KeyCmdArgs -> SomeKeyFile 'In
+itnPrivKeyFile  :: !(SomeKeyFile In)  -- ^ Filepath of the ITN signing key
+  , KeyConvertITNBip32KeyCmdArgs -> File () 'Out
+outFile         :: !(File () Out)     -- ^ The output file
+  } deriving Int -> KeyConvertITNBip32KeyCmdArgs -> ShowS
+[KeyConvertITNBip32KeyCmdArgs] -> ShowS
+KeyConvertITNBip32KeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertITNBip32KeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertITNBip32KeyCmdArgs] -> ShowS
+show :: KeyConvertITNBip32KeyCmdArgs -> String
+$cshow :: KeyConvertITNBip32KeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertITNBip32KeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertITNBip32KeyCmdArgs -> ShowS
+Show
+
+-- | Convert a cardano-address extended signing key to a corresponding
+-- Shelley-format key
+data KeyConvertCardanoAddressKeyCmdArgs = KeyConvertCardanoAddressKeyCmdArgs
+  { KeyConvertCardanoAddressKeyCmdArgs -> CardanoAddressKeyType
+cardanoAddressKeyType :: !CardanoAddressKeyType -- ^ Address key type of th signing key input file
+  , KeyConvertCardanoAddressKeyCmdArgs -> SigningKeyFile 'In
+skeyFileIn            :: !(SigningKeyFile In)   -- ^ Input filepath of the signing key
+  , KeyConvertCardanoAddressKeyCmdArgs -> File () 'Out
+skeyFileOut           :: !(File () Out)         -- ^ The output file
+  } deriving Int -> KeyConvertCardanoAddressKeyCmdArgs -> ShowS
+[KeyConvertCardanoAddressKeyCmdArgs] -> ShowS
+KeyConvertCardanoAddressKeyCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyConvertCardanoAddressKeyCmdArgs] -> ShowS
+$cshowList :: [KeyConvertCardanoAddressKeyCmdArgs] -> ShowS
+show :: KeyConvertCardanoAddressKeyCmdArgs -> String
+$cshow :: KeyConvertCardanoAddressKeyCmdArgs -> String
+showsPrec :: Int -> KeyConvertCardanoAddressKeyCmdArgs -> ShowS
+$cshowsPrec :: Int -> KeyConvertCardanoAddressKeyCmdArgs -> ShowS
+Show
+
+renderKeyCmds :: KeyCmds era -> Text
+renderKeyCmds :: forall era. KeyCmds era -> Text
+renderKeyCmds = \case
+  KeyVerificationKeyCmd {} ->
+    Text
+"key verification-key"
+  KeyNonExtendedKeyCmd {} ->
+    Text
+"key non-extended-key"
+  KeyConvertByronKeyCmd {} ->
+    Text
+"key convert-byron-key"
+  KeyConvertByronGenesisVKeyCmd {} ->
+    Text
+"key convert-byron-genesis-vkey"
+  KeyConvertITNKeyCmd {} ->
+    Text
+"key convert-itn-key"
+  KeyConvertITNExtendedKeyCmd {} ->
+    Text
+"key convert-itn-extended-key"
+  KeyConvertITNBip32KeyCmd {} ->
+    Text
+"key convert-itn-bip32-key"
+  KeyConvertCardanoAddressKeyCmd {} ->
+    Text
+"key convert-cardano-address-key"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Node.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Node.html new file mode 100644 index 0000000000..0b4f7ef5b6 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Node.html @@ -0,0 +1,200 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Node
+  ( NodeCmds (..)
+  , renderNodeCmds
+
+  , NodeKeyGenColdCmdArgs(..)
+  , NodeKeyGenKESCmdArgs(..)
+  , NodeKeyGenVRFCmdArgs(..)
+  , NodeKeyHashVRFCmdArgs(..)
+  , NodeNewCounterCmdArgs(..)
+  , NodeIssueOpCertCmdArgs(..)
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+
+data NodeCmds era
+  = NodeKeyGenColdCmd   !NodeKeyGenColdCmdArgs
+  | NodeKeyGenKESCmd    !NodeKeyGenKESCmdArgs
+  | NodeKeyGenVRFCmd    !NodeKeyGenVRFCmdArgs
+  | NodeKeyHashVRFCmd   !NodeKeyHashVRFCmdArgs
+  | NodeNewCounterCmd   !NodeNewCounterCmdArgs
+  | NodeIssueOpCertCmd  !NodeIssueOpCertCmdArgs
+  deriving Int -> NodeCmds era -> ShowS
+forall era. Int -> NodeCmds era -> ShowS
+forall era. [NodeCmds era] -> ShowS
+forall era. NodeCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeCmds era] -> ShowS
+$cshowList :: forall era. [NodeCmds era] -> ShowS
+show :: NodeCmds era -> String
+$cshow :: forall era. NodeCmds era -> String
+showsPrec :: Int -> NodeCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> NodeCmds era -> ShowS
+Show
+
+data NodeKeyGenColdCmdArgs =
+  NodeKeyGenColdCmdArgs
+    { NodeKeyGenColdCmdArgs -> KeyOutputFormat
+keyOutputFormat                     :: !KeyOutputFormat
+    , NodeKeyGenColdCmdArgs -> VerificationKeyFile 'Out
+vkeyFile                            :: !(VerificationKeyFile Out)
+    , NodeKeyGenColdCmdArgs -> SigningKeyFile 'Out
+skeyFile                            :: !(SigningKeyFile Out)
+    , NodeKeyGenColdCmdArgs -> OpCertCounterFile 'Out
+operationalCertificateIssueCounter  :: !(OpCertCounterFile Out)
+    }
+  deriving Int -> NodeKeyGenColdCmdArgs -> ShowS
+[NodeKeyGenColdCmdArgs] -> ShowS
+NodeKeyGenColdCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeKeyGenColdCmdArgs] -> ShowS
+$cshowList :: [NodeKeyGenColdCmdArgs] -> ShowS
+show :: NodeKeyGenColdCmdArgs -> String
+$cshow :: NodeKeyGenColdCmdArgs -> String
+showsPrec :: Int -> NodeKeyGenColdCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeKeyGenColdCmdArgs -> ShowS
+Show
+
+data NodeKeyGenKESCmdArgs =
+  NodeKeyGenKESCmdArgs
+    { NodeKeyGenKESCmdArgs -> KeyOutputFormat
+keyOutputFormat :: !KeyOutputFormat
+    , NodeKeyGenKESCmdArgs -> VerificationKeyFile 'Out
+vkeyFile        :: !(VerificationKeyFile Out)
+    , NodeKeyGenKESCmdArgs -> SigningKeyFile 'Out
+skeyFile        :: !(SigningKeyFile Out)
+    }
+  deriving Int -> NodeKeyGenKESCmdArgs -> ShowS
+[NodeKeyGenKESCmdArgs] -> ShowS
+NodeKeyGenKESCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeKeyGenKESCmdArgs] -> ShowS
+$cshowList :: [NodeKeyGenKESCmdArgs] -> ShowS
+show :: NodeKeyGenKESCmdArgs -> String
+$cshow :: NodeKeyGenKESCmdArgs -> String
+showsPrec :: Int -> NodeKeyGenKESCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeKeyGenKESCmdArgs -> ShowS
+Show
+
+data NodeKeyGenVRFCmdArgs =
+  NodeKeyGenVRFCmdArgs
+    { NodeKeyGenVRFCmdArgs -> KeyOutputFormat
+keyOutputFormat :: !KeyOutputFormat
+    , NodeKeyGenVRFCmdArgs -> VerificationKeyFile 'Out
+vkeyFile        :: !(VerificationKeyFile Out)
+    , NodeKeyGenVRFCmdArgs -> SigningKeyFile 'Out
+skeyFile        :: !(SigningKeyFile Out)
+    }
+  deriving Int -> NodeKeyGenVRFCmdArgs -> ShowS
+[NodeKeyGenVRFCmdArgs] -> ShowS
+NodeKeyGenVRFCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeKeyGenVRFCmdArgs] -> ShowS
+$cshowList :: [NodeKeyGenVRFCmdArgs] -> ShowS
+show :: NodeKeyGenVRFCmdArgs -> String
+$cshow :: NodeKeyGenVRFCmdArgs -> String
+showsPrec :: Int -> NodeKeyGenVRFCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeKeyGenVRFCmdArgs -> ShowS
+Show
+
+data NodeKeyHashVRFCmdArgs =
+  NodeKeyHashVRFCmdArgs
+    { NodeKeyHashVRFCmdArgs -> VerificationKeyOrFile VrfKey
+vkeySource  :: !(VerificationKeyOrFile VrfKey)
+    , NodeKeyHashVRFCmdArgs -> Maybe (File () 'Out)
+mOutFile    :: !(Maybe (File () Out))
+    }
+  deriving Int -> NodeKeyHashVRFCmdArgs -> ShowS
+[NodeKeyHashVRFCmdArgs] -> ShowS
+NodeKeyHashVRFCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeKeyHashVRFCmdArgs] -> ShowS
+$cshowList :: [NodeKeyHashVRFCmdArgs] -> ShowS
+show :: NodeKeyHashVRFCmdArgs -> String
+$cshow :: NodeKeyHashVRFCmdArgs -> String
+showsPrec :: Int -> NodeKeyHashVRFCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeKeyHashVRFCmdArgs -> ShowS
+Show
+
+data NodeNewCounterCmdArgs =
+  NodeNewCounterCmdArgs
+    { NodeNewCounterCmdArgs -> ColdVerificationKeyOrFile
+coldVkeyFile  :: !ColdVerificationKeyOrFile
+    , NodeNewCounterCmdArgs -> Word
+counter       :: !Word
+    , NodeNewCounterCmdArgs -> OpCertCounterFile 'InOut
+mOutFile      :: !(OpCertCounterFile InOut)
+    }
+  deriving Int -> NodeNewCounterCmdArgs -> ShowS
+[NodeNewCounterCmdArgs] -> ShowS
+NodeNewCounterCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeNewCounterCmdArgs] -> ShowS
+$cshowList :: [NodeNewCounterCmdArgs] -> ShowS
+show :: NodeNewCounterCmdArgs -> String
+$cshow :: NodeNewCounterCmdArgs -> String
+showsPrec :: Int -> NodeNewCounterCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeNewCounterCmdArgs -> ShowS
+Show
+
+data NodeIssueOpCertCmdArgs =
+  NodeIssueOpCertCmdArgs
+    { NodeIssueOpCertCmdArgs -> VerificationKeyOrFile KesKey
+kesVkeySource                     :: !(VerificationKeyOrFile KesKey)
+      -- ^ The hot KES verification key.
+    , NodeIssueOpCertCmdArgs -> SigningKeyFile 'In
+poolSkeyFile                      :: !(SigningKeyFile In)
+      -- ^ The cold signing key.
+    , NodeIssueOpCertCmdArgs -> OpCertCounterFile 'InOut
+operationalCertificateCounterFile :: !(OpCertCounterFile InOut)
+      -- ^ Counter that establishes the precedence of the operational certificate.
+    , NodeIssueOpCertCmdArgs -> KESPeriod
+kesPeriod                         :: !KESPeriod
+      -- ^ Start of the validity period for this certificate.
+    , NodeIssueOpCertCmdArgs -> File () 'Out
+outFile                           :: !(File () Out)
+    }
+  deriving Int -> NodeIssueOpCertCmdArgs -> ShowS
+[NodeIssueOpCertCmdArgs] -> ShowS
+NodeIssueOpCertCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeIssueOpCertCmdArgs] -> ShowS
+$cshowList :: [NodeIssueOpCertCmdArgs] -> ShowS
+show :: NodeIssueOpCertCmdArgs -> String
+$cshow :: NodeIssueOpCertCmdArgs -> String
+showsPrec :: Int -> NodeIssueOpCertCmdArgs -> ShowS
+$cshowsPrec :: Int -> NodeIssueOpCertCmdArgs -> ShowS
+Show
+
+renderNodeCmds :: NodeCmds era -> Text
+renderNodeCmds :: forall era. NodeCmds era -> Text
+renderNodeCmds = \case
+  NodeKeyGenColdCmd   {} -> Text
+"node key-gen"
+  NodeKeyGenKESCmd    {} -> Text
+"node key-gen-KES"
+  NodeKeyGenVRFCmd    {} -> Text
+"node key-gen-VRF"
+  NodeKeyHashVRFCmd   {} -> Text
+"node key-hash-VRF"
+  NodeNewCounterCmd   {} -> Text
+"node new-counter"
+  NodeIssueOpCertCmd  {} -> Text
+"node issue-op-cert"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Query.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Query.html new file mode 100644 index 0000000000..c8ff016b4b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Query.html @@ -0,0 +1,774 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Query
+  ( QueryCmds (..)
+  , QueryCommitteeMembersStateCmdArgs(..)
+  , QueryLeadershipScheduleCmdArgs(..)
+  , QueryProtocolParametersCmdArgs(..)
+  , QueryConstitutionHashCmdArgs(..)
+  , QueryTipCmdArgs(..)
+  , QueryStakePoolsCmdArgs(..)
+  , QueryStakeDistributionCmdArgs(..)
+  , QueryStakeAddressInfoCmdArgs(..)
+  , QueryUTxOCmdArgs(..)
+  , QueryLedgerStateCmdArgs(..)
+  , QueryProtocolStateCmdArgs(..)
+  , QueryStakeSnapshotCmdArgs(..)
+  , QueryKesPeriodInfoCmdArgs(..)
+  , QueryPoolStateCmdArgs(..)
+  , QueryTxMempoolCmdArgs(..)
+  , QuerySlotNumberCmdArgs(..)
+  , QueryNoArgCmdArgs(..)
+  , QueryDRepStateCmdArgs(..)
+  , QueryDRepStakeDistributionCmdArgs(..)
+  , renderQueryCmds
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+import           Data.Time.Clock
+import           GHC.Generics
+
+data QueryCmds era
+  = QueryLeadershipScheduleCmd      !QueryLeadershipScheduleCmdArgs
+  | QueryProtocolParametersCmd      !QueryProtocolParametersCmdArgs
+  | QueryConstitutionHashCmd        !QueryConstitutionHashCmdArgs
+  | QueryTipCmd                     !QueryTipCmdArgs
+  | QueryStakePoolsCmd              !QueryStakePoolsCmdArgs
+  | QueryStakeDistributionCmd       !QueryStakeDistributionCmdArgs
+  | QueryStakeAddressInfoCmd        !QueryStakeAddressInfoCmdArgs
+  | QueryUTxOCmd                    !QueryUTxOCmdArgs
+  | QueryLedgerStateCmd             !QueryLedgerStateCmdArgs
+  | QueryProtocolStateCmd           !QueryProtocolStateCmdArgs
+  | QueryStakeSnapshotCmd           !QueryStakeSnapshotCmdArgs
+  | QueryKesPeriodInfoCmd           !QueryKesPeriodInfoCmdArgs
+  | QueryPoolStateCmd               !QueryPoolStateCmdArgs
+  | QueryTxMempoolCmd               !QueryTxMempoolCmdArgs
+  | QuerySlotNumberCmd              !QuerySlotNumberCmdArgs
+  | QueryConstitutionCmd            !(QueryNoArgCmdArgs era)
+  | QueryGovStateCmd                !(QueryNoArgCmdArgs era)
+  | QueryDRepStateCmd               !(QueryDRepStateCmdArgs era)
+  | QueryDRepStakeDistributionCmd   !(QueryDRepStakeDistributionCmdArgs era)
+  | QueryCommitteeMembersStateCmd   !(QueryCommitteeMembersStateCmdArgs era)
+  deriving (forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+forall era x. Rep (QueryCmds era) x -> QueryCmds era
+forall era x. QueryCmds era -> Rep (QueryCmds era) x
+$cto :: forall era x. Rep (QueryCmds era) x -> QueryCmds era
+$cfrom :: forall era x. QueryCmds era -> Rep (QueryCmds era) x
+Generic, Int -> QueryCmds era -> ShowS
+forall era. Int -> QueryCmds era -> ShowS
+forall era. [QueryCmds era] -> ShowS
+forall era. QueryCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryCmds era] -> ShowS
+$cshowList :: forall era. [QueryCmds era] -> ShowS
+show :: QueryCmds era -> String
+$cshow :: forall era. QueryCmds era -> String
+showsPrec :: Int -> QueryCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> QueryCmds era -> ShowS
+Show)
+
+data QueryLeadershipScheduleCmdArgs = QueryLeadershipScheduleCmdArgs
+  { QueryLeadershipScheduleCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryLeadershipScheduleCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryLeadershipScheduleCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryLeadershipScheduleCmdArgs -> GenesisFile
+genesisFp           :: !GenesisFile
+  , QueryLeadershipScheduleCmdArgs
+-> VerificationKeyOrHashOrFile StakePoolKey
+poolColdVerKeyFile  :: !(VerificationKeyOrHashOrFile StakePoolKey)
+  , QueryLeadershipScheduleCmdArgs -> SigningKeyFile 'In
+vrkSkeyFp           :: !(SigningKeyFile In)
+  , QueryLeadershipScheduleCmdArgs -> EpochLeadershipSchedule
+whichSchedule       :: !EpochLeadershipSchedule
+  , QueryLeadershipScheduleCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryLeadershipScheduleCmdArgs x
+-> QueryLeadershipScheduleCmdArgs
+forall x.
+QueryLeadershipScheduleCmdArgs
+-> Rep QueryLeadershipScheduleCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryLeadershipScheduleCmdArgs x
+-> QueryLeadershipScheduleCmdArgs
+$cfrom :: forall x.
+QueryLeadershipScheduleCmdArgs
+-> Rep QueryLeadershipScheduleCmdArgs x
+Generic, Int -> QueryLeadershipScheduleCmdArgs -> ShowS
+[QueryLeadershipScheduleCmdArgs] -> ShowS
+QueryLeadershipScheduleCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryLeadershipScheduleCmdArgs] -> ShowS
+$cshowList :: [QueryLeadershipScheduleCmdArgs] -> ShowS
+show :: QueryLeadershipScheduleCmdArgs -> String
+$cshow :: QueryLeadershipScheduleCmdArgs -> String
+showsPrec :: Int -> QueryLeadershipScheduleCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryLeadershipScheduleCmdArgs -> ShowS
+Show)
+
+data QueryProtocolParametersCmdArgs = QueryProtocolParametersCmdArgs
+  { QueryProtocolParametersCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryProtocolParametersCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryProtocolParametersCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryProtocolParametersCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryProtocolParametersCmdArgs x
+-> QueryProtocolParametersCmdArgs
+forall x.
+QueryProtocolParametersCmdArgs
+-> Rep QueryProtocolParametersCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryProtocolParametersCmdArgs x
+-> QueryProtocolParametersCmdArgs
+$cfrom :: forall x.
+QueryProtocolParametersCmdArgs
+-> Rep QueryProtocolParametersCmdArgs x
+Generic, Int -> QueryProtocolParametersCmdArgs -> ShowS
+[QueryProtocolParametersCmdArgs] -> ShowS
+QueryProtocolParametersCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryProtocolParametersCmdArgs] -> ShowS
+$cshowList :: [QueryProtocolParametersCmdArgs] -> ShowS
+show :: QueryProtocolParametersCmdArgs -> String
+$cshow :: QueryProtocolParametersCmdArgs -> String
+showsPrec :: Int -> QueryProtocolParametersCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryProtocolParametersCmdArgs -> ShowS
+Show)
+
+data QueryConstitutionHashCmdArgs = QueryConstitutionHashCmdArgs
+  { QueryConstitutionHashCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryConstitutionHashCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryConstitutionHashCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryConstitutionHashCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryConstitutionHashCmdArgs x -> QueryConstitutionHashCmdArgs
+forall x.
+QueryConstitutionHashCmdArgs -> Rep QueryConstitutionHashCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryConstitutionHashCmdArgs x -> QueryConstitutionHashCmdArgs
+$cfrom :: forall x.
+QueryConstitutionHashCmdArgs -> Rep QueryConstitutionHashCmdArgs x
+Generic, Int -> QueryConstitutionHashCmdArgs -> ShowS
+[QueryConstitutionHashCmdArgs] -> ShowS
+QueryConstitutionHashCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryConstitutionHashCmdArgs] -> ShowS
+$cshowList :: [QueryConstitutionHashCmdArgs] -> ShowS
+show :: QueryConstitutionHashCmdArgs -> String
+$cshow :: QueryConstitutionHashCmdArgs -> String
+showsPrec :: Int -> QueryConstitutionHashCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryConstitutionHashCmdArgs -> ShowS
+Show)
+
+data QueryTipCmdArgs = QueryTipCmdArgs
+  { QueryTipCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryTipCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryTipCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryTipCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep QueryTipCmdArgs x -> QueryTipCmdArgs
+forall x. QueryTipCmdArgs -> Rep QueryTipCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryTipCmdArgs x -> QueryTipCmdArgs
+$cfrom :: forall x. QueryTipCmdArgs -> Rep QueryTipCmdArgs x
+Generic, Int -> QueryTipCmdArgs -> ShowS
+[QueryTipCmdArgs] -> ShowS
+QueryTipCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryTipCmdArgs] -> ShowS
+$cshowList :: [QueryTipCmdArgs] -> ShowS
+show :: QueryTipCmdArgs -> String
+$cshow :: QueryTipCmdArgs -> String
+showsPrec :: Int -> QueryTipCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryTipCmdArgs -> ShowS
+Show)
+
+data QueryStakePoolsCmdArgs = QueryStakePoolsCmdArgs
+  { QueryStakePoolsCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryStakePoolsCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryStakePoolsCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryStakePoolsCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep QueryStakePoolsCmdArgs x -> QueryStakePoolsCmdArgs
+forall x. QueryStakePoolsCmdArgs -> Rep QueryStakePoolsCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryStakePoolsCmdArgs x -> QueryStakePoolsCmdArgs
+$cfrom :: forall x. QueryStakePoolsCmdArgs -> Rep QueryStakePoolsCmdArgs x
+Generic, Int -> QueryStakePoolsCmdArgs -> ShowS
+[QueryStakePoolsCmdArgs] -> ShowS
+QueryStakePoolsCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryStakePoolsCmdArgs] -> ShowS
+$cshowList :: [QueryStakePoolsCmdArgs] -> ShowS
+show :: QueryStakePoolsCmdArgs -> String
+$cshow :: QueryStakePoolsCmdArgs -> String
+showsPrec :: Int -> QueryStakePoolsCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryStakePoolsCmdArgs -> ShowS
+Show)
+
+data QueryStakeDistributionCmdArgs = QueryStakeDistributionCmdArgs
+  { QueryStakeDistributionCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryStakeDistributionCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryStakeDistributionCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryStakeDistributionCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryStakeDistributionCmdArgs x
+-> QueryStakeDistributionCmdArgs
+forall x.
+QueryStakeDistributionCmdArgs
+-> Rep QueryStakeDistributionCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryStakeDistributionCmdArgs x
+-> QueryStakeDistributionCmdArgs
+$cfrom :: forall x.
+QueryStakeDistributionCmdArgs
+-> Rep QueryStakeDistributionCmdArgs x
+Generic, Int -> QueryStakeDistributionCmdArgs -> ShowS
+[QueryStakeDistributionCmdArgs] -> ShowS
+QueryStakeDistributionCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryStakeDistributionCmdArgs] -> ShowS
+$cshowList :: [QueryStakeDistributionCmdArgs] -> ShowS
+show :: QueryStakeDistributionCmdArgs -> String
+$cshow :: QueryStakeDistributionCmdArgs -> String
+showsPrec :: Int -> QueryStakeDistributionCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryStakeDistributionCmdArgs -> ShowS
+Show)
+
+data QueryStakeAddressInfoCmdArgs = QueryStakeAddressInfoCmdArgs
+  { QueryStakeAddressInfoCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryStakeAddressInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryStakeAddressInfoCmdArgs -> StakeAddress
+addr                :: !StakeAddress
+  , QueryStakeAddressInfoCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryStakeAddressInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryStakeAddressInfoCmdArgs x -> QueryStakeAddressInfoCmdArgs
+forall x.
+QueryStakeAddressInfoCmdArgs -> Rep QueryStakeAddressInfoCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryStakeAddressInfoCmdArgs x -> QueryStakeAddressInfoCmdArgs
+$cfrom :: forall x.
+QueryStakeAddressInfoCmdArgs -> Rep QueryStakeAddressInfoCmdArgs x
+Generic, Int -> QueryStakeAddressInfoCmdArgs -> ShowS
+[QueryStakeAddressInfoCmdArgs] -> ShowS
+QueryStakeAddressInfoCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryStakeAddressInfoCmdArgs] -> ShowS
+$cshowList :: [QueryStakeAddressInfoCmdArgs] -> ShowS
+show :: QueryStakeAddressInfoCmdArgs -> String
+$cshow :: QueryStakeAddressInfoCmdArgs -> String
+showsPrec :: Int -> QueryStakeAddressInfoCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryStakeAddressInfoCmdArgs -> ShowS
+Show)
+
+data QueryUTxOCmdArgs = QueryUTxOCmdArgs
+  { QueryUTxOCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryUTxOCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryUTxOCmdArgs -> QueryUTxOFilter
+queryFilter         :: !QueryUTxOFilter
+  , QueryUTxOCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryUTxOCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep QueryUTxOCmdArgs x -> QueryUTxOCmdArgs
+forall x. QueryUTxOCmdArgs -> Rep QueryUTxOCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryUTxOCmdArgs x -> QueryUTxOCmdArgs
+$cfrom :: forall x. QueryUTxOCmdArgs -> Rep QueryUTxOCmdArgs x
+Generic, Int -> QueryUTxOCmdArgs -> ShowS
+[QueryUTxOCmdArgs] -> ShowS
+QueryUTxOCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryUTxOCmdArgs] -> ShowS
+$cshowList :: [QueryUTxOCmdArgs] -> ShowS
+show :: QueryUTxOCmdArgs -> String
+$cshow :: QueryUTxOCmdArgs -> String
+showsPrec :: Int -> QueryUTxOCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryUTxOCmdArgs -> ShowS
+Show)
+
+data QueryLedgerStateCmdArgs = QueryLedgerStateCmdArgs
+  { QueryLedgerStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryLedgerStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryLedgerStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryLedgerStateCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep QueryLedgerStateCmdArgs x -> QueryLedgerStateCmdArgs
+forall x. QueryLedgerStateCmdArgs -> Rep QueryLedgerStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryLedgerStateCmdArgs x -> QueryLedgerStateCmdArgs
+$cfrom :: forall x. QueryLedgerStateCmdArgs -> Rep QueryLedgerStateCmdArgs x
+Generic, Int -> QueryLedgerStateCmdArgs -> ShowS
+[QueryLedgerStateCmdArgs] -> ShowS
+QueryLedgerStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryLedgerStateCmdArgs] -> ShowS
+$cshowList :: [QueryLedgerStateCmdArgs] -> ShowS
+show :: QueryLedgerStateCmdArgs -> String
+$cshow :: QueryLedgerStateCmdArgs -> String
+showsPrec :: Int -> QueryLedgerStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryLedgerStateCmdArgs -> ShowS
+Show)
+
+data QueryProtocolStateCmdArgs = QueryProtocolStateCmdArgs
+  { QueryProtocolStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryProtocolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryProtocolStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryProtocolStateCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryProtocolStateCmdArgs x -> QueryProtocolStateCmdArgs
+forall x.
+QueryProtocolStateCmdArgs -> Rep QueryProtocolStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryProtocolStateCmdArgs x -> QueryProtocolStateCmdArgs
+$cfrom :: forall x.
+QueryProtocolStateCmdArgs -> Rep QueryProtocolStateCmdArgs x
+Generic, Int -> QueryProtocolStateCmdArgs -> ShowS
+[QueryProtocolStateCmdArgs] -> ShowS
+QueryProtocolStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryProtocolStateCmdArgs] -> ShowS
+$cshowList :: [QueryProtocolStateCmdArgs] -> ShowS
+show :: QueryProtocolStateCmdArgs -> String
+$cshow :: QueryProtocolStateCmdArgs -> String
+showsPrec :: Int -> QueryProtocolStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryProtocolStateCmdArgs -> ShowS
+Show)
+
+data QueryStakeSnapshotCmdArgs = QueryStakeSnapshotCmdArgs
+  { QueryStakeSnapshotCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryStakeSnapshotCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryStakeSnapshotCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryStakeSnapshotCmdArgs -> AllOrOnly [Hash StakePoolKey]
+allOrOnlyPoolIds    :: !(AllOrOnly [Hash StakePoolKey])
+  , QueryStakeSnapshotCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryStakeSnapshotCmdArgs x -> QueryStakeSnapshotCmdArgs
+forall x.
+QueryStakeSnapshotCmdArgs -> Rep QueryStakeSnapshotCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryStakeSnapshotCmdArgs x -> QueryStakeSnapshotCmdArgs
+$cfrom :: forall x.
+QueryStakeSnapshotCmdArgs -> Rep QueryStakeSnapshotCmdArgs x
+Generic, Int -> QueryStakeSnapshotCmdArgs -> ShowS
+[QueryStakeSnapshotCmdArgs] -> ShowS
+QueryStakeSnapshotCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryStakeSnapshotCmdArgs] -> ShowS
+$cshowList :: [QueryStakeSnapshotCmdArgs] -> ShowS
+show :: QueryStakeSnapshotCmdArgs -> String
+$cshow :: QueryStakeSnapshotCmdArgs -> String
+showsPrec :: Int -> QueryStakeSnapshotCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryStakeSnapshotCmdArgs -> ShowS
+Show)
+
+data QueryKesPeriodInfoCmdArgs = QueryKesPeriodInfoCmdArgs
+  { QueryKesPeriodInfoCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryKesPeriodInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryKesPeriodInfoCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryKesPeriodInfoCmdArgs -> File () 'In
+nodeOpCertFp        :: !(File () In) -- ^ Node operational certificate
+  , QueryKesPeriodInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep QueryKesPeriodInfoCmdArgs x -> QueryKesPeriodInfoCmdArgs
+forall x.
+QueryKesPeriodInfoCmdArgs -> Rep QueryKesPeriodInfoCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep QueryKesPeriodInfoCmdArgs x -> QueryKesPeriodInfoCmdArgs
+$cfrom :: forall x.
+QueryKesPeriodInfoCmdArgs -> Rep QueryKesPeriodInfoCmdArgs x
+Generic, Int -> QueryKesPeriodInfoCmdArgs -> ShowS
+[QueryKesPeriodInfoCmdArgs] -> ShowS
+QueryKesPeriodInfoCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryKesPeriodInfoCmdArgs] -> ShowS
+$cshowList :: [QueryKesPeriodInfoCmdArgs] -> ShowS
+show :: QueryKesPeriodInfoCmdArgs -> String
+$cshow :: QueryKesPeriodInfoCmdArgs -> String
+showsPrec :: Int -> QueryKesPeriodInfoCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryKesPeriodInfoCmdArgs -> ShowS
+Show)
+
+data QueryPoolStateCmdArgs = QueryPoolStateCmdArgs
+  { QueryPoolStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryPoolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryPoolStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryPoolStateCmdArgs -> [Hash StakePoolKey]
+poolIds             :: ![Hash StakePoolKey]
+  } deriving (forall x. Rep QueryPoolStateCmdArgs x -> QueryPoolStateCmdArgs
+forall x. QueryPoolStateCmdArgs -> Rep QueryPoolStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryPoolStateCmdArgs x -> QueryPoolStateCmdArgs
+$cfrom :: forall x. QueryPoolStateCmdArgs -> Rep QueryPoolStateCmdArgs x
+Generic, Int -> QueryPoolStateCmdArgs -> ShowS
+[QueryPoolStateCmdArgs] -> ShowS
+QueryPoolStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryPoolStateCmdArgs] -> ShowS
+$cshowList :: [QueryPoolStateCmdArgs] -> ShowS
+show :: QueryPoolStateCmdArgs -> String
+$cshow :: QueryPoolStateCmdArgs -> String
+showsPrec :: Int -> QueryPoolStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryPoolStateCmdArgs -> ShowS
+Show)
+
+data QueryTxMempoolCmdArgs = QueryTxMempoolCmdArgs
+  { QueryTxMempoolCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QueryTxMempoolCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QueryTxMempoolCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QueryTxMempoolCmdArgs -> TxMempoolQuery
+query               :: !TxMempoolQuery
+  , QueryTxMempoolCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  }
+  deriving (forall x. Rep QueryTxMempoolCmdArgs x -> QueryTxMempoolCmdArgs
+forall x. QueryTxMempoolCmdArgs -> Rep QueryTxMempoolCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QueryTxMempoolCmdArgs x -> QueryTxMempoolCmdArgs
+$cfrom :: forall x. QueryTxMempoolCmdArgs -> Rep QueryTxMempoolCmdArgs x
+Generic, Int -> QueryTxMempoolCmdArgs -> ShowS
+[QueryTxMempoolCmdArgs] -> ShowS
+QueryTxMempoolCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryTxMempoolCmdArgs] -> ShowS
+$cshowList :: [QueryTxMempoolCmdArgs] -> ShowS
+show :: QueryTxMempoolCmdArgs -> String
+$cshow :: QueryTxMempoolCmdArgs -> String
+showsPrec :: Int -> QueryTxMempoolCmdArgs -> ShowS
+$cshowsPrec :: Int -> QueryTxMempoolCmdArgs -> ShowS
+Show)
+
+data QuerySlotNumberCmdArgs = QuerySlotNumberCmdArgs
+  { QuerySlotNumberCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , QuerySlotNumberCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , QuerySlotNumberCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , QuerySlotNumberCmdArgs -> UTCTime
+utcTime             :: !UTCTime
+  } deriving (forall x. Rep QuerySlotNumberCmdArgs x -> QuerySlotNumberCmdArgs
+forall x. QuerySlotNumberCmdArgs -> Rep QuerySlotNumberCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep QuerySlotNumberCmdArgs x -> QuerySlotNumberCmdArgs
+$cfrom :: forall x. QuerySlotNumberCmdArgs -> Rep QuerySlotNumberCmdArgs x
+Generic, Int -> QuerySlotNumberCmdArgs -> ShowS
+[QuerySlotNumberCmdArgs] -> ShowS
+QuerySlotNumberCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QuerySlotNumberCmdArgs] -> ShowS
+$cshowList :: [QuerySlotNumberCmdArgs] -> ShowS
+show :: QuerySlotNumberCmdArgs -> String
+$cshow :: QuerySlotNumberCmdArgs -> String
+showsPrec :: Int -> QuerySlotNumberCmdArgs -> ShowS
+$cshowsPrec :: Int -> QuerySlotNumberCmdArgs -> ShowS
+Show)
+
+data QueryNoArgCmdArgs era = QueryNoArgCmdArgs
+  { forall era. QueryNoArgCmdArgs era -> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+  , forall era. QueryNoArgCmdArgs era -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , forall era. QueryNoArgCmdArgs era -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , forall era. QueryNoArgCmdArgs era -> NetworkId
+networkId           :: !NetworkId
+  , forall era. QueryNoArgCmdArgs era -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving Int -> QueryNoArgCmdArgs era -> ShowS
+forall era. Int -> QueryNoArgCmdArgs era -> ShowS
+forall era. [QueryNoArgCmdArgs era] -> ShowS
+forall era. QueryNoArgCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryNoArgCmdArgs era] -> ShowS
+$cshowList :: forall era. [QueryNoArgCmdArgs era] -> ShowS
+show :: QueryNoArgCmdArgs era -> String
+$cshow :: forall era. QueryNoArgCmdArgs era -> String
+showsPrec :: Int -> QueryNoArgCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> QueryNoArgCmdArgs era -> ShowS
+Show
+
+data QueryDRepStateCmdArgs era = QueryDRepStateCmdArgs
+  { forall era. QueryDRepStateCmdArgs era -> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+  , forall era. QueryDRepStateCmdArgs era -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , forall era. QueryDRepStateCmdArgs era -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , forall era. QueryDRepStateCmdArgs era -> NetworkId
+networkId           :: !NetworkId
+  , forall era.
+QueryDRepStateCmdArgs era -> [VerificationKeyOrHashOrFile DRepKey]
+drepKeys            :: ![VerificationKeyOrHashOrFile DRepKey]
+  , forall era. QueryDRepStateCmdArgs era -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving Int -> QueryDRepStateCmdArgs era -> ShowS
+forall era. Int -> QueryDRepStateCmdArgs era -> ShowS
+forall era. [QueryDRepStateCmdArgs era] -> ShowS
+forall era. QueryDRepStateCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryDRepStateCmdArgs era] -> ShowS
+$cshowList :: forall era. [QueryDRepStateCmdArgs era] -> ShowS
+show :: QueryDRepStateCmdArgs era -> String
+$cshow :: forall era. QueryDRepStateCmdArgs era -> String
+showsPrec :: Int -> QueryDRepStateCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> QueryDRepStateCmdArgs era -> ShowS
+Show
+
+data QueryDRepStakeDistributionCmdArgs era = QueryDRepStakeDistributionCmdArgs
+  { forall era.
+QueryDRepStakeDistributionCmdArgs era -> ConwayEraOnwards era
+eon                 :: !(ConwayEraOnwards era)
+  , forall era. QueryDRepStakeDistributionCmdArgs era -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , forall era.
+QueryDRepStakeDistributionCmdArgs era -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , forall era. QueryDRepStakeDistributionCmdArgs era -> NetworkId
+networkId           :: !NetworkId
+  , forall era.
+QueryDRepStakeDistributionCmdArgs era
+-> [VerificationKeyOrHashOrFile DRepKey]
+drepKeys            :: ![VerificationKeyOrHashOrFile DRepKey]
+  , forall era.
+QueryDRepStakeDistributionCmdArgs era -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving Int -> QueryDRepStakeDistributionCmdArgs era -> ShowS
+forall era. Int -> QueryDRepStakeDistributionCmdArgs era -> ShowS
+forall era. [QueryDRepStakeDistributionCmdArgs era] -> ShowS
+forall era. QueryDRepStakeDistributionCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryDRepStakeDistributionCmdArgs era] -> ShowS
+$cshowList :: forall era. [QueryDRepStakeDistributionCmdArgs era] -> ShowS
+show :: QueryDRepStakeDistributionCmdArgs era -> String
+$cshow :: forall era. QueryDRepStakeDistributionCmdArgs era -> String
+showsPrec :: Int -> QueryDRepStakeDistributionCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> QueryDRepStakeDistributionCmdArgs era -> ShowS
+Show
+
+data QueryCommitteeMembersStateCmdArgs era = QueryCommitteeMembersStateCmdArgs
+  { forall era.
+QueryCommitteeMembersStateCmdArgs era -> ConwayEraOnwards era
+eon                     :: !(ConwayEraOnwards era)
+  , forall era. QueryCommitteeMembersStateCmdArgs era -> SocketPath
+nodeSocketPath          :: !SocketPath
+  , forall era.
+QueryCommitteeMembersStateCmdArgs era -> ConsensusModeParams
+consensusModeParams     :: !ConsensusModeParams
+  , forall era. QueryCommitteeMembersStateCmdArgs era -> NetworkId
+networkId               :: !NetworkId
+  , forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+committeeColdKeys       :: ![VerificationKeyOrHashOrFile CommitteeColdKey]
+  , forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeHotKey]
+committeeHotKeys        :: ![VerificationKeyOrHashOrFile CommitteeHotKey]
+  , forall era. QueryCommitteeMembersStateCmdArgs era -> [MemberStatus]
+memberStatuses          :: ![MemberStatus]
+  , forall era.
+QueryCommitteeMembersStateCmdArgs era -> Maybe (File () 'Out)
+mOutFile                :: !(Maybe (File () Out))
+  } deriving Int -> QueryCommitteeMembersStateCmdArgs era -> ShowS
+forall era. Int -> QueryCommitteeMembersStateCmdArgs era -> ShowS
+forall era. [QueryCommitteeMembersStateCmdArgs era] -> ShowS
+forall era. QueryCommitteeMembersStateCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryCommitteeMembersStateCmdArgs era] -> ShowS
+$cshowList :: forall era. [QueryCommitteeMembersStateCmdArgs era] -> ShowS
+show :: QueryCommitteeMembersStateCmdArgs era -> String
+$cshow :: forall era. QueryCommitteeMembersStateCmdArgs era -> String
+showsPrec :: Int -> QueryCommitteeMembersStateCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> QueryCommitteeMembersStateCmdArgs era -> ShowS
+Show
+
+renderQueryCmds :: QueryCmds era -> Text
+renderQueryCmds :: forall era. QueryCmds era -> Text
+renderQueryCmds = \case
+  QueryLeadershipScheduleCmd {} ->
+    Text
+"query leadership-schedule"
+  QueryProtocolParametersCmd {} ->
+    Text
+"query protocol-parameters "
+  QueryConstitutionHashCmd {} ->
+    Text
+"query constitution-hash "
+  QueryTipCmd {} ->
+    Text
+"query tip"
+  QueryStakePoolsCmd {} ->
+    Text
+"query stake-pools"
+  QueryStakeDistributionCmd {} ->
+    Text
+"query stake-distribution"
+  QueryStakeAddressInfoCmd {} ->
+    Text
+"query stake-address-info"
+  QueryUTxOCmd {} ->
+    Text
+"query utxo"
+  QueryLedgerStateCmd {} ->
+    Text
+"query ledger-state"
+  QueryProtocolStateCmd {} ->
+    Text
+"query protocol-state"
+  QueryStakeSnapshotCmd {} ->
+    Text
+"query stake-snapshot"
+  QueryKesPeriodInfoCmd {} ->
+    Text
+"query kes-period-info"
+  QueryPoolStateCmd {} ->
+    Text
+"query pool-state"
+  QueryTxMempoolCmd (QueryTxMempoolCmdArgs SocketPath
+_ ConsensusModeParams
+_ NetworkId
+_ TxMempoolQuery
+q Maybe (File () 'Out)
+_) ->
+    Text
+"query tx-mempool" forall a. Semigroup a => a -> a -> a
+<> TxMempoolQuery -> Text
+renderTxMempoolQuery TxMempoolQuery
+q
+  QuerySlotNumberCmd {} ->
+    Text
+"query slot-number"
+  QueryConstitutionCmd {} ->
+    Text
+"constitution"
+  QueryGovStateCmd {} ->
+    Text
+"gov-state"
+  QueryDRepStateCmd {} ->
+    Text
+"drep-state"
+  QueryDRepStakeDistributionCmd {} ->
+    Text
+"drep-stake-distribution"
+  QueryCommitteeMembersStateCmd {} ->
+    Text
+"committee-state"
+
+renderTxMempoolQuery :: TxMempoolQuery -> Text
+renderTxMempoolQuery :: TxMempoolQuery -> Text
+renderTxMempoolQuery = \case
+  TxMempoolQueryTxExists TxId
+tx -> Text
+"tx-exists " forall a. Semigroup a => a -> a -> a
+<> forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText TxId
+tx
+  TxMempoolQuery
+TxMempoolQueryNextTx -> Text
+"next-tx"
+  TxMempoolQuery
+TxMempoolQueryInfo -> Text
+"info"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakeAddress.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakeAddress.html new file mode 100644 index 0000000000..266f0f1dbb --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakeAddress.html @@ -0,0 +1,93 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.StakeAddress
+  ( StakeAddressCmds (..)
+  , renderStakeAddressCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Governance
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data StakeAddressCmds era
+  = StakeAddressKeyGenCmd
+      (ShelleyBasedEra era)
+      KeyOutputFormat
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | StakeAddressKeyHashCmd
+      (ShelleyBasedEra era)
+      (VerificationKeyOrFile StakeKey)
+      (Maybe (File () Out))
+  | StakeAddressBuildCmd
+      (ShelleyBasedEra era)
+      StakeVerifier
+      NetworkId
+      (Maybe (File () Out))
+  | StakeAddressRegistrationCertificateCmd
+      (ShelleyBasedEra era)
+      StakeIdentifier
+      (Maybe Lovelace)
+      (File () Out)
+  | StakeAddressStakeDelegationCertificateCmd
+      (ShelleyBasedEra era)
+      StakeIdentifier
+      (VerificationKeyOrHashOrFile StakePoolKey)
+      (File () Out)
+  | StakeAddressStakeAndVoteDelegationCertificateCmd
+      (ConwayEraOnwards era)
+      StakeIdentifier
+      (VerificationKeyOrHashOrFile StakePoolKey)
+      VoteDelegationTarget
+      (File () Out)
+  | StakeAddressVoteDelegationCertificateCmd
+      (ConwayEraOnwards era)
+      StakeIdentifier
+      VoteDelegationTarget
+      (File () Out)
+  | StakeAddressDeregistrationCertificateCmd
+      (ShelleyBasedEra era)
+      StakeIdentifier
+      (Maybe Lovelace)
+      (File () Out)
+  deriving Int -> StakeAddressCmds era -> ShowS
+forall era. Int -> StakeAddressCmds era -> ShowS
+forall era. [StakeAddressCmds era] -> ShowS
+forall era. StakeAddressCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeAddressCmds era] -> ShowS
+$cshowList :: forall era. [StakeAddressCmds era] -> ShowS
+show :: StakeAddressCmds era -> String
+$cshow :: forall era. StakeAddressCmds era -> String
+showsPrec :: Int -> StakeAddressCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> StakeAddressCmds era -> ShowS
+Show
+
+renderStakeAddressCmds :: StakeAddressCmds era -> Text
+renderStakeAddressCmds :: forall era. StakeAddressCmds era -> Text
+renderStakeAddressCmds = \case
+  StakeAddressBuildCmd                              {} -> Text
+"stake-address build"
+  StakeAddressDeregistrationCertificateCmd          {} -> Text
+"stake-address deregistration-certificate"
+  StakeAddressKeyGenCmd                             {} -> Text
+"stake-address key-gen"
+  StakeAddressKeyHashCmd                            {} -> Text
+"stake-address key-hash"
+  StakeAddressRegistrationCertificateCmd            {} -> Text
+"stake-address registration-certificate"
+  StakeAddressStakeAndVoteDelegationCertificateCmd  {} -> Text
+"stake-address stake-and-vote-delegation-certificate"
+  StakeAddressStakeDelegationCertificateCmd         {} -> Text
+"stake-address stake-delegation-certificate"
+  StakeAddressVoteDelegationCertificateCmd          {} -> Text
+"stake-address vote-delegation-certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakePool.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakePool.html new file mode 100644 index 0000000000..5f9be93f8f --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.StakePool.html @@ -0,0 +1,197 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.StakePool
+  ( StakePoolCmds (..)
+  , renderStakePoolCmds
+
+  , StakePoolDeregistrationCertificateCmdArgs(..)
+  , StakePoolIdCmdArgs(..)
+  , StakePoolMetadataHashCmdArgs(..)
+  , StakePoolRegistrationCertificateCmdArgs(..)
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data StakePoolCmds era
+  = StakePoolDeregistrationCertificateCmd !(StakePoolDeregistrationCertificateCmdArgs era)
+  | StakePoolIdCmd                        !(StakePoolIdCmdArgs era)
+  | StakePoolMetadataHashCmd              !(StakePoolMetadataHashCmdArgs era)
+  | StakePoolRegistrationCertificateCmd   !(StakePoolRegistrationCertificateCmdArgs era)
+  deriving Int -> StakePoolCmds era -> ShowS
+forall era. Int -> StakePoolCmds era -> ShowS
+forall era. [StakePoolCmds era] -> ShowS
+forall era. StakePoolCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolCmds era] -> ShowS
+$cshowList :: forall era. [StakePoolCmds era] -> ShowS
+show :: StakePoolCmds era -> String
+$cshow :: forall era. StakePoolCmds era -> String
+showsPrec :: Int -> StakePoolCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> StakePoolCmds era -> ShowS
+Show
+
+data StakePoolDeregistrationCertificateCmdArgs era =
+  StakePoolDeregistrationCertificateCmdArgs
+    { forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> ShelleyBasedEra era
+sbe                       :: !(ShelleyBasedEra era)
+    , forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile :: !(VerificationKeyOrFile StakePoolKey)
+    , forall era.
+StakePoolDeregistrationCertificateCmdArgs era -> EpochNo
+retireEpoch               :: !EpochNo
+    , forall era.
+StakePoolDeregistrationCertificateCmdArgs era -> File () 'Out
+outFile                   :: !(File () Out)
+    }
+  deriving Int -> StakePoolDeregistrationCertificateCmdArgs era -> ShowS
+forall era.
+Int -> StakePoolDeregistrationCertificateCmdArgs era -> ShowS
+forall era.
+[StakePoolDeregistrationCertificateCmdArgs era] -> ShowS
+forall era. StakePoolDeregistrationCertificateCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolDeregistrationCertificateCmdArgs era] -> ShowS
+$cshowList :: forall era.
+[StakePoolDeregistrationCertificateCmdArgs era] -> ShowS
+show :: StakePoolDeregistrationCertificateCmdArgs era -> String
+$cshow :: forall era. StakePoolDeregistrationCertificateCmdArgs era -> String
+showsPrec :: Int -> StakePoolDeregistrationCertificateCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> StakePoolDeregistrationCertificateCmdArgs era -> ShowS
+Show
+
+data StakePoolIdCmdArgs era =
+  StakePoolIdCmdArgs
+    { forall era.
+StakePoolIdCmdArgs era -> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile :: !(VerificationKeyOrFile StakePoolKey)
+    , forall era. StakePoolIdCmdArgs era -> IdOutputFormat
+outputFormat              :: !IdOutputFormat
+    , forall era. StakePoolIdCmdArgs era -> Maybe (File () 'Out)
+mOutFile                  :: !(Maybe (File () Out))
+    }
+  deriving Int -> StakePoolIdCmdArgs era -> ShowS
+forall era. Int -> StakePoolIdCmdArgs era -> ShowS
+forall era. [StakePoolIdCmdArgs era] -> ShowS
+forall era. StakePoolIdCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolIdCmdArgs era] -> ShowS
+$cshowList :: forall era. [StakePoolIdCmdArgs era] -> ShowS
+show :: StakePoolIdCmdArgs era -> String
+$cshow :: forall era. StakePoolIdCmdArgs era -> String
+showsPrec :: Int -> StakePoolIdCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> StakePoolIdCmdArgs era -> ShowS
+Show
+
+data StakePoolMetadataHashCmdArgs era =
+  StakePoolMetadataHashCmdArgs
+    { forall era.
+StakePoolMetadataHashCmdArgs era -> StakePoolMetadataFile 'In
+poolMetadataFile  :: !(StakePoolMetadataFile In)
+    , forall era.
+StakePoolMetadataHashCmdArgs era -> Maybe (File () 'Out)
+mOutFile          :: !(Maybe (File () Out))
+    }
+  deriving Int -> StakePoolMetadataHashCmdArgs era -> ShowS
+forall era. Int -> StakePoolMetadataHashCmdArgs era -> ShowS
+forall era. [StakePoolMetadataHashCmdArgs era] -> ShowS
+forall era. StakePoolMetadataHashCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolMetadataHashCmdArgs era] -> ShowS
+$cshowList :: forall era. [StakePoolMetadataHashCmdArgs era] -> ShowS
+show :: StakePoolMetadataHashCmdArgs era -> String
+$cshow :: forall era. StakePoolMetadataHashCmdArgs era -> String
+showsPrec :: Int -> StakePoolMetadataHashCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> StakePoolMetadataHashCmdArgs era -> ShowS
+Show
+
+data StakePoolRegistrationCertificateCmdArgs era =
+  StakePoolRegistrationCertificateCmdArgs
+    { forall era.
+StakePoolRegistrationCertificateCmdArgs era -> ShelleyBasedEra era
+sbe                               :: !(ShelleyBasedEra era) -- ^ Era in which to register the stake pool.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile         :: !(VerificationKeyOrFile StakePoolKey) -- ^ Stake pool verification key.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile          :: !(VerificationKeyOrFile VrfKey) -- ^ VRF Verification key.
+    , forall era. StakePoolRegistrationCertificateCmdArgs era -> Lovelace
+poolPledge                        :: !Lovelace -- ^ Pool pledge.
+    , forall era. StakePoolRegistrationCertificateCmdArgs era -> Lovelace
+poolCost                          :: !Lovelace -- ^ Pool cost.
+    , forall era. StakePoolRegistrationCertificateCmdArgs era -> Rational
+poolMargin                        :: !Rational -- ^ Pool margin.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile  :: !(VerificationKeyOrFile StakeKey) -- ^ Reward account verification staking key.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles  :: ![VerificationKeyOrFile StakeKey] -- ^ Pool owner verification staking key(s).
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era -> [StakePoolRelay]
+relays                            :: ![StakePoolRelay] -- ^ Stake pool relays.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> Maybe StakePoolMetadataReference
+mMetadata                         :: !(Maybe StakePoolMetadataReference) -- ^ Stake pool metadata.
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era -> NetworkId
+network                           :: !NetworkId
+    , forall era.
+StakePoolRegistrationCertificateCmdArgs era -> File () 'Out
+outFile                           :: !(File () Out)
+    }
+  deriving Int -> StakePoolRegistrationCertificateCmdArgs era -> ShowS
+forall era.
+Int -> StakePoolRegistrationCertificateCmdArgs era -> ShowS
+forall era. [StakePoolRegistrationCertificateCmdArgs era] -> ShowS
+forall era. StakePoolRegistrationCertificateCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolRegistrationCertificateCmdArgs era] -> ShowS
+$cshowList :: forall era. [StakePoolRegistrationCertificateCmdArgs era] -> ShowS
+show :: StakePoolRegistrationCertificateCmdArgs era -> String
+$cshow :: forall era. StakePoolRegistrationCertificateCmdArgs era -> String
+showsPrec :: Int -> StakePoolRegistrationCertificateCmdArgs era -> ShowS
+$cshowsPrec :: forall era.
+Int -> StakePoolRegistrationCertificateCmdArgs era -> ShowS
+Show
+
+renderStakePoolCmds :: StakePoolCmds era -> Text
+renderStakePoolCmds :: forall era. StakePoolCmds era -> Text
+renderStakePoolCmds = \case
+  StakePoolDeregistrationCertificateCmd {} ->
+    Text
+"stake-pool deregistration-certificate"
+  StakePoolIdCmd {} ->
+    Text
+"stake-pool id"
+  StakePoolMetadataHashCmd {} ->
+    Text
+"stake-pool metadata-hash"
+  StakePoolRegistrationCertificateCmd {} ->
+    Text
+"stake-pool registration-certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.TextView.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.TextView.html new file mode 100644 index 0000000000..6db1bf473b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.TextView.html @@ -0,0 +1,38 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.TextView
+  ( TextViewCmds (..)
+  , renderTextViewCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Data.Text (Text)
+
+data TextViewCmds era
+  = TextViewInfo
+      !FilePath
+      (Maybe (File () Out))
+  deriving Int -> TextViewCmds era -> ShowS
+forall era. Int -> TextViewCmds era -> ShowS
+forall era. [TextViewCmds era] -> ShowS
+forall era. TextViewCmds era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TextViewCmds era] -> ShowS
+$cshowList :: forall era. [TextViewCmds era] -> ShowS
+show :: TextViewCmds era -> String
+$cshow :: forall era. TextViewCmds era -> String
+showsPrec :: Int -> TextViewCmds era -> ShowS
+$cshowsPrec :: forall era. Int -> TextViewCmds era -> ShowS
+Show
+
+renderTextViewCmds :: TextViewCmds era -> Text
+renderTextViewCmds :: forall era. TextViewCmds era -> Text
+renderTextViewCmds = \case
+  TextViewInfo String
+_ Maybe (File () 'Out)
+_ -> Text
+"text-view decode-cbor"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Transaction.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Transaction.html new file mode 100644 index 0000000000..1810758552 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.Transaction.html @@ -0,0 +1,460 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands.Transaction
+  ( TransactionCmds (..)
+  , TransactionBuildRawCmdArgs(..)
+  , TransactionBuildCmdArgs(..)
+  , TransactionSignCmdArgs(..)
+  , TransactionWitnessCmdArgs(..)
+  , TransactionSignWitnessCmdArgs(..)
+  , TransactionSubmitCmdArgs(..)
+  , TransactionPolicyIdCmdArgs(..)
+  , TransactionCalculateMinFeeCmdArgs(..)
+  , TransactionCalculateMinValueCmdArgs(..)
+  , TransactionHashScriptDataCmdArgs(..)
+  , TransactionTxIdCmdArgs(..)
+  , TransactionViewCmdArgs(..)
+
+  , renderTransactionCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Governance
+
+import           Data.Text (Text)
+
+data TransactionCmds era
+  = TransactionBuildRawCmd            !(TransactionBuildRawCmdArgs era)
+  | TransactionBuildCmd               !(TransactionBuildCmdArgs era)
+  | TransactionSignCmd                !TransactionSignCmdArgs
+  | TransactionWitnessCmd             !TransactionWitnessCmdArgs
+  | TransactionSignWitnessCmd         !TransactionSignWitnessCmdArgs
+  | TransactionSubmitCmd              !TransactionSubmitCmdArgs
+  | TransactionPolicyIdCmd            !TransactionPolicyIdCmdArgs
+  | TransactionCalculateMinFeeCmd     !TransactionCalculateMinFeeCmdArgs
+  | TransactionCalculateMinValueCmd   !(TransactionCalculateMinValueCmdArgs era)
+  | TransactionHashScriptDataCmd      !TransactionHashScriptDataCmdArgs
+  | TransactionTxIdCmd                !TransactionTxIdCmdArgs
+  | TransactionViewCmd                !TransactionViewCmdArgs
+
+data TransactionBuildRawCmdArgs era = TransactionBuildRawCmdArgs
+  { forall era. TransactionBuildRawCmdArgs era -> CardanoEra era
+eon                   :: !(CardanoEra era)
+  , forall era. TransactionBuildRawCmdArgs era -> Maybe ScriptValidity
+mScriptValidity       :: !(Maybe ScriptValidity)
+    -- ^ Mark script as expected to pass or fail validation
+  , forall era.
+TransactionBuildRawCmdArgs era
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txIns                 :: ![(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+    -- ^ Transaction inputs with optional spending scripts
+  , forall era. TransactionBuildRawCmdArgs era -> [TxIn]
+readOnlyRefIns        :: ![TxIn]
+    -- ^ Read only reference inputs
+  , forall era. TransactionBuildRawCmdArgs era -> [TxIn]
+txInsCollateral       :: ![TxIn]
+    -- ^ Transaction inputs for collateral, only key witnesses, no scripts.
+  , forall era. TransactionBuildRawCmdArgs era -> Maybe TxOutAnyEra
+mReturnCollateral     :: !(Maybe TxOutAnyEra)
+    -- ^ Return collateral
+  , forall era. TransactionBuildRawCmdArgs era -> Maybe Lovelace
+mTotalCollateral      :: !(Maybe Lovelace)
+    -- ^ Total collateral
+  , forall era. TransactionBuildRawCmdArgs era -> [RequiredSigner]
+requiredSigners       :: ![RequiredSigner]
+    -- ^ Required signers
+  , forall era. TransactionBuildRawCmdArgs era -> [TxOutAnyEra]
+txouts                :: ![TxOutAnyEra]
+  , forall era.
+TransactionBuildRawCmdArgs era
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue                :: !(Maybe (Value, [ScriptWitnessFiles WitCtxMint]))
+    -- ^ Multi-Asset value with script witness
+  , forall era. TransactionBuildRawCmdArgs era -> Maybe SlotNo
+mValidityLowerBound   :: !(Maybe SlotNo)
+    -- ^ Transaction validity lower bound
+  , forall era.
+TransactionBuildRawCmdArgs era -> TxValidityUpperBound era
+mValidityUpperBound   :: !(TxValidityUpperBound era)
+    -- ^ Transaction validity upper bound
+  , forall era. TransactionBuildRawCmdArgs era -> Maybe Lovelace
+fee                   :: !(Maybe Lovelace)
+    -- ^ Transaction fee
+  , forall era.
+TransactionBuildRawCmdArgs era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates          :: ![(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+    -- ^ Certificates with potential script witness
+  , forall era.
+TransactionBuildRawCmdArgs era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals           :: ![(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+  , forall era. TransactionBuildRawCmdArgs era -> TxMetadataJsonSchema
+metadataSchema        :: !TxMetadataJsonSchema
+  , forall era. TransactionBuildRawCmdArgs era -> [ScriptFile]
+scriptFiles           :: ![ScriptFile]
+    -- ^ Auxiliary scripts
+  , forall era. TransactionBuildRawCmdArgs era -> [MetadataFile]
+metadataFiles         :: ![MetadataFile]
+  , forall era.
+TransactionBuildRawCmdArgs era -> Maybe ProtocolParamsFile
+mProtocolParamsFile   :: !(Maybe ProtocolParamsFile)
+  , forall era.
+TransactionBuildRawCmdArgs era
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mUpdateProprosalFile  :: !(Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+  , forall era. TransactionBuildRawCmdArgs era -> [VoteFile 'In]
+voteFiles             :: ![VoteFile In]
+  , forall era. TransactionBuildRawCmdArgs era -> [ProposalFile 'In]
+proposalFiles         :: ![ProposalFile In]
+  , forall era. TransactionBuildRawCmdArgs era -> TxBodyFile 'Out
+txBodyOutFile         :: !(TxBodyFile Out)
+  } deriving Int -> TransactionBuildRawCmdArgs era -> ShowS
+forall era. Int -> TransactionBuildRawCmdArgs era -> ShowS
+forall era. [TransactionBuildRawCmdArgs era] -> ShowS
+forall era. TransactionBuildRawCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionBuildRawCmdArgs era] -> ShowS
+$cshowList :: forall era. [TransactionBuildRawCmdArgs era] -> ShowS
+show :: TransactionBuildRawCmdArgs era -> String
+$cshow :: forall era. TransactionBuildRawCmdArgs era -> String
+showsPrec :: Int -> TransactionBuildRawCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> TransactionBuildRawCmdArgs era -> ShowS
+Show
+
+-- | Like 'TransactionBuildRaw' but without the fee, and with a change output.
+data TransactionBuildCmdArgs era = TransactionBuildCmdArgs
+  { forall era. TransactionBuildCmdArgs era -> ShelleyBasedEra era
+eon                     :: !(ShelleyBasedEra era)
+  , forall era. TransactionBuildCmdArgs era -> SocketPath
+nodeSocketPath          :: !SocketPath
+  , forall era. TransactionBuildCmdArgs era -> ConsensusModeParams
+consensusModeParams     :: !ConsensusModeParams
+  , forall era. TransactionBuildCmdArgs era -> NetworkId
+networkId               :: !NetworkId
+  , forall era. TransactionBuildCmdArgs era -> Maybe ScriptValidity
+mScriptValidity         :: !(Maybe ScriptValidity)
+    -- ^ Mark script as expected to pass or fail validation
+  , forall era. TransactionBuildCmdArgs era -> Maybe Word
+mOverrideWitnesses      :: !(Maybe Word)
+    -- ^ Override the required number of tx witnesses
+  , forall era.
+TransactionBuildCmdArgs era
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins                   :: ![(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+    -- ^ Transaction inputs with optional spending scripts
+  , forall era. TransactionBuildCmdArgs era -> [TxIn]
+readOnlyReferenceInputs :: ![TxIn]
+    -- ^ Read only reference inputs
+  , forall era. TransactionBuildCmdArgs era -> [RequiredSigner]
+requiredSigners         :: ![RequiredSigner]
+    -- ^ Required signers
+  , forall era. TransactionBuildCmdArgs era -> [TxIn]
+txinsc                  :: ![TxIn]
+    -- ^ Transaction inputs for collateral, only key witnesses, no scripts.
+  , forall era. TransactionBuildCmdArgs era -> Maybe TxOutAnyEra
+mReturnCollateral       :: !(Maybe TxOutAnyEra)
+    -- ^ Return collateral
+  , forall era. TransactionBuildCmdArgs era -> Maybe Lovelace
+mTotalCollateral        :: !(Maybe Lovelace)
+    -- ^ Total collateral
+  , forall era. TransactionBuildCmdArgs era -> [TxOutAnyEra]
+txouts                  :: ![TxOutAnyEra]
+    -- ^ Normal outputs
+  , forall era. TransactionBuildCmdArgs era -> TxOutChangeAddress
+changeAddresses         :: !TxOutChangeAddress
+    -- ^ A change output
+  , forall era.
+TransactionBuildCmdArgs era
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue                  :: !(Maybe (Value, [ScriptWitnessFiles WitCtxMint]))
+    -- ^ Multi-Asset value with script witness
+  , forall era. TransactionBuildCmdArgs era -> Maybe SlotNo
+mValidityLowerBound     :: !(Maybe SlotNo)
+    -- ^ Transaction validity lower bound
+  , forall era. TransactionBuildCmdArgs era -> TxValidityUpperBound era
+mValidityUpperBound     :: !(TxValidityUpperBound era)
+    -- ^ Transaction validity upper bound
+  , forall era.
+TransactionBuildCmdArgs era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates            :: ![(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+    -- ^ Certificates with potential script witness
+  , forall era.
+TransactionBuildCmdArgs era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals             :: ![(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+    -- ^ Withdrawals with potential script witness
+  , forall era. TransactionBuildCmdArgs era -> TxMetadataJsonSchema
+metadataSchema          :: !TxMetadataJsonSchema
+  , forall era. TransactionBuildCmdArgs era -> [ScriptFile]
+scriptFiles             :: ![ScriptFile]
+    -- ^ Auxiliary scripts
+  , forall era. TransactionBuildCmdArgs era -> [MetadataFile]
+metadataFiles           :: ![MetadataFile]
+  , forall era.
+TransactionBuildCmdArgs era
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile    :: !(Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+  , forall era. TransactionBuildCmdArgs era -> [VoteFile 'In]
+voteFiles               :: ![VoteFile In]
+  , forall era. TransactionBuildCmdArgs era -> [ProposalFile 'In]
+proposalFiles           :: ![ProposalFile In]
+  , forall era. TransactionBuildCmdArgs era -> TxBuildOutputOptions
+buildOutputOptions      :: !TxBuildOutputOptions
+  } deriving Int -> TransactionBuildCmdArgs era -> ShowS
+forall era. Int -> TransactionBuildCmdArgs era -> ShowS
+forall era. [TransactionBuildCmdArgs era] -> ShowS
+forall era. TransactionBuildCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionBuildCmdArgs era] -> ShowS
+$cshowList :: forall era. [TransactionBuildCmdArgs era] -> ShowS
+show :: TransactionBuildCmdArgs era -> String
+$cshow :: forall era. TransactionBuildCmdArgs era -> String
+showsPrec :: Int -> TransactionBuildCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> TransactionBuildCmdArgs era -> ShowS
+Show
+
+data TransactionSignCmdArgs = TransactionSignCmdArgs
+  { TransactionSignCmdArgs -> InputTxBodyOrTxFile
+txOrTxBodyFile      :: !InputTxBodyOrTxFile
+  , TransactionSignCmdArgs -> [WitnessSigningData]
+witnessSigningData  :: ![WitnessSigningData]
+  , TransactionSignCmdArgs -> Maybe NetworkId
+mNetworkId          :: !(Maybe NetworkId)
+  , TransactionSignCmdArgs -> TxFile 'Out
+outTxFile           :: !(TxFile Out)
+  } deriving Int -> TransactionSignCmdArgs -> ShowS
+[TransactionSignCmdArgs] -> ShowS
+TransactionSignCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionSignCmdArgs] -> ShowS
+$cshowList :: [TransactionSignCmdArgs] -> ShowS
+show :: TransactionSignCmdArgs -> String
+$cshow :: TransactionSignCmdArgs -> String
+showsPrec :: Int -> TransactionSignCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionSignCmdArgs -> ShowS
+Show
+
+data TransactionWitnessCmdArgs = TransactionWitnessCmdArgs
+  { TransactionWitnessCmdArgs -> TxBodyFile 'In
+txBodyFile          :: !(TxBodyFile In)
+  , TransactionWitnessCmdArgs -> WitnessSigningData
+witnessSigningData  :: !WitnessSigningData
+  , TransactionWitnessCmdArgs -> Maybe NetworkId
+mNetworkId          :: !(Maybe NetworkId)
+  , TransactionWitnessCmdArgs -> File () 'Out
+outFile             :: !(File () Out)
+  } deriving Int -> TransactionWitnessCmdArgs -> ShowS
+[TransactionWitnessCmdArgs] -> ShowS
+TransactionWitnessCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionWitnessCmdArgs] -> ShowS
+$cshowList :: [TransactionWitnessCmdArgs] -> ShowS
+show :: TransactionWitnessCmdArgs -> String
+$cshow :: TransactionWitnessCmdArgs -> String
+showsPrec :: Int -> TransactionWitnessCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionWitnessCmdArgs -> ShowS
+Show
+
+data TransactionSignWitnessCmdArgs = TransactionSignWitnessCmdArgs
+  { TransactionSignWitnessCmdArgs -> TxBodyFile 'In
+txBodyFile    :: !(TxBodyFile In)
+  , TransactionSignWitnessCmdArgs -> [WitnessFile]
+witnessFiles  :: ![WitnessFile]
+  , TransactionSignWitnessCmdArgs -> File () 'Out
+outFile       :: !(File () Out)
+  } deriving Int -> TransactionSignWitnessCmdArgs -> ShowS
+[TransactionSignWitnessCmdArgs] -> ShowS
+TransactionSignWitnessCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionSignWitnessCmdArgs] -> ShowS
+$cshowList :: [TransactionSignWitnessCmdArgs] -> ShowS
+show :: TransactionSignWitnessCmdArgs -> String
+$cshow :: TransactionSignWitnessCmdArgs -> String
+showsPrec :: Int -> TransactionSignWitnessCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionSignWitnessCmdArgs -> ShowS
+Show
+
+data TransactionSubmitCmdArgs = TransactionSubmitCmdArgs
+  { TransactionSubmitCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , TransactionSubmitCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , TransactionSubmitCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , TransactionSubmitCmdArgs -> String
+txFile              :: !FilePath
+  } deriving Int -> TransactionSubmitCmdArgs -> ShowS
+[TransactionSubmitCmdArgs] -> ShowS
+TransactionSubmitCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionSubmitCmdArgs] -> ShowS
+$cshowList :: [TransactionSubmitCmdArgs] -> ShowS
+show :: TransactionSubmitCmdArgs -> String
+$cshow :: TransactionSubmitCmdArgs -> String
+showsPrec :: Int -> TransactionSubmitCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionSubmitCmdArgs -> ShowS
+Show
+
+newtype TransactionPolicyIdCmdArgs = TransactionPolicyIdCmdArgs
+  { TransactionPolicyIdCmdArgs -> ScriptFile
+scriptFile  :: ScriptFile
+  } deriving Int -> TransactionPolicyIdCmdArgs -> ShowS
+[TransactionPolicyIdCmdArgs] -> ShowS
+TransactionPolicyIdCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionPolicyIdCmdArgs] -> ShowS
+$cshowList :: [TransactionPolicyIdCmdArgs] -> ShowS
+show :: TransactionPolicyIdCmdArgs -> String
+$cshow :: TransactionPolicyIdCmdArgs -> String
+showsPrec :: Int -> TransactionPolicyIdCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionPolicyIdCmdArgs -> ShowS
+Show
+
+data TransactionCalculateMinFeeCmdArgs = TransactionCalculateMinFeeCmdArgs
+  { TransactionCalculateMinFeeCmdArgs -> TxBodyFile 'In
+txBodyFile            :: !(TxBodyFile In)
+  , TransactionCalculateMinFeeCmdArgs -> NetworkId
+networkId             :: !NetworkId
+  , TransactionCalculateMinFeeCmdArgs -> ProtocolParamsFile
+protocolParamsFile    :: !ProtocolParamsFile
+  , TransactionCalculateMinFeeCmdArgs -> TxInCount
+txInCount             :: !TxInCount
+  , TransactionCalculateMinFeeCmdArgs -> TxOutCount
+txOutCount            :: !TxOutCount
+  , TransactionCalculateMinFeeCmdArgs -> TxShelleyWitnessCount
+txShelleyWitnessCount :: !TxShelleyWitnessCount
+  , TransactionCalculateMinFeeCmdArgs -> TxByronWitnessCount
+txByronWitnessCount   :: !TxByronWitnessCount
+  } deriving Int -> TransactionCalculateMinFeeCmdArgs -> ShowS
+[TransactionCalculateMinFeeCmdArgs] -> ShowS
+TransactionCalculateMinFeeCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionCalculateMinFeeCmdArgs] -> ShowS
+$cshowList :: [TransactionCalculateMinFeeCmdArgs] -> ShowS
+show :: TransactionCalculateMinFeeCmdArgs -> String
+$cshow :: TransactionCalculateMinFeeCmdArgs -> String
+showsPrec :: Int -> TransactionCalculateMinFeeCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionCalculateMinFeeCmdArgs -> ShowS
+Show
+
+data TransactionCalculateMinValueCmdArgs era = TransactionCalculateMinValueCmdArgs
+  { forall era.
+TransactionCalculateMinValueCmdArgs era -> CardanoEra era
+eon                 :: !(CardanoEra era)
+  , forall era.
+TransactionCalculateMinValueCmdArgs era -> ProtocolParamsFile
+protocolParamsFile  :: !ProtocolParamsFile
+  , forall era. TransactionCalculateMinValueCmdArgs era -> TxOutAnyEra
+txOut               :: !TxOutAnyEra
+  } deriving Int -> TransactionCalculateMinValueCmdArgs era -> ShowS
+forall era. Int -> TransactionCalculateMinValueCmdArgs era -> ShowS
+forall era. [TransactionCalculateMinValueCmdArgs era] -> ShowS
+forall era. TransactionCalculateMinValueCmdArgs era -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionCalculateMinValueCmdArgs era] -> ShowS
+$cshowList :: forall era. [TransactionCalculateMinValueCmdArgs era] -> ShowS
+show :: TransactionCalculateMinValueCmdArgs era -> String
+$cshow :: forall era. TransactionCalculateMinValueCmdArgs era -> String
+showsPrec :: Int -> TransactionCalculateMinValueCmdArgs era -> ShowS
+$cshowsPrec :: forall era. Int -> TransactionCalculateMinValueCmdArgs era -> ShowS
+Show
+
+newtype TransactionHashScriptDataCmdArgs = TransactionHashScriptDataCmdArgs
+  { TransactionHashScriptDataCmdArgs -> ScriptDataOrFile
+scriptDataOrFile  :: ScriptDataOrFile
+  } deriving Int -> TransactionHashScriptDataCmdArgs -> ShowS
+[TransactionHashScriptDataCmdArgs] -> ShowS
+TransactionHashScriptDataCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionHashScriptDataCmdArgs] -> ShowS
+$cshowList :: [TransactionHashScriptDataCmdArgs] -> ShowS
+show :: TransactionHashScriptDataCmdArgs -> String
+$cshow :: TransactionHashScriptDataCmdArgs -> String
+showsPrec :: Int -> TransactionHashScriptDataCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionHashScriptDataCmdArgs -> ShowS
+Show
+
+newtype TransactionTxIdCmdArgs = TransactionTxIdCmdArgs
+  { TransactionTxIdCmdArgs -> InputTxBodyOrTxFile
+inputTxBodyOrTxFile :: InputTxBodyOrTxFile
+  } deriving Int -> TransactionTxIdCmdArgs -> ShowS
+[TransactionTxIdCmdArgs] -> ShowS
+TransactionTxIdCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionTxIdCmdArgs] -> ShowS
+$cshowList :: [TransactionTxIdCmdArgs] -> ShowS
+show :: TransactionTxIdCmdArgs -> String
+$cshow :: TransactionTxIdCmdArgs -> String
+showsPrec :: Int -> TransactionTxIdCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionTxIdCmdArgs -> ShowS
+Show
+
+data TransactionViewCmdArgs = TransactionViewCmdArgs
+  { TransactionViewCmdArgs -> TxViewOutputFormat
+outputFormat        :: !TxViewOutputFormat
+  , TransactionViewCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  , TransactionViewCmdArgs -> InputTxBodyOrTxFile
+inputTxBodyOrTxFile :: !InputTxBodyOrTxFile
+  } deriving Int -> TransactionViewCmdArgs -> ShowS
+[TransactionViewCmdArgs] -> ShowS
+TransactionViewCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransactionViewCmdArgs] -> ShowS
+$cshowList :: [TransactionViewCmdArgs] -> ShowS
+show :: TransactionViewCmdArgs -> String
+$cshow :: TransactionViewCmdArgs -> String
+showsPrec :: Int -> TransactionViewCmdArgs -> ShowS
+$cshowsPrec :: Int -> TransactionViewCmdArgs -> ShowS
+Show
+
+renderTransactionCmds :: TransactionCmds era -> Text
+renderTransactionCmds :: forall era. TransactionCmds era -> Text
+renderTransactionCmds = \case
+  TransactionBuildCmd                     {} -> Text
+"transaction build"
+  TransactionBuildRawCmd                  {} -> Text
+"transaction build-raw"
+  TransactionSignCmd                      {} -> Text
+"transaction sign"
+  TransactionWitnessCmd                   {} -> Text
+"transaction witness"
+  TransactionSignWitnessCmd               {} -> Text
+"transaction sign-witness"
+  TransactionSubmitCmd                    {} -> Text
+"transaction submit"
+  TransactionPolicyIdCmd                  {} -> Text
+"transaction policyid"
+  TransactionCalculateMinFeeCmd           {} -> Text
+"transaction calculate-min-fee"
+  TransactionCalculateMinValueCmd         {} -> Text
+"transaction calculate-min-value"
+  TransactionHashScriptDataCmd            {} -> Text
+"transaction hash-script-data"
+  TransactionTxIdCmd                      {} -> Text
+"transaction txid"
+  TransactionViewCmd                      {} -> Text
+"transaction view"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.html new file mode 100644 index 0000000000..1bfc7c211c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Commands.html @@ -0,0 +1,343 @@ +
{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Commands
+  ( AnyEraCommand (..)
+  , Cmds (..)
+  , renderAnyEraCommand
+  , renderCmds
+  , pAnyEraCommand
+  , pCmds
+  ) where
+
+import           Cardano.Api (ShelleyBasedEra (..), toCardanoEra)
+
+import           Cardano.CLI.Environment
+import           Cardano.CLI.EraBased.Commands.Address
+import           Cardano.CLI.EraBased.Commands.Genesis
+import           Cardano.CLI.EraBased.Commands.Key
+import           Cardano.CLI.EraBased.Commands.Node
+import           Cardano.CLI.EraBased.Commands.Query
+import           Cardano.CLI.EraBased.Commands.StakeAddress
+import           Cardano.CLI.EraBased.Commands.StakePool
+import           Cardano.CLI.EraBased.Commands.TextView
+import           Cardano.CLI.EraBased.Commands.Transaction
+import           Cardano.CLI.EraBased.Options.Address
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.EraBased.Options.Genesis
+import           Cardano.CLI.EraBased.Options.Governance
+import           Cardano.CLI.EraBased.Options.Key
+import           Cardano.CLI.EraBased.Options.Node
+import           Cardano.CLI.EraBased.Options.Query
+import           Cardano.CLI.EraBased.Options.StakeAddress
+import           Cardano.CLI.EraBased.Options.StakePool
+import           Cardano.CLI.EraBased.Options.TextView
+import           Cardano.CLI.EraBased.Options.Transaction
+
+import           Data.Foldable
+import           Data.Maybe
+import           Data.Text (Text)
+import           Options.Applicative (Parser)
+import qualified Options.Applicative as Opt
+
+data AnyEraCommand where
+  AnyEraCommandOf :: ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+
+renderAnyEraCommand :: AnyEraCommand -> Text
+renderAnyEraCommand :: AnyEraCommand -> Text
+renderAnyEraCommand = \case
+  AnyEraCommandOf ShelleyBasedEra era
+_ Cmds era
+cmd -> forall era. Cmds era -> Text
+renderCmds Cmds era
+cmd
+
+data Cmds era
+  = AddressCmds         (AddressCmds era)
+  | KeyCmds             (KeyCmds era)
+  | GenesisCmds         (GenesisCmds era)
+  | GovernanceCmds      (GovernanceCmds era)
+  | NodeCmds            (NodeCmds era)
+  | QueryCmds           (QueryCmds era)
+  | StakeAddressCmds    (StakeAddressCmds era)
+  | StakePoolCmds       (StakePoolCmds era)
+  | TextViewCmds        (TextViewCmds era)
+  | TransactionCmds     (TransactionCmds era)
+
+renderCmds :: Cmds era -> Text
+renderCmds :: forall era. Cmds era -> Text
+renderCmds = \case
+  AddressCmds AddressCmds era
+cmd ->
+    forall era. AddressCmds era -> Text
+renderAddressCmds AddressCmds era
+cmd
+  KeyCmds KeyCmds era
+cmd ->
+    forall era. KeyCmds era -> Text
+renderKeyCmds KeyCmds era
+cmd
+  GenesisCmds GenesisCmds era
+cmd ->
+    forall era. GenesisCmds era -> Text
+renderGenesisCmds GenesisCmds era
+cmd
+  GovernanceCmds GovernanceCmds era
+cmd ->
+    forall era. GovernanceCmds era -> Text
+renderGovernanceCmds GovernanceCmds era
+cmd
+  NodeCmds NodeCmds era
+cmd ->
+    forall era. NodeCmds era -> Text
+renderNodeCmds NodeCmds era
+cmd
+  QueryCmds QueryCmds era
+cmd ->
+    forall era. QueryCmds era -> Text
+renderQueryCmds QueryCmds era
+cmd
+  StakeAddressCmds StakeAddressCmds era
+cmd ->
+    forall era. StakeAddressCmds era -> Text
+renderStakeAddressCmds StakeAddressCmds era
+cmd
+  StakePoolCmds StakePoolCmds era
+cmd ->
+    forall era. StakePoolCmds era -> Text
+renderStakePoolCmds StakePoolCmds era
+cmd
+  TextViewCmds TextViewCmds era
+cmd ->
+    forall era. TextViewCmds era -> Text
+renderTextViewCmds TextViewCmds era
+cmd
+  TransactionCmds TransactionCmds era
+cmd ->
+    forall era. TransactionCmds era -> Text
+renderTransactionCmds TransactionCmds era
+cmd
+
+pAnyEraCommand :: EnvCli -> Parser AnyEraCommand
+pAnyEraCommand :: EnvCli -> Parser AnyEraCommand
+pAnyEraCommand EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ -- Note, byron is ommitted because there is already a legacy command group for it.
+
+      forall a. String -> ParserInfo a -> Parser a
+subParser String
+"shelley"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Shelley era commands"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"allegra"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Allegra era commands"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"mary"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra MaryEra
+ShelleyBasedEraMary forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra MaryEra
+ShelleyBasedEraMary EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Mary era commands"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"alonzo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Alonzo era commands"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"babbage"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Babbage era commands"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"conway"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra ConwayEra
+ShelleyBasedEraConway forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra ConwayEra
+ShelleyBasedEraConway EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Conway era commands"
+
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"latest"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Latest era commands (Babbage)"
+    ]
+
+pCmds :: ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds :: forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra era
+era EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. [Maybe a] -> [a]
+catMaybes
+    [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. AddressCmds era -> Cmds era
+AddressCmds      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (AddressCmds era))
+pAddressCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era) EnvCli
+envCli
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyCmds era -> Cmds era
+KeyCmds          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. Maybe (Parser (KeyCmds era))
+pKeyCmds
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisCmds era -> Cmds era
+GenesisCmds      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. EnvCli -> Maybe (Parser (GenesisCmds era))
+pGenesisCmds EnvCli
+envCli
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceCmds era -> Cmds era
+GovernanceCmds   forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pGovernanceCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era)
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeCmds era -> Cmds era
+NodeCmds         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. Maybe (Parser (NodeCmds era))
+pNodeCmds
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryCmds era -> Cmds era
+QueryCmds        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era) EnvCli
+envCli
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. StakeAddressCmds era -> Cmds era
+StakeAddressCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era) EnvCli
+envCli
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. StakePoolCmds era -> Cmds era
+StakePoolCmds    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakePoolCmds era))
+pStakePoolCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era) EnvCli
+envCli
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TextViewCmds era -> Cmds era
+TextViewCmds     forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. Maybe (Parser (TextViewCmds era))
+pTextViewCmds
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionCmds era -> Cmds era
+TransactionCmds  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (TransactionCmds era))
+pTransactionCmds (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era) EnvCli
+envCli
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Address.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Address.html new file mode 100644 index 0000000000..4de1ac4e74 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Address.html @@ -0,0 +1,174 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.Address
+  ( pAddressCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Environment (EnvCli (..))
+import           Cardano.CLI.EraBased.Commands.Address
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+pAddressCmds :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (AddressCmds era))
+pAddressCmds :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (AddressCmds era))
+pAddressCmds CardanoEra era
+_ EnvCli
+envCli =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"address"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Payment address commands."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (AddressCmds era)
+pAddressKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an address key pair."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (AddressCmds era)
+pAddressKeyHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print the hash of an address key."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"build"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (AddressCmds era)
+pAddressBuild EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Build a Shelley payment address, with optional delegation to a stake address."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"info"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (AddressCmds era)
+pAddressInfo
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print information about an address."
+    ]
+
+pAddressKeyGen :: Parser (AddressCmds era)
+pAddressKeyGen :: forall era. Parser (AddressCmds era)
+pAddressKeyGen =
+  forall era.
+KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> AddressCmds era
+AddressKeyGen
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser AddressKeyType
+pAddressKeyType
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pAddressKeyHash :: Parser (AddressCmds era)
+pAddressKeyHash :: forall era. Parser (AddressCmds era)
+pAddressKeyHash =
+  forall era.
+VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> AddressCmds era
+AddressKeyHash
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser VerificationKeyTextOrFile
+pPaymentVerificationKeyTextOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pAddressBuild :: EnvCli -> Parser (AddressCmds era)
+pAddressBuild :: forall era. EnvCli -> Parser (AddressCmds era)
+pAddressBuild EnvCli
+envCli =
+  forall era.
+PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> AddressCmds era
+AddressBuild
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser PaymentVerifier
+pPaymentVerifier
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional Parser StakeIdentifier
+pStakeIdentifier
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pAddressInfo :: Parser (AddressCmds era)
+pAddressInfo :: forall era. Parser (AddressCmds era)
+pAddressInfo =
+  forall era. Text -> Maybe (File () 'Out) -> AddressCmds era
+AddressInfo
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pAddress
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Common.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Common.html new file mode 100644 index 0000000000..c628213895 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Common.html @@ -0,0 +1,8993 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+{- HLINT ignore "Move brackets to avoid $" -}
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+module Cardano.CLI.EraBased.Options.Common where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Environment (EnvCli (..), envCliAnyShelleyBasedEra,
+                   envCliAnyShelleyToBabbageEra)
+import           Cardano.CLI.Parser
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Governance
+import           Cardano.CLI.Types.Key
+import           Cardano.CLI.Types.Key.VerificationKey
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as L
+import qualified Cardano.Ledger.Shelley.TxBody as Shelley
+
+import           Control.Monad (mfilter)
+import qualified Data.Aeson as Aeson
+import           Data.Bifunctor
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Base16 as B16
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Foldable
+import           Data.Functor (($>))
+import qualified Data.IP as IP
+import           Data.List.NonEmpty (NonEmpty)
+import qualified Data.List.NonEmpty as NE
+import           Data.Maybe
+import qualified Data.Set as Set
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import           Data.Time.Clock (UTCTime)
+import           Data.Time.Format (defaultTimeLocale, parseTimeOrError)
+import           Data.Word
+import           GHC.Natural (Natural)
+import           Network.Socket (PortNumber)
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+import qualified Text.Parsec as Parsec
+import           Text.Parsec ((<?>))
+import qualified Text.Parsec.Error as Parsec
+import qualified Text.Parsec.Language as Parsec
+import qualified Text.Parsec.String as Parsec
+import qualified Text.Parsec.Token as Parsec
+import           Text.Read (readEither, readMaybe)
+
+defaultShelleyBasedEra :: EraInEon ShelleyBasedEra
+defaultShelleyBasedEra :: EraInEon ShelleyBasedEra
+defaultShelleyBasedEra = forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage
+
+defaultShelleyToBabbageEra :: EraInEon ShelleyToBabbageEra
+defaultShelleyToBabbageEra :: EraInEon ShelleyToBabbageEra
+defaultShelleyToBabbageEra = forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage
+
+command' :: String -> String -> Parser a -> Mod CommandFields a
+command' :: forall a. FilePath -> FilePath -> Parser a -> Mod CommandFields a
+command' FilePath
+c FilePath
+descr Parser a
+p =
+  forall a. Monoid a => [a] -> a
+mconcat
+    [ forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+command FilePath
+c (forall a. Parser a -> InfoMod a -> ParserInfo a
+info (Parser a
+p forall (f :: * -> *) a b. Applicative f => f a -> f (a -> b) -> f b
+<**> forall a. Parser (a -> a)
+helper) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [ forall a. FilePath -> InfoMod a
+progDesc FilePath
+descr ])
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+metavar FilePath
+c
+    ]
+
+-- | @prefixFlag Nothing bar@ is @bar@, while @prefixFlag (Just "foo") bar@ is @foo-bar@.
+-- This function is used to optionally prefix some long flags
+prefixFlag :: Maybe String -> String -> String
+prefixFlag :: Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+longFlag =
+  case Maybe FilePath
+prefix of
+    Maybe FilePath
+Nothing -> FilePath
+longFlag
+    Just FilePath
+prefix' -> FilePath
+prefix' forall a. Semigroup a => a -> a -> a
+<> FilePath
+"-" forall a. Semigroup a => a -> a -> a
+<> FilePath
+longFlag
+
+pNetworkId :: EnvCli -> Parser NetworkId
+pNetworkId :: EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' NetworkId
+Mainnet forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mainnet"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"Use the mainnet magic id. This overrides the CARDANO_NODE_NETWORK_ID "
+        , FilePath
+"environment variable"
+        ]
+      ]
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (NetworkMagic -> NetworkId
+Testnet forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Word32 -> NetworkMagic
+NetworkMagic) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"TESTNET_MAGIC") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"testnet-magic"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"Specify a testnet magic id. This overrides the CARDANO_NODE_NETWORK_ID "
+        , FilePath
+"environment variable"
+        ]
+      ]
+    ]
+  , -- Default to the network id specified by the environment variable if it is available.
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Maybe a -> [a]
+maybeToList (EnvCli -> Maybe NetworkId
+envCliNetworkId EnvCli
+envCli)
+  ]
+
+toUnitIntervalOrErr :: Rational -> L.UnitInterval
+toUnitIntervalOrErr :: Rational -> UnitInterval
+toUnitIntervalOrErr Rational
+r = case forall r. BoundedRational r => Rational -> Maybe r
+Ledger.boundRational Rational
+r of
+                         Maybe UnitInterval
+Nothing ->
+                           forall a. HasCallStack => FilePath -> a
+error forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [ FilePath
+"toUnitIntervalOrErr: "
+                                           , FilePath
+"rational out of bounds " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> FilePath
+show Rational
+r
+                                           ]
+                         Just UnitInterval
+n -> UnitInterval
+n
+
+pConsensusModeParams :: Parser ConsensusModeParams
+pConsensusModeParams :: Parser ConsensusModeParams
+pConsensusModeParams = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ Parser ()
+pCardanoMode forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
+*> Parser ConsensusModeParams
+pCardanoConsensusMode
+  , Parser ConsensusModeParams
+pDefaultConsensusMode
+  ]
+  where
+    pCardanoMode :: Parser ()
+    pCardanoMode :: Parser ()
+pCardanoMode =
+      forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' () forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cardano-mode"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"For talking to a node running in full Cardano mode (default)."
+        ]
+
+    pCardanoConsensusMode :: Parser ConsensusModeParams
+    pCardanoConsensusMode :: Parser ConsensusModeParams
+pCardanoConsensusMode = EpochSlots -> ConsensusModeParams
+CardanoModeParams forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser EpochSlots
+pEpochSlots
+
+    pDefaultConsensusMode :: Parser ConsensusModeParams
+    pDefaultConsensusMode :: Parser ConsensusModeParams
+pDefaultConsensusMode =
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EpochSlots -> ConsensusModeParams
+CardanoModeParams forall a b. (a -> b) -> a -> b
+$ Word64 -> EpochSlots
+EpochSlots Word64
+defaultByronEpochSlots
+
+defaultByronEpochSlots :: Word64
+defaultByronEpochSlots :: Word64
+defaultByronEpochSlots = Word64
+21600
+
+pEpochSlots :: Parser EpochSlots
+pEpochSlots :: Parser EpochSlots
+pEpochSlots =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> EpochSlots
+EpochSlots forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOTS") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"epoch-slots"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOTS"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of slots per epoch for the Byron era."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word64
+defaultByronEpochSlots -- Default to the mainnet value.
+    , forall a (f :: * -> *). Show a => Mod f a
+Opt.showDefault
+    ]
+
+pSocketPath :: EnvCli -> Parser SocketPath
+pSocketPath :: EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"socket-path"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SOCKET_PATH"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Path to the node socket.  This overrides the CARDANO_NODE_SOCKET_PATH "
+          , FilePath
+"environment variable.  The argument is optional if CARDANO_NODE_SOCKET_PATH "
+          , FilePath
+"is defined and mandatory otherwise."
+          ]
+        , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+        ]
+      ]
+    , -- Default to the socket path specified by the environment variable if it is available.
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Maybe a -> [a]
+maybeToList (EnvCli -> Maybe FilePath
+envCliSocketPath EnvCli
+envCli)
+    ]
+
+readerFromParsecParser :: Parsec.Parser a -> Opt.ReadM a
+readerFromParsecParser :: forall a. Parser a -> ReadM a
+readerFromParsecParser Parser a
+p =
+    forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ParseError -> FilePath
+formatError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall s t a.
+Stream s Identity t =>
+Parsec s () a -> FilePath -> s -> Either ParseError a
+Parsec.parse (Parser a
+p forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* forall s (m :: * -> *) t u.
+(Stream s m t, Show t) =>
+ParsecT s u m ()
+Parsec.eof) FilePath
+"")
+  where
+    formatError :: ParseError -> FilePath
+formatError ParseError
+err =
+      FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> [Message]
+-> FilePath
+Parsec.showErrorMessages FilePath
+"or" FilePath
+"unknown parse error"
+                               FilePath
+"expecting" FilePath
+"unexpected" FilePath
+"end of input"
+                               (ParseError -> [Message]
+Parsec.errorMessages ParseError
+err)
+
+parseTxIn :: Parsec.Parser TxIn
+parseTxIn :: Parser TxIn
+parseTxIn = TxId -> TxIx -> TxIn
+TxIn forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser TxId
+parseTxId forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall s (m :: * -> *) u.
+Stream s m Char =>
+Char -> ParsecT s u m Char
+Parsec.char Char
+'#' forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
+*> ParsecT FilePath () Identity TxIx
+parseTxIx)
+
+parseTxId :: Parsec.Parser TxId
+parseTxId :: Parser TxId
+parseTxId = do
+  FilePath
+str' <- forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some forall s (m :: * -> *) u. Stream s m Char => ParsecT s u m Char
+Parsec.hexDigit forall s u (m :: * -> *) a.
+ParsecT s u m a -> FilePath -> ParsecT s u m a
+<?> FilePath
+"transaction id (hexadecimal)"
+  case forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex AsType TxId
+AsTxId (FilePath -> ByteString
+BSC.pack FilePath
+str') of
+    Right TxId
+addr -> forall (m :: * -> *) a. Monad m => a -> m a
+return TxId
+addr
+    Left RawBytesHexError
+e -> forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail forall a b. (a -> b) -> a -> b
+$ FilePath
+"Incorrect transaction id format: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e
+
+parseTxIx :: Parsec.Parser TxIx
+parseTxIx :: ParsecT FilePath () Identity TxIx
+parseTxIx = Word -> TxIx
+TxIx forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Integer
+decimal
+
+decimal :: Parsec.Parser Integer
+Parsec.TokenParser { decimal :: forall s u (m :: * -> *).
+GenTokenParser s u m -> ParsecT s u m Integer
+Parsec.decimal = Parser Integer
+decimal } = forall st. TokenParser st
+Parsec.haskell
+
+
+pStakeIdentifier :: Parser StakeIdentifier
+pStakeIdentifier :: Parser StakeIdentifier
+pStakeIdentifier = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ StakeVerifier -> StakeIdentifier
+StakeIdentifierVerifier forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeVerifier
+pStakeVerifier
+  , StakeAddress -> StakeIdentifier
+StakeIdentifierAddress forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeAddress
+pStakeAddress
+  ]
+
+pStakeVerifier :: Parser StakeVerifier
+pStakeVerifier :: Parser StakeVerifier
+pStakeVerifier = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ VerificationKeyOrFile StakeKey -> StakeVerifier
+StakeVerifierKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile forall a. Maybe a
+Nothing
+  , ScriptFile -> StakeVerifier
+StakeVerifierScriptFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+"stake-script-file" forall a. Maybe a
+Nothing FilePath
+"Filepath of the staking script."
+  ]
+
+pStakeAddress :: Parser StakeAddress
+pStakeAddress :: Parser StakeAddress
+pStakeAddress =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser StakeAddress
+parseStakeAddress) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"stake-address"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Target stake address (bech32 format)."
+    ]
+
+parseStakeAddress :: Parsec.Parser StakeAddress
+parseStakeAddress :: Parser StakeAddress
+parseStakeAddress = do
+  Text
+str' <- Parser Text
+lexPlausibleAddressString
+  case forall addr.
+SerialiseAddress addr =>
+AsType addr -> Text -> Maybe addr
+deserialiseAddress AsType StakeAddress
+AsStakeAddress Text
+str' of
+    Maybe StakeAddress
+Nothing   -> forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail forall a b. (a -> b) -> a -> b
+$ FilePath
+"invalid address: " forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+Text.unpack Text
+str'
+    Just StakeAddress
+addr -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure StakeAddress
+addr
+
+-- | First argument is the optional prefix
+pStakeVerificationKeyOrFile :: Maybe String -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile :: Maybe FilePath -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile Maybe FilePath
+prefix =
+  forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKey StakeKey)
+pStakeVerificationKey Maybe FilePath
+prefix
+    forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyFile 'In)
+pStakeVerificationKeyFile Maybe FilePath
+prefix
+
+pScriptFor :: String -> Maybe String -> String -> Parser ScriptFile
+pScriptFor :: FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+name Maybe FilePath
+Nothing FilePath
+help' =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> ScriptFile
+ScriptFile forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+name
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+help'
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pScriptFor FilePath
+name (Just FilePath
+deprecated) FilePath
+help' =
+      FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+name forall a. Maybe a
+Nothing FilePath
+help'
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> FilePath -> ScriptFile
+ScriptFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption
+        (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+deprecated
+        forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+        )
+
+-- | The first argument is the optional prefix.
+pStakeVerificationKey :: Maybe String -> Parser (VerificationKey StakeKey)
+pStakeVerificationKey :: Maybe FilePath -> Parser (VerificationKey StakeKey)
+pStakeVerificationKey Maybe FilePath
+prefix =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType StakeKey
+AsStakeKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Stake verification key (Bech32 or hex-encoded)."
+    ]
+
+-- | Read a Bech32 or hex-encoded verification key.
+readVerificationKey
+  :: forall keyrole. SerialiseAsBech32 (VerificationKey keyrole)
+  => AsType keyrole
+  -> Opt.ReadM (VerificationKey keyrole)
+readVerificationKey :: forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType keyrole
+asType =
+    forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey keyrole)
+deserialiseFromBech32OrHex
+  where
+    keyFormats :: NonEmpty (InputFormat (VerificationKey keyrole))
+    keyFormats :: NonEmpty (InputFormat (VerificationKey keyrole))
+keyFormats = forall a. [a] -> NonEmpty a
+NE.fromList [forall a. SerialiseAsBech32 a => InputFormat a
+InputFormatBech32, forall a. SerialiseAsRawBytes a => InputFormat a
+InputFormatHex]
+
+    deserialiseFromBech32OrHex
+      :: String
+      -> Either String (VerificationKey keyrole)
+    deserialiseFromBech32OrHex :: FilePath -> Either FilePath (VerificationKey keyrole)
+deserialiseFromBech32OrHex FilePath
+str' =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (Text -> FilePath
+Text.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. InputDecodeError -> Text
+renderInputDecodeError) forall a b. (a -> b) -> a -> b
+$
+        forall a.
+AsType a
+-> NonEmpty (InputFormat a)
+-> ByteString
+-> Either InputDecodeError a
+deserialiseInput (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType keyrole
+asType) NonEmpty (InputFormat (VerificationKey keyrole))
+keyFormats (FilePath -> ByteString
+BSC.pack FilePath
+str')
+
+-- | The first argument is the optional prefix.
+pStakeVerificationKeyFile :: Maybe String -> Parser (VerificationKeyFile In)
+pStakeVerificationKeyFile :: Maybe FilePath -> Parser (VerificationKeyFile 'In)
+pStakeVerificationKeyFile Maybe FilePath
+prefix =
+  forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the staking verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"staking-verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+subParser :: String -> ParserInfo a -> Parser a
+subParser :: forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+availableCommand ParserInfo a
+pInfo =
+  forall a. Mod CommandFields a -> Parser a
+Opt.hsubparser forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+availableCommand ParserInfo a
+pInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+availableCommand
+
+subInfoParser :: String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser :: forall a.
+FilePath -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser FilePath
+name InfoMod a
+i [Maybe (Parser a)]
+mps = case forall a. [Maybe a] -> [a]
+catMaybes [Maybe (Parser a)]
+mps of
+  [] -> forall a. Maybe a
+Nothing
+  [Parser a]
+parsers -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+name forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum [Parser a]
+parsers) InfoMod a
+i
+
+pAnyShelleyBasedEra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"shelley-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Shelley era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"allegra-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Allegra era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra MaryEra
+ShelleyBasedEraMary)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mary-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Mary era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"alonzo-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Alonzo era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"babbage-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Babbage era (default)"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ConwayEra
+ShelleyBasedEraConway)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"conway-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Conway era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    , forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure EraInEon ShelleyBasedEra
+defaultShelleyBasedEra
+  ]
+
+pAnyShelleyToBabbageEra :: EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra :: EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra ShelleyEra
+ShelleyToBabbageEraShelley)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"shelley-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Shelley era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra AllegraEra
+ShelleyToBabbageEraAllegra)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"allegra-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Allegra era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra MaryEra
+ShelleyToBabbageEraMary)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mary-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Mary era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra AlonzoEra
+ShelleyToBabbageEraAlonzo)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"alonzo-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Alonzo era"]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"babbage-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Babbage era (default)"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Maybe (EraInEon ShelleyToBabbageEra)
+envCliAnyShelleyToBabbageEra EnvCli
+envCli
+    , forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure EraInEon ShelleyToBabbageEra
+defaultShelleyToBabbageEra
+  ]
+
+pShelleyBasedShelley :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedShelley :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedShelley EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"shelley-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Shelley era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pShelleyBasedAllegra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedAllegra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedAllegra EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"allegra-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Allegra era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pShelleyBasedMary :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedMary :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedMary EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra MaryEra
+ShelleyBasedEraMary)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mary-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Mary era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra MaryEra
+ShelleyBasedEraMary)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pShelleyBasedAlonzo :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedAlonzo :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedAlonzo EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"alonzo-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Alonzo era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pShelleyBasedBabbage :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedBabbage :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedBabbage EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"babbage-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Babbage era (default)"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pShelleyBasedConway :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedConway :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pShelleyBasedConway EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ConwayEra
+ShelleyBasedEraConway)
+          forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"conway-era", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Conway era"]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList
+        forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadPlus m => (a -> Bool) -> m a -> m a
+mfilter (forall a. Eq a => a -> a -> Bool
+== forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ConwayEra
+ShelleyBasedEraConway)
+        forall a b. (a -> b) -> a -> b
+$ EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    ]
+
+pFileOutDirection :: String -> String -> Parser (File a Out)
+pFileOutDirection :: forall a. FilePath -> FilePath -> Parser (File a 'Out)
+pFileOutDirection FilePath
+l FilePath
+h =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+l
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pFileInDirection :: String -> String -> Parser (File a In)
+pFileInDirection :: forall a. FilePath -> FilePath -> Parser (File a 'In)
+pFileInDirection FilePath
+l FilePath
+h =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+l
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+parseLovelace :: Parsec.Parser Lovelace
+parseLovelace :: Parser Lovelace
+parseLovelace = do
+  Integer
+i <- Parser Integer
+decimal
+  if Integer
+i forall a. Ord a => a -> a -> Bool
+> forall a. Integral a => a -> Integer
+toInteger (forall a. Bounded a => a
+maxBound :: Word64)
+    then forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> FilePath
+show Integer
+i forall a. Semigroup a => a -> a -> a
+<> FilePath
+" lovelace exceeds the Word64 upper bound"
+    else forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ Integer -> Lovelace
+Lovelace Integer
+i
+
+-- | The first argument is the optional prefix.
+pStakePoolVerificationKeyOrFile :: Maybe String -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile :: Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile Maybe FilePath
+prefix =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKey StakePoolKey)
+pStakePoolVerificationKey Maybe FilePath
+prefix
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyFile 'In)
+pStakePoolVerificationKeyFile Maybe FilePath
+prefix
+    ]
+
+-- | The first argument is the optional prefix.
+pStakePoolVerificationKey :: Maybe String -> Parser (VerificationKey StakePoolKey)
+pStakePoolVerificationKey :: Maybe FilePath -> Parser (VerificationKey StakePoolKey)
+pStakePoolVerificationKey Maybe FilePath
+prefix =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType StakePoolKey
+AsStakePoolKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-pool-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Stake pool verification key (Bech32 or hex-encoded)."
+    ]
+
+-- | The first argument is the optional prefix.
+pStakePoolVerificationKeyFile :: Maybe String -> Parser (VerificationKeyFile In)
+pStakePoolVerificationKeyFile :: Maybe FilePath -> Parser (VerificationKeyFile 'In)
+pStakePoolVerificationKeyFile Maybe FilePath
+prefix =
+  forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"cold-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the stake pool verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-pool-verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pOutputFile :: Parser (File content Out)
+pOutputFile :: forall content. Parser (File content 'Out)
+pOutputFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"out-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The output file."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pMIRPot :: Parser Shelley.MIRPot
+pMIRPot :: Parser MIRPot
+pMIRPot =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' MIRPot
+Shelley.ReservesMIR forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"reserves"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use the reserves pot."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' MIRPot
+Shelley.TreasuryMIR forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"treasury"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use the treasury pot."
+        ]
+    ]
+
+pRewardAmt :: Parser Lovelace
+pRewardAmt :: Parser Lovelace
+pRewardAmt =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"reward"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The reward for the relevant reward account."
+    ]
+
+pTransferAmt :: Parser Lovelace
+pTransferAmt :: Parser Lovelace
+pTransferAmt =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"transfer"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The amount to transfer."
+    ]
+
+pHexHash
+  :: SerialiseAsRawBytes (Hash a) => AsType a -> ReadM (Hash a)
+pHexHash :: forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType a
+a =
+  forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader forall a b. (a -> b) -> a -> b
+$
+    forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first forall e. Error e => e -> FilePath
+displayError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType a
+a)
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pBech32KeyHash :: SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash :: forall a. SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash AsType a
+a =
+  forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader forall a b. (a -> b) -> a -> b
+$
+    forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first forall e. Error e => e -> FilePath
+displayError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsBech32 a =>
+AsType a -> Text -> Either Bech32DecodeError a
+deserialiseFromBech32 (forall a. AsType a -> AsType (Hash a)
+AsHash AsType a
+a)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+Text.pack
+
+pGenesisDelegateVerificationKey :: Parser (VerificationKey GenesisDelegateKey)
+pGenesisDelegateVerificationKey :: Parser (VerificationKey GenesisDelegateKey)
+pGenesisDelegateVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey GenesisDelegateKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-delegate-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Genesis delegate verification key (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex
+      :: String
+      -> Either String (VerificationKey GenesisDelegateKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (VerificationKey GenesisDelegateKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first
+        (\RawBytesHexError
+e -> FilePath
+"Invalid genesis delegate verification key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+-- | The first argument is the optional prefix.
+pColdVerificationKeyOrFile :: Maybe String -> Parser ColdVerificationKeyOrFile
+pColdVerificationKeyOrFile :: Maybe FilePath -> Parser ColdVerificationKeyOrFile
+pColdVerificationKeyOrFile Maybe FilePath
+prefix =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ VerificationKey StakePoolKey -> ColdVerificationKeyOrFile
+ColdStakePoolVerificationKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKey StakePoolKey)
+pStakePoolVerificationKey Maybe FilePath
+prefix
+    , VerificationKey GenesisDelegateKey -> ColdVerificationKeyOrFile
+ColdGenesisDelegateVerificationKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey GenesisDelegateKey)
+pGenesisDelegateVerificationKey
+    , VerificationKeyFile 'In -> ColdVerificationKeyOrFile
+ColdVerificationKeyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection).
+Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile
+    ]
+
+pColdVerificationKeyFile :: Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile :: forall (direction :: FileDirection).
+Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cold-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the cold verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+-- TODO CIP-1694 parameterise this by signing key role
+pColdSigningKeyFile :: Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile :: forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cold-signing-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the cold signing key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"signing-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+-- TODO CIP-1694 parameterise this by verification key role
+pVerificationKeyFileOut :: Parser (File (VerificationKey keyrole) Out)
+pVerificationKeyFileOut :: forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Output filepath of the verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pSigningKeyFileOut :: Parser (File (SigningKey keyrole) Out)
+pSigningKeyFileOut :: forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Output filepath of the signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pOperatorCertIssueCounterFile :: Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile :: forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"operational-certificate-issue-counter-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The file with the issue counter for the operational certificate."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"operational-certificate-issue-counter"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+---
+
+pAddCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash CommitteeColdKey)
+pAddCommitteeColdVerificationKeyHash
+    ]
+
+pAddCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pAddCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pAddCommitteeColdVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"add-cc-cold-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Consitutional Committee cold key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pAddCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey CommitteeColdKey)
+pAddCommitteeColdVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pAddCommitteeColdVerificationKeyFile
+    ]
+
+pAddCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pAddCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pAddCommitteeColdVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"add-cc-cold-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee cold key (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (VerificationKey CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Constitutional Committee cold key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pAddCommitteeColdVerificationKeyFile :: Parser (File (VerificationKey keyrole) In)
+pAddCommitteeColdVerificationKeyFile :: forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pAddCommitteeColdVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"add-cc-cold-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the Consitutional Committee cold key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+---
+pRemoveCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyHash
+    ]
+
+pRemoveCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"remove-cc-cold-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Consitutional Committee cold key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pRemoveCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey CommitteeColdKey)
+pRemoveCommitteeColdVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pRemoveCommitteeColdVerificationKeyFile
+    ]
+
+pRemoveCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pRemoveCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pRemoveCommitteeColdVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"remove-cc-cold-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee cold key (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (VerificationKey CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Constitutional Committee cold key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pRemoveCommitteeColdVerificationKeyFile :: Parser (File (VerificationKey keyrole) In)
+pRemoveCommitteeColdVerificationKeyFile :: forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pRemoveCommitteeColdVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"remove-cc-cold-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the Consitutional Committee cold key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+---
+
+pCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash CommitteeColdKey)
+pCommitteeColdVerificationKeyHash
+    ]
+
+pCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrFile :: Parser (VerificationKeyOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey CommitteeColdKey)
+pCommitteeColdVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pCommitteeColdVerificationKeyFile
+    ]
+
+pCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pCommitteeColdVerificationKey :: Parser (VerificationKey CommitteeColdKey)
+pCommitteeColdVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cold-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee cold key (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (VerificationKey CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (VerificationKey CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Constitutional Committee cold key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pCommitteeColdVerificationKeyHash :: Parser (Hash CommitteeColdKey)
+pCommitteeColdVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cold-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash CommitteeColdKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash CommitteeColdKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Consitutional Committee cold key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType CommitteeColdKey
+AsCommitteeColdKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pCommitteeColdVerificationKeyFile :: Parser (File (VerificationKey keyrole) In)
+pCommitteeColdVerificationKeyFile :: forall keyrole. Parser (File (VerificationKey keyrole) 'In)
+pCommitteeColdVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cold-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the Consitutional Committee cold key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pVerificationKeyFileIn :: Parser (VerificationKeyFile In)
+pVerificationKeyFileIn :: Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pAnyVerificationKeyFileIn :: String -> Parser (VerificationKeyFile In)
+pAnyVerificationKeyFileIn :: FilePath -> Parser (VerificationKeyFile 'In)
+pAnyVerificationKeyFileIn FilePath
+helpText =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ FilePath
+"Input filepath of the " forall a. Semigroup a => a -> a -> a
+<> FilePath
+helpText forall a. Semigroup a => a -> a -> a
+<> FilePath
+"."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pAnyVerificationKeyText :: String -> Parser AnyVerificationKeyText
+pAnyVerificationKeyText :: FilePath -> Parser AnyVerificationKeyText
+pAnyVerificationKeyText FilePath
+helpText =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (Text -> AnyVerificationKeyText
+AnyVerificationKeyText forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+Text.pack) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ FilePath
+helpText forall a. Semigroup a => a -> a -> a
+<> FilePath
+" (Bech32-encoded)"
+    ]
+
+pAnyVerificationKeySource :: String -> Parser AnyVerificationKeySource
+pAnyVerificationKeySource :: FilePath -> Parser AnyVerificationKeySource
+pAnyVerificationKeySource FilePath
+helpText =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ AnyVerificationKeyText -> AnyVerificationKeySource
+AnyVerificationKeySourceOfText forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Parser AnyVerificationKeyText
+pAnyVerificationKeyText FilePath
+helpText
+    , VerificationKeyFile 'In -> AnyVerificationKeySource
+AnyVerificationKeySourceOfFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Parser (VerificationKeyFile 'In)
+pAnyVerificationKeyFileIn FilePath
+helpText
+    ]
+
+pCommitteeHotKey :: Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotKey :: Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey CommitteeHotKey)
+deserialiseHotCCKeyFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"hot-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee hot key (hex-encoded)."
+    ]
+
+pCommitteeHotVerificationKey :: Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotVerificationKey :: Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey CommitteeHotKey)
+deserialiseHotCCKeyFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cc-hot-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee hot key (hex-encoded)."
+    ]
+
+deserialiseHotCCKeyFromHex :: String -> Either String (VerificationKey CommitteeHotKey)
+deserialiseHotCCKeyFromHex :: FilePath -> Either FilePath (VerificationKey CommitteeHotKey)
+deserialiseHotCCKeyFromHex =
+  forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Constitutional Committee hot key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeHotKey
+AsCommitteeHotKey)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pCommitteeHotKeyFile :: Parser (VerificationKeyFile In)
+pCommitteeHotKeyFile :: Parser (VerificationKeyFile 'In)
+pCommitteeHotKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"hot-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the Consitutional Committee hot key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pCommitteeHotVerificationKeyFile :: Parser (VerificationKeyFile In)
+pCommitteeHotVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pCommitteeHotVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cc-hot-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the Consitutional Committee hot key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+-- | The first argument is the optional prefix.
+pCommitteeHotKeyHash :: Maybe String -> Parser (Hash CommitteeHotKey)
+pCommitteeHotKeyHash :: Maybe FilePath -> Parser (Hash CommitteeHotKey)
+pCommitteeHotKeyHash Maybe FilePath
+prefix =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash CommitteeHotKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"hot-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitutional Committee key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash CommitteeHotKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash CommitteeHotKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid Consitutional Committee hot key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType CommitteeHotKey
+AsCommitteeHotKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pCommitteeHotKeyOrFile :: Parser (VerificationKeyOrFile CommitteeHotKey)
+pCommitteeHotKeyOrFile :: Parser (VerificationKeyOrFile CommitteeHotKey)
+pCommitteeHotKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pCommitteeHotKeyFile
+    ]
+
+pCommitteeHotKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile CommitteeHotKey)
+pCommitteeHotKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (Hash CommitteeHotKey)
+pCommitteeHotKeyHash forall a. Maybe a
+Nothing
+    ]
+
+pCommitteeHotVerificationKeyOrHashOrVerificationFile :: Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotVerificationKeyOrHashOrVerificationFile :: Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotVerificationKeyOrHashOrVerificationFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey CommitteeHotKey)
+pCommitteeHotVerificationKey,
+      forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pCommitteeHotVerificationKeyFile,
+      forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (Hash CommitteeHotKey)
+pCommitteeHotKeyHash (forall a. a -> Maybe a
+Just FilePath
+"cc")
+    ]
+
+catCommands :: [Parser a] -> Maybe (Parser a)
+catCommands :: forall a. [Parser a] -> Maybe (Parser a)
+catCommands = \case
+  [] -> forall a. Maybe a
+Nothing
+  [Parser a]
+ps -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum [Parser a]
+ps
+
+pConstitutionUrl :: Parser ConstitutionUrl
+pConstitutionUrl :: Parser ConstitutionUrl
+pConstitutionUrl =
+  Url -> ConstitutionUrl
+ConstitutionUrl
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser Url
+pUrl FilePath
+"constitution-anchor-url" FilePath
+"Constitution anchor URL."
+
+pConstitutionHashSource :: Parser ConstitutionHashSource
+pConstitutionHashSource :: Parser ConstitutionHashSource
+pConstitutionHashSource =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ Text -> ConstitutionHashSource
+ConstitutionHashSourceText
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption
+            ( forall a. Monoid a => [a] -> a
+mconcat
+                [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"constitution-anchor-metadata"
+                , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TEXT"
+                , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Constitution anchor contents as UTF-8 encoded text."
+                ]
+            )
+    , File ConstitutionText 'In -> ConstitutionHashSource
+ConstitutionHashSourceFile
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FilePath -> FilePath -> Parser (File a 'In)
+pFileInDirection FilePath
+"constitution-anchor-metadata-file" FilePath
+"Constitution anchor contents as a text file."
+    , SafeHash StandardCrypto AnchorData -> ConstitutionHashSource
+ConstitutionHashSourceHash
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SafeHash StandardCrypto AnchorData)
+pConstitutionHash
+    ]
+
+pConstitutionHash :: Parser (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pConstitutionHash :: Parser (SafeHash StandardCrypto AnchorData)
+pConstitutionHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"constitution-anchor-metadata-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Hash of the constitution anchor data."
+    ]
+
+pUrl :: String -> String -> Parser Ledger.Url
+pUrl :: FilePath -> FilePath -> Parser Url
+pUrl FilePath
+l FilePath
+h = forall a. a -> Maybe a -> a
+fromMaybe (forall a. HasCallStack => FilePath -> a
+error FilePath
+"Url longer than 64 bytes")
+         forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> Maybe Url
+Ledger.textToUrl forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+             forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption (forall a. Monoid a => [a] -> a
+mconcat
+                            [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+l
+                            , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TEXT"
+                            , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+                            ])
+
+pGovActionDeposit :: Parser Lovelace
+pGovActionDeposit :: Parser Lovelace
+pGovActionDeposit =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"governance-action-deposit"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Deposit required to submit a governance action."
+    ]
+
+
+-- | First argument is the optional prefix
+pStakeVerificationKeyOrHashOrFile :: Maybe String -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile :: Maybe FilePath -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile Maybe FilePath
+prefix = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile Maybe FilePath
+prefix
+  , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (Hash StakeKey)
+pStakeVerificationKeyHash Maybe FilePath
+prefix
+  ]
+
+-- | First argument is the optional prefix
+pStakeVerificationKeyHash :: Maybe String -> Parser (Hash StakeKey)
+pStakeVerificationKeyHash :: Maybe FilePath -> Parser (Hash StakeKey)
+pStakeVerificationKeyHash Maybe FilePath
+prefix =
+   forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType StakeKey
+AsStakeKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-key-hash"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Stake verification key hash (hex-encoded)."
+      ]
+
+
+-- | The first argument is the optional prefix.
+pStakePoolVerificationKeyOrHashOrFile
+  :: Maybe String -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile :: Maybe FilePath -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile Maybe FilePath
+prefix =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile Maybe FilePath
+prefix
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash Maybe FilePath
+prefix
+    ]
+
+pCombinedStakePoolVerificationKeyOrHashOrFile
+  :: Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pCombinedStakePoolVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pCombinedStakePoolVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile StakePoolKey)
+pCombinedStakePoolVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash StakePoolKey)
+pCombinedStakePoolVerificationKeyHash
+    ]
+
+pCombinedStakePoolVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakePoolKey)
+pCombinedStakePoolVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakePoolKey)
+pCombinedStakePoolVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey StakePoolKey)
+pCombinedStakePoolVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pCombinedStakePoolVerificationKeyFile
+    ]
+
+pCombinedStakePoolVerificationKeyHash :: Parser (Hash StakePoolKey)
+pCombinedStakePoolVerificationKeyHash :: Parser (Hash StakePoolKey)
+pCombinedStakePoolVerificationKeyHash =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash AsType StakePoolKey
+AsStakePoolKey forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType StakePoolKey
+AsStakePoolKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-stake-pool-id"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STAKE_POOL_ID"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Stake pool ID/verification key hash (either Bech32-encoded or hex-encoded).  "
+          , FilePath
+"Zero or more occurences of this option is allowed."
+          ]
+      ]
+
+pCombinedStakePoolVerificationKey :: Parser (VerificationKey StakePoolKey)
+pCombinedStakePoolVerificationKey :: Parser (VerificationKey StakePoolKey)
+pCombinedStakePoolVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType StakePoolKey
+AsStakePoolKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-stake-pool-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Stake pool verification key (Bech32 or hex-encoded)."
+    ]
+
+pCombinedStakePoolVerificationKeyFile :: Parser (VerificationKeyFile In)
+pCombinedStakePoolVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pCombinedStakePoolVerificationKeyFile =
+  forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-cold-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the stake pool verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"stake-pool-verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+--------------------------------------------------------------------------------
+
+pCBORInFile :: Parser FilePath
+pCBORInFile :: Parser FilePath
+pCBORInFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"in-file"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"CBOR input file."
+        , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+        ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"file"
+        , forall (f :: * -> *) a. Mod f a
+Opt.internal
+        ]
+    ]
+
+--------------------------------------------------------------------------------
+
+pPollQuestion :: Parser Text
+pPollQuestion :: Parser Text
+pPollQuestion =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"question"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The question for the poll."
+    ]
+
+pPollAnswer :: Parser Text
+pPollAnswer :: Parser Text
+pPollAnswer =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"answer"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"A possible choice for the poll. The option is repeatable."
+    ]
+
+pPollAnswerIndex :: Parser Word
+pPollAnswerIndex :: Parser Word
+pPollAnswerIndex =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"answer"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The index of the chosen answer in the poll. Optional. Asked interactively if omitted."
+    ]
+
+pPollFile :: Parser (File GovernancePoll In)
+pPollFile :: Parser (File GovernancePoll 'In)
+pPollFile =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"poll-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath to the ongoing poll."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pPollTxFile :: Parser (TxFile In)
+pPollTxFile :: Parser (TxFile 'In)
+pPollTxFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath to the JSON TxBody or JSON Tx carrying a valid poll answer."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pPollNonce :: Parser Word
+pPollNonce :: Parser Word
+pPollNonce =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"nonce"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"UINT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"An (optional) nonce for non-replayability."
+    ]
+
+--------------------------------------------------------------------------------
+
+pScriptWitnessFiles :: forall witctx.
+                       WitCtx witctx
+                    -> BalanceTxExecUnits -- ^ Use the @execution-units@ flag.
+                    -> String -- ^ Script flag prefix
+                    -> Maybe String
+                    -> String
+                    -> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles :: forall witctx.
+WitCtx witctx
+-> BalanceTxExecUnits
+-> FilePath
+-> Maybe FilePath
+-> FilePath
+-> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles WitCtx witctx
+witctx BalanceTxExecUnits
+autoBalanceExecUnits FilePath
+scriptFlagPrefix Maybe FilePath
+scriptFlagPrefixDeprecated FilePath
+help =
+    ScriptFile
+-> Maybe
+     (ScriptDatumOrFile witctx, ScriptRedeemerOrFile, ExecutionUnits)
+-> ScriptWitnessFiles witctx
+toScriptWitnessFiles
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor (FilePath
+scriptFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-script-file")
+                     ((forall a. [a] -> [a] -> [a]
+++ FilePath
+"-script-file") forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath
+scriptFlagPrefixDeprecated)
+                     (FilePath
+"The file containing the script to witness " forall a. [a] -> [a] -> [a]
+++ FilePath
+help)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional ((,,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall witctx.
+FilePath -> WitCtx witctx -> Parser (ScriptDatumOrFile witctx)
+pScriptDatumOrFile FilePath
+scriptFlagPrefix WitCtx witctx
+witctx
+                         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser ScriptRedeemerOrFile
+pScriptRedeemerOrFile FilePath
+scriptFlagPrefix
+                         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (case BalanceTxExecUnits
+autoBalanceExecUnits of
+                               BalanceTxExecUnits
+AutoBalance -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Natural -> Natural -> ExecutionUnits
+ExecutionUnits Natural
+0 Natural
+0)
+                               BalanceTxExecUnits
+ManualBalance -> FilePath -> Parser ExecutionUnits
+pExecutionUnits FilePath
+scriptFlagPrefix)
+                   )
+  where
+    toScriptWitnessFiles :: ScriptFile
+                         -> Maybe (ScriptDatumOrFile witctx,
+                                   ScriptRedeemerOrFile,
+                                   ExecutionUnits)
+                         -> ScriptWitnessFiles witctx
+    toScriptWitnessFiles :: ScriptFile
+-> Maybe
+     (ScriptDatumOrFile witctx, ScriptRedeemerOrFile, ExecutionUnits)
+-> ScriptWitnessFiles witctx
+toScriptWitnessFiles ScriptFile
+sf Maybe
+  (ScriptDatumOrFile witctx, ScriptRedeemerOrFile, ExecutionUnits)
+Nothing        = forall witctx. ScriptFile -> ScriptWitnessFiles witctx
+SimpleScriptWitnessFile  ScriptFile
+sf
+    toScriptWitnessFiles ScriptFile
+sf (Just (ScriptDatumOrFile witctx
+d,ScriptRedeemerOrFile
+r, ExecutionUnits
+e)) = forall witctx.
+ScriptFile
+-> ScriptDatumOrFile witctx
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> ScriptWitnessFiles witctx
+PlutusScriptWitnessFiles ScriptFile
+sf ScriptDatumOrFile witctx
+d ScriptRedeemerOrFile
+r ExecutionUnits
+e
+
+
+pExecutionUnits :: String -> Parser ExecutionUnits
+pExecutionUnits :: FilePath -> Parser ExecutionUnits
+pExecutionUnits FilePath
+scriptFlagPrefix =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry Natural -> Natural -> ExecutionUnits
+ExecutionUnits) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+scriptFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-execution-units")
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"(INT, INT)"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The time and space units needed by the script."
+    ]
+
+pScriptRedeemerOrFile :: String -> Parser ScriptDataOrFile
+pScriptRedeemerOrFile :: FilePath -> Parser ScriptRedeemerOrFile
+pScriptRedeemerOrFile FilePath
+scriptFlagPrefix =
+  FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile (FilePath
+scriptFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-redeemer")
+    FilePath
+"The script redeemer, in JSON syntax."
+    FilePath
+"The script redeemer, in the given JSON file."
+
+
+pScriptDatumOrFile :: String -> WitCtx witctx -> Parser (ScriptDatumOrFile witctx)
+pScriptDatumOrFile :: forall witctx.
+FilePath -> WitCtx witctx -> Parser (ScriptDatumOrFile witctx)
+pScriptDatumOrFile FilePath
+scriptFlagPrefix WitCtx witctx
+witctx =
+  case WitCtx witctx
+witctx of
+    WitCtx witctx
+WitCtxTxIn  -> (ScriptRedeemerOrFile -> ScriptDatumOrFile WitCtxTxIn
+ScriptDatumOrFileForTxIn forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+                     FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile
+                       (FilePath
+scriptFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-datum")
+                       FilePath
+"The script datum, in JSON syntax."
+                       FilePath
+"The script datum, in the given JSON file.") forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+                    Parser (ScriptDatumOrFile WitCtxTxIn)
+pInlineDatumPresent
+    WitCtx witctx
+WitCtxMint  -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatumOrFile WitCtxMint
+NoScriptDatumOrFileForMint
+    WitCtx witctx
+WitCtxStake -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatumOrFile WitCtxStake
+NoScriptDatumOrFileForStake
+ where
+  pInlineDatumPresent :: Parser (ScriptDatumOrFile WitCtxTxIn)
+  pInlineDatumPresent :: Parser (ScriptDatumOrFile WitCtxTxIn)
+pInlineDatumPresent  =
+    forall a. a -> Mod FlagFields a -> Parser a
+flag' ScriptDatumOrFile WitCtxTxIn
+InlineDatumPresentAtTxIn forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long (FilePath
+scriptFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-inline-datum-present")
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Inline datum present at transaction input."
+      ]
+
+pScriptDataOrFile :: String -> String -> String -> Parser ScriptDataOrFile
+pScriptDataOrFile :: FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile FilePath
+dataFlagPrefix FilePath
+helpTextForValue FilePath
+helpTextForFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ Parser ScriptRedeemerOrFile
+pScriptDataCborFile
+    , Parser ScriptRedeemerOrFile
+pScriptDataFile
+    , Parser ScriptRedeemerOrFile
+pScriptDataValue
+    ]
+  where
+    pScriptDataCborFile :: Parser ScriptRedeemerOrFile
+pScriptDataCborFile = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> ScriptRedeemerOrFile
+ScriptDataCborFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+dataFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-cbor-file")
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"CBOR FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+helpTextForFile
+        , FilePath
+" The file must follow the special JSON schema for script data."
+        ]
+      ]
+
+    pScriptDataFile :: Parser ScriptRedeemerOrFile
+pScriptDataFile = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> ScriptRedeemerOrFile
+ScriptDataJsonFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+dataFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-file")
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"JSON FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+helpTextForFile forall a. [a] -> [a] -> [a]
+++ FilePath
+" The file must follow the special "
+        , FilePath
+"JSON schema for script data."
+        ]
+      ]
+
+    pScriptDataValue :: Parser ScriptRedeemerOrFile
+pScriptDataValue = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap HashableScriptData -> ScriptRedeemerOrFile
+ScriptDataValue forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM HashableScriptData
+readerScriptData forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+dataFlagPrefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"-value")
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"JSON VALUE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+helpTextForValue
+        , FilePath
+" There is no schema: (almost) any JSON value is supported, including "
+        , FilePath
+"top-level strings and numbers."
+        ]
+      ]
+
+    readerScriptData :: ReadM HashableScriptData
+    readerScriptData :: ReadM HashableScriptData
+readerScriptData = do
+      ByteString
+v <- forall s. IsString s => ReadM s
+Opt.str
+      case forall a. FromJSON a => ByteString -> Either FilePath a
+Aeson.eitherDecode ByteString
+v of
+        Left FilePath
+e -> forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail forall a b. (a -> b) -> a -> b
+$ FilePath
+"readerScriptData: " forall a. Semigroup a => a -> a -> a
+<> FilePath
+e
+        Right Value
+sDataValue ->
+          case ScriptDataJsonSchema
+-> Value -> Either ScriptDataJsonBytesError HashableScriptData
+scriptDataJsonToHashable ScriptDataJsonSchema
+ScriptDataJsonNoSchema Value
+sDataValue of
+            Left ScriptDataJsonBytesError
+err -> forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail (forall e. Error e => e -> FilePath
+displayError ScriptDataJsonBytesError
+err)
+            Right HashableScriptData
+sd -> forall (m :: * -> *) a. Monad m => a -> m a
+return HashableScriptData
+sd
+
+--------------------------------------------------------------------------------
+
+pPaymentVerifier :: Parser PaymentVerifier
+pPaymentVerifier :: Parser PaymentVerifier
+pPaymentVerifier =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ VerificationKeyTextOrFile -> PaymentVerifier
+PaymentVerifierKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser VerificationKeyTextOrFile
+pPaymentVerificationKeyTextOrFile
+    , ScriptFile -> PaymentVerifier
+PaymentVerifierScriptFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+        FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+"payment-script-file" forall a. Maybe a
+Nothing FilePath
+"Filepath of the payment script."
+    ]
+
+
+pPaymentVerificationKeyTextOrFile :: Parser VerificationKeyTextOrFile
+pPaymentVerificationKeyTextOrFile :: Parser VerificationKeyTextOrFile
+pPaymentVerificationKeyTextOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ Text -> VerificationKeyTextOrFile
+VktofVerificationKeyText forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pPaymentVerificationKeyText
+    , VerificationKeyFile 'In -> VerificationKeyTextOrFile
+VktofVerificationKeyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pPaymentVerificationKeyFile
+    ]
+
+pPaymentVerificationKeyText :: Parser Text
+pPaymentVerificationKeyText :: Parser Text
+pPaymentVerificationKeyText =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"payment-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Payment verification key (Bech32-encoded)"
+    ]
+
+pPaymentVerificationKeyFile :: Parser (VerificationKeyFile In)
+pPaymentVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pPaymentVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"payment-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the payment verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pScript :: Parser ScriptFile
+pScript :: Parser ScriptFile
+pScript = FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+"script-file" forall a. Maybe a
+Nothing FilePath
+"Filepath of the script."
+
+pReferenceTxIn :: String -> String -> Parser TxIn
+pReferenceTxIn :: FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+prefix FilePath
+scriptType =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxIn
+parseTxIn) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+prefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"tx-in-reference")
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TX-IN"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"TxId#TxIx - Specify a reference input. The reference input must have"
+      , FilePath
+" a " forall a. Semigroup a => a -> a -> a
+<> FilePath
+scriptType forall a. Semigroup a => a -> a -> a
+<> FilePath
+" reference script attached."
+      ]
+    ]
+
+pReadOnlyReferenceTxIn :: Parser TxIn
+pReadOnlyReferenceTxIn :: Parser TxIn
+pReadOnlyReferenceTxIn =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxIn
+parseTxIn) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"read-only-tx-in-reference"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TX-IN"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Specify a read only reference input. This reference input is not witnessing anything "
+      , FilePath
+"it is simply provided in the plutus script context."
+      ]
+    ]
+
+--------------------------------------------------------------------------------
+
+pAddressKeyType :: Parser AddressKeyType
+pAddressKeyType :: Parser AddressKeyType
+pAddressKeyType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' AddressKeyType
+AddressKeyShelley forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"normal-key"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use a normal Shelley-era key (default)."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' AddressKeyType
+AddressKeyShelleyExtended forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"extended-key"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use an extended ed25519 Shelley-era key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' AddressKeyType
+AddressKeyByron forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"byron-key"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use a Byron-era key."
+        ]
+    , forall (f :: * -> *) a. Applicative f => a -> f a
+pure AddressKeyType
+AddressKeyShelley
+    ]
+
+pProtocolParamsFile :: Parser ProtocolParamsFile
+pProtocolParamsFile :: Parser ProtocolParamsFile
+pProtocolParamsFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> ProtocolParamsFile
+ProtocolParamsFile forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"protocol-params-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the JSON-encoded protocol parameters file"
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pCalculatePlutusScriptCost :: Parser TxBuildOutputOptions
+pCalculatePlutusScriptCost :: Parser TxBuildOutputOptions
+pCalculatePlutusScriptCost =
+  File () 'Out -> TxBuildOutputOptions
+OutputScriptCostOnly forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption
+   ( forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"calculate-plutus-script-cost" forall a. Semigroup a => a -> a -> a
+<>
+     forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE" forall a. Semigroup a => a -> a -> a
+<>
+     forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"(File () Out) filepath of the script cost information." forall a. Semigroup a => a -> a -> a
+<>
+     forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+   )
+
+pCertificateFile
+  :: BalanceTxExecUnits
+  -> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile :: BalanceTxExecUnits
+-> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile BalanceTxExecUnits
+balanceExecUnits =
+  (,)
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> CertificateFile
+CertificateFile forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+            [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+                [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"certificate-file"
+                , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"CERTIFICATEFILE"
+                , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+helpText
+                , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+                ]
+            , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption (forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"certificate" forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal)
+            ]
+        )
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+pCertifyingScriptOrReferenceScriptWit BalanceTxExecUnits
+balanceExecUnits)
+ where
+  pCertifyingScriptOrReferenceScriptWit
+    :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+  pCertifyingScriptOrReferenceScriptWit :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+pCertifyingScriptOrReferenceScriptWit BalanceTxExecUnits
+bExecUnits =
+    forall witctx.
+WitCtx witctx
+-> BalanceTxExecUnits
+-> FilePath
+-> Maybe FilePath
+-> FilePath
+-> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles
+     WitCtx WitCtxStake
+WitCtxStake
+     BalanceTxExecUnits
+balanceExecUnits
+     FilePath
+"certificate" forall a. Maybe a
+Nothing
+     FilePath
+"the use of the certificate." forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+    FilePath
+-> BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+pPlutusStakeReferenceScriptWitnessFiles FilePath
+"certificate-" BalanceTxExecUnits
+bExecUnits
+
+  helpText :: FilePath
+helpText = forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"Filepath of the certificate. This encompasses all "
+    , FilePath
+"types of certificates (stake pool certificates, "
+    , FilePath
+"stake key certificates etc). Optionally specify a script witness."
+    ]
+
+pPoolMetadataFile :: Parser (StakePoolMetadataFile In)
+pPoolMetadataFile :: Parser (StakePoolMetadataFile 'In)
+pPoolMetadataFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-metadata-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the pool metadata."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pTxMetadataJsonSchema :: Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema :: Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ()
+        (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"json-metadata-no-schema"
+        forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use the \"no schema\" conversion from JSON to tx metadata."
+        )
+        forall (f :: * -> *) a b. Functor f => f a -> b -> f b
+$> TxMetadataJsonSchema
+TxMetadataJsonNoSchema
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ()
+        (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"json-metadata-detailed-schema"
+        forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Use the \"detailed schema\" conversion from JSON to tx metadata."
+        )
+        forall (f :: * -> *) a b. Functor f => f a -> b -> f b
+$> TxMetadataJsonSchema
+TxMetadataJsonDetailedSchema
+    , -- Default to the no-schema conversion.
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxMetadataJsonSchema
+TxMetadataJsonNoSchema
+    ]
+
+convertTime :: String -> UTCTime
+convertTime :: FilePath -> UTCTime
+convertTime =
+  forall t.
+ParseTime t =>
+Bool -> TimeLocale -> FilePath -> FilePath -> t
+parseTimeOrError Bool
+False TimeLocale
+defaultTimeLocale FilePath
+"%Y-%m-%dT%H:%M:%SZ"
+
+pMetadataFile :: Parser MetadataFile
+pMetadataFile :: Parser MetadataFile
+pMetadataFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap File () 'In -> MetadataFile
+MetadataFileJSON
+        forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+            [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+                [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"metadata-json-file"
+                , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+                , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the metadata file, in JSON format."
+                , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+                ]
+            , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+                [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"metadata-file" -- backward compat name
+                , forall (f :: * -> *) a. Mod f a
+Opt.internal
+                ]
+            ]
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap File () 'In -> MetadataFile
+MetadataFileCBOR forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"metadata-cbor-file"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the metadata, in raw CBOR format."
+        , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+        ]
+    ]
+
+pWithdrawal
+  :: BalanceTxExecUnits
+  -> Parser (StakeAddress,
+            Lovelace,
+            Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal :: BalanceTxExecUnits
+-> Parser
+     (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal BalanceTxExecUnits
+balance =
+    (\(StakeAddress
+stakeAddr,Lovelace
+lovelace) Maybe (ScriptWitnessFiles WitCtxStake)
+maybeScriptFp -> (StakeAddress
+stakeAddr, Lovelace
+lovelace, Maybe (ScriptWitnessFiles WitCtxStake)
+maybeScriptFp))
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser (StakeAddress, Lovelace)
+parseWithdrawal)
+            (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"withdrawal"
+            forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"WITHDRAWAL"
+            forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+helpText
+            )
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (ScriptWitnessFiles WitCtxStake)
+pWithdrawalScriptOrReferenceScriptWit
+ where
+  pWithdrawalScriptOrReferenceScriptWit :: Parser (ScriptWitnessFiles WitCtxStake)
+  pWithdrawalScriptOrReferenceScriptWit :: Parser (ScriptWitnessFiles WitCtxStake)
+pWithdrawalScriptOrReferenceScriptWit =
+   forall witctx.
+WitCtx witctx
+-> BalanceTxExecUnits
+-> FilePath
+-> Maybe FilePath
+-> FilePath
+-> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles
+     WitCtx WitCtxStake
+WitCtxStake
+     BalanceTxExecUnits
+balance
+     FilePath
+"withdrawal" forall a. Maybe a
+Nothing
+     FilePath
+"the withdrawal of rewards." forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+   FilePath
+-> BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+pPlutusStakeReferenceScriptWitnessFiles FilePath
+"withdrawal-" BalanceTxExecUnits
+balance
+
+  helpText :: FilePath
+helpText = forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"The reward withdrawal as StakeAddress+Lovelace where "
+    , FilePath
+"StakeAddress is the Bech32-encoded stake address "
+    , FilePath
+"followed by the amount in Lovelace. Optionally specify "
+    , FilePath
+"a script witness."
+    ]
+
+  parseWithdrawal :: Parsec.Parser (StakeAddress, Lovelace)
+  parseWithdrawal :: Parser (StakeAddress, Lovelace)
+parseWithdrawal =
+    (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeAddress
+parseStakeAddress forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* forall s (m :: * -> *) u.
+Stream s m Char =>
+Char -> ParsecT s u m Char
+Parsec.char Char
+'+' forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+parseLovelace
+
+pPlutusStakeReferenceScriptWitnessFiles
+  :: String
+  -> BalanceTxExecUnits -- ^ Use the @execution-units@ flag.
+  -> Parser (ScriptWitnessFiles WitCtxStake)
+pPlutusStakeReferenceScriptWitnessFiles :: FilePath
+-> BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxStake)
+pPlutusStakeReferenceScriptWitnessFiles FilePath
+prefix BalanceTxExecUnits
+autoBalanceExecUnits =
+  forall witctx.
+TxIn
+-> AnyScriptLanguage
+-> ScriptDatumOrFile witctx
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> Maybe PolicyId
+-> ScriptWitnessFiles witctx
+PlutusReferenceScriptWitnessFiles
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+prefix FilePath
+"plutus"
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser AnyScriptLanguage
+pPlutusScriptLanguage FilePath
+prefix
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatumOrFile WitCtxStake
+NoScriptDatumOrFileForStake
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser ScriptRedeemerOrFile
+pScriptRedeemerOrFile (FilePath
+prefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"reference-tx-in")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (case BalanceTxExecUnits
+autoBalanceExecUnits of
+          BalanceTxExecUnits
+AutoBalance -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Natural -> Natural -> ExecutionUnits
+ExecutionUnits Natural
+0 Natural
+0)
+          BalanceTxExecUnits
+ManualBalance -> FilePath -> Parser ExecutionUnits
+pExecutionUnits forall a b. (a -> b) -> a -> b
+$ FilePath
+prefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"reference-tx-in")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+
+pPlutusScriptLanguage :: String -> Parser AnyScriptLanguage
+pPlutusScriptLanguage :: FilePath -> Parser AnyScriptLanguage
+pPlutusScriptLanguage FilePath
+prefix =
+  forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage forall a b. (a -> b) -> a -> b
+$ forall lang. PlutusScriptVersion lang -> ScriptLanguage lang
+PlutusScriptLanguage PlutusScriptVersion PlutusScriptV2
+PlutusScriptV2)
+    (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long (FilePath
+prefix forall a. [a] -> [a] -> [a]
+++ FilePath
+"plutus-script-v2")
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify a plutus script v2 reference script."
+    )
+
+pUpdateProposalFile :: Parser UpdateProposalFile
+pUpdateProposalFile :: Parser UpdateProposalFile
+pUpdateProposalFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> UpdateProposalFile
+UpdateProposalFile
+    forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+        [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"update-proposal-file"
+          , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+          , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the update proposal."
+          , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+          ]
+        , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"update-proposal"
+          , forall (f :: * -> *) a. Mod f a
+Opt.internal
+          ]
+        ]
+
+pRequiredSigner :: Parser RequiredSigner
+pRequiredSigner :: Parser RequiredSigner
+pRequiredSigner =
+      SigningKeyFile 'In -> RequiredSigner
+RequiredSignerSkeyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SigningKeyFile 'In)
+sKeyFile
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Hash PaymentKey -> RequiredSigner
+RequiredSignerHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash PaymentKey)
+sPayKeyHash
+ where
+  sKeyFile :: Parser (SigningKeyFile In)
+  sKeyFile :: Parser (SigningKeyFile 'In)
+sKeyFile = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"required-signer"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Input filepath of the signing key (zero or more) whose "
+      , FilePath
+"signature is required."
+      ]
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+  sPayKeyHash :: Parser (Hash PaymentKey)
+  sPayKeyHash :: Parser (Hash PaymentKey)
+sPayKeyHash =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser forall a b. (a -> b) -> a -> b
+$ forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType (Hash a) -> Parser (Hash a)
+parseHash (forall a. AsType a -> AsType (Hash a)
+AsHash AsType PaymentKey
+AsPaymentKey)) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"required-signer-hash"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"Hash of the verification key (zero or more) whose "
+        , FilePath
+"signature is required."
+        ]
+      ]
+
+pVrfSigningKeyFile :: Parser (SigningKeyFile In)
+pVrfSigningKeyFile :: Parser (SigningKeyFile 'In)
+pVrfSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"vrf-signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the VRF signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pWhichLeadershipSchedule :: Parser EpochLeadershipSchedule
+pWhichLeadershipSchedule :: Parser EpochLeadershipSchedule
+pWhichLeadershipSchedule = Parser EpochLeadershipSchedule
+pCurrent forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser EpochLeadershipSchedule
+pNext
+  where
+    pCurrent :: Parser EpochLeadershipSchedule
+    pCurrent :: Parser EpochLeadershipSchedule
+pCurrent =
+      forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' EpochLeadershipSchedule
+CurrentEpoch forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"current"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Get the leadership schedule for the current epoch."
+        ]
+
+    pNext :: Parser EpochLeadershipSchedule
+    pNext :: Parser EpochLeadershipSchedule
+pNext =
+      forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' EpochLeadershipSchedule
+NextEpoch forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"next"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Get the leadership schedule for the following epoch."
+        ]
+
+pWitnessSigningData :: Parser WitnessSigningData
+pWitnessSigningData :: Parser WitnessSigningData
+pWitnessSigningData =
+  SigningKeyFile 'In
+-> Maybe (Address ByronAddr) -> WitnessSigningData
+KeyWitnessSigningData
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"signing-key-file"
+          , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+          , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the signing key (one or more)."
+          , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+          ]
+        )
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (Address ByronAddr)
+pByronAddress
+
+pSigningKeyFileIn :: Parser (SigningKeyFile In)
+pSigningKeyFileIn :: Parser (SigningKeyFile 'In)
+pSigningKeyFileIn =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pKesPeriod :: Parser KESPeriod
+pKesPeriod :: Parser KESPeriod
+pKesPeriod =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word -> KESPeriod
+KESPeriod forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"KES_PERIOD") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"kes-period"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The start of the KES key validity period."
+    ]
+
+pEpochNo :: String -> Parser EpochNo
+pEpochNo :: FilePath -> Parser EpochNo
+pEpochNo FilePath
+h =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> EpochNo
+EpochNo forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"EPOCH") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"epoch"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    ]
+
+
+pEpochNoUpdateProp :: Parser EpochNo
+pEpochNoUpdateProp :: Parser EpochNo
+pEpochNoUpdateProp = FilePath -> Parser EpochNo
+pEpochNo FilePath
+"The epoch number in which the update proposal is valid."
+
+pGenesisFile :: String -> Parser GenesisFile
+pGenesisFile :: FilePath -> Parser GenesisFile
+pGenesisFile FilePath
+desc =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> GenesisFile
+GenesisFile forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+desc
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pOperationalCertificateFile :: Parser (File () direction)
+pOperationalCertificateFile :: forall (direction :: FileDirection). Parser (File () direction)
+pOperationalCertificateFile =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"op-cert-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the node's operational certificate."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pKeyOutputFormat :: Parser KeyOutputFormat
+pKeyOutputFormat :: Parser KeyOutputFormat
+pKeyOutputFormat =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM KeyOutputFormat
+readKeyOutputFormat forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"key-output-format"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Optional key output format. Accepted output formats are \"text-envelope\" "
+      , FilePath
+"and \"bech32\" (default is \"bech32\")."
+      ]
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value KeyOutputFormat
+KeyOutputFormatTextEnvelope
+    ]
+
+pPoolIdOutputFormat :: Parser IdOutputFormat
+pPoolIdOutputFormat :: Parser IdOutputFormat
+pPoolIdOutputFormat =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM IdOutputFormat
+readIdOutputFormat forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"output-format"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Optional pool id output format. Accepted output formats are \"hex\" "
+      , FilePath
+"and \"bech32\" (default is \"bech32\")."
+      ]
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value IdOutputFormat
+IdOutputFormatBech32
+    ]
+
+pTxViewOutputFormat :: Parser TxViewOutputFormat
+pTxViewOutputFormat :: Parser TxViewOutputFormat
+pTxViewOutputFormat =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM TxViewOutputFormat
+readTxViewOutputFormat forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"output-format"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Optional transaction view output format. Accepted output formats are \"json\" "
+      , FilePath
+"and \"yaml\" (default is \"json\")."
+      ]
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value TxViewOutputFormat
+TxViewOutputFormatJson
+    ]
+
+pGovernanceActionViewOutputFormat :: Parser GovernanceActionViewOutputFormat
+pGovernanceActionViewOutputFormat :: Parser GovernanceActionViewOutputFormat
+pGovernanceActionViewOutputFormat =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM GovernanceActionViewOutputFormat
+readGovernanceActionViewOutputFormat forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"output-format"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Optional governance action view output format. Accepted output formats are \"json\" "
+      , FilePath
+"and \"yaml\" (default is \"json\")."
+      ]
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value GovernanceActionViewOutputFormat
+GovernanceActionViewOutputFormatJson
+    ]
+
+pMaybeOutputFile :: Parser (Maybe (File content Out))
+pMaybeOutputFile :: forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"out-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Optional output file. Default is to write to stdout."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pVerificationKey
+  :: forall keyrole. SerialiseAsBech32 (VerificationKey keyrole)
+  => AsType keyrole
+  -> Parser (VerificationKey keyrole)
+pVerificationKey :: forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> Parser (VerificationKey keyrole)
+pVerificationKey AsType keyrole
+asType =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType keyrole
+asType) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Verification key (Bech32 or hex-encoded)."
+    ]
+
+pVerificationKeyOrFileIn
+  :: SerialiseAsBech32 (VerificationKey keyrole)
+  => AsType keyrole
+  -> Parser (VerificationKeyOrFile keyrole)
+pVerificationKeyOrFileIn :: forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> Parser (VerificationKeyOrFile keyrole)
+pVerificationKeyOrFileIn AsType keyrole
+asType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> Parser (VerificationKey keyrole)
+pVerificationKey AsType keyrole
+asType
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+    ]
+
+pExtendedVerificationKeyFileIn :: Parser (VerificationKeyFile In)
+pExtendedVerificationKeyFileIn :: Parser (VerificationKeyFile 'In)
+pExtendedVerificationKeyFileIn =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"extended-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the ed25519-bip32 verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pGenesisVerificationKeyFile :: Parser (VerificationKeyFile In)
+pGenesisVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pGenesisVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the genesis verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pGenesisVerificationKeyHash :: Parser (Hash GenesisKey)
+pGenesisVerificationKeyHash :: Parser (Hash GenesisKey)
+pGenesisVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash GenesisKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Genesis verification key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash GenesisKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash GenesisKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid genesis verification key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType GenesisKey
+AsGenesisKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pGenesisVerificationKey :: Parser (VerificationKey GenesisKey)
+pGenesisVerificationKey :: Parser (VerificationKey GenesisKey)
+pGenesisVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey GenesisKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Genesis verification key (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (VerificationKey GenesisKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (VerificationKey GenesisKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid genesis verification key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisKey
+AsGenesisKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pGenesisVerificationKeyOrFile :: Parser (VerificationKeyOrFile GenesisKey)
+pGenesisVerificationKeyOrFile :: Parser (VerificationKeyOrFile GenesisKey)
+pGenesisVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey GenesisKey)
+pGenesisVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pGenesisVerificationKeyFile
+    ]
+
+pGenesisVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile GenesisKey)
+pGenesisVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile GenesisKey)
+pGenesisVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile GenesisKey)
+pGenesisVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash GenesisKey)
+pGenesisVerificationKeyHash
+    ]
+
+pGenesisDelegateVerificationKeyFile :: Parser (VerificationKeyFile In)
+pGenesisDelegateVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pGenesisDelegateVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-delegate-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the genesis delegate verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pGenesisDelegateVerificationKeyHash :: Parser (Hash GenesisDelegateKey)
+pGenesisDelegateVerificationKeyHash :: Parser (Hash GenesisDelegateKey)
+pGenesisDelegateVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash GenesisDelegateKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-delegate-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Genesis delegate verification key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash GenesisDelegateKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash GenesisDelegateKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first
+        (\RawBytesHexError
+e ->
+          FilePath
+"Invalid genesis delegate verification key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pGenesisDelegateVerificationKeyOrFile
+  :: Parser (VerificationKeyOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrFile :: Parser (VerificationKeyOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey GenesisDelegateKey)
+pGenesisDelegateVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pGenesisDelegateVerificationKeyFile
+    ]
+
+pGenesisDelegateVerificationKeyOrHashOrFile
+  :: Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash GenesisDelegateKey)
+pGenesisDelegateVerificationKeyHash
+    ]
+
+pKesVerificationKeyOrFile :: Parser (VerificationKeyOrFile KesKey)
+pKesVerificationKeyOrFile :: Parser (VerificationKeyOrFile KesKey)
+pKesVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey KesKey)
+pKesVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pKesVerificationKeyFile
+    ]
+
+pKesVerificationKey :: Parser (VerificationKey KesKey)
+pKesVerificationKey :: Parser (VerificationKey KesKey)
+pKesVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (VerificationKey KesKey)
+deserialiseVerKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"kes-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"A Bech32 or hex-encoded hot KES verification key."
+    ]
+  where
+    asType :: AsType (VerificationKey KesKey)
+    asType :: AsType (VerificationKey KesKey)
+asType = forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType KesKey
+AsKesKey
+
+    deserialiseVerKey :: String -> Either String (VerificationKey KesKey)
+    deserialiseVerKey :: FilePath -> Either FilePath (VerificationKey KesKey)
+deserialiseVerKey FilePath
+str =
+      case forall a.
+SerialiseAsBech32 a =>
+AsType a -> Text -> Either Bech32DecodeError a
+deserialiseFromBech32 AsType (VerificationKey KesKey)
+asType (FilePath -> Text
+Text.pack FilePath
+str) of
+        Right VerificationKey KesKey
+res -> forall a b. b -> Either a b
+Right VerificationKey KesKey
+res
+
+        -- The input was valid Bech32, but some other error occurred.
+        Left err :: Bech32DecodeError
+err@(Bech32UnexpectedPrefix Text
+_ Set Text
+_) -> forall a b. a -> Either a b
+Left (forall e. Error e => e -> FilePath
+displayError Bech32DecodeError
+err)
+        Left err :: Bech32DecodeError
+err@(Bech32DataPartToBytesError Text
+_) -> forall a b. a -> Either a b
+Left (forall e. Error e => e -> FilePath
+displayError Bech32DecodeError
+err)
+        Left err :: Bech32DecodeError
+err@(Bech32DeserialiseFromBytesError ByteString
+_) -> forall a b. a -> Either a b
+Left (forall e. Error e => e -> FilePath
+displayError Bech32DecodeError
+err)
+        Left err :: Bech32DecodeError
+err@(Bech32WrongPrefix Text
+_ Text
+_) -> forall a b. a -> Either a b
+Left (forall e. Error e => e -> FilePath
+displayError Bech32DecodeError
+err)
+
+        -- The input was not valid Bech32. Attempt to deserialise it as hex.
+        Left (Bech32DecodingError DecodingError
+_) ->
+          forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first
+            (\RawBytesHexError
+e -> FilePath
+"Invalid stake pool verification key: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e) forall a b. (a -> b) -> a -> b
+$
+          forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex AsType (VerificationKey KesKey)
+asType (FilePath -> ByteString
+BSC.pack FilePath
+str)
+
+pKesVerificationKeyFile :: Parser (VerificationKeyFile In)
+pKesVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pKesVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"kes-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the hot KES verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"hot-kes-verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pTxSubmitFile :: Parser FilePath
+pTxSubmitFile :: Parser FilePath
+pTxSubmitFile =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the transaction you intend to submit."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pTxIn :: BalanceTxExecUnits
+      -> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn :: BalanceTxExecUnits
+-> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn BalanceTxExecUnits
+balance =
+     (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxIn
+parseTxIn)
+               (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-in"
+                forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TX-IN"
+               forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TxId#TxIx"
+               )
+         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxTxIn)
+pPlutusReferenceScriptWitness BalanceTxExecUnits
+balance forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+                       Parser (ScriptWitnessFiles WitCtxTxIn)
+pSimpleReferenceSpendingScriptWitess forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+                       Parser (ScriptWitnessFiles WitCtxTxIn)
+pEmbeddedPlutusScriptWitness
+                       )
+ where
+  pSimpleReferenceSpendingScriptWitess :: Parser (ScriptWitnessFiles WitCtxTxIn)
+  pSimpleReferenceSpendingScriptWitess :: Parser (ScriptWitnessFiles WitCtxTxIn)
+pSimpleReferenceSpendingScriptWitess =
+    TxIn -> ScriptWitnessFiles WitCtxTxIn
+createSimpleReferenceScriptWitnessFiles
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+"simple-script-" FilePath
+"simple"
+   where
+    createSimpleReferenceScriptWitnessFiles
+      :: TxIn
+      -> ScriptWitnessFiles WitCtxTxIn
+    createSimpleReferenceScriptWitnessFiles :: TxIn -> ScriptWitnessFiles WitCtxTxIn
+createSimpleReferenceScriptWitnessFiles TxIn
+refTxIn  =
+      let simpleLang :: AnyScriptLanguage
+simpleLang = forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage SimpleScript'
+SimpleScriptLanguage
+      in forall witctx.
+TxIn
+-> AnyScriptLanguage -> Maybe PolicyId -> ScriptWitnessFiles witctx
+SimpleReferenceScriptWitnessFiles TxIn
+refTxIn AnyScriptLanguage
+simpleLang forall a. Maybe a
+Nothing
+
+  pPlutusReferenceScriptWitness :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxTxIn)
+  pPlutusReferenceScriptWitness :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxTxIn)
+pPlutusReferenceScriptWitness BalanceTxExecUnits
+autoBalanceExecUnits =
+    TxIn
+-> AnyScriptLanguage
+-> ScriptDatumOrFile WitCtxTxIn
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> ScriptWitnessFiles WitCtxTxIn
+createPlutusReferenceScriptWitnessFiles
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+"spending-" FilePath
+"plutus"
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser AnyScriptLanguage
+pPlutusScriptLanguage FilePath
+"spending-"
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall witctx.
+FilePath -> WitCtx witctx -> Parser (ScriptDatumOrFile witctx)
+pScriptDatumOrFile FilePath
+"spending-reference-tx-in" WitCtx WitCtxTxIn
+WitCtxTxIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser ScriptRedeemerOrFile
+pScriptRedeemerOrFile FilePath
+"spending-reference-tx-in"
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (case BalanceTxExecUnits
+autoBalanceExecUnits of
+              BalanceTxExecUnits
+AutoBalance -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Natural -> Natural -> ExecutionUnits
+ExecutionUnits Natural
+0 Natural
+0)
+              BalanceTxExecUnits
+ManualBalance -> FilePath -> Parser ExecutionUnits
+pExecutionUnits FilePath
+"spending-reference-tx-in")
+   where
+    createPlutusReferenceScriptWitnessFiles
+      :: TxIn
+      -> AnyScriptLanguage
+      -> ScriptDatumOrFile WitCtxTxIn
+      -> ScriptRedeemerOrFile
+      -> ExecutionUnits
+      -> ScriptWitnessFiles WitCtxTxIn
+    createPlutusReferenceScriptWitnessFiles :: TxIn
+-> AnyScriptLanguage
+-> ScriptDatumOrFile WitCtxTxIn
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> ScriptWitnessFiles WitCtxTxIn
+createPlutusReferenceScriptWitnessFiles TxIn
+refIn AnyScriptLanguage
+sLang ScriptDatumOrFile WitCtxTxIn
+sDatum ScriptRedeemerOrFile
+sRedeemer ExecutionUnits
+execUnits =
+      forall witctx.
+TxIn
+-> AnyScriptLanguage
+-> ScriptDatumOrFile witctx
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> Maybe PolicyId
+-> ScriptWitnessFiles witctx
+PlutusReferenceScriptWitnessFiles TxIn
+refIn AnyScriptLanguage
+sLang ScriptDatumOrFile WitCtxTxIn
+sDatum ScriptRedeemerOrFile
+sRedeemer ExecutionUnits
+execUnits forall a. Maybe a
+Nothing
+
+  pEmbeddedPlutusScriptWitness :: Parser (ScriptWitnessFiles WitCtxTxIn)
+  pEmbeddedPlutusScriptWitness :: Parser (ScriptWitnessFiles WitCtxTxIn)
+pEmbeddedPlutusScriptWitness =
+    forall witctx.
+WitCtx witctx
+-> BalanceTxExecUnits
+-> FilePath
+-> Maybe FilePath
+-> FilePath
+-> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles
+      WitCtx WitCtxTxIn
+WitCtxTxIn
+      BalanceTxExecUnits
+balance
+      FilePath
+"tx-in" (forall a. a -> Maybe a
+Just FilePath
+"txin")
+      FilePath
+"the spending of the transaction input."
+
+pTxInCollateral :: Parser TxIn
+pTxInCollateral :: Parser TxIn
+pTxInCollateral =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxIn
+parseTxIn)
+      (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-in-collateral"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TX-IN"
+      forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TxId#TxIx"
+      )
+
+pReturnCollateral :: Parser TxOutAnyEra
+pReturnCollateral :: Parser TxOutAnyEra
+pReturnCollateral =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser (TxOutDatumAnyEra -> ReferenceScriptAnyEra -> TxOutAnyEra)
+parseTxOutAnyEra)
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-out-return-collateral"
+            , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS VALUE"
+            -- TODO alonzo: Update the help text to describe the new syntax as well.
+            , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help ( FilePath
+"The transaction output as ADDRESS VALUE where ADDRESS is " forall a. Semigroup a => a -> a -> a
+<>
+                        FilePath
+"the Bech32-encoded address followed by the value in " forall a. Semigroup a => a -> a -> a
+<>
+                        FilePath
+"Lovelace. In the situation where your collateral txin " forall a. Semigroup a => a -> a -> a
+<>
+                        FilePath
+"over collateralizes the transaction, you can optionally " forall a. Semigroup a => a -> a -> a
+<>
+                        FilePath
+"specify a tx out of your choosing to return the excess Lovelace."
+            )
+            ]
+          )
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxOutDatumAnyEra
+TxOutDatumByNone -- TODO: Babbage era - we should be able to return these
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ReferenceScriptAnyEra
+ReferenceScriptAnyEraNone -- TODO: Babbage era - we should be able to return these
+
+pTotalCollateral :: Parser Lovelace
+pTotalCollateral :: Parser Lovelace
+pTotalCollateral =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Integer -> Lovelace
+Lovelace forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Integer
+decimal) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-total-collateral"
+  , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INTEGER"
+  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"The total amount of collateral that will be collected "
+    , FilePath
+"as fees in the event of a Plutus script failure. Must be used "
+    , FilePath
+"in conjuction with \"--tx-out-return-collateral\"."
+    ]
+  ]
+
+pWitnessOverride :: Parser Word
+pWitnessOverride :: Parser Word
+pWitnessOverride = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"witness-override"
+  , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"WORD"
+  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify and override the number of witnesses the transaction requires."
+  ]
+
+
+pTxOut :: Parser TxOutAnyEra
+pTxOut :: Parser TxOutAnyEra
+pTxOut =
+        forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser (TxOutDatumAnyEra -> ReferenceScriptAnyEra -> TxOutAnyEra)
+parseTxOutAnyEra)
+          (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-out"
+          forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS VALUE"
+          -- TODO alonzo: Update the help text to describe the new syntax as well.
+          forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The transaction output as ADDRESS VALUE where ADDRESS is \
+                      \the Bech32-encoded address followed by the value in \
+                      \the multi-asset syntax (including simply Lovelace)."
+          )
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutDatumAnyEra
+pTxOutDatum
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ReferenceScriptAnyEra
+pRefScriptFp
+
+pTxOutDatum :: Parser TxOutDatumAnyEra
+pTxOutDatum :: Parser TxOutDatumAnyEra
+pTxOutDatum =
+      Parser TxOutDatumAnyEra
+pTxOutDatumByHashOnly
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser TxOutDatumAnyEra
+pTxOutDatumByHashOf
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser TxOutDatumAnyEra
+pTxOutDatumByValue
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser TxOutDatumAnyEra
+pTxOutInlineDatumByValue
+  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxOutDatumAnyEra
+TxOutDatumByNone
+  where
+    pTxOutDatumByHashOnly :: Parser TxOutDatumAnyEra
+pTxOutDatumByHashOnly =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Hash ScriptData -> TxOutDatumAnyEra
+TxOutDatumByHashOnly
+      forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser forall a b. (a -> b) -> a -> b
+$ forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType (Hash a) -> Parser (Hash a)
+parseHash (forall a. AsType a -> AsType (Hash a)
+AsHash AsType ScriptData
+AsScriptData))
+      forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-out-datum-hash"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"The script datum hash for this tx output, as "
+          , FilePath
+"the raw datum hash (in hex)."
+          ]
+        ]
+
+    pTxOutDatumByHashOf :: Parser TxOutDatumAnyEra
+pTxOutDatumByHashOf = ScriptRedeemerOrFile -> TxOutDatumAnyEra
+TxOutDatumByHashOf forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+        FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile
+          FilePath
+"tx-out-datum-hash"
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum hash for this tx output, by hashing the "
+            , FilePath
+"script datum given here in JSON syntax."
+            ]
+          )
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum hash for this tx output, by hashing the "
+            , FilePath
+"script datum in the given JSON file."
+            ]
+          )
+
+    pTxOutDatumByValue :: Parser TxOutDatumAnyEra
+pTxOutDatumByValue =
+      ScriptRedeemerOrFile -> TxOutDatumAnyEra
+TxOutDatumByValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+        FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile
+          FilePath
+"tx-out-datum-embed"
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum to embed in the tx for this output, "
+            , FilePath
+"given here in JSON syntax."
+            ]
+          )
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum to embed in the tx for this output, "
+            , FilePath
+"in the given JSON file."
+            ]
+          )
+
+    pTxOutInlineDatumByValue :: Parser TxOutDatumAnyEra
+pTxOutInlineDatumByValue =
+      ScriptRedeemerOrFile -> TxOutDatumAnyEra
+TxOutInlineDatumByValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+        FilePath -> FilePath -> FilePath -> Parser ScriptRedeemerOrFile
+pScriptDataOrFile
+          FilePath
+"tx-out-inline-datum"
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum to embed in the tx output as an inline datum, "
+            , FilePath
+"given here in JSON syntax."
+            ]
+          )
+          ( forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"The script datum to embed in the tx output as an inline datum, "
+            , FilePath
+"in the given JSON file."
+            ]
+          )
+
+pRefScriptFp :: Parser ReferenceScriptAnyEra
+pRefScriptFp :: Parser ReferenceScriptAnyEra
+pRefScriptFp =
+  FilePath -> ReferenceScriptAnyEra
+ReferenceScriptAnyEra forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption
+    (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-out-reference-script-file"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Reference script input file."
+    forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ) forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ReferenceScriptAnyEra
+ReferenceScriptAnyEraNone
+
+pMintMultiAsset
+  :: BalanceTxExecUnits
+  -> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset :: BalanceTxExecUnits
+-> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset BalanceTxExecUnits
+balanceExecUnits =
+  (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option
+            (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Value
+parseValue)
+              (  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mint"
+              forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"VALUE"
+              forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+helpText
+              )
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some (BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxMint)
+pMintingScriptOrReferenceScriptWit BalanceTxExecUnits
+balanceExecUnits forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+                Parser (ScriptWitnessFiles WitCtxMint)
+pSimpleReferenceMintingScriptWitness forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|>
+                BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxMint)
+pPlutusMintReferenceScriptWitnessFiles BalanceTxExecUnits
+balanceExecUnits
+               )
+ where
+  pMintingScriptOrReferenceScriptWit
+    :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxMint)
+  pMintingScriptOrReferenceScriptWit :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxMint)
+pMintingScriptOrReferenceScriptWit BalanceTxExecUnits
+bExecUnits =
+   forall witctx.
+WitCtx witctx
+-> BalanceTxExecUnits
+-> FilePath
+-> Maybe FilePath
+-> FilePath
+-> Parser (ScriptWitnessFiles witctx)
+pScriptWitnessFiles
+     WitCtx WitCtxMint
+WitCtxMint
+     BalanceTxExecUnits
+bExecUnits
+     FilePath
+"mint" (forall a. a -> Maybe a
+Just FilePath
+"minting")
+     FilePath
+"the minting of assets for a particular policy Id."
+
+  pSimpleReferenceMintingScriptWitness :: Parser (ScriptWitnessFiles WitCtxMint)
+  pSimpleReferenceMintingScriptWitness :: Parser (ScriptWitnessFiles WitCtxMint)
+pSimpleReferenceMintingScriptWitness =
+    TxIn -> PolicyId -> ScriptWitnessFiles WitCtxMint
+createSimpleMintingReferenceScriptWitnessFiles
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+"simple-minting-script-" FilePath
+"simple"
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser PolicyId
+pPolicyId
+   where
+    createSimpleMintingReferenceScriptWitnessFiles
+      :: TxIn
+      -> PolicyId
+      -> ScriptWitnessFiles WitCtxMint
+    createSimpleMintingReferenceScriptWitnessFiles :: TxIn -> PolicyId -> ScriptWitnessFiles WitCtxMint
+createSimpleMintingReferenceScriptWitnessFiles TxIn
+refTxIn PolicyId
+pid =
+      let simpleLang :: AnyScriptLanguage
+simpleLang = forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage SimpleScript'
+SimpleScriptLanguage
+      in forall witctx.
+TxIn
+-> AnyScriptLanguage -> Maybe PolicyId -> ScriptWitnessFiles witctx
+SimpleReferenceScriptWitnessFiles TxIn
+refTxIn AnyScriptLanguage
+simpleLang (forall a. a -> Maybe a
+Just PolicyId
+pid)
+
+  pPlutusMintReferenceScriptWitnessFiles
+    :: BalanceTxExecUnits ->  Parser (ScriptWitnessFiles WitCtxMint)
+  pPlutusMintReferenceScriptWitnessFiles :: BalanceTxExecUnits -> Parser (ScriptWitnessFiles WitCtxMint)
+pPlutusMintReferenceScriptWitnessFiles BalanceTxExecUnits
+autoBalanceExecUnits =
+   forall witctx.
+TxIn
+-> AnyScriptLanguage
+-> ScriptDatumOrFile witctx
+-> ScriptRedeemerOrFile
+-> ExecutionUnits
+-> Maybe PolicyId
+-> ScriptWitnessFiles witctx
+PlutusReferenceScriptWitnessFiles
+     forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxIn
+pReferenceTxIn FilePath
+"mint-" FilePath
+"plutus"
+     forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser AnyScriptLanguage
+pPlutusScriptLanguage FilePath
+"mint-"
+     forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatumOrFile WitCtxMint
+NoScriptDatumOrFileForMint
+     forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser ScriptRedeemerOrFile
+pScriptRedeemerOrFile FilePath
+"mint-reference-tx-in"
+     forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (case BalanceTxExecUnits
+autoBalanceExecUnits of
+           BalanceTxExecUnits
+AutoBalance -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Natural -> Natural -> ExecutionUnits
+ExecutionUnits Natural
+0 Natural
+0)
+           BalanceTxExecUnits
+ManualBalance -> FilePath -> Parser ExecutionUnits
+pExecutionUnits FilePath
+"mint-reference-tx-in")
+     forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall a. a -> Maybe a
+Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser PolicyId
+pPolicyId)
+
+  helpText :: FilePath
+helpText = forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"Mint multi-asset value(s) with the multi-asset cli syntax. "
+    , FilePath
+"You must specify a script witness."
+    ]
+
+pPolicyId :: Parser PolicyId
+pPolicyId :: Parser PolicyId
+pPolicyId =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser PolicyId
+policyId) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"policy-id"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Policy id of minting script."
+    ]
+
+
+pInvalidBefore :: Parser SlotNo
+pInvalidBefore :: Parser SlotNo
+pInvalidBefore = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> SlotNo
+SlotNo forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"invalid-before"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Time that transaction is valid from (in slots)."
+    ]
+  , forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"lower-bound"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Time that transaction is valid from (in slots) "
+      , FilePath
+"(deprecated; use --invalid-before instead)."
+      ]
+    , forall (f :: * -> *) a. Mod f a
+Opt.internal
+    ]
+  ]
+
+pLegacyInvalidHereafter :: Parser SlotNo
+pLegacyInvalidHereafter :: Parser SlotNo
+pLegacyInvalidHereafter =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> SlotNo
+SlotNo forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"invalid-hereafter"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Time that transaction is valid until (in slots)."
+      ]
+    , forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"upper-bound"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"Time that transaction is valid until (in slots) "
+        , FilePath
+"(deprecated; use --invalid-hereafter instead)."
+        ]
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    , forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"ttl"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Time to live (in slots) (deprecated; use --invalid-hereafter instead)."
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pInvalidHereafter :: ()
+  => CardanoEra era
+  -> Parser (TxValidityUpperBound era)
+pInvalidHereafter :: forall era. CardanoEra era -> Parser (TxValidityUpperBound era)
+pInvalidHereafter =
+  forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+    (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. ByronEraOnly era -> TxValidityUpperBound era
+TxValidityNoUpperBound)
+    (\ShelleyBasedEra era
+eon ->
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall era.
+ShelleyBasedEra era -> Maybe SlotNo -> TxValidityUpperBound era
+TxValidityUpperBound ShelleyBasedEra era
+eon) forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+        [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Word64 -> SlotNo
+SlotNo) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"invalid-hereafter"
+          , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+          , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Time that transaction is valid until (in slots)."
+          ]
+        , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Word64 -> SlotNo
+SlotNo) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"upper-bound"
+          , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+          , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Time that transaction is valid until (in slots) "
+            , FilePath
+"(deprecated; use --invalid-hereafter instead)."
+            ]
+          , forall (f :: * -> *) a. Mod f a
+Opt.internal
+          ]
+        , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Word64 -> SlotNo
+SlotNo) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"SLOT") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"ttl"
+          , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"SLOT"
+          , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Time to live (in slots) (deprecated; use --invalid-hereafter instead)."
+          , forall (f :: * -> *) a. Mod f a
+Opt.internal
+          ]
+        , forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+        ]
+    )
+
+pTxFee :: Parser Lovelace
+pTxFee :: Parser Lovelace
+pTxFee =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (Integer -> Lovelace
+Lovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a b. (Integral a, Num b) => a -> b
+fromIntegral :: Natural -> Integer)) forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"fee"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The fee amount in Lovelace."
+    ]
+
+pWitnessFile :: Parser WitnessFile
+pWitnessFile :: Parser WitnessFile
+pWitnessFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> WitnessFile
+WitnessFile forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"witness-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the witness"
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pTxBodyFileIn :: Parser (TxBodyFile In)
+pTxBodyFileIn :: Parser (TxBodyFile 'In)
+pTxBodyFileIn =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-body-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the JSON TxBody."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pTxBodyFileOut :: Parser (TxBodyFile Out)
+pTxBodyFileOut :: Parser (TxBodyFile 'Out)
+pTxBodyFileOut =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"out-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Output filepath of the JSON TxBody."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-body-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pTxFileIn :: Parser (TxFile In)
+pTxFileIn :: Parser (TxFile 'In)
+pTxFileIn =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Input filepath of the JSON Tx."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pTxFileOut :: Parser (TxFile Out)
+pTxFileOut :: Parser (TxFile 'Out)
+pTxFileOut =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"out-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Output filepath of the JSON Tx."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pInputTxOrTxBodyFile :: Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile :: Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ TxBodyFile 'In -> InputTxBodyOrTxFile
+InputTxBodyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+    , TxFile 'In -> InputTxBodyOrTxFile
+InputTxFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxFile 'In)
+pTxFileIn
+    ]
+
+pTxInCount :: Parser TxInCount
+pTxInCount :: Parser TxInCount
+pTxInCount =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Int -> TxInCount
+TxInCount forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-in-count"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of transaction inputs."
+    ]
+
+pTxOutCount :: Parser TxOutCount
+pTxOutCount :: Parser TxOutCount
+pTxOutCount =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Int -> TxOutCount
+TxOutCount forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-out-count"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of transaction outputs."
+    ]
+
+pTxShelleyWitnessCount :: Parser TxShelleyWitnessCount
+pTxShelleyWitnessCount :: Parser TxShelleyWitnessCount
+pTxShelleyWitnessCount =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Int -> TxShelleyWitnessCount
+TxShelleyWitnessCount forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"witness-count"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of Shelley key witnesses."
+    ]
+
+pTxByronWitnessCount :: Parser TxByronWitnessCount
+pTxByronWitnessCount :: Parser TxByronWitnessCount
+pTxByronWitnessCount =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Int -> TxByronWitnessCount
+TxByronWitnessCount forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"byron-witness-count"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of Byron key witnesses (default is 0)."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Int
+0
+    ]
+
+pQueryUTxOFilter :: Parser QueryUTxOFilter
+pQueryUTxOFilter :: Parser QueryUTxOFilter
+pQueryUTxOFilter =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ Parser QueryUTxOFilter
+pQueryUTxOWhole
+    , Parser QueryUTxOFilter
+pQueryUTxOByAddress
+    , Parser QueryUTxOFilter
+pQueryUTxOByTxIn
+    ]
+  where
+    pQueryUTxOWhole :: Parser QueryUTxOFilter
+pQueryUTxOWhole =
+      forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' QueryUTxOFilter
+QueryUTxOWhole forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"whole-utxo"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Return the whole UTxO (only appropriate on small testnets)."
+        ]
+
+    pQueryUTxOByAddress :: Parser QueryUTxOFilter
+    pQueryUTxOByAddress :: Parser QueryUTxOFilter
+pQueryUTxOByAddress = Set AddressAny -> QueryUTxOFilter
+QueryUTxOByAddress forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser AddressAny
+pByAddress
+
+    pByAddress :: Parser AddressAny
+    pByAddress :: Parser AddressAny
+pByAddress =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser AddressAny
+parseAddressAny) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"address"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filter by Cardano address(es) (Bech32-encoded)."
+        ]
+
+    pQueryUTxOByTxIn :: Parser QueryUTxOFilter
+    pQueryUTxOByTxIn :: Parser QueryUTxOFilter
+pQueryUTxOByTxIn = Set TxIn -> QueryUTxOFilter
+QueryUTxOByTxIn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser TxIn
+pByTxIn
+
+    pByTxIn :: Parser TxIn
+    pByTxIn :: Parser TxIn
+pByTxIn =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxIn
+parseTxIn) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"tx-in"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TX-IN"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filter by transaction input (TxId#TxIx)."
+        ]
+
+pFilterByStakeAddress :: Parser StakeAddress
+pFilterByStakeAddress :: Parser StakeAddress
+pFilterByStakeAddress =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser StakeAddress
+parseStakeAddress) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"address"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filter by Cardano stake address (Bech32-encoded)."
+      ]
+
+pByronAddress :: Parser (Address ByronAddr)
+pByronAddress :: Parser (Address ByronAddr)
+pByronAddress =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Address ByronAddr)
+deserialise) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"address"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Byron address (Base58-encoded)."
+    ]
+  where
+    deserialise :: String -> Either String (Address ByronAddr)
+    deserialise :: FilePath -> Either FilePath (Address ByronAddr)
+deserialise =
+      forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall a b. a -> Either a b
+Left FilePath
+"Invalid Byron address.") forall a b. b -> Either a b
+Right
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall addr.
+SerialiseAddress addr =>
+AsType addr -> Text -> Maybe addr
+deserialiseAddress AsType (Address ByronAddr)
+AsByronAddress
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+Text.pack
+
+pAddress :: Parser Text
+pAddress :: Parser Text
+pAddress =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"address"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"A Cardano address"
+    ]
+
+-- | First argument is the prefix to use
+pStakePoolVerificationKeyHash :: Maybe String -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash :: Maybe FilePath -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash Maybe FilePath
+prefix =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash AsType StakePoolKey
+AsStakePoolKey forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType StakePoolKey
+AsStakePoolKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long forall a b. (a -> b) -> a -> b
+$ Maybe FilePath -> FilePath -> FilePath
+prefixFlag Maybe FilePath
+prefix FilePath
+"stake-pool-id"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STAKE_POOL_ID"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Stake pool ID/verification key hash (either Bech32-encoded or hex-encoded).  "
+          , FilePath
+"Zero or more occurences of this option is allowed."
+          ]
+      ]
+
+pVrfVerificationKeyFile :: Parser (VerificationKeyFile In)
+pVrfVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pVrfVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"vrf-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the VRF verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pVrfVerificationKeyHash :: Parser (Hash VrfKey)
+pVrfVerificationKeyHash :: Parser (Hash VrfKey)
+pVrfVerificationKeyHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash VrfKey)
+deserialiseFromHex) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"vrf-verification-key-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"VRF verification key hash (hex-encoded)."
+    ]
+  where
+    deserialiseFromHex :: String -> Either String (Hash VrfKey)
+    deserialiseFromHex :: FilePath -> Either FilePath (Hash VrfKey)
+deserialiseFromHex =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (\RawBytesHexError
+e -> FilePath
+"Invalid VRF verification key hash: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> FilePath
+displayError RawBytesHexError
+e)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType VrfKey
+AsVrfKey)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pVrfVerificationKey :: Parser (VerificationKey VrfKey)
+pVrfVerificationKey :: Parser (VerificationKey VrfKey)
+pVrfVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType VrfKey
+AsVrfKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"vrf-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"VRF verification key (Bech32 or hex-encoded)."
+    ]
+
+pVrfVerificationKeyOrFile :: Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile :: Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey VrfKey)
+pVrfVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVrfVerificationKeyFile
+    ]
+
+pVrfVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile VrfKey)
+pVrfVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile VrfKey)
+pVrfVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash VrfKey)
+pVrfVerificationKeyHash
+    ]
+
+
+pRewardAcctVerificationKeyFile :: Parser (VerificationKeyFile In)
+pRewardAcctVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pRewardAcctVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-reward-account-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the reward account stake verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"reward-account-verification-key-file"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pRewardAcctVerificationKey :: Parser (VerificationKey StakeKey)
+pRewardAcctVerificationKey :: Parser (VerificationKey StakeKey)
+pRewardAcctVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType StakeKey
+AsStakeKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-reward-account-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Reward account stake verification key (Bech32 or hex-encoded)."
+    ]
+
+pRewardAcctVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakeKey)
+pRewardAcctVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakeKey)
+pRewardAcctVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey StakeKey)
+pRewardAcctVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pRewardAcctVerificationKeyFile
+    ]
+
+pPoolOwnerVerificationKeyFile :: Parser (VerificationKeyFile In)
+pPoolOwnerVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pPoolOwnerVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-owner-stake-verification-key-file"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the pool owner stake verification key."
+      , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+      ]
+    , forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-owner-staking-verification-key"
+      , forall (f :: * -> *) a. Mod f a
+Opt.internal
+      ]
+    ]
+
+pPoolOwnerVerificationKey :: Parser (VerificationKey StakeKey)
+pPoolOwnerVerificationKey :: Parser (VerificationKey StakeKey)
+pPoolOwnerVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType StakeKey
+AsStakeKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-owner-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Pool owner stake verification key (Bech32 or hex-encoded)."
+    ]
+
+pPoolOwnerVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakeKey)
+pPoolOwnerVerificationKeyOrFile :: Parser (VerificationKeyOrFile StakeKey)
+pPoolOwnerVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey StakeKey)
+pPoolOwnerVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pPoolOwnerVerificationKeyFile
+    ]
+
+pPoolPledge :: Parser Lovelace
+pPoolPledge :: Parser Lovelace
+pPoolPledge =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-pledge"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool's pledge."
+    ]
+
+pPoolCost :: Parser Lovelace
+pPoolCost :: Parser Lovelace
+pPoolCost =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-cost"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool's cost."
+    ]
+
+pRational :: String -> String -> Parser Rational
+pRational :: FilePath -> FilePath -> Parser Rational
+pRational FilePath
+opt FilePath
+h =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+opt
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    ]
+
+pPoolMargin :: Parser Rational
+pPoolMargin :: Parser Rational
+pPoolMargin = FilePath -> FilePath -> Parser Rational
+pRational FilePath
+"pool-margin" FilePath
+"The stake pool's margin."
+
+
+pPoolRelay :: Parser StakePoolRelay
+pPoolRelay :: Parser StakePoolRelay
+pPoolRelay =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ Parser StakePoolRelay
+pSingleHostAddress
+    , Parser StakePoolRelay
+pSingleHostName
+    , Parser StakePoolRelay
+pMultiHostName
+    ]
+
+pMultiHostName :: Parser StakePoolRelay
+pMultiHostName :: Parser StakePoolRelay
+pMultiHostName =
+  ByteString -> StakePoolRelay
+StakePoolRelayDnsSrvRecord forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByteString
+pDNSName
+  where
+    pDNSName :: Parser ByteString
+    pDNSName :: Parser ByteString
+pDNSName =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath ByteString
+eDNSName) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"multi-host-pool-relay"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool relay's DNS name that corresponds to an SRV DNS record"
+        ]
+
+pSingleHostName :: Parser StakePoolRelay
+pSingleHostName :: Parser StakePoolRelay
+pSingleHostName =
+  ByteString -> Maybe PortNumber -> StakePoolRelay
+StakePoolRelayDnsARecord forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByteString
+pDNSName forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser PortNumber
+pPort
+  where
+    pDNSName :: Parser ByteString
+    pDNSName :: Parser ByteString
+pDNSName = forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath ByteString
+eDNSName) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"single-host-pool-relay"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"The stake pool relay's DNS name that corresponds to an"
+        , FilePath
+" A or AAAA DNS record"
+        ]
+      ]
+
+pSingleHostAddress :: Parser StakePoolRelay
+pSingleHostAddress :: Parser StakePoolRelay
+pSingleHostAddress =
+  Maybe IPv4 -> Maybe IPv6 -> PortNumber -> StakePoolRelay
+singleHostAddress
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser IPv4
+pIpV4
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser IPv6
+pIpV6
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser PortNumber
+pPort
+  where
+    singleHostAddress :: Maybe IP.IPv4 -> Maybe IP.IPv6 -> PortNumber -> StakePoolRelay
+    singleHostAddress :: Maybe IPv4 -> Maybe IPv6 -> PortNumber -> StakePoolRelay
+singleHostAddress Maybe IPv4
+ipv4 Maybe IPv6
+ipv6 PortNumber
+port =
+      case (Maybe IPv4
+ipv4, Maybe IPv6
+ipv6) of
+        (Maybe IPv4
+Nothing, Maybe IPv6
+Nothing) ->
+          forall a. HasCallStack => FilePath -> a
+error FilePath
+"Please enter either an IPv4 or IPv6 address for the pool relay"
+        (Just IPv4
+i4, Maybe IPv6
+Nothing) ->
+          Maybe IPv4 -> Maybe IPv6 -> Maybe PortNumber -> StakePoolRelay
+StakePoolRelayIp (forall a. a -> Maybe a
+Just IPv4
+i4) forall a. Maybe a
+Nothing (forall a. a -> Maybe a
+Just PortNumber
+port)
+        (Maybe IPv4
+Nothing, Just IPv6
+i6) ->
+          Maybe IPv4 -> Maybe IPv6 -> Maybe PortNumber -> StakePoolRelay
+StakePoolRelayIp forall a. Maybe a
+Nothing (forall a. a -> Maybe a
+Just IPv6
+i6) (forall a. a -> Maybe a
+Just PortNumber
+port)
+        (Just IPv4
+i4, Just IPv6
+i6) ->
+          Maybe IPv4 -> Maybe IPv6 -> Maybe PortNumber -> StakePoolRelay
+StakePoolRelayIp (forall a. a -> Maybe a
+Just IPv4
+i4) (forall a. a -> Maybe a
+Just IPv6
+i6) (forall a. a -> Maybe a
+Just PortNumber
+port)
+
+pIpV4 :: Parser IP.IPv4
+pIpV4 :: Parser IPv4
+pIpV4 =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Maybe a) -> ReadM a
+Opt.maybeReader forall a. Read a => FilePath -> Maybe a
+readMaybe :: Opt.ReadM IP.IPv4) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-relay-ipv4"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool relay's IPv4 address"
+    ]
+
+pIpV6 :: Parser IP.IPv6
+pIpV6 :: Parser IPv6
+pIpV6 =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Maybe a) -> ReadM a
+Opt.maybeReader forall a. Read a => FilePath -> Maybe a
+readMaybe :: Opt.ReadM IP.IPv6) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-relay-ipv6"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool relay's IPv6 address"
+    ]
+
+pPort :: Parser PortNumber
+pPort :: Parser PortNumber
+pPort =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Num a => Integer -> a
+fromInteger forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader forall a. Read a => FilePath -> Either FilePath a
+readEither) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-relay-port"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The stake pool relay's port"
+    ]
+
+pStakePoolMetadataReference :: Parser (Maybe StakePoolMetadataReference)
+pStakePoolMetadataReference :: Parser (Maybe StakePoolMetadataReference)
+pStakePoolMetadataReference =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$
+    Text -> Hash StakePoolMetadata -> StakePoolMetadataReference
+StakePoolMetadataReference
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pStakePoolMetadataUrl
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Hash StakePoolMetadata)
+pStakePoolMetadataHash
+
+pStakePoolMetadataUrl :: Parser Text
+pStakePoolMetadataUrl :: Parser Text
+pStakePoolMetadataUrl =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Int -> ReadM Text
+readURIOfMaxLength Int
+64) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"metadata-url"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"URL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Pool metadata URL (maximum length of 64 characters)."
+    ]
+
+pStakePoolMetadataHash :: Parser (Hash StakePoolMetadata)
+pStakePoolMetadataHash :: Parser (Hash StakePoolMetadata)
+pStakePoolMetadataHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (FilePath -> Either FilePath a) -> ReadM a
+Opt.eitherReader FilePath -> Either FilePath (Hash StakePoolMetadata)
+metadataHash) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"metadata-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Pool metadata hash."
+    ]
+  where
+    metadataHash :: String -> Either String (Hash StakePoolMetadata)
+    metadataHash :: FilePath -> Either FilePath (Hash StakePoolMetadata)
+metadataHash =
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first forall e. Error e => e -> FilePath
+displayError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+SerialiseAsRawBytes a =>
+AsType a -> ByteString -> Either RawBytesHexError a
+deserialiseFromRawBytesHex (forall a. AsType a -> AsType (Hash a)
+AsHash AsType StakePoolMetadata
+AsStakePoolMetadata)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+
+pStakePoolRegistrationParserRequirements
+  :: EnvCli -> Parser StakePoolRegistrationParserRequirements
+pStakePoolRegistrationParserRequirements :: EnvCli -> Parser StakePoolRegistrationParserRequirements
+pStakePoolRegistrationParserRequirements EnvCli
+envCli =
+  VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> StakePoolRegistrationParserRequirements
+StakePoolRegistrationParserRequirements
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolPledge
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolCost
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Rational
+pPoolMargin
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile StakeKey)
+pRewardAcctVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (VerificationKeyOrFile StakeKey)
+pPoolOwnerVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser StakePoolRelay
+pPoolRelay
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe StakePoolMetadataReference)
+pStakePoolMetadataReference
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+
+pProtocolParametersUpdate :: Parser ProtocolParametersUpdate
+pProtocolParametersUpdate :: Parser ProtocolParametersUpdate
+pProtocolParametersUpdate =
+  Maybe (Natural, Natural)
+-> Maybe Rational
+-> Maybe (Maybe PraosNonce)
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Lovelace
+-> Maybe Lovelace
+-> Maybe Lovelace
+-> Maybe Lovelace
+-> Maybe Lovelace
+-> Maybe Lovelace
+-> Maybe EpochNo
+-> Maybe Natural
+-> Maybe Rational
+-> Maybe Rational
+-> Maybe Rational
+-> Map AnyPlutusScriptVersion CostModel
+-> Maybe ExecutionUnitPrices
+-> Maybe ExecutionUnits
+-> Maybe ExecutionUnits
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Natural
+-> Maybe Lovelace
+-> ProtocolParametersUpdate
+ProtocolParametersUpdate
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (Natural, Natural)
+pProtocolVersion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pDecentralParam
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (Maybe PraosNonce)
+pExtraEntropy
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxBlockHeaderSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxBodySize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxTransactionSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinFeeConstantFactor
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinFeePerByteFactor
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinUTxOValue
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pKeyRegistDeposit
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pPoolDeposit
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinPoolCost
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser EpochNo
+pEpochBoundRetirement
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pNumberOfPools
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pPoolInfluence
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pMonetaryExpansion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pTreasuryExpansion
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Monoid a => a
+mempty
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnitPrices
+pExecutionUnitPrices
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnits
+pMaxTxExecutionUnits
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnits
+pMaxBlockExecutionUnits
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxValueSize
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pCollateralPercent
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxCollateralInputs
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pUTxOCostPerByte
+
+pCostModels :: Parser FilePath
+pCostModels :: Parser FilePath
+pCostModels =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"cost-model-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the JSON formatted cost model"
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pMinFeePerByteFactor :: Parser Lovelace
+pMinFeePerByteFactor :: Parser Lovelace
+pMinFeePerByteFactor =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"min-fee-linear"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The linear factor per byte for the minimum fee calculation."
+    ]
+
+pMinFeeConstantFactor :: Parser Lovelace
+pMinFeeConstantFactor :: Parser Lovelace
+pMinFeeConstantFactor =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"min-fee-constant"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The constant factor for the minimum fee calculation."
+    ]
+
+pMinUTxOValue :: Parser Lovelace
+pMinUTxOValue :: Parser Lovelace
+pMinUTxOValue =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"min-utxo-value"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The minimum allowed UTxO value (Shelley to Mary eras)."
+    ]
+
+pMinPoolCost :: Parser Lovelace
+pMinPoolCost :: Parser Lovelace
+pMinPoolCost =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"min-pool-cost"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The minimum allowed cost parameter for stake pools."
+    ]
+
+pMaxBodySize :: Parser Natural
+pMaxBodySize :: Parser Natural
+pMaxBodySize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-block-body-size"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Maximal block body size."
+    ]
+
+pMaxTransactionSize :: Parser Natural
+pMaxTransactionSize :: Parser Natural
+pMaxTransactionSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-tx-size"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Maximum transaction size."
+    ]
+
+pMaxBlockHeaderSize :: Parser Natural
+pMaxBlockHeaderSize :: Parser Natural
+pMaxBlockHeaderSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+   [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-block-header-size"
+   , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+   , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Maximum block header size."
+   ]
+
+pKeyRegistDeposit :: Parser Lovelace
+pKeyRegistDeposit :: Parser Lovelace
+pKeyRegistDeposit =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+   [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"key-reg-deposit-amt"
+   , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+   , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Key registration deposit amount."
+   ]
+
+pDrepDeposit :: Parser Lovelace
+pDrepDeposit :: Parser Lovelace
+pDrepDeposit =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+   [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"deposit-amt"
+   , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+   , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"DRep deposit amount (same at registration and retirement)."
+   ]
+
+pPoolDeposit :: Parser Lovelace
+pPoolDeposit :: Parser Lovelace
+pPoolDeposit =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+   [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-reg-deposit"
+   , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+   , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The amount of a pool registration deposit."
+   ]
+
+pEpochBoundRetirement :: Parser EpochNo
+pEpochBoundRetirement :: Parser EpochNo
+pEpochBoundRetirement =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> EpochNo
+EpochNo forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"EPOCH_BOUNDARY") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-retirement-epoch-boundary"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"EPOCH_BOUNDARY"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Epoch bound on pool retirement."
+    ]
+
+pNumberOfPools :: Parser Natural
+pNumberOfPools :: Parser Natural
+pNumberOfPools =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+   [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"number-of-pools"
+   , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+   , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Desired number of pools."
+   ]
+
+pPoolInfluence :: Parser Rational
+pPoolInfluence :: Parser Rational
+pPoolInfluence =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRational forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-influence"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Pool influence."
+    ]
+
+pTreasuryExpansion :: Parser Rational
+pTreasuryExpansion :: Parser Rational
+pTreasuryExpansion =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"treasury-expansion"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Treasury expansion."
+    ]
+
+pMonetaryExpansion :: Parser Rational
+pMonetaryExpansion :: Parser Rational
+pMonetaryExpansion =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"monetary-expansion"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Monetary expansion."
+    ]
+
+pDecentralParam :: Parser Rational
+pDecentralParam :: Parser Rational
+pDecentralParam =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"decentralization-parameter"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Decentralization parameter."
+    ]
+
+pExtraEntropy :: Parser (Maybe PraosNonce)
+pExtraEntropy :: Parser (Maybe PraosNonce)
+pExtraEntropy =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. a -> Maybe a
+Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Parser a -> ReadM a
+readerFromParsecParser Parser PraosNonce
+parsePraosNonce) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"extra-entropy"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HEX"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Praos extra entropy seed, as a hex byte string."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [  forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"reset-extra-entropy"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Reset the Praos extra entropy to none."
+        ]
+    ]
+  where
+    parsePraosNonce :: Parsec.Parser PraosNonce
+    parsePraosNonce :: Parser PraosNonce
+parsePraosNonce = ByteString -> PraosNonce
+makePraosNonce forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ByteString
+parseEntropyBytes
+
+    parseEntropyBytes :: Parsec.Parser ByteString
+    parseEntropyBytes :: Parser ByteString
+parseEntropyBytes = forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
+either forall (m :: * -> *) a. MonadFail m => FilePath -> m a
+fail forall (m :: * -> *) a. Monad m => a -> m a
+return
+                      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> Either FilePath ByteString
+B16.decode forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> ByteString
+BSC.pack
+                    forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some forall s (m :: * -> *) u. Stream s m Char => ParsecT s u m Char
+Parsec.hexDigit
+
+pUTxOCostPerByte :: Parser Lovelace
+pUTxOCostPerByte :: Parser Lovelace
+pUTxOCostPerByte =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"utxo-cost-per-byte"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Cost in lovelace per unit of UTxO storage (from Babbage era)."
+    ]
+
+pExecutionUnitPrices :: Parser ExecutionUnitPrices
+pExecutionUnitPrices :: Parser ExecutionUnitPrices
+pExecutionUnitPrices = Rational -> Rational -> ExecutionUnitPrices
+ExecutionUnitPrices
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRational
+      ( forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"price-execution-steps"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Step price of execution units for script languages that use "
+          , FilePath
+"them (from Alonzo era).  (Examples: '1.1', '11/10')"
+          ]
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRational
+      ( forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"price-execution-memory"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Memory price of execution units for script languages that "
+          , FilePath
+"use them (from Alonzo era).  (Examples: '1.1', '11/10')"
+          ]
+        ]
+      )
+
+pMaxTxExecutionUnits :: Parser ExecutionUnits
+pMaxTxExecutionUnits :: Parser ExecutionUnits
+pMaxTxExecutionUnits =
+  forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry Natural -> Natural -> ExecutionUnits
+ExecutionUnits forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto
+      ( forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-tx-execution-units"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"(INT, INT)"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Max total script execution resources units allowed per tx "
+          , FilePath
+"(from Alonzo era). They are denominated as follows (steps, memory)."
+          ]
+        ]
+      )
+
+pMaxBlockExecutionUnits :: Parser ExecutionUnits
+pMaxBlockExecutionUnits :: Parser ExecutionUnits
+pMaxBlockExecutionUnits =
+  forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry Natural -> Natural -> ExecutionUnits
+ExecutionUnits forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto
+      ( forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-block-execution-units"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"(INT, INT)"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Max total script execution resources units allowed per block "
+          , FilePath
+"(from Alonzo era). They are denominated as follows (steps, memory)."
+          ]
+        ]
+      )
+
+pMaxValueSize :: Parser Natural
+pMaxValueSize :: Parser Natural
+pMaxValueSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-value-size"
+  , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"Max size of a multi-asset value in a tx output (from Alonzo era)."
+    ]
+  ]
+
+pCollateralPercent :: Parser Natural
+pCollateralPercent :: Parser Natural
+pCollateralPercent =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"collateral-percent"
+  , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"The percentage of the script contribution to the txfee that "
+    , FilePath
+"must be provided as collateral inputs when including Plutus "
+    , FilePath
+"scripts (from Alonzo era)."
+    ]
+  ]
+
+pMaxCollateralInputs :: Parser Natural
+pMaxCollateralInputs :: Parser Natural
+pMaxCollateralInputs =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"max-collateral-inputs"
+  , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ FilePath
+"The maximum number of collateral inputs allowed in a "
+    , FilePath
+"transaction (from Alonzo era)."
+    ]
+  ]
+
+pProtocolVersion :: Parser (Natural, Natural)
+pProtocolVersion :: Parser (Natural, Natural)
+pProtocolVersion =
+    (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Natural
+pProtocolMajorVersion forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Natural
+pProtocolMinorVersion
+  where
+    pProtocolMajorVersion :: Parser Natural
+pProtocolMajorVersion =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"protocol-major-version"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Major protocol version. An increase indicates a hard fork."
+        ]
+    pProtocolMinorVersion :: Parser Natural
+pProtocolMinorVersion =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"protocol-minor-version"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Minor protocol version. An increase indicates a soft fork"
+          , FilePath
+" (old software canvalidate but not produce new blocks)."
+          ]
+        ]
+
+pPoolVotingThresholds :: Parser Ledger.PoolVotingThresholds
+pPoolVotingThresholds :: Parser PoolVotingThresholds
+pPoolVotingThresholds =
+    UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> PoolVotingThresholds
+Ledger.PoolVotingThresholds
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser UnitInterval
+pMotionNoConfidence
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pCommitteeNormal
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pCommitteeNoConfidence
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pHardForkInitiation
+  where
+    pMotionNoConfidence :: Parser UnitInterval
+pMotionNoConfidence =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-voting-threshold-motion-no-confidence"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pCommitteeNormal :: Parser UnitInterval
+pCommitteeNormal =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-voting-threshold-committee-normal"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pCommitteeNoConfidence :: Parser UnitInterval
+pCommitteeNoConfidence =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-voting-threshold-committee-no-confidence"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pHardForkInitiation :: Parser UnitInterval
+pHardForkInitiation =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"pool-voting-threshold-hard-fork-initiation"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+
+pDRepVotingThresholds :: Parser Ledger.DRepVotingThresholds
+pDRepVotingThresholds :: Parser DRepVotingThresholds
+pDRepVotingThresholds =
+    UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> UnitInterval
+-> DRepVotingThresholds
+Ledger.DRepVotingThresholds
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser UnitInterval
+pMotionNoConfidence
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pCommitteeNormal
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pCommitteeNoConfidence
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pUpdateToConstitution
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pHardForkInitiation
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pPPNetworkGroup
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pPPEconomicGroup
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pPPTechnicalGroup
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pPPGovGroup
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UnitInterval
+pTreasuryWithdrawal
+  where
+    pMotionNoConfidence :: Parser UnitInterval
+pMotionNoConfidence =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-motion-no-confidence"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pCommitteeNormal :: Parser UnitInterval
+pCommitteeNormal =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-committee-normal"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pCommitteeNoConfidence :: Parser UnitInterval
+pCommitteeNoConfidence =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-committee-no-confidence"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pUpdateToConstitution :: Parser UnitInterval
+pUpdateToConstitution =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-update-to-constitution"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pHardForkInitiation :: Parser UnitInterval
+pHardForkInitiation =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-hard-fork-initiation"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pPPNetworkGroup :: Parser UnitInterval
+pPPNetworkGroup =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-pp-network-group"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pPPEconomicGroup :: Parser UnitInterval
+pPPEconomicGroup =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-pp-economic-group"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pPPTechnicalGroup :: Parser UnitInterval
+pPPTechnicalGroup =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-pp-technical-group"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pPPGovGroup :: Parser UnitInterval
+pPPGovGroup =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-pp-governance-group"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+    pTreasuryWithdrawal :: Parser UnitInterval
+pTreasuryWithdrawal =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (Rational -> UnitInterval
+toUnitIntervalOrErr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ReadM Rational
+readRationalUnitInterval) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-voting-threshold-treasury-withdrawal"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+        ]
+
+pMinCommitteeSize :: Parser Natural
+pMinCommitteeSize :: Parser Natural
+pMinCommitteeSize =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"min-committee-size"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+    ]
+
+pCommitteeTermLength :: Parser Natural
+pCommitteeTermLength :: Parser Natural
+pCommitteeTermLength =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"committee-term-length"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+    ]
+
+pGovActionLifetime :: Parser EpochNo
+pGovActionLifetime :: Parser EpochNo
+pGovActionLifetime =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> EpochNo
+EpochNo forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"EPOCH") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"governance-action-lifetime"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+    ]
+
+pDRepDeposit :: Parser Lovelace
+pDRepDeposit :: Parser Lovelace
+pDRepDeposit =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser Lovelace
+parseLovelace) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-deposit"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+    ]
+
+pDRepActivity :: Parser EpochNo
+pDRepActivity :: Parser EpochNo
+pDRepActivity =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Word64 -> EpochNo
+EpochNo forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. (Bounded a, Integral a, Show a) => FilePath -> ReadM a
+bounded FilePath
+"EPOCH") forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-activity"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"NATURAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"TODO"
+    ]
+
+parseTxOutAnyEra
+  :: Parsec.Parser (TxOutDatumAnyEra -> ReferenceScriptAnyEra -> TxOutAnyEra)
+parseTxOutAnyEra :: Parser (TxOutDatumAnyEra -> ReferenceScriptAnyEra -> TxOutAnyEra)
+parseTxOutAnyEra = do
+    AddressAny
+addr <- Parser AddressAny
+parseAddressAny
+    forall s (m :: * -> *) u. Stream s m Char => ParsecT s u m ()
+Parsec.spaces
+    -- Accept the old style of separating the address and value in a
+    -- transaction output:
+    forall s (m :: * -> *) t a u.
+Stream s m t =>
+a -> ParsecT s u m a -> ParsecT s u m a
+Parsec.option () (forall s (m :: * -> *) u.
+Stream s m Char =>
+Char -> ParsecT s u m Char
+Parsec.char Char
+'+' forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
+>> forall s (m :: * -> *) u. Stream s m Char => ParsecT s u m ()
+Parsec.spaces)
+    Value
+val <- Parser Value
+parseValue
+    forall (m :: * -> *) a. Monad m => a -> m a
+return (AddressAny
+-> Value
+-> TxOutDatumAnyEra
+-> ReferenceScriptAnyEra
+-> TxOutAnyEra
+TxOutAnyEra AddressAny
+addr Value
+val)
+
+--------------------------------------------------------------------------------
+
+pVoteChoice :: Parser Vote
+pVoteChoice :: Parser Vote
+pVoteChoice =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+   [  forall a. a -> Mod FlagFields a -> Parser a
+flag' Vote
+Yes forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"yes"
+   ,  forall a. a -> Mod FlagFields a -> Parser a
+flag' Vote
+No forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"no"
+   ,  forall a. a -> Mod FlagFields a -> Parser a
+flag' Vote
+Abstain forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"abstain"
+   ]
+
+pVoterType :: Parser VType
+pVoterType :: Parser VType
+pVoterType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+   [  forall a. a -> Mod FlagFields a -> Parser a
+flag' VType
+VCC forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"constitutional-committee-member", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Member of the constiutional committee"]
+   ,  forall a. a -> Mod FlagFields a -> Parser a
+flag' VType
+VDR forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"drep", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Delegate representative"]
+   ,  forall a. a -> Mod FlagFields a -> Parser a
+flag' VType
+VSP forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+long FilePath
+"spo", forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Stake pool operator"]
+   ]
+
+-- TODO: Conway era include "normal" stake keys
+pVotingCredential :: Parser (VerificationKeyOrFile StakePoolKey)
+pVotingCredential :: Parser (VerificationKeyOrFile StakePoolKey)
+pVotingCredential = Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+
+pVoteDelegationTarget :: Parser VoteDelegationTarget
+pVoteDelegationTarget :: Parser VoteDelegationTarget
+pVoteDelegationTarget =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ DRepHashSource -> VoteDelegationTarget
+VoteDelegationTargetOfDRep forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser DRepHashSource
+pDRepHashSource
+    , VoteDelegationTarget
+VoteDelegationTargetOfAbstain forall (f :: * -> *) a b. Functor f => a -> f b -> f a
+<$ Parser ()
+pAlwaysAbstain
+    , VoteDelegationTarget
+VoteDelegationTargetOfNoConfidence forall (f :: * -> *) a b. Functor f => a -> f b -> f a
+<$ Parser ()
+pAlwaysNoConfidence
+    ]
+
+pAlwaysAbstain :: Parser ()
+pAlwaysAbstain :: Parser ()
+pAlwaysAbstain =
+  forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' () forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"always-abstain"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Abstain from voting on all proposals."
+    ]
+
+pVoteAnchor :: Parser (VoteUrl, L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pVoteAnchor :: Parser (VoteUrl, SafeHash StandardCrypto AnchorData)
+pVoteAnchor = (,)
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (Url -> VoteUrl
+VoteUrl forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser Url
+pUrl FilePath
+"anchor-url" FilePath
+"Vote anchor URL")
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pVoteAnchorDataHash
+
+pVoteAnchorDataHash :: Parser (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pVoteAnchorDataHash :: Parser (SafeHash StandardCrypto AnchorData)
+pVoteAnchorDataHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"anchor-data-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Hash of the vote anchor data (obtain it with \"cardano-cli conway governance hash ...\")."
+    ]
+
+pAlwaysNoConfidence :: Parser ()
+pAlwaysNoConfidence :: Parser ()
+pAlwaysNoConfidence =
+  forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' () forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"always-no-confidence"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Always vote no confidence"
+    ]
+
+pDRepHashSource :: Parser DRepHashSource
+pDRepHashSource :: Parser DRepHashSource
+pDRepHashSource =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ ScriptHash -> DRepHashSource
+DRepHashSourceScript forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ScriptHash
+pDRepScriptHash
+    , VerificationKeyOrHashOrFile DRepKey -> DRepHashSource
+DRepHashSourceVerificationKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+    ]
+
+pDRepScriptHash :: Parser ScriptHash
+pDRepScriptHash :: Parser ScriptHash
+pDRepScriptHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM ScriptHash
+scriptHashReader forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-script-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"DRep script hash (hex-encoded)."
+        ]
+    ]
+
+pDRepVerificationKeyOrHashOrFile
+  :: Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile DRepKey)
+pDRepVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash DRepKey)
+pDRepVerificationKeyHash
+    ]
+
+pCombinedDRepVerificationKeyOrHashOrFile
+  :: Parser (VerificationKeyOrHashOrFile DRepKey)
+pCombinedDRepVerificationKeyOrHashOrFile :: Parser (VerificationKeyOrHashOrFile DRepKey)
+pCombinedDRepVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKeyOrFile keyrole
+-> VerificationKeyOrHashOrFile keyrole
+VerificationKeyOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile DRepKey)
+pCombinedDRepVerificationKeyOrFile
+    , forall keyrole. Hash keyrole -> VerificationKeyOrHashOrFile keyrole
+VerificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Hash DRepKey)
+pCombinedDRepVerificationKeyHash
+    ]
+
+pCombinedDRepVerificationKeyHash :: Parser (Hash DRepKey)
+pCombinedDRepVerificationKeyHash :: Parser (Hash DRepKey)
+pCombinedDRepVerificationKeyHash =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash AsType DRepKey
+AsDRepKey forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType DRepKey
+AsDRepKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-drep-key-hash"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"DRep verification key hash (either Bech32-encoded or hex-encoded).  "
+          , FilePath
+"Zero or more occurences of this option is allowed."
+          ]
+      ]
+
+pCombinedDRepVerificationKey :: Parser (VerificationKey DRepKey)
+pCombinedDRepVerificationKey :: Parser (VerificationKey DRepKey)
+pCombinedDRepVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType DRepKey
+AsDRepKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-drep-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"DRep verification key (Bech32 or hex-encoded)."
+    ]
+
+pCombinedDRepVerificationKeyOrFile :: Parser (VerificationKeyOrFile DRepKey)
+pCombinedDRepVerificationKeyOrFile :: Parser (VerificationKeyOrFile DRepKey)
+pCombinedDRepVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey DRepKey)
+pCombinedDRepVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pCombinedDRepVerificationKeyFile
+    ]
+
+pCombinedDRepVerificationKeyFile :: Parser (VerificationKeyFile In)
+pCombinedDRepVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pCombinedDRepVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"combined-drep-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the DRep verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pDRepVerificationKeyHash :: Parser (Hash DRepKey)
+pDRepVerificationKeyHash :: Parser (Hash DRepKey)
+pDRepVerificationKeyHash =
+    forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. SerialiseAsBech32 (Hash a) => AsType a -> ReadM (Hash a)
+pBech32KeyHash AsType DRepKey
+AsDRepKey forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall a.
+SerialiseAsRawBytes (Hash a) =>
+AsType a -> ReadM (Hash a)
+pHexHash AsType DRepKey
+AsDRepKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-key-hash"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"DRep verification key hash (either Bech32-encoded or hex-encoded).  "
+          , FilePath
+"Zero or more occurences of this option is allowed."
+          ]
+      ]
+
+pDRepVerificationKey :: Parser (VerificationKey DRepKey)
+pDRepVerificationKey :: Parser (VerificationKey DRepKey)
+pDRepVerificationKey =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> ReadM (VerificationKey keyrole)
+readVerificationKey AsType DRepKey
+AsDRepKey) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"STRING"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"DRep verification key (Bech32 or hex-encoded)."
+    ]
+
+pDRepVerificationKeyOrFile :: Parser (VerificationKeyOrFile DRepKey)
+pDRepVerificationKeyOrFile :: Parser (VerificationKeyOrFile DRepKey)
+pDRepVerificationKeyOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall keyrole.
+VerificationKey keyrole -> VerificationKeyOrFile keyrole
+VerificationKeyValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKey DRepKey)
+pDRepVerificationKey
+    , forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pDRepVerificationKeyFile
+    ]
+
+pDRepVerificationKeyFile :: Parser (VerificationKeyFile In)
+pDRepVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pDRepVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+FilePath -> File content direction
+File forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"drep-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Filepath of the DRep verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pAnchorUrl :: Parser ProposalUrl
+pAnchorUrl :: Parser ProposalUrl
+pAnchorUrl =
+  Url -> ProposalUrl
+ProposalUrl
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser Url
+pUrl FilePath
+"anchor-url" FilePath
+"Anchor URL"
+
+pAnchorDataHash :: Parser (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pAnchorDataHash :: Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"anchor-data-hash"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"HASH"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Proposal anchor data hash (obtain it with \"cardano-cli conway governance hash ...\")"
+    ]
+
+pPreviousGovernanceAction :: Parser (Maybe (TxId, Word32))
+pPreviousGovernanceAction :: Parser (Maybe (TxId, Word32))
+pPreviousGovernanceAction = forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$
+  (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxId
+pTxId FilePath
+"governance-action-tx-id" FilePath
+"Previous txid of the governance action."
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser Word32
+pWord32 FilePath
+"governance-action-index" FilePath
+"Previous tx's governance action index."
+
+pGovernanceActionId :: Parser (TxId, Word32)
+pGovernanceActionId :: Parser (TxId, Word32)
+pGovernanceActionId =
+  (,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> FilePath -> Parser TxId
+pTxId FilePath
+"governance-action-tx-id" FilePath
+"Txid of the governance action."
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser Word32
+pWord32 FilePath
+"governance-action-index" FilePath
+"Tx's governance action index."
+
+pWord32 :: String -> String -> Parser Word32
+pWord32 :: FilePath -> FilePath -> Parser Word32
+pWord32 FilePath
+l FilePath
+h =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+l
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"WORD32"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    ]
+
+pTxId :: String -> String -> Parser TxId
+pTxId :: FilePath -> FilePath -> Parser TxId
+pTxId FilePath
+l FilePath
+h =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser TxId
+parseTxId) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+l
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TXID"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+h
+    ]
+
+
+--------------------------------------------------------------------------------
+-- Helpers
+--------------------------------------------------------------------------------
+
+pFeatured :: ()
+  => Eon eon
+  => ToCardanoEra peon
+  => peon era
+  -> Parser a
+  -> Parser (Maybe (Featured eon era a))
+pFeatured :: forall (eon :: * -> *) (peon :: * -> *) era a.
+(Eon eon, ToCardanoEra peon) =>
+peon era -> Parser a -> Parser (Maybe (Featured eon era a))
+pFeatured peon era
+peon Parser a
+p = do
+  let mw :: Maybe (eon era)
+mw = forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra peon era
+peon)
+  case Maybe (eon era)
+mw of
+    Maybe (eon era)
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+    Just eon era
+eon' -> forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+Featured eon era
+eon' forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser a
+p
+
+hiddenSubParser :: String -> ParserInfo a -> Parser a
+hiddenSubParser :: forall a. FilePath -> ParserInfo a -> Parser a
+hiddenSubParser FilePath
+availableCommand ParserInfo a
+pInfo =
+  forall a. Mod CommandFields a -> Parser a
+Opt.hsubparser forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+availableCommand ParserInfo a
+pInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+availableCommand forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.hidden
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Genesis.html new file mode 100644 index 0000000000..c6f699d45b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Genesis.html @@ -0,0 +1,901 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.Genesis
+  ( pGenesisCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.Chain.Common (BlockCount (BlockCount))
+import           Cardano.CLI.Environment (EnvCli (..))
+import           Cardano.CLI.EraBased.Commands.Genesis
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Parser
+import           Cardano.CLI.Types.Common
+
+import           Data.Maybe
+import           Data.Word (Word64)
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pGenesisCmds :: ()
+  => EnvCli
+  -> Maybe (Parser (GenesisCmds era))
+pGenesisCmds :: forall era. EnvCli -> Maybe (Parser (GenesisCmds era))
+pGenesisCmds EnvCli
+envCli =
+  forall a.
+FilePath -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser FilePath
+"genesis"
+    ( forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ FilePath
+"Genesis block commands."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-genesis"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis key pair"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-delegate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisDelegateKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis delegate key pair"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-utxo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisUTxOKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis UTxO key pair"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisKeyHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print the identifier (hash) of a public key"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"get-ver-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisVerKey
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Derive the verification key from a signing key"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"initial-addr"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisAddr EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the address for an initial UTxO based on the verification key"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"initial-txin"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisTxIn EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the TxIn for an initial UTxO based on the verification key"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-cardano"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateCardano EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a Byron and Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreate EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-staked"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateStaked EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a staked Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (GenesisCmds era)
+pGenesisHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Compute the hash of a genesis file"
+    ]
+
+pGenesisKeyGen :: Parser (GenesisCmds era)
+pGenesisKeyGen :: forall era. Parser (GenesisCmds era)
+pGenesisKeyGen =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisKeyGenGenesisCmdArgs -> GenesisCmds era
+GenesisKeyGenGenesis forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> GenesisKeyGenGenesisCmdArgs
+GenesisKeyGenGenesisCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pGenesisDelegateKeyGen :: Parser (GenesisCmds era)
+pGenesisDelegateKeyGen :: forall era. Parser (GenesisCmds era)
+pGenesisDelegateKeyGen =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisKeyGenDelegateCmdArgs -> GenesisCmds era
+GenesisKeyGenDelegate forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> GenesisKeyGenDelegateCmdArgs
+GenesisKeyGenDelegateCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+pGenesisUTxOKeyGen :: Parser (GenesisCmds era)
+pGenesisUTxOKeyGen :: forall era. Parser (GenesisCmds era)
+pGenesisUTxOKeyGen =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisKeyGenUTxOCmdArgs -> GenesisCmds era
+GenesisKeyGenUTxO forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> GenesisKeyGenUTxOCmdArgs
+GenesisKeyGenUTxOCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pGenesisKeyHash :: Parser (GenesisCmds era)
+pGenesisKeyHash :: forall era. Parser (GenesisCmds era)
+pGenesisKeyHash =
+  forall era. VerificationKeyFile 'In -> GenesisCmds era
+GenesisCmdKeyHash
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+
+pGenesisVerKey :: Parser (GenesisCmds era)
+pGenesisVerKey :: forall era. Parser (GenesisCmds era)
+pGenesisVerKey =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisVerKeyCmdArgs -> GenesisCmds era
+GenesisVerKey forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'Out
+-> SigningKeyFile 'In -> GenesisVerKeyCmdArgs
+GenesisVerKeyCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+
+pGenesisAddr :: EnvCli -> Parser (GenesisCmds era)
+pGenesisAddr :: forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisAddr EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisAddrCmdArgs -> GenesisCmds era
+GenesisAddr forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'In
+-> NetworkId -> Maybe (File () 'Out) -> GenesisAddrCmdArgs
+GenesisAddrCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pGenesisTxIn :: EnvCli -> Parser (GenesisCmds era)
+pGenesisTxIn :: forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisTxIn EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisTxInCmdArgs -> GenesisCmds era
+GenesisTxIn forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'In
+-> NetworkId -> Maybe (File () 'Out) -> GenesisTxInCmdArgs
+GenesisTxInCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pGenesisCreateCardano :: EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateCardano :: forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateCardano EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisCreateCardanoCmdArgs -> GenesisCmds era
+GenesisCreateCardano forall a b. (a -> b) -> a -> b
+$ GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> BlockCount
+-> Word
+-> Rational
+-> NetworkId
+-> FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> Maybe FilePath
+-> GenesisCreateCardanoCmdArgs
+GenesisCreateCardanoCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser GenesisDir
+pGenesisDir
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Word64 -> BlockCount
+BlockCount forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Word64
+pSecurityParam)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pSlotLength
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Rational
+pSlotCoefficient
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+          FilePath
+"byron-template"
+          FilePath
+"JSON file with genesis defaults for each byron."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+          FilePath
+"shelley-template"
+          FilePath
+"JSON file with genesis defaults for each shelley."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+          FilePath
+"alonzo-template"
+          FilePath
+"JSON file with genesis defaults for alonzo."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+          FilePath
+"conway-template"
+          FilePath
+"JSON file with genesis defaults for conway."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe FilePath)
+pNodeConfigTemplate
+
+pGenesisCreate :: EnvCli -> Parser (GenesisCmds era)
+pGenesisCreate :: forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreate EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisCreateCmdArgs -> GenesisCmds era
+GenesisCreate forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> NetworkId
+-> GenesisCreateCmdArgs
+GenesisCreateCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GenesisDir
+pGenesisDir
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+
+pGenesisCreateStaked :: EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateStaked :: forall era. EnvCli -> Parser (GenesisCmds era)
+pGenesisCreateStaked EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GenesisCreateStakedCmdArgs -> GenesisCmds era
+GenesisCreateStaked forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> Lovelace
+-> NetworkId
+-> Word
+-> Word
+-> Word
+-> Maybe FilePath
+-> GenesisCreateStakedCmdArgs
+GenesisCreateStakedCmdArgs
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GenesisDir
+pGenesisDir
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumPools
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumStDelegs
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pInitialSupplyDelegated
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pBulkPoolCredFiles
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pBulkPoolsPerFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pStuffedUtxoCount
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional Parser FilePath
+pRelayJsonFp
+
+pGenesisHash :: Parser (GenesisCmds era)
+pGenesisHash :: forall era. Parser (GenesisCmds era)
+pGenesisHash =
+  forall era. GenesisFile -> GenesisCmds era
+GenesisHashFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Parser GenesisFile
+pGenesisFile FilePath
+"The genesis file."
+
+pGenesisDir :: Parser GenesisDir
+pGenesisDir :: Parser GenesisDir
+pGenesisDir =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> GenesisDir
+GenesisDir forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-dir"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"DIR"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The genesis directory containing the genesis template and required genesis/delegation/spending keys."
+    ]
+
+pMaybeSystemStart :: Parser (Maybe SystemStart)
+pMaybeSystemStart :: Parser (Maybe SystemStart)
+pMaybeSystemStart =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (UTCTime -> SystemStart
+SystemStart forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> UTCTime
+convertTime) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"start-time"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"UTC-TIME"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The genesis start time in YYYY-MM-DDThh:mm:ssZ format. If unspecified, will be the current time +30 seconds."
+    ]
+
+pGenesisNumGenesisKeys :: Parser Word
+pGenesisNumGenesisKeys :: Parser Word
+pGenesisNumGenesisKeys =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-genesis-keys"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of genesis keys to make [default is 3]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+3
+    ]
+
+pNodeConfigTemplate :: Parser (Maybe FilePath)
+pNodeConfigTemplate :: Parser (Maybe FilePath)
+pNodeConfigTemplate = forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$ FilePath -> FilePath -> Parser FilePath
+parseFilePath FilePath
+"node-config-template" FilePath
+"the node config template"
+
+pGenesisNumUTxOKeys :: Parser Word
+pGenesisNumUTxOKeys :: Parser Word
+pGenesisNumUTxOKeys =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-utxo-keys"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of UTxO keys to make [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
+pGenesisNumPools :: Parser Word
+pGenesisNumPools :: Parser Word
+pGenesisNumPools =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-pools"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of stake pool credential sets to make [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
+pGenesisNumStDelegs :: Parser Word
+pGenesisNumStDelegs :: Parser Word
+pGenesisNumStDelegs =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-stake-delegs"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of stake delegator credential sets to make [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
+pStuffedUtxoCount :: Parser Word
+pStuffedUtxoCount :: Parser Word
+pStuffedUtxoCount =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"num-stuffed-utxo"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of fake UTxO entries to generate [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
+pRelayJsonFp :: Parser FilePath
+pRelayJsonFp :: Parser FilePath
+pRelayJsonFp =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"relay-specification-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"JSON file specified the relays of each stake pool."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+    ]
+
+pInitialSupplyNonDelegated :: Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated :: Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Integer -> Lovelace
+Lovelace forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"supply"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders."
+    ]
+
+pInitialSupplyDelegated :: Parser Lovelace
+pInitialSupplyDelegated :: Parser Lovelace
+pInitialSupplyDelegated =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (Integer -> Lovelace
+Lovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. a -> Maybe a -> a
+fromMaybe Integer
+0) forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"supply-delegated"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Integer
+0
+    ]
+
+pSecurityParam :: Parser Word64
+pSecurityParam :: Parser Word64
+pSecurityParam =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"security-param"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Security parameter for genesis file [default is 108]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word64
+108
+    ]
+
+pSlotLength :: Parser Word
+pSlotLength :: Parser Word
+pSlotLength =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"slot-length"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"slot length (ms) parameter for genesis file [default is 1000]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+1000
+    ]
+
+
+pSlotCoefficient :: Parser Rational
+pSlotCoefficient :: Parser Rational
+pSlotCoefficient =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"slot-coefficient"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Slot Coefficient for genesis file [default is .05]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Rational
+0.05
+    ]
+
+pBulkPoolCredFiles :: Parser Word
+pBulkPoolCredFiles :: Parser Word
+pBulkPoolCredFiles =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"bulk-pool-cred-files"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Generate bulk pool credential files [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
+pBulkPoolsPerFile :: Parser Word
+pBulkPoolsPerFile :: Parser Word
+pBulkPoolsPerFile =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"bulk-pools-per-file"
+    , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+    , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Each bulk pool to contain this many pool credential sets [default is 0]."
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Actions.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Actions.html new file mode 100644 index 0000000000..5bc684ba9e --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Actions.html @@ -0,0 +1,1237 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Options.Governance.Actions
+  ( pGovernanceActionCmds
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Actions as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Types.Common
+import           Cardano.Ledger.BaseTypes (NonNegativeInterval)
+import qualified Cardano.Ledger.BaseTypes as Ledger
+
+import           Data.Foldable
+import           GHC.Natural (Natural)
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+
+pGovernanceActionCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionCmds CardanoEra era
+era =
+  forall a.
+[Char] -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser [Char]
+"action"
+    ( forall a. [Char] -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ [Char]
+"Governance action commands."
+          ]
+    )
+    [ forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNewConstitutionCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionUpdateCommitteeCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNewInfoCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNoConfidenceCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionProtocolParametersUpdateCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionTreasuryWithdrawalCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionViewCmd CardanoEra era
+era
+    ]
+
+pGovernanceActionViewCmd
+  :: CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionViewCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionViewCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (m :: * -> *) a. Monad m => a -> m a
+return
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"view"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceActionViewCmdArgs era -> GovernanceActionCmds era
+Cmd.GovernanceActionViewCmd
+            forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraOnwards era
+-> ProposalFile 'In
+-> GovernanceActionViewOutputFormat
+-> Maybe (File () 'Out)
+-> GovernanceActionViewCmdArgs era
+Cmd.GovernanceActionViewCmdArgs ConwayEraOnwards era
+eon
+                forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. [Char] -> [Char] -> Parser (File a 'In)
+pFileInDirection [Char]
+"action-file" [Char]
+"Path to action file."
+                forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GovernanceActionViewOutputFormat
+pGovernanceActionViewOutputFormat
+                forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"View a governance action."
+
+pGovernanceActionNewInfoCmd
+  :: CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionNewInfoCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNewInfoCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-info"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceActionInfoCmdArgs era -> GovernanceActionCmds era
+Cmd.GovernanceActionInfoCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> File () 'Out
+-> GovernanceActionInfoCmdArgs era
+Cmd.GovernanceActionInfoCmdArgs ConwayEraOnwards era
+eon
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. [Char] -> [Char] -> Parser (File a 'Out)
+pFileOutDirection [Char]
+"out-file" [Char]
+"Path to action file to be used later on with build or build-raw "
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create an info action."
+
+
+pGovernanceActionNewConstitutionCmd
+  :: CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionNewConstitutionCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNewConstitutionCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-constitution"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> GovernanceActionCmds era
+Cmd.GovernanceActionCreateConstitutionCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> Maybe (TxId, Word32)
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> ConstitutionUrl
+-> ConstitutionHashSource
+-> File () 'Out
+-> GovernanceActionCreateConstitutionCmdArgs era
+Cmd.GovernanceActionCreateConstitutionCmdArgs ConwayEraOnwards era
+eon
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe (TxId, Word32))
+pPreviousGovernanceAction
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConstitutionUrl
+pConstitutionUrl
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConstitutionHashSource
+pConstitutionHashSource
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. [Char] -> [Char] -> Parser (File a 'Out)
+pFileOutDirection [Char]
+"out-file" [Char]
+"Output filepath of the constitution."
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create a constitution."
+
+pGovernanceActionUpdateCommitteeCmd
+  :: CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionUpdateCommitteeCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionUpdateCommitteeCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"update-committee"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> GovernanceActionCmds era
+Cmd.GoveranceActionUpdateCommitteeCmd
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era
+-> Parser (GoveranceActionUpdateCommitteeCmdArgs era)
+pUpdateCommitteeCmd ConwayEraOnwards era
+eon
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create or update a new committee proposal."
+
+pUpdateCommitteeCmd :: ()
+  => ConwayEraOnwards era
+  -> Parser (Cmd.GoveranceActionUpdateCommitteeCmdArgs era)
+pUpdateCommitteeCmd :: forall era.
+ConwayEraOnwards era
+-> Parser (GoveranceActionUpdateCommitteeCmdArgs era)
+pUpdateCommitteeCmd ConwayEraOnwards era
+eon =
+  forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+-> [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+-> Rational
+-> Maybe (TxId, Word32)
+-> File () 'Out
+-> GoveranceActionUpdateCommitteeCmdArgs era
+Cmd.GoveranceActionUpdateCommitteeCmdArgs ConwayEraOnwards era
+eon
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pRemoveCommitteeColdVerificationKeyOrHashOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many
+          ( (,)
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pAddCommitteeColdVerificationKeyOrHashOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> Parser EpochNo
+pEpochNo [Char]
+"Committee member expiry epoch")
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Rational
+pRational [Char]
+"quorum" [Char]
+"Quorum of the committee that is necessary for a successful vote."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe (TxId, Word32))
+pPreviousGovernanceAction
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+
+pGovernanceActionNoConfidenceCmd
+  :: CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionNoConfidenceCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionNoConfidenceCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-no-confidence"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> GovernanceActionCmds era
+Cmd.GovernanceActionCreateNoConfidenceCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> TxId
+-> Word32
+-> File () 'Out
+-> GovernanceActionCreateNoConfidenceCmdArgs era
+Cmd.GovernanceActionCreateNoConfidenceCmdArgs ConwayEraOnwards era
+eon
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser TxId
+pTxId [Char]
+"governance-action-tx-id" [Char]
+"Previous txid of `NoConfidence` or `NewCommittee` governance action."
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> [Char] -> [Char] -> Parser Word32
+pWord32 [Char]
+"governance-action-index" [Char]
+"Previous tx's governance action index of `NoConfidence` or `NewCommittee` governance action."
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. [Char] -> [Char] -> Parser (File a 'Out)
+pFileOutDirection [Char]
+"out-file" [Char]
+"Output filepath of the no confidence proposal."
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create a no confidence proposal."
+
+pUpdateProtocolParametersPreConway :: ShelleyToBabbageEra era -> Parser (Cmd.UpdateProtocolParametersPreConway era)
+pUpdateProtocolParametersPreConway :: forall era.
+ShelleyToBabbageEra era
+-> Parser (UpdateProtocolParametersPreConway era)
+pUpdateProtocolParametersPreConway ShelleyToBabbageEra era
+shelleyToBab =
+  forall era.
+ShelleyToBabbageEra era
+-> EpochNo
+-> [VerificationKeyFile 'In]
+-> UpdateProtocolParametersPreConway era
+Cmd.UpdateProtocolParametersPreConway ShelleyToBabbageEra era
+shelleyToBab
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser EpochNo
+pEpochNoUpdateProp
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser [VerificationKeyFile 'In]
+pProtocolParametersUpdateGenesisKeys
+
+pUpdateProtocolParametersPostConway :: ConwayEraOnwards era -> Parser (Cmd.UpdateProtocolParametersConwayOnwards era)
+pUpdateProtocolParametersPostConway :: forall era.
+ConwayEraOnwards era
+-> Parser (UpdateProtocolParametersConwayOnwards era)
+pUpdateProtocolParametersPostConway ConwayEraOnwards era
+conwayOnwards =
+  forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> Maybe (TxId, Word32)
+-> UpdateProtocolParametersConwayOnwards era
+Cmd.UpdateProtocolParametersConwayOnwards ConwayEraOnwards era
+conwayOnwards
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe (TxId, Word32))
+pPreviousGovernanceAction
+
+
+pUpdateProtocolParametersCmd :: ShelleyBasedEra era -> Parser (Cmd.GovernanceActionProtocolParametersUpdateCmdArgs era)
+pUpdateProtocolParametersCmd :: forall era.
+ShelleyBasedEra era
+-> Parser (GovernanceActionProtocolParametersUpdateCmdArgs era)
+pUpdateProtocolParametersCmd =
+  forall era a.
+(ShelleyToBabbageEraConstraints era =>
+ ShelleyToBabbageEra era -> a)
+-> (ConwayEraOnwardsConstraints era => ConwayEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToBabbageOrConwayEraOnwards
+    (\ShelleyToBabbageEra era
+shelleyToBab ->
+        let sbe :: ShelleyBasedEra era
+sbe = forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+shelleyToBab
+        in forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-protocol-parameters-update"
+                         forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                             ( forall era.
+ShelleyBasedEra era
+-> Maybe (UpdateProtocolParametersPreConway era)
+-> Maybe (UpdateProtocolParametersConwayOnwards era)
+-> EraBasedProtocolParametersUpdate era
+-> File () 'Out
+-> GovernanceActionProtocolParametersUpdateCmdArgs era
+Cmd.GovernanceActionProtocolParametersUpdateCmdArgs (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+shelleyToBab)
+                                 forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just (forall era.
+ShelleyToBabbageEra era
+-> Parser (UpdateProtocolParametersPreConway era)
+pUpdateProtocolParametersPreConway ShelleyToBabbageEra era
+shelleyToBab)
+                                 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+                                 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall era.
+ShelleyBasedEra era
+-> Parser (EraBasedProtocolParametersUpdate era)
+dpGovActionProtocolParametersUpdate ShelleyBasedEra era
+sbe
+                                 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+                             )
+                         forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create a protocol parameters update.")
+    (\ConwayEraOnwards era
+conwayOnwards ->
+        let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+conwayOnwards
+        in forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-protocol-parameters-update"
+                        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                            ( forall era.
+ShelleyBasedEra era
+-> Maybe (UpdateProtocolParametersPreConway era)
+-> Maybe (UpdateProtocolParametersConwayOnwards era)
+-> EraBasedProtocolParametersUpdate era
+-> File () 'Out
+-> GovernanceActionProtocolParametersUpdateCmdArgs era
+Cmd.GovernanceActionProtocolParametersUpdateCmdArgs
+                                (forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+conwayOnwards) forall a. Maybe a
+Nothing
+                                forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just (forall era.
+ConwayEraOnwards era
+-> Parser (UpdateProtocolParametersConwayOnwards era)
+pUpdateProtocolParametersPostConway ConwayEraOnwards era
+conwayOnwards)
+                                forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall era.
+ShelleyBasedEra era
+-> Parser (EraBasedProtocolParametersUpdate era)
+dpGovActionProtocolParametersUpdate ShelleyBasedEra era
+sbe
+                                forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+                            )
+                        forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create a protocol parameters update."
+
+    )
+
+pGovernanceActionProtocolParametersUpdateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionProtocolParametersUpdateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionProtocolParametersUpdateCmd CardanoEra era
+era = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> GovernanceActionCmds era
+Cmd.GovernanceActionProtocolParametersUpdateCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ShelleyBasedEra era
+-> Parser (GovernanceActionProtocolParametersUpdateCmdArgs era)
+pUpdateProtocolParametersCmd ShelleyBasedEra era
+w
+
+
+convertToLedger :: (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger :: forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger a -> b
+conv = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall a. Maybe a -> StrictMaybe a
+maybeToStrictMaybe forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap a -> b
+conv)
+
+toNonNegativeIntervalOrErr :: Rational -> NonNegativeInterval
+toNonNegativeIntervalOrErr :: Rational -> NonNegativeInterval
+toNonNegativeIntervalOrErr Rational
+r = case forall r. BoundedRational r => Rational -> Maybe r
+Ledger.boundRational Rational
+r of
+                         Maybe NonNegativeInterval
+Nothing ->
+                           forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [ [Char]
+"toNonNegativeIntervalOrErr: "
+                                           , [Char]
+"rational out of bounds " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show Rational
+r
+                                           ]
+                         Just NonNegativeInterval
+n -> NonNegativeInterval
+n
+
+mkProtocolVersionOrErr :: (Natural, Natural) -> Ledger.ProtVer
+mkProtocolVersionOrErr :: (Natural, Natural) -> ProtVer
+mkProtocolVersionOrErr (Natural
+majorProtVer, Natural
+minorProtVer) =
+  case (Version -> Natural -> ProtVer
+`Ledger.ProtVer` Natural
+minorProtVer) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall i (m :: * -> *). (Integral i, MonadFail m) => i -> m Version
+Ledger.mkVersion Natural
+majorProtVer of
+    Just ProtVer
+v -> ProtVer
+v
+    Maybe ProtVer
+Nothing ->
+      forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"mkProtocolVersionOrErr: invalid protocol version " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show (Natural
+majorProtVer, Natural
+minorProtVer)
+
+pCommonProtocolParameters :: Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters :: Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters =
+  StrictMaybe Coin
+-> StrictMaybe Coin
+-> StrictMaybe Natural
+-> StrictMaybe Natural
+-> StrictMaybe Natural
+-> StrictMaybe Coin
+-> StrictMaybe Coin
+-> StrictMaybe EpochNo
+-> StrictMaybe Natural
+-> StrictMaybe NonNegativeInterval
+-> StrictMaybe UnitInterval
+-> StrictMaybe UnitInterval
+-> StrictMaybe Coin
+-> CommonProtocolParametersUpdate
+CommonProtocolParametersUpdate
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinFeeConstantFactor)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinFeePerByteFactor)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxBodySize)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxTransactionSize)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxBlockHeaderSize)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pKeyRegistDeposit)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pPoolDeposit)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser EpochNo
+pEpochBoundRetirement)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pNumberOfPools)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Rational -> NonNegativeInterval
+toNonNegativeIntervalOrErr (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pPoolInfluence)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Rational -> UnitInterval
+toUnitIntervalOrErr (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pTreasuryExpansion)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Rational -> UnitInterval
+toUnitIntervalOrErr (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pMonetaryExpansion)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinPoolCost)
+
+
+pDeprecatedAfterMaryPParams :: Parser (DeprecatedAfterMaryPParams ledgerera)
+pDeprecatedAfterMaryPParams :: forall ledgerera. Parser (DeprecatedAfterMaryPParams ledgerera)
+pDeprecatedAfterMaryPParams =
+  forall ledgerera.
+StrictMaybe Coin -> DeprecatedAfterMaryPParams ledgerera
+DeprecatedAfterMaryPParams
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pMinUTxOValue)
+
+pDeprecatedAfterBabbagePParams :: Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams :: forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams =
+  forall ledgerera.
+StrictMaybe ProtVer -> DeprecatedAfterBabbagePParams ledgerera
+DeprecatedAfterBabbagePParams
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger (Natural, Natural) -> ProtVer
+mkProtocolVersionOrErr (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (Natural, Natural)
+pProtocolVersion)
+
+pShelleyToAlonzoPParams :: Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams :: forall ledgerera. Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams =
+  forall ledgerera.
+StrictMaybe Nonce
+-> StrictMaybe UnitInterval -> ShelleyToAlonzoPParams ledgerera
+ShelleyToAlonzoPParams
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$ Maybe PraosNonce -> Nonce
+toLedgerNonce forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (Maybe PraosNonce)
+pExtraEntropy)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Rational -> UnitInterval
+toUnitIntervalOrErr (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Rational
+pDecentralParam)
+
+pAlonzoOnwardsPParams :: Parser (AlonzoOnwardsPParams ledgerera)
+pAlonzoOnwardsPParams :: forall ledgerera. Parser (AlonzoOnwardsPParams ledgerera)
+pAlonzoOnwardsPParams =
+  forall ledgerera.
+StrictMaybe CostModels
+-> StrictMaybe Prices
+-> StrictMaybe ExUnits
+-> StrictMaybe ExUnits
+-> StrictMaybe Natural
+-> StrictMaybe Natural
+-> StrictMaybe Natural
+-> AlonzoOnwardsPParams ledgerera
+AlonzoOnwardsPParams forall a. StrictMaybe a
+SNothing -- TODO: Conway era cost model
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger (forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
+either (\ProtocolParametersConversionError
+e -> forall a. HasCallStack => [Char] -> a
+error forall a b. (a -> b) -> a -> b
+$ [Char]
+"pAlonzoOnwardsPParams: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> [Char]
+show ProtocolParametersConversionError
+e) forall a. a -> a
+id forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ExecutionUnitPrices
+-> Either ProtocolParametersConversionError Prices
+toAlonzoPrices)
+                        (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnitPrices
+pExecutionUnitPrices)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger ExecutionUnits -> ExUnits
+toAlonzoExUnits (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnits
+pMaxTxExecutionUnits)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger ExecutionUnits -> ExUnits
+toAlonzoExUnits (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ExecutionUnits
+pMaxBlockExecutionUnits)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxValueSize)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pCollateralPercent)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMaxCollateralInputs)
+
+
+pIntroducedInBabbagePParams :: Parser (IntroducedInBabbagePParams ledgerera)
+pIntroducedInBabbagePParams :: forall ledgerera. Parser (IntroducedInBabbagePParams ledgerera)
+pIntroducedInBabbagePParams =
+  forall era.
+StrictMaybe CoinPerByte -> IntroducedInBabbagePParams era
+IntroducedInBabbagePParams
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger (Coin -> CoinPerByte
+CoinPerByte forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace) (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pUTxOCostPerByte)
+
+pIntroducedInConwayPParams :: Parser (IntroducedInConwayPParams ledgerera)
+pIntroducedInConwayPParams :: forall ledgerera. Parser (IntroducedInConwayPParams ledgerera)
+pIntroducedInConwayPParams =
+  forall era.
+StrictMaybe PoolVotingThresholds
+-> StrictMaybe DRepVotingThresholds
+-> StrictMaybe Natural
+-> StrictMaybe Natural
+-> StrictMaybe EpochNo
+-> StrictMaybe Coin
+-> StrictMaybe Coin
+-> StrictMaybe EpochNo
+-> IntroducedInConwayPParams era
+IntroducedInConwayPParams
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser PoolVotingThresholds
+pPoolVotingThresholds)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser DRepVotingThresholds
+pDRepVotingThresholds)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pMinCommitteeSize)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Natural
+pCommitteeTermLength)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser EpochNo
+pGovActionLifetime)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pGovActionDeposit)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger Lovelace -> Coin
+toShelleyLovelace (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pDRepDeposit)
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a b. (a -> b) -> Parser (Maybe a) -> Parser (StrictMaybe b)
+convertToLedger forall a. a -> a
+id (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser EpochNo
+pDRepActivity)
+
+-- Not necessary in Conway era onwards
+pProtocolParametersUpdateGenesisKeys :: Parser [VerificationKeyFile In]
+pProtocolParametersUpdateGenesisKeys :: Parser [VerificationKeyFile 'In]
+pProtocolParametersUpdateGenesisKeys = forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (VerificationKeyFile 'In)
+pGenesisVerificationKeyFile
+
+dpGovActionProtocolParametersUpdate
+  :: ShelleyBasedEra era -> Parser (EraBasedProtocolParametersUpdate era)
+dpGovActionProtocolParametersUpdate :: forall era.
+ShelleyBasedEra era
+-> Parser (EraBasedProtocolParametersUpdate era)
+dpGovActionProtocolParametersUpdate = \case
+  ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+    CommonProtocolParametersUpdate
+-> DeprecatedAfterMaryPParams ShelleyEra
+-> DeprecatedAfterBabbagePParams ShelleyEra
+-> ShelleyToAlonzoPParams ShelleyEra
+-> EraBasedProtocolParametersUpdate ShelleyEra
+ShelleyEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterMaryPParams ledgerera)
+pDeprecatedAfterMaryPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams
+  ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+    CommonProtocolParametersUpdate
+-> DeprecatedAfterMaryPParams AllegraEra
+-> ShelleyToAlonzoPParams AllegraEra
+-> DeprecatedAfterBabbagePParams ShelleyEra
+-> EraBasedProtocolParametersUpdate AllegraEra
+AllegraEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterMaryPParams ledgerera)
+pDeprecatedAfterMaryPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams
+  ShelleyBasedEra era
+ShelleyBasedEraMary ->
+    CommonProtocolParametersUpdate
+-> DeprecatedAfterMaryPParams MaryEra
+-> ShelleyToAlonzoPParams MaryEra
+-> DeprecatedAfterBabbagePParams ShelleyEra
+-> EraBasedProtocolParametersUpdate MaryEra
+MaryEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterMaryPParams ledgerera)
+pDeprecatedAfterMaryPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams
+  ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+    CommonProtocolParametersUpdate
+-> ShelleyToAlonzoPParams AlonzoEra
+-> AlonzoOnwardsPParams AlonzoEra
+-> DeprecatedAfterBabbagePParams ShelleyEra
+-> EraBasedProtocolParametersUpdate AlonzoEra
+AlonzoEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (ShelleyToAlonzoPParams ledgerera)
+pShelleyToAlonzoPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (AlonzoOnwardsPParams ledgerera)
+pAlonzoOnwardsPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams
+  ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+    CommonProtocolParametersUpdate
+-> AlonzoOnwardsPParams BabbageEra
+-> DeprecatedAfterBabbagePParams ShelleyEra
+-> IntroducedInBabbagePParams BabbageEra
+-> EraBasedProtocolParametersUpdate BabbageEra
+BabbageEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (AlonzoOnwardsPParams ledgerera)
+pAlonzoOnwardsPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (DeprecatedAfterBabbagePParams ledgerera)
+pDeprecatedAfterBabbagePParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (IntroducedInBabbagePParams ledgerera)
+pIntroducedInBabbagePParams
+  ShelleyBasedEra era
+ShelleyBasedEraConway ->
+    CommonProtocolParametersUpdate
+-> AlonzoOnwardsPParams ConwayEra
+-> IntroducedInBabbagePParams ConwayEra
+-> IntroducedInConwayPParams (ShelleyLedgerEra ConwayEra)
+-> EraBasedProtocolParametersUpdate ConwayEra
+ConwayEraBasedProtocolParametersUpdate
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CommonProtocolParametersUpdate
+pCommonProtocolParameters
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (AlonzoOnwardsPParams ledgerera)
+pAlonzoOnwardsPParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (IntroducedInBabbagePParams ledgerera)
+pIntroducedInBabbagePParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall ledgerera. Parser (IntroducedInConwayPParams ledgerera)
+pIntroducedInConwayPParams
+
+pGovernanceActionTreasuryWithdrawalCmd :: CardanoEra era -> Maybe (Parser (Cmd.GovernanceActionCmds era))
+pGovernanceActionTreasuryWithdrawalCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionTreasuryWithdrawalCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> ParserInfo a -> Parser a
+subParser [Char]
+"create-treasury-withdrawal"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> GovernanceActionCmds era
+Cmd.GovernanceActionTreasuryWithdrawalCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> Network
+-> Lovelace
+-> VerificationKeyOrHashOrFile StakeKey
+-> ProposalUrl
+-> SafeHash StandardCrypto AnchorData
+-> [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+-> File () 'Out
+-> GovernanceActionTreasuryWithdrawalCmdArgs era
+Cmd.GovernanceActionTreasuryWithdrawalCmdArgs ConwayEraOnwards era
+eon
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Network
+pNetwork
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pGovActionDeposit
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile (forall a. a -> Maybe a
+Just [Char]
+"deposit-return")
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProposalUrl
+pAnchorUrl
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pAnchorDataHash
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many ((,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe [Char] -> Parser (VerificationKeyOrHashOrFile StakeKey)
+pStakeVerificationKeyOrHashOrFile (forall a. a -> Maybe a
+Just [Char]
+"funds-receiving") forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pTransferAmt)
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. [Char] -> [Char] -> Parser (File a 'Out)
+pFileOutDirection [Char]
+"out-file" [Char]
+"Output filepath of the treasury withdrawal."
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. [Char] -> InfoMod a
+Opt.progDesc [Char]
+"Create a treasury withdrawal."
+
+pNetwork :: Parser Ledger.Network
+pNetwork :: Parser Network
+pNetwork  = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' Network
+Ledger.Mainnet forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+Opt.long [Char]
+"mainnet"
+      , forall (f :: * -> *) a. [Char] -> Mod f a
+Opt.help [Char]
+"Use the mainnet magic id."
+      ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' Network
+Ledger.Testnet forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
+Opt.long [Char]
+"testnet"
+      , forall (f :: * -> *) a. [Char] -> Mod f a
+Opt.help [Char]
+"Use the testnet magic id."
+      ]
+    ]
+  ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Committee.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Committee.html new file mode 100644 index 0000000000..d3c86a5c16 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Committee.html @@ -0,0 +1,408 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE TypeFamilies #-}
+
+module Cardano.CLI.EraBased.Options.Governance.Committee
+  ( pGovernanceCommitteeCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands.Governance.Committee
+import           Cardano.CLI.EraBased.Options.Common hiding (pAnchorUrl)
+import           Cardano.CLI.Read
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as L
+
+import           Options.Applicative (Parser)
+import qualified Options.Applicative as Opt
+
+pGovernanceCommitteeCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCmds CardanoEra era
+era =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"committee"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Committee member commands."
+          ]
+    )
+    [ forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenColdCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenHotCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyHashCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateColdKeyResignationCertificateCmd CardanoEra era
+era
+    ]
+
+pGovernanceCommitteeKeyGenColdCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenColdCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenColdCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen-cold"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era.
+ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+pCmd ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create a cold key pair for a Constitutional Committee Member"
+        ]
+  where
+    pCmd :: ()
+      => ConwayEraOnwards era
+      -> Parser (GovernanceCommitteeCmds era)
+    pCmd :: forall era.
+ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+pCmd ConwayEraOnwards era
+w =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> GovernanceCommitteeCmds era
+GovernanceCommitteeKeyGenColdCmd forall a b. (a -> b) -> a -> b
+$
+        forall era.
+ConwayEraOnwards era
+-> File (VerificationKey ()) 'Out
+-> File (SigningKey ()) 'Out
+-> GovernanceCommitteeKeyGenColdCmdArgs era
+GovernanceCommitteeKeyGenColdCmdArgs ConwayEraOnwards era
+w
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection).
+Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile
+
+pGovernanceCommitteeKeyGenHotCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenHotCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyGenHotCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen-hot"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era.
+ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+pCmd ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create a cold key pair for a Constitutional Committee Member"
+        ]
+  where
+    pCmd :: ()
+      => ConwayEraOnwards era
+      -> Parser (GovernanceCommitteeCmds era)
+    pCmd :: forall era.
+ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+pCmd ConwayEraOnwards era
+w =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> GovernanceCommitteeCmds era
+GovernanceCommitteeKeyGenHotCmd forall a b. (a -> b) -> a -> b
+$
+        forall era.
+ConwayEraOnwards era
+-> File (VerificationKey ()) 'Out
+-> File (SigningKey ()) 'Out
+-> GovernanceCommitteeKeyGenHotCmdArgs era
+GovernanceCommitteeKeyGenHotCmdArgs ConwayEraOnwards era
+w
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pGovernanceCommitteeKeyHashCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyHashCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeKeyHashCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-hash"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceCommitteeKeyHashCmdArgs era
+-> GovernanceCommitteeCmds era
+GovernanceCommitteeKeyHashCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> AnyVerificationKeySource
+-> GovernanceCommitteeKeyHashCmdArgs era
+GovernanceCommitteeKeyHashCmdArgs ConwayEraOnwards era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> Parser AnyVerificationKeySource
+pAnyVerificationKeySource String
+"Constitutional Committee Member key (hot or cold)"
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Print the identifier (hash) of a public key"
+        ]
+
+pGovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create-hot-key-authorization-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> GovernanceCommitteeCmds era
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+-> VerificationKeyOrHashOrFile CommitteeHotKey
+-> File () 'Out
+-> GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+     era
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs ConwayEraOnwards era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrHashOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotKeyOrHashOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create hot key authorization certificate for a Constitutional Committee Member"
+        ]
+
+pGovernanceCommitteeCreateColdKeyResignationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateColdKeyResignationCertificateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCreateColdKeyResignationCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create-cold-key-resignation-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ forall {era}.
+(EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) =>
+ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+mkParser ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create cold key resignation certificate for a Constitutional Committee Member"
+        ]
+ where
+  mkParser :: ConwayEraOnwards era -> Parser (GovernanceCommitteeCmds era)
+mkParser ConwayEraOnwards era
+w = forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> GovernanceCommitteeCmds era
+GovernanceCommitteeCreateColdKeyResignationCertificateCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+    (
+      forall era.
+ConwayEraOnwards era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+-> File () 'Out
+-> GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+     era
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs ConwayEraOnwards era
+w forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+        Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrHashOrFile forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*>
+        Parser (Maybe (Anchor StandardCrypto))
+pAnchor forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*>
+        forall content. Parser (File content 'Out)
+pOutputFile
+    )
+
+pAnchor :: Parser (Maybe (L.Anchor Crypto.StandardCrypto))
+pAnchor :: Parser (Maybe (Anchor StandardCrypto))
+pAnchor =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$
+    forall c. Url -> SafeHash c AnchorData -> Anchor c
+L.Anchor
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap AnchorUrl -> Url
+unAnchorUrl Parser AnchorUrl
+pAnchorUrl
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pSafeHash
+
+pAnchorUrl :: Parser AnchorUrl
+pAnchorUrl :: Parser AnchorUrl
+pAnchorUrl =
+  Url -> AnchorUrl
+AnchorUrl
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> String -> Parser Url
+pUrl String
+"resignation-metadata-url" String
+"Constitutional Committee cold key resignation certificate URL"
+
+pSafeHash ::  Parser (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pSafeHash :: Parser (SafeHash StandardCrypto AnchorData)
+pSafeHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"resignation-metadata-hash"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"HASH"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Constitutional Committee cold key resignation certificate metadata hash"
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.DRep.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.DRep.html new file mode 100644 index 0000000000..34b85bee5d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.DRep.html @@ -0,0 +1,460 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+{-# OPTIONS_GHC -Wno-unused-imports #-}
+
+module Cardano.CLI.EraBased.Options.Governance.DRep
+  ( pGovernanceDRepCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Environment
+import           Cardano.CLI.EraBased.Commands.Governance.DRep
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Parser
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as L
+
+import           Control.Applicative
+import           Data.Foldable
+import           Data.String
+import           Options.Applicative (Parser)
+import qualified Options.Applicative as Opt
+
+pGovernanceDRepCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepCmds CardanoEra era
+era =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"drep"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"DRep member commands."
+          ]
+    )
+    [ forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyGenCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyIdCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pRegistrationCertificateCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pRetirementCertificateCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDrepMetadataHashCmd CardanoEra era
+era
+    ]
+
+pGovernanceDRepKeyGenCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyGenCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyGenCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceDRepKeyGenCmdArgs era -> GovernanceDRepCmds era
+GovernanceDRepKeyGenCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> File (VerificationKey ()) 'Out
+-> File (SigningKey ()) 'Out
+-> GovernanceDRepKeyGenCmdArgs era
+GovernanceDRepKeyGenCmdArgs ConwayEraOnwards era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Generate Delegate Representative verification and signing keys."
+
+pGovernanceDRepKeyIdCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyIdCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepKeyIdCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"id"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceDRepIdCmdArgs era -> GovernanceDRepCmds era
+GovernanceDRepIdCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> VerificationKeyOrFile DRepKey
+-> IdOutputFormat
+-> Maybe (File () 'Out)
+-> GovernanceDRepIdCmdArgs era
+GovernanceDRepIdCmdArgs ConwayEraOnwards era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile DRepKey)
+pDRepVerificationKeyOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser IdOutputFormat
+pDRepIdOutputFormat
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Generate a drep id."
+
+pDRepIdOutputFormat :: Parser IdOutputFormat
+pDRepIdOutputFormat :: Parser IdOutputFormat
+pDRepIdOutputFormat =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM IdOutputFormat
+readIdOutputFormat forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"output-format"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"STRING"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ String
+"Optional drep id output format. Accepted output formats are \"hex\" "
+      , String
+"and \"bech32\" (default is \"bech32\")."
+      ]
+    , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value IdOutputFormat
+IdOutputFormatBech32
+    ]
+
+-- Registration Certificate related
+
+pRegistrationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pRegistrationCertificateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pRegistrationCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"registration-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ forall {era}.
+(EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) =>
+ConwayEraOnwards era -> Parser (GovernanceDRepCmds era)
+mkParser ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a registration certificate."
+ where
+  mkParser :: ConwayEraOnwards era -> Parser (GovernanceDRepCmds era)
+mkParser ConwayEraOnwards era
+w =
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> GovernanceDRepCmds era
+GovernanceDRepRegistrationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+      forall era.
+ConwayEraOnwards era
+-> VerificationKeyOrHashOrFile DRepKey
+-> Lovelace
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+-> File () 'Out
+-> GovernanceDRepRegistrationCertificateCmdArgs era
+GovernanceDRepRegistrationCertificateCmdArgs ConwayEraOnwards era
+w
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pKeyRegistDeposit
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe (Anchor StandardCrypto))
+pDRepMetadata
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pDRepMetadata :: Parser (Maybe (L.Anchor Crypto.StandardCrypto))
+pDRepMetadata :: Parser (Maybe (Anchor StandardCrypto))
+pDRepMetadata =
+  forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$
+    forall c. Url -> SafeHash c AnchorData -> Anchor c
+L.Anchor
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap AnchorUrl -> Url
+unAnchorUrl Parser AnchorUrl
+pDrepMetadataUrl
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SafeHash StandardCrypto AnchorData)
+pDrepMetadataHash
+
+pDrepMetadataUrl :: Parser AnchorUrl
+pDrepMetadataUrl :: Parser AnchorUrl
+pDrepMetadataUrl =
+  Url -> AnchorUrl
+AnchorUrl
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> String -> Parser Url
+pUrl String
+"drep-metadata-url" String
+"DRep anchor URL"
+
+pDrepMetadataHash :: Parser (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+pDrepMetadataHash :: Parser (SafeHash StandardCrypto AnchorData)
+pDrepMetadataHash =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"drep-metadata-hash"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"HASH"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"DRep anchor data hash."
+    ]
+
+pRetirementCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pRetirementCertificateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pRetirementCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"retirement-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+      ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> GovernanceDRepCmds era
+GovernanceDRepRetirementCertificateCmd forall a b. (a -> b) -> a -> b
+$
+          forall era.
+ConwayEraOnwards era
+-> VerificationKeyOrHashOrFile DRepKey
+-> Lovelace
+-> File () 'Out
+-> GovernanceDRepRetirementCertificateCmdArgs era
+GovernanceDRepRetirementCertificateCmdArgs ConwayEraOnwards era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pDrepDeposit
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+      )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a DRep retirement certificate."
+
+pGovernanceDrepMetadataHashCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDrepMetadataHashCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDrepMetadataHashCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"metadata-hash"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceDRepMetadataHashCmdArgs era -> GovernanceDRepCmds era
+GovernanceDRepMetadataHashCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ConwayEraOnwards era
+-> DRepMetadataFile 'In
+-> Maybe (File () 'Out)
+-> GovernanceDRepMetadataHashCmdArgs era
+GovernanceDRepMetadataHashCmdArgs ConwayEraOnwards era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"drep-metadata-file" String
+"JSON Metadata file to hash."
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Calculate the hash of a metadata file."
+
+--------------------------------------------------------------------------------
+
+data AnyEraDecider era where
+  AnyEraDeciderShelleyToBabbage :: ShelleyToBabbageEra era -> AnyEraDecider era
+  AnyEraDeciderConwayOnwards :: ConwayEraOnwards era -> AnyEraDecider era
+
+instance Eon AnyEraDecider where
+  inEonForEra :: forall a era. a -> (AnyEraDecider era -> a) -> CardanoEra era -> a
+inEonForEra a
+no AnyEraDecider era -> a
+yes = \case
+    CardanoEra era
+ByronEra    -> a
+no
+    CardanoEra era
+ShelleyEra  -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> AnyEraDecider era
+AnyEraDeciderShelleyToBabbage ShelleyToBabbageEra ShelleyEra
+ShelleyToBabbageEraShelley
+    CardanoEra era
+AllegraEra  -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> AnyEraDecider era
+AnyEraDeciderShelleyToBabbage ShelleyToBabbageEra AllegraEra
+ShelleyToBabbageEraAllegra
+    CardanoEra era
+MaryEra     -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> AnyEraDecider era
+AnyEraDeciderShelleyToBabbage ShelleyToBabbageEra MaryEra
+ShelleyToBabbageEraMary
+    CardanoEra era
+AlonzoEra   -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> AnyEraDecider era
+AnyEraDeciderShelleyToBabbage ShelleyToBabbageEra AlonzoEra
+ShelleyToBabbageEraAlonzo
+    CardanoEra era
+BabbageEra  -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> AnyEraDecider era
+AnyEraDeciderShelleyToBabbage ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage
+    CardanoEra era
+ConwayEra   -> AnyEraDecider era -> a
+yes forall a b. (a -> b) -> a -> b
+$ forall era. ConwayEraOnwards era -> AnyEraDecider era
+AnyEraDeciderConwayOnwards ConwayEraOnwards ConwayEra
+ConwayEraOnwardsConway
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Hash.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Hash.html new file mode 100644 index 0000000000..6030ed5f5f --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Hash.html @@ -0,0 +1,105 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Options.Governance.Hash
+  (
+    pGovernanceHashCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands.Governance.Hash
+                   (GovernanceHashCmdArgs (GovernanceHashCmdArgs))
+import qualified Cardano.CLI.EraBased.Commands.Governance.Hash as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Data.Foldable
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+
+pGovernanceHashCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (Cmd.GovernanceHashCmds era))
+pGovernanceHashCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceHashCmds era))
+pGovernanceHashCmds CardanoEra era
+era = do
+  ConwayEraOnwards era
+eon <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (m :: * -> *) a. Monad m => a -> m a
+return
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"hash"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceHashCmdArgs era -> GovernanceHashCmds era
+Cmd.GovernanceHashCmd
+            (forall era.
+ConwayEraOnwards era
+-> GovernanceHashSource
+-> Maybe (File () 'Out)
+-> GovernanceHashCmdArgs era
+GovernanceHashCmdArgs ConwayEraOnwards era
+eon
+               forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser GovernanceHashSource
+pGovernanceHashSource
+               forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile))
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Compute the hash to pass to the various --*-hash arguments of governance commands."
+
+pGovernanceHashSource :: Parser Cmd.GovernanceHashSource
+pGovernanceHashSource :: Parser GovernanceHashSource
+pGovernanceHashSource =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [
+      Text -> GovernanceHashSource
+Cmd.GovernanceHashSourceText
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption
+              ( forall a. Monoid a => [a] -> a
+mconcat
+                [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"text"
+                , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"TEXT"
+                , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Text to hash as UTF-8"
+                ]
+              )
+    , File ProposalText 'In -> GovernanceHashSource
+Cmd.GovernanceHashSourceBinaryFile
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"file-binary" String
+"Binary file to hash"
+    , File ProposalText 'In -> GovernanceHashSource
+Cmd.GovernanceHashSourceTextFile
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"file-text" String
+"Text file to hash"
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Poll.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Poll.html new file mode 100644 index 0000000000..620b87f562 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Poll.html @@ -0,0 +1,231 @@ +
module Cardano.CLI.EraBased.Options.Governance.Poll
+  ( pGovernancePollCmds,
+  )
+where
+
+import           Cardano.Api
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Poll as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.Prelude (catMaybes, isInfixOf)
+
+import           Control.Monad (when)
+import           Data.Foldable
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+pGovernancePollCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (Cmd.GovernancePollCmds era))
+pGovernancePollCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernancePollCmds CardanoEra era
+era =
+  case [Parser (GovernancePollCmds era)]
+parsers of
+    [] -> forall a. Maybe a
+Nothing
+    [Parser (GovernancePollCmds era)]
+_ -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum [Parser (GovernancePollCmds era)]
+parsers
+  where
+    parsers :: [Parser (GovernancePollCmds era)]
+parsers =
+      forall a. [Maybe a] -> [a]
+catMaybes
+        [ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create-poll"
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceCreatePoll CardanoEra era
+era
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an SPO poll")
+                ),
+          forall a. String -> ParserInfo a -> Parser a
+subParser String
+"answer-poll"
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceAnswerPoll CardanoEra era
+era
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a. String -> InfoMod a
+Opt.progDesc String
+"Answer an SPO poll")
+                ),
+          forall a. String -> ParserInfo a -> Parser a
+subParser String
+"verify-poll"
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceVerifyPoll CardanoEra era
+era
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a. String -> InfoMod a
+Opt.progDesc String
+"Verify an answer to a given SPO poll")
+                )
+        ]
+
+pGovernanceCreatePoll :: CardanoEra era -> Maybe (Parser (Cmd.GovernancePollCmds era))
+pGovernanceCreatePoll :: forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceCreatePoll CardanoEra era
+era = do
+  BabbageEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (String
+"BabbageEraOnwardsConway" forall a. Eq a => [a] -> [a] -> Bool
+`isInfixOf` forall a. Show a => a -> String
+show BabbageEraOnwards era
+w) forall a. Maybe a
+Nothing
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceCreatePollCmdArgs era -> GovernancePollCmds era
+Cmd.GovernanceCreatePoll forall a b. (a -> b) -> a -> b
+$
+    forall era.
+BabbageEraOnwards era
+-> Text
+-> [Text]
+-> Maybe Word
+-> File GovernancePoll 'Out
+-> GovernanceCreatePollCmdArgs era
+Cmd.GovernanceCreatePollCmdArgs BabbageEraOnwards era
+w
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pPollQuestion
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser Text
+pPollAnswer
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pPollNonce
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pGovernanceAnswerPoll :: CardanoEra era -> Maybe (Parser (Cmd.GovernancePollCmds era))
+pGovernanceAnswerPoll :: forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceAnswerPoll CardanoEra era
+era = do
+  BabbageEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (String
+"BabbageEraOnwardsConway" forall a. Eq a => [a] -> [a] -> Bool
+`isInfixOf` forall a. Show a => a -> String
+show BabbageEraOnwards era
+w) forall a. Maybe a
+Nothing
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceAnswerPollCmdArgs era -> GovernancePollCmds era
+Cmd.GovernanceAnswerPoll forall a b. (a -> b) -> a -> b
+$
+    forall era.
+BabbageEraOnwards era
+-> File GovernancePoll 'In
+-> Maybe Word
+-> Maybe (File () 'Out)
+-> GovernanceAnswerPollCmdArgs era
+Cmd.GovernanceAnswerPollCmdArgs BabbageEraOnwards era
+w
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (File GovernancePoll 'In)
+pPollFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pPollAnswerIndex
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+pGovernanceVerifyPoll :: CardanoEra era -> Maybe (Parser (Cmd.GovernancePollCmds era))
+pGovernanceVerifyPoll :: forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernanceVerifyPoll CardanoEra era
+era = do
+  BabbageEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (String
+"BabbageEraOnwardsConway" forall a. Eq a => [a] -> [a] -> Bool
+`isInfixOf` forall a. Show a => a -> String
+show BabbageEraOnwards era
+w) forall a. Maybe a
+Nothing
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+GovernanceVerifyPollCmdArgs era -> GovernancePollCmds era
+Cmd.GovernanceVerifyPoll forall a b. (a -> b) -> a -> b
+$
+    forall era.
+BabbageEraOnwards era
+-> File GovernancePoll 'In
+-> File (Tx ()) 'In
+-> Maybe (File () 'Out)
+-> GovernanceVerifyPollCmdArgs era
+Cmd.GovernanceVerifyPollCmdArgs BabbageEraOnwards era
+w
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (File GovernancePoll 'In)
+pPollFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (File (Tx ()) 'In)
+pPollTxFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Vote.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Vote.html new file mode 100644 index 0000000000..8ea4d9a2b4 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.Vote.html @@ -0,0 +1,209 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Options.Governance.Vote
+  ( pGovernanceVoteCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands.Governance.Vote
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Types.Governance
+
+import           Control.Applicative (optional)
+import           Data.Foldable
+import           Options.Applicative (Parser)
+import qualified Options.Applicative as Opt
+
+pGovernanceVoteCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCmds :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCmds CardanoEra era
+era =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"vote"
+    (forall a. String -> InfoMod a
+Opt.progDesc String
+"Vote commands.")
+    [ forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCreateCmd CardanoEra era
+era,
+      forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteViewCmd CardanoEra era
+era
+    ]
+
+pGovernanceVoteCreateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCreateCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCreateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+GovernanceVoteCreateCmdArgs era -> GovernanceVoteCmds era
+GovernanceVoteCreateCmd
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era -> Parser (GovernanceVoteCreateCmdArgs era)
+pGovernanceVoteCreateCmdArgs ConwayEraOnwards era
+w
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Vote creation."
+
+pGovernanceVoteCreateCmdArgs :: ()
+  => ConwayEraOnwards era -> Parser (GovernanceVoteCreateCmdArgs era)
+pGovernanceVoteCreateCmdArgs :: forall era.
+ConwayEraOnwards era -> Parser (GovernanceVoteCreateCmdArgs era)
+pGovernanceVoteCreateCmdArgs ConwayEraOnwards era
+cOnwards =
+  forall era.
+ConwayEraOnwards era
+-> Vote
+-> (TxId, Word32)
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+-> Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+-> VoteFile 'Out
+-> GovernanceVoteCreateCmdArgs era
+GovernanceVoteCreateCmdArgs ConwayEraOnwards era
+cOnwards
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Vote
+pVoteChoice
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (TxId, Word32)
+pGovernanceActionId
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser AnyVotingStakeVerificationKeyOrHashOrFile
+pAnyVotingStakeVerificationKeyOrHashOrFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser (VoteUrl, SafeHash StandardCrypto AnchorData)
+pVoteAnchor
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. String -> String -> Parser (File a 'Out)
+pFileOutDirection String
+"out-file" String
+"Output filepath of the vote."
+
+pAnyVotingStakeVerificationKeyOrHashOrFile :: Parser AnyVotingStakeVerificationKeyOrHashOrFile
+pAnyVotingStakeVerificationKeyOrHashOrFile :: Parser AnyVotingStakeVerificationKeyOrHashOrFile
+pAnyVotingStakeVerificationKeyOrHashOrFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum [ VerificationKeyOrHashOrFile DRepKey
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+AnyDRepVerificationKeyOrHashOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+       , VerificationKeyOrHashOrFile StakePoolKey
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+AnyStakePoolVerificationKeyOrHashOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+       , VerificationKeyOrHashOrFile CommitteeHotKey
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+AnyCommitteeHotVerificationKeyOrHashOrFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotVerificationKeyOrHashOrVerificationFile
+       ]
+
+pGovernanceVoteViewCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteViewCmd :: forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteViewCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"view"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        (forall era. GovernanceVoteViewCmdArgs era -> GovernanceVoteCmds era
+GovernanceVoteViewCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era -> Parser (GovernanceVoteViewCmdArgs era)
+pGovernanceVoteViewCmdArgs ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Vote viewing."
+
+pGovernanceVoteViewCmdArgs :: ConwayEraOnwards era -> Parser (GovernanceVoteViewCmdArgs era)
+pGovernanceVoteViewCmdArgs :: forall era.
+ConwayEraOnwards era -> Parser (GovernanceVoteViewCmdArgs era)
+pGovernanceVoteViewCmdArgs ConwayEraOnwards era
+cOnwards =
+  forall era.
+ConwayEraOnwards era
+-> Bool
+-> VoteFile 'In
+-> Maybe (File () 'Out)
+-> GovernanceVoteViewCmdArgs era
+GovernanceVoteViewCmdArgs ConwayEraOnwards era
+cOnwards
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Bool
+pYamlOutput
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"vote-file" String
+"Input filepath of the vote."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+  where
+    pYamlOutput :: Parser Bool
+    pYamlOutput :: Parser Bool
+pYamlOutput =
+      Mod FlagFields Bool -> Parser Bool
+Opt.switch
+        ( forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"yaml"
+            forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Output vote in YAML format (and not JSON)."
+        )
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.html new file mode 100644 index 0000000000..6602fdbf45 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Governance.html @@ -0,0 +1,288 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Options.Governance
+  ( GovernanceCmds(..)
+  , renderGovernanceCmds
+  , pGovernanceCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands.Governance
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.EraBased.Options.Governance.Actions
+import           Cardano.CLI.EraBased.Options.Governance.Committee
+import           Cardano.CLI.EraBased.Options.Governance.DRep
+import           Cardano.CLI.EraBased.Options.Governance.Hash
+import           Cardano.CLI.EraBased.Options.Governance.Poll
+import           Cardano.CLI.EraBased.Options.Governance.Vote
+
+import           Data.Foldable
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+
+pGovernanceCmds :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCmds era))
+pGovernanceCmds :: forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pGovernanceCmds CardanoEra era
+era =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"governance"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Governance commands."
+          ]
+    )
+    [ forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pCreateMirCertificatesCmds CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pGovernanceGenesisKeyDelegationCertificate CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceActionCmds era -> GovernanceCmds era
+GovernanceActionCmds       forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernanceActionCmds era))
+pGovernanceActionCmds CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceCommitteeCmds era -> GovernanceCmds era
+GovernanceCommitteeCmds    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernanceCommitteeCmds era))
+pGovernanceCommitteeCmds CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceDRepCmds era -> GovernanceCmds era
+GovernanceDRepCmds         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernanceDRepCmds era))
+pGovernanceDRepCmds CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceHashCmds era -> GovernanceCmds era
+GovernanceHashCmds         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernanceHashCmds era))
+pGovernanceHashCmds CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernancePollCmds era -> GovernanceCmds era
+GovernancePollCmds         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
+pGovernancePollCmds CardanoEra era
+era
+    , forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. GovernanceVoteCmds era -> GovernanceCmds era
+GovernanceVoteCmds         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era -> Maybe (Parser (GovernanceVoteCmds era))
+pGovernanceVoteCmds CardanoEra era
+era
+    ]
+
+pCreateMirCertificatesCmds :: CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pCreateMirCertificatesCmds :: forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pCreateMirCertificatesCmds CardanoEra era
+era = do
+  ShelleyToBabbageEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create-mir-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pMIRPayStakeAddresses ShelleyToBabbageEra era
+w forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+mirCertParsers ShelleyToBabbageEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an MIR (Move Instantaneous Rewards) certificate"
+
+mirCertParsers :: ()
+  => ShelleyToBabbageEra era
+  -> Parser (GovernanceCmds era)
+mirCertParsers :: forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+mirCertParsers ShelleyToBabbageEra era
+w =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-addresses"
+      forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pMIRPayStakeAddresses ShelleyToBabbageEra era
+w)
+      forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an MIR certificate to pay stake addresses"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"transfer-to-treasury"
+      forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w)
+      forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an MIR certificate to transfer from the reserves pot to the treasury pot"
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"transfer-to-rewards"
+      forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w)
+      forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create an MIR certificate to transfer from the treasury pot to the reserves pot"
+    ]
+
+pMIRPayStakeAddresses :: ()
+  => ShelleyToBabbageEra era
+  -> Parser (GovernanceCmds era)
+pMIRPayStakeAddresses :: forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pMIRPayStakeAddresses ShelleyToBabbageEra era
+w =
+  forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> GovernanceCmds era
+GovernanceCreateMirCertificateStakeAddressesCmd ShelleyToBabbageEra era
+w
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser MIRPot
+pMIRPot
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser StakeAddress
+pStakeAddress
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser Lovelace
+pRewardAmt
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pGovernanceCreateMirCertificateTransferToTreasuryCmd :: ()
+  => ShelleyToBabbageEra era
+  -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToTreasuryCmd :: forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w =
+  forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> GovernanceCmds era
+GovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Lovelace
+pTransferAmt
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pGovernanceCreateMirCertificateTransferToReservesCmd :: ()
+  => ShelleyToBabbageEra era
+  -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToReservesCmd :: forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+pGovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w =
+  forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> GovernanceCmds era
+GovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Lovelace
+pTransferAmt
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pGovernanceGenesisKeyDelegationCertificate :: ()
+  => CardanoEra era
+  -> Maybe (Parser (GovernanceCmds era))
+pGovernanceGenesisKeyDelegationCertificate :: forall era. CardanoEra era -> Maybe (Parser (GovernanceCmds era))
+pGovernanceGenesisKeyDelegationCertificate CardanoEra era
+era = do
+  ShelleyToBabbageEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"create-genesis-key-delegation-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+parser ShelleyToBabbageEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a genesis key delegation certificate"
+  where
+    parser :: ShelleyToBabbageEra era -> Parser (GovernanceCmds era)
+parser ShelleyToBabbageEra era
+w = forall era.
+ShelleyToBabbageEra era
+-> VerificationKeyOrHashOrFile GenesisKey
+-> VerificationKeyOrHashOrFile GenesisDelegateKey
+-> VerificationKeyOrHashOrFile VrfKey
+-> File () 'Out
+-> GovernanceCmds era
+GovernanceGenesisKeyDelegationCertificate ShelleyToBabbageEra era
+w
+         forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrHashOrFile GenesisKey)
+pGenesisVerificationKeyOrHashOrFile
+         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrHashOrFile
+         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile VrfKey)
+pVrfVerificationKeyOrHashOrFile
+         forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Key.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Key.html new file mode 100644 index 0000000000..473afd40fb --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Key.html @@ -0,0 +1,694 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.Key
+  ( pKeyCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.EraBased.Commands.Key
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Types.Common
+
+import           Data.Foldable
+import           Data.Text (Text)
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pKeyCmds :: Maybe (Parser (KeyCmds era))
+pKeyCmds :: forall era. Maybe (Parser (KeyCmds era))
+pKeyCmds =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"key"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Key utility commands."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"verification-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyVerificationKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get a verification key from a signing key. This "
+            , String
+" supports all key types."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"non-extended-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyNonExtendedKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get a non-extended verification key from an "
+            , String
+"extended verification key. This supports all "
+            , String
+"extended key types."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-byron-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertByronKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a Byron payment, genesis or genesis "
+            , String
+"delegate key (signing or verification) to a "
+            , String
+"corresponding Shelley-format key."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-byron-genesis-vkey"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertByronGenesisKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a Base64-encoded Byron genesis "
+            , String
+"verification key to a Shelley genesis "
+            , String
+"verification key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertITNKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) non-extended "
+            , String
+"(Ed25519) signing or verification key to a "
+            , String
+"corresponding Shelley stake key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-extended-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertITNExtendedKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) extended "
+            , String
+"(Ed25519Extended) signing key to a corresponding "
+            , String
+"Shelley stake signing key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-bip32-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertITNBip32KeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) BIP32 "
+            , String
+"(Ed25519Bip32) signing key to a corresponding "
+            , String
+"Shelley stake signing key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-cardano-address-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (KeyCmds era)
+pKeyConvertCardanoAddressKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a cardano-address extended signing key "
+            , String
+"to a corresponding Shelley-format key."
+            ]
+    ]
+
+pKeyVerificationKeyCmd :: Parser (KeyCmds era)
+pKeyVerificationKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyVerificationKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyVerificationKeyCmdArgs -> KeyCmds era
+KeyVerificationKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SigningKeyFile 'In
+-> VerificationKeyFile 'Out -> KeyVerificationKeyCmdArgs
+KeyVerificationKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+
+pKeyNonExtendedKeyCmd :: Parser (KeyCmds era)
+pKeyNonExtendedKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyNonExtendedKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyNonExtendedKeyCmdArgs -> KeyCmds era
+KeyNonExtendedKeyCmd forall a b. (a -> b) -> a -> b
+$
+    VerificationKeyFile 'In
+-> VerificationKeyFile 'Out -> KeyNonExtendedKeyCmdArgs
+KeyNonExtendedKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pExtendedVerificationKeyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+
+pKeyConvertByronKeyCmd :: Parser (KeyCmds era)
+pKeyConvertByronKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertByronKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertByronKeyCmdArgs -> KeyCmds era
+KeyConvertByronKeyCmd forall a b. (a -> b) -> a -> b
+$
+    Maybe Text
+-> ByronKeyType
+-> SomeKeyFile 'In
+-> File () 'Out
+-> KeyConvertByronKeyCmdArgs
+KeyConvertByronKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Text
+pPassword
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ByronKeyType
+pByronKeyType
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SomeKeyFile 'In)
+pByronKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pPassword :: Parser Text
+pPassword :: Parser Text
+pPassword =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"password"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"TEXT"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Password for signing key (if applicable)."
+    ]
+
+pByronKeyType :: Parser ByronKeyType
+pByronKeyType :: Parser ByronKeyType
+pByronKeyType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronPaymentKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-payment-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era payment key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronPaymentKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-payment-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era payment key, in legacy SL format."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronGenesisKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronGenesisKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-genesis-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis key, in legacy SL format."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronDelegateKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-delegate-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis delegate key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronDelegateKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-genesis-delegate-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis delegate key, in legacy SL format."
+        ]
+    ]
+
+pByronKeyFile :: Parser (SomeKeyFile In)
+pByronKeyFile :: Parser (SomeKeyFile 'In)
+pByronKeyFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall (direction :: FileDirection).
+SigningKeyFile direction -> SomeKeyFile direction
+ASigningKeyFile      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SigningKeyFile 'In)
+pByronSigningKeyFile
+    , forall (direction :: FileDirection).
+VerificationKeyFile direction -> SomeKeyFile direction
+AVerificationKeyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pByronVerificationKeyFile
+    ]
+
+pByronSigningKeyFile :: Parser (SigningKeyFile In)
+pByronSigningKeyFile :: Parser (SigningKeyFile 'In)
+pByronSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Input filepath of the Byron-format signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pByronVerificationKeyFile :: Parser (VerificationKeyFile In)
+pByronVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pByronVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Input filepath of the Byron-format verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pKeyConvertByronGenesisKeyCmd :: Parser (KeyCmds era)
+pKeyConvertByronGenesisKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertByronGenesisKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertByronGenesisVKeyCmdArgs -> KeyCmds era
+KeyConvertByronGenesisVKeyCmd forall a b. (a -> b) -> a -> b
+$
+    VerificationKeyBase64
+-> File () 'Out -> KeyConvertByronGenesisVKeyCmdArgs
+KeyConvertByronGenesisVKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser VerificationKeyBase64
+pByronGenesisVKeyBase64
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pByronGenesisVKeyBase64 :: Parser VerificationKeyBase64
+pByronGenesisVKeyBase64 :: Parser VerificationKeyBase64
+pByronGenesisVKeyBase64 =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap String -> VerificationKeyBase64
+VerificationKeyBase64 forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"BASE64"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Base64 string for the Byron genesis verification key."
+    ]
+
+pKeyConvertITNKeyCmd :: Parser (KeyCmds era)
+pKeyConvertITNKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertITNKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertITNKeyCmdArgs -> KeyCmds era
+KeyConvertITNKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNKeyCmdArgs
+KeyConvertITNKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNKeyFIle
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pKeyConvertITNExtendedKeyCmd :: Parser (KeyCmds era)
+pKeyConvertITNExtendedKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertITNExtendedKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertITNExtendedKeyCmdArgs -> KeyCmds era
+KeyConvertITNExtendedKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNExtendedKeyCmdArgs
+KeyConvertITNExtendedKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pKeyConvertITNBip32KeyCmd :: Parser (KeyCmds era)
+pKeyConvertITNBip32KeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertITNBip32KeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertITNBip32KeyCmdArgs -> KeyCmds era
+KeyConvertITNBip32KeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNBip32KeyCmdArgs
+KeyConvertITNBip32KeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pITNKeyFIle :: Parser (SomeKeyFile direction)
+pITNKeyFIle :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNKeyFIle =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+    , forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNVerificationKeyFile
+    ]
+
+pITNSigningKeyFile :: Parser (SomeKeyFile direction)
+pITNSigningKeyFile :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall (direction :: FileDirection).
+SigningKeyFile direction -> SomeKeyFile direction
+ASigningKeyFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+String -> File content direction
+File) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"itn-signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Filepath of the ITN signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pITNVerificationKeyFile :: Parser (SomeKeyFile direction)
+pITNVerificationKeyFile :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall (direction :: FileDirection).
+VerificationKeyFile direction -> SomeKeyFile direction
+AVerificationKeyFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+String -> File content direction
+File) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"itn-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Filepath of the ITN verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pKeyConvertCardanoAddressKeyCmd :: Parser (KeyCmds era)
+pKeyConvertCardanoAddressKeyCmd :: forall era. Parser (KeyCmds era)
+pKeyConvertCardanoAddressKeyCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. KeyConvertCardanoAddressKeyCmdArgs -> KeyCmds era
+KeyConvertCardanoAddressKeyCmd forall a b. (a -> b) -> a -> b
+$
+    CardanoAddressKeyType
+-> SigningKeyFile 'In
+-> File () 'Out
+-> KeyConvertCardanoAddressKeyCmdArgs
+KeyConvertCardanoAddressKeyCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CardanoAddressKeyType
+pCardanoAddressKeyType
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pCardanoAddressKeyType :: Parser CardanoAddressKeyType
+pCardanoAddressKeyType :: Parser CardanoAddressKeyType
+pCardanoAddressKeyType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressShelleyPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"shelley-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Shelley-era extended payment key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressShelleyStakeKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"shelley-stake-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Shelley-era extended stake key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressIcarusPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"icarus-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era extended payment key formatted in the Icarus style."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressByronPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era extended payment key formatted in the deprecated Byron style."
+        ]
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Node.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Node.html new file mode 100644 index 0000000000..c200a3e895 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Node.html @@ -0,0 +1,319 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.Node
+  ( pNodeCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.EraBased.Commands.Node
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pNodeCmds :: Maybe (Parser (NodeCmds era))
+pNodeCmds :: forall era. Maybe (Parser (NodeCmds era))
+pNodeCmds =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"node"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Node operation commands."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pKeyGenOperator
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Create a key pair for a node operator's offline "
+            , String
+"key and a new certificate issue counter"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen-KES"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pKeyGenKES
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Create a key pair for a node KES operational key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen-VRF"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pKeyGenVRF
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Create a key pair for a node VRF operational key"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-hash-VRF"forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pKeyHashVRF
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Print hash of a node's operational VRF key."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"new-counter"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pNewCounter
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Create a new certificate issue counter"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"issue-op-cert"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (NodeCmds era)
+pIssueOpCert
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Issue a node operational certificate"
+            ]
+    ]
+
+pKeyGenOperator :: Parser (NodeCmds era)
+pKeyGenOperator :: forall era. Parser (NodeCmds era)
+pKeyGenOperator =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeKeyGenColdCmdArgs -> NodeCmds era
+Cmd.NodeKeyGenColdCmd forall a b. (a -> b) -> a -> b
+$
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> NodeKeyGenColdCmdArgs
+Cmd.NodeKeyGenColdCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+pKeyGenKES :: Parser (NodeCmds era)
+pKeyGenKES :: forall era. Parser (NodeCmds era)
+pKeyGenKES =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeKeyGenKESCmdArgs -> NodeCmds era
+Cmd.NodeKeyGenKESCmd forall a b. (a -> b) -> a -> b
+$
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenKESCmdArgs
+Cmd.NodeKeyGenKESCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pKeyGenVRF :: Parser (NodeCmds era)
+pKeyGenVRF :: forall era. Parser (NodeCmds era)
+pKeyGenVRF =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeKeyGenVRFCmdArgs -> NodeCmds era
+Cmd.NodeKeyGenVRFCmd forall a b. (a -> b) -> a -> b
+$
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenVRFCmdArgs
+Cmd.NodeKeyGenVRFCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+pKeyHashVRF :: Parser (NodeCmds era)
+pKeyHashVRF :: forall era. Parser (NodeCmds era)
+pKeyHashVRF =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeKeyHashVRFCmdArgs -> NodeCmds era
+Cmd.NodeKeyHashVRFCmd forall a b. (a -> b) -> a -> b
+$
+      VerificationKeyOrFile VrfKey
+-> Maybe (File () 'Out) -> NodeKeyHashVRFCmdArgs
+Cmd.NodeKeyHashVRFCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> Parser (VerificationKeyOrFile keyrole)
+pVerificationKeyOrFileIn AsType VrfKey
+AsVrfKey
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pNewCounter :: Parser (NodeCmds era)
+pNewCounter :: forall era. Parser (NodeCmds era)
+pNewCounter =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeNewCounterCmdArgs -> NodeCmds era
+Cmd.NodeNewCounterCmd forall a b. (a -> b) -> a -> b
+$
+    ColdVerificationKeyOrFile
+-> Word -> OpCertCounterFile 'InOut -> NodeNewCounterCmdArgs
+Cmd.NodeNewCounterCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser ColdVerificationKeyOrFile
+pColdVerificationKeyOrFile forall a. Maybe a
+Nothing
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pCounterValue
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+pCounterValue :: Parser Word
+pCounterValue :: Parser Word
+pCounterValue =
+  forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"counter-value"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"INT"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"The next certificate issue counter value to use."
+    ]
+
+pIssueOpCert :: Parser (NodeCmds era)
+pIssueOpCert :: forall era. Parser (NodeCmds era)
+pIssueOpCert =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. NodeIssueOpCertCmdArgs -> NodeCmds era
+Cmd.NodeIssueOpCertCmd forall a b. (a -> b) -> a -> b
+$
+    VerificationKeyOrFile KesKey
+-> SigningKeyFile 'In
+-> OpCertCounterFile 'InOut
+-> KESPeriod
+-> File () 'Out
+-> NodeIssueOpCertCmdArgs
+Cmd.NodeIssueOpCertCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile KesKey)
+pKesVerificationKeyOrFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser KESPeriod
+pKesPeriod
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Query.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Query.html new file mode 100644 index 0000000000..c6df7fef49 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Query.html @@ -0,0 +1,1238 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.Query
+  ( pQueryCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+import qualified Cardano.Api as MemberStatus (MemberStatus (..))
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Environment (EnvCli (..))
+import           Cardano.CLI.EraBased.Commands.Query
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Types.Common
+
+import           Data.Foldable
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pQueryCmds :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryCmds :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryCmds CardanoEra era
+era EnvCli
+envCli =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"query"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Node query commands. Will query the local node whose Unix domain socket is "
+          , String
+"obtained from the CARDANO_NODE_SOCKET_PATH environment variable."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"protocol-parameters"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryProtocolParametersCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the node's current protocol parameters"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"tip"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryTipCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the node's current tip (slot no, hash, block no)"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-pools"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakePoolsCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the node's current set of stake pool ids"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-distribution"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeDistributionCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the node's current aggregated stake distribution"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-address-info"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeAddressInfoCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get the current delegations and reward accounts filtered by stake address."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"utxo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryUTxOCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get a portion of the current UTxO: by tx in, by address or the whole."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"ledger-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryLedgerStateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Dump the current ledger state of the node (Ledger.NewEpochState -- advanced command)"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"protocol-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryProtocolStateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Dump the current protocol state of the node (Ledger.ChainDepState -- advanced command)"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-snapshot"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeSnapshotCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Obtain the three stake snapshots for a pool, plus the total active stake (advanced command)"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+hiddenSubParser String
+"pool-params"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryPoolStateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"DEPRECATED.  Use query pool-state instead.  Dump the pool parameters "
+            , String
+"(Ledger.NewEpochState.esLState._delegationState._pState._pParams -- advanced command)"
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"leadership-schedule"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pLeadershipScheduleCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the slots the node is expected to mint a block in (advanced command)"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"kes-period-info"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pKesPeriodInfoCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get information about the current KES period and your node's operational certificate."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"pool-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryPoolStateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Dump the pool state"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"tx-mempool"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQueryTxMempoolCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Local Mempool info"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"slot-number"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (QueryCmds era)
+pQuerySlotNumberCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Query slot number for UTC timestamp"
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetConstitutionCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetGovStateCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryDRepStateCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryDRepStakeDistributionCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetCommitteeStateCmd CardanoEra era
+era EnvCli
+envCli
+    ]
+
+pQueryProtocolParametersCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryProtocolParametersCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryProtocolParametersCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryProtocolParametersCmdArgs -> QueryCmds era
+QueryProtocolParametersCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryProtocolParametersCmdArgs
+QueryProtocolParametersCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryTipCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryTipCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryTipCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryTipCmdArgs -> QueryCmds era
+QueryTipCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryTipCmdArgs
+QueryTipCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryUTxOCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryUTxOCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryUTxOCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryUTxOCmdArgs -> QueryCmds era
+QueryUTxOCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> QueryUTxOFilter
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryUTxOCmdArgs
+QueryUTxOCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser QueryUTxOFilter
+pQueryUTxOFilter
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryStakePoolsCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryStakePoolsCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakePoolsCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryStakePoolsCmdArgs -> QueryCmds era
+QueryStakePoolsCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryStakePoolsCmdArgs
+QueryStakePoolsCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryStakeDistributionCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryStakeDistributionCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeDistributionCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryStakeDistributionCmdArgs -> QueryCmds era
+QueryStakeDistributionCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryStakeDistributionCmdArgs
+QueryStakeDistributionCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryStakeAddressInfoCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryStakeAddressInfoCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeAddressInfoCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryStakeAddressInfoCmdArgs -> QueryCmds era
+QueryStakeAddressInfoCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> StakeAddress
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryStakeAddressInfoCmdArgs
+QueryStakeAddressInfoCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser StakeAddress
+pFilterByStakeAddress
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryLedgerStateCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryLedgerStateCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryLedgerStateCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryLedgerStateCmdArgs -> QueryCmds era
+QueryLedgerStateCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryLedgerStateCmdArgs
+QueryLedgerStateCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryProtocolStateCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryProtocolStateCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryProtocolStateCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryProtocolStateCmdArgs -> QueryCmds era
+QueryProtocolStateCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryProtocolStateCmdArgs
+QueryProtocolStateCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pAllStakePoolsOrOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+pAllStakePoolsOrOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+pAllStakePoolsOrOnly = Parser (AllOrOnly [Hash StakePoolKey])
+pAll forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser (AllOrOnly [Hash StakePoolKey])
+pOnly
+  where pAll :: Parser (AllOrOnly [Hash StakePoolKey])
+        pAll :: Parser (AllOrOnly [Hash StakePoolKey])
+pAll = forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' forall a. AllOrOnly a
+All forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"all-stake-pools"
+          , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Query for all stake pools"
+          ]
+        pOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+        pOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+pOnly = forall a. a -> AllOrOnly a
+Only forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (Maybe String -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash forall a. Maybe a
+Nothing)
+
+pQueryStakeSnapshotCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryStakeSnapshotCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryStakeSnapshotCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryStakeSnapshotCmdArgs -> QueryCmds era
+QueryStakeSnapshotCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> AllOrOnly [Hash StakePoolKey]
+-> Maybe (File () 'Out)
+-> QueryStakeSnapshotCmdArgs
+QueryStakeSnapshotCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (AllOrOnly [Hash StakePoolKey])
+pAllStakePoolsOrOnly
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryPoolStateCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryPoolStateCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryPoolStateCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryPoolStateCmdArgs -> QueryCmds era
+QueryPoolStateCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> [Hash StakePoolKey]
+-> QueryPoolStateCmdArgs
+QueryPoolStateCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (Maybe String -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash forall a. Maybe a
+Nothing)
+
+pQueryTxMempoolCmd :: EnvCli -> Parser (QueryCmds era)
+pQueryTxMempoolCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQueryTxMempoolCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryTxMempoolCmdArgs -> QueryCmds era
+QueryTxMempoolCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> TxMempoolQuery
+-> Maybe (File () 'Out)
+-> QueryTxMempoolCmdArgs
+QueryTxMempoolCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMempoolQuery
+pTxMempoolQuery
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+  where
+    pTxMempoolQuery :: Parser TxMempoolQuery
+    pTxMempoolQuery :: Parser TxMempoolQuery
+pTxMempoolQuery = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+      [ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"info"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxMempoolQuery
+TxMempoolQueryInfo)
+          forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Ask the node about the current mempool's capacity and sizes"
+      , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"next-tx"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxMempoolQuery
+TxMempoolQueryNextTx)
+          forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Requests the next transaction from the mempool's current list"
+      , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"tx-exists"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (TxId -> TxMempoolQuery
+TxMempoolQueryTxExists forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod ArgumentFields a -> Parser a
+argument forall s. IsString s => ReadM s
+Opt.str (forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+metavar String
+"TX_ID"))
+          forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Query if a particular transaction exists in the mempool"
+      ]
+pLeadershipScheduleCmd :: EnvCli -> Parser (QueryCmds era)
+pLeadershipScheduleCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pLeadershipScheduleCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryLeadershipScheduleCmdArgs -> QueryCmds era
+QueryLeadershipScheduleCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> GenesisFile
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> SigningKeyFile 'In
+-> EpochLeadershipSchedule
+-> Maybe (File () 'Out)
+-> QueryLeadershipScheduleCmdArgs
+QueryLeadershipScheduleCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> String -> Parser GenesisFile
+pGenesisFile String
+"Shelley genesis filepath"
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe String -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pVrfSigningKeyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser EpochLeadershipSchedule
+pWhichLeadershipSchedule
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pKesPeriodInfoCmd :: EnvCli -> Parser (QueryCmds era)
+pKesPeriodInfoCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pKesPeriodInfoCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QueryKesPeriodInfoCmdArgs -> QueryCmds era
+QueryKesPeriodInfoCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> File () 'In
+-> Maybe (File () 'Out)
+-> QueryKesPeriodInfoCmdArgs
+QueryKesPeriodInfoCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection). Parser (File () direction)
+pOperationalCertificateFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQuerySlotNumberCmd :: EnvCli -> Parser (QueryCmds era)
+pQuerySlotNumberCmd :: forall era. EnvCli -> Parser (QueryCmds era)
+pQuerySlotNumberCmd EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. QuerySlotNumberCmdArgs -> QueryCmds era
+QuerySlotNumberCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> UTCTime
+-> QuerySlotNumberCmdArgs
+QuerySlotNumberCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UTCTime
+pUtcTimestamp
+  where
+    pUtcTimestamp :: Parser UTCTime
+pUtcTimestamp =
+      String -> UTCTime
+convertTime forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (forall s. IsString s => Mod ArgumentFields s -> Parser s
+Opt.strArgument forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Monoid a => [a] -> a
+mconcat)
+        [ forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"TIMESTAMP"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"UTC timestamp in YYYY-MM-DDThh:mm:ssZ format"
+        ]
+
+pQueryGetConstitutionCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryGetConstitutionCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetConstitutionCmd CardanoEra era
+era EnvCli
+envCli = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"constitution"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. QueryNoArgCmdArgs era -> QueryCmds era
+QueryConstitutionCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era -> EnvCli -> Parser (QueryNoArgCmdArgs era)
+pQueryNoArgCmdArgs ConwayEraOnwards era
+w EnvCli
+envCli)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the constitution"
+
+pQueryGetGovStateCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryGetGovStateCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetGovStateCmd CardanoEra era
+era EnvCli
+envCli = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"gov-state"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. QueryNoArgCmdArgs era -> QueryCmds era
+QueryGovStateCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era -> EnvCli -> Parser (QueryNoArgCmdArgs era)
+pQueryNoArgCmdArgs ConwayEraOnwards era
+w EnvCli
+envCli)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the governance state"
+
+-- TODO Conway: DRep State and DRep Stake Distribution parsers use DRep keys to obtain DRep credentials. This only
+-- makes use of 'KeyHashObj' constructor of 'Credential kr c'. Should we also support here 'ScriptHashObj'?
+-- What about 'DRep c' - this means that only 'KeyHash' constructor is in use here: should also
+-- 'DRepAlwaysAbstain' and 'DRepAlwaysNoConfidence' be supported here?
+
+pQueryDRepStateCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryDRepStateCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryDRepStateCmd CardanoEra era
+era EnvCli
+envCli = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"drep-state"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. QueryDRepStateCmdArgs era -> QueryCmds era
+QueryDRepStateCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era -> Parser (QueryDRepStateCmdArgs era)
+pQueryDRepStateCmdArgs ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the DRep state. If no DRep credentials are provided, return states for all of them."
+  where
+    pQueryDRepStateCmdArgs :: ConwayEraOnwards era -> Parser (QueryDRepStateCmdArgs era)
+    pQueryDRepStateCmdArgs :: forall era.
+ConwayEraOnwards era -> Parser (QueryDRepStateCmdArgs era)
+pQueryDRepStateCmdArgs ConwayEraOnwards era
+w =
+      forall era.
+ConwayEraOnwards era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> [VerificationKeyOrHashOrFile DRepKey]
+-> Maybe (File () 'Out)
+-> QueryDRepStateCmdArgs era
+QueryDRepStateCmdArgs ConwayEraOnwards era
+w
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+pQueryDRepStakeDistributionCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryDRepStakeDistributionCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryDRepStakeDistributionCmd CardanoEra era
+era EnvCli
+envCli = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"drep-stake-distribution"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. QueryDRepStakeDistributionCmdArgs era -> QueryCmds era
+QueryDRepStakeDistributionCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era
+-> Parser (QueryDRepStakeDistributionCmdArgs era)
+pQueryDRepStakeDistributionCmdArgs ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the DRep stake distribution. If no DRep credentials are provided, return stake distributions for all of them."
+  where
+    pQueryDRepStakeDistributionCmdArgs :: ConwayEraOnwards era -> Parser (QueryDRepStakeDistributionCmdArgs era)
+    pQueryDRepStakeDistributionCmdArgs :: forall era.
+ConwayEraOnwards era
+-> Parser (QueryDRepStakeDistributionCmdArgs era)
+pQueryDRepStakeDistributionCmdArgs ConwayEraOnwards era
+w = forall era.
+ConwayEraOnwards era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> [VerificationKeyOrHashOrFile DRepKey]
+-> Maybe (File () 'Out)
+-> QueryDRepStakeDistributionCmdArgs era
+QueryDRepStakeDistributionCmdArgs ConwayEraOnwards era
+w
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser (VerificationKeyOrHashOrFile DRepKey)
+pDRepVerificationKeyOrHashOrFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+pQueryGetCommitteeStateCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (QueryCmds era))
+pQueryGetCommitteeStateCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (QueryCmds era))
+pQueryGetCommitteeStateCmd CardanoEra era
+era EnvCli
+envCli = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"committee-state"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. QueryCommitteeMembersStateCmdArgs era -> QueryCmds era
+QueryCommitteeMembersStateCmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+ConwayEraOnwards era
+-> Parser (QueryCommitteeMembersStateCmdArgs era)
+pQueryCommitteeMembersStateArgs ConwayEraOnwards era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Get the committee state"
+  where
+    pQueryCommitteeMembersStateArgs :: ConwayEraOnwards era -> Parser (QueryCommitteeMembersStateCmdArgs era)
+    pQueryCommitteeMembersStateArgs :: forall era.
+ConwayEraOnwards era
+-> Parser (QueryCommitteeMembersStateCmdArgs era)
+pQueryCommitteeMembersStateArgs ConwayEraOnwards era
+w = forall era.
+ConwayEraOnwards era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+-> [VerificationKeyOrHashOrFile CommitteeHotKey]
+-> [MemberStatus]
+-> Maybe (File () 'Out)
+-> QueryCommitteeMembersStateCmdArgs era
+QueryCommitteeMembersStateCmdArgs ConwayEraOnwards era
+w
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser (VerificationKeyOrHashOrFile CommitteeColdKey)
+pCommitteeColdVerificationKeyOrHashOrFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser (VerificationKeyOrHashOrFile CommitteeHotKey)
+pCommitteeHotKeyOrHashOrFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser MemberStatus
+pMemberStatus
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+    pMemberStatus :: Parser MemberStatus
+    pMemberStatus :: Parser MemberStatus
+pMemberStatus =
+      forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+        [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' MemberStatus
+MemberStatus.Active forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"active"
+            , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Active committee members (members whose vote will count during ratification)"
+            ]
+        , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' MemberStatus
+MemberStatus.Expired forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"expired"
+            , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Expired committee members"
+            ]
+        , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' MemberStatus
+MemberStatus.Unrecognized forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"unrecognized"
+            , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Unrecognized committe members: a hot credential for an unknown cold credential"
+            ]
+        ]
+
+pQueryNoArgCmdArgs :: ()
+  => ConwayEraOnwards era
+  -> EnvCli
+  -> Parser (QueryNoArgCmdArgs era)
+pQueryNoArgCmdArgs :: forall era.
+ConwayEraOnwards era -> EnvCli -> Parser (QueryNoArgCmdArgs era)
+pQueryNoArgCmdArgs ConwayEraOnwards era
+w EnvCli
+envCli =
+  forall era.
+ConwayEraOnwards era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> QueryNoArgCmdArgs era
+QueryNoArgCmdArgs ConwayEraOnwards era
+w
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakeAddress.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakeAddress.html new file mode 100644 index 0000000000..8d8497ca94 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakeAddress.html @@ -0,0 +1,536 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Options.StakeAddress
+  ( pStakeAddressCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Environment
+import           Cardano.CLI.EraBased.Commands.StakeAddress
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+
+
+pStakeAddressCmds :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressCmds :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressCmds CardanoEra era
+era EnvCli
+envCli =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"stake-address"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Stake address commands."
+          ]
+    )
+    [ forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyGenCmd CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyHashCmd CardanoEra era
+era
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressBuildCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressRegistrationCertificateCmd CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressDeregistrationCertificateCmd CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeDelegationCertificateCmd CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeAndVoteDelegationCertificateCmd CardanoEra era
+era
+    , forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressVoteDelegationCertificateCmd CardanoEra era
+era
+    ]
+
+pStakeAddressKeyGenCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyGenCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyGenCmd CardanoEra era
+era = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-gen"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ShelleyBasedEra era
+-> KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> StakeAddressCmds era
+StakeAddressKeyGenCmd ShelleyBasedEra era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake address key pair"
+
+pStakeAddressKeyHashCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyHashCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressKeyHashCmd CardanoEra era
+era = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"key-hash"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ShelleyBasedEra era
+-> VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out)
+-> StakeAddressCmds era
+StakeAddressKeyHashCmd ShelleyBasedEra era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile forall a. Maybe a
+Nothing
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print the hash of a stake address key"
+
+pStakeAddressBuildCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressBuildCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressBuildCmd CardanoEra era
+era EnvCli
+envCli = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"build"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ShelleyBasedEra era
+-> StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> StakeAddressCmds era
+StakeAddressBuildCmd ShelleyBasedEra era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeVerifier
+pStakeVerifier
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Build a stake address"
+
+pStakeAddressRegistrationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressRegistrationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressRegistrationCertificateCmd CardanoEra era
+era = do
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe ->
+    forall era a.
+(ShelleyToBabbageEraConstraints era =>
+ ShelleyToBabbageEra era -> a)
+-> (ConwayEraOnwardsConstraints era => ConwayEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToBabbageOrConwayEraOnwards
+      (\ShelleyToBabbageEra era
+shelleyToBabbage -> forall a. String -> ParserInfo a -> Parser a
+subParser String
+"registration-certificate"
+            forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                ( forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressRegistrationCertificateCmd (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+shelleyToBabbage)
+                    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pKeyRegistDeposit
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+                )
+            forall {a}. InfoMod a
+desc
+      )
+      (\ConwayEraOnwards era
+conwayOnwards -> forall a. String -> ParserInfo a -> Parser a
+subParser String
+"registration-certificate"
+            forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+                ( forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressRegistrationCertificateCmd (forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+conwayOnwards)
+                    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just Parser Lovelace
+pKeyRegistDeposit
+                    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+                )
+            forall {a}. InfoMod a
+desc
+      )
+      ShelleyBasedEra era
+sbe
+   where
+     desc :: InfoMod a
+desc = forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake address registration certificate"
+
+pStakeAddressDeregistrationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressDeregistrationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressDeregistrationCertificateCmd CardanoEra era
+era = do
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe ->
+    forall era a.
+(ShelleyToBabbageEraConstraints era =>
+ ShelleyToBabbageEra era -> a)
+-> (ConwayEraOnwardsConstraints era => ConwayEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToBabbageOrConwayEraOnwards
+      (\ShelleyToBabbageEra era
+shelleyToBabbage -> forall a. String -> ParserInfo a -> Parser a
+subParser String
+"deregistration-certificate"
+           forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+               ( forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressDeregistrationCertificateCmd (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+shelleyToBabbage)
+                   forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+                   forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+                   forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+               )
+           forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake address deregistration certificate"
+      )
+      (\ConwayEraOnwards era
+conwayOnwards -> forall a. String -> ParserInfo a -> Parser a
+subParser String
+"deregistration-certificate"
+           forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+               ( forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressDeregistrationCertificateCmd (forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+conwayOnwards)
+                   forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+                   forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just Parser Lovelace
+pKeyRegistDeposit
+                   forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+               )
+           forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake address deregistration certificate"
+      )
+      ShelleyBasedEra era
+sbe
+
+pStakeAddressStakeDelegationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeDelegationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeDelegationCertificateCmd CardanoEra era
+era = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-delegation-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressStakeDelegationCertificateCmd ShelleyBasedEra era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe String -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create a stake address stake delegation certificate, which when submitted in a transaction "
+        , String
+"delegates stake to a stake pool."
+        ]
+
+pStakeAddressStakeAndVoteDelegationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeAndVoteDelegationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressStakeAndVoteDelegationCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"stake-and-vote-delegation-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> VoteDelegationTarget
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressStakeAndVoteDelegationCertificateCmd ConwayEraOnwards era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe String -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser VoteDelegationTarget
+pVoteDelegationTarget
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create a stake address stake and vote delegation certificate, which when submitted in a transaction "
+        , String
+"delegates stake to a stake pool and a DRep."
+        ]
+
+pStakeAddressVoteDelegationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressVoteDelegationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakeAddressCmds era))
+pStakeAddressVoteDelegationCertificateCmd CardanoEra era
+era = do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"vote-delegation-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VoteDelegationTarget
+-> File () 'Out
+-> StakeAddressCmds era
+StakeAddressVoteDelegationCertificateCmd ConwayEraOnwards era
+w
+            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeIdentifier
+pStakeIdentifier
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser VoteDelegationTarget
+pVoteDelegationTarget
+            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+    forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Create a stake address vote delegation certificate, which when submitted in a transaction "
+        , String
+"delegates stake to a stake pool and a DRep."
+        ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakePool.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakePool.html new file mode 100644 index 0000000000..432002b18b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.StakePool.html @@ -0,0 +1,262 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+module Cardano.CLI.EraBased.Options.StakePool
+  ( pStakePoolCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Environment (EnvCli (..))
+import qualified Cardano.CLI.EraBased.Commands.StakePool as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+pStakePoolCmds :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (Cmd.StakePoolCmds era))
+pStakePoolCmds :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakePoolCmds era))
+pStakePoolCmds CardanoEra era
+era EnvCli
+envCli =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"stake-pool"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Stake pool commands."
+          ]
+    )
+    [ forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakePoolCmds era))
+pStakePoolRegistrationCertificateCmd CardanoEra era
+era EnvCli
+envCli
+    , forall era. CardanoEra era -> Maybe (Parser (StakePoolCmds era))
+pStakePoolDeregistrationCertificateCmd CardanoEra era
+era
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"id"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (StakePoolCmds era)
+pStakePoolId
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Build pool id from the offline key"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"metadata-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (StakePoolCmds era)
+pStakePoolMetadataHashCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print the hash of pool metadata."
+    ]
+
+pStakePoolId :: ()
+  => Parser (Cmd.StakePoolCmds era)
+pStakePoolId :: forall era. Parser (StakePoolCmds era)
+pStakePoolId =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. StakePoolIdCmdArgs era -> StakePoolCmds era
+Cmd.StakePoolIdCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+VerificationKeyOrFile StakePoolKey
+-> IdOutputFormat -> Maybe (File () 'Out) -> StakePoolIdCmdArgs era
+Cmd.StakePoolIdCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser IdOutputFormat
+pPoolIdOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pStakePoolMetadataHashCmd :: ()
+  => Parser (Cmd.StakePoolCmds era)
+pStakePoolMetadataHashCmd :: forall era. Parser (StakePoolCmds era)
+pStakePoolMetadataHashCmd =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. StakePoolMetadataHashCmdArgs era -> StakePoolCmds era
+Cmd.StakePoolMetadataHashCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+StakePoolMetadataFile 'In
+-> Maybe (File () 'Out) -> StakePoolMetadataHashCmdArgs era
+Cmd.StakePoolMetadataHashCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (StakePoolMetadataFile 'In)
+pPoolMetadataFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pStakePoolRegistrationCertificateCmd :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (Cmd.StakePoolCmds era))
+pStakePoolRegistrationCertificateCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (StakePoolCmds era))
+pStakePoolRegistrationCertificateCmd CardanoEra era
+era EnvCli
+envCli = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"registration-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+StakePoolRegistrationCertificateCmdArgs era -> StakePoolCmds era
+Cmd.StakePoolRegistrationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ShelleyBasedEra era
+-> VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> File () 'Out
+-> StakePoolRegistrationCertificateCmdArgs era
+Cmd.StakePoolRegistrationCertificateCmdArgs ShelleyBasedEra era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolPledge
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolCost
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Rational
+pPoolMargin
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile StakeKey)
+pRewardAcctVerificationKeyOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (VerificationKeyOrFile StakeKey)
+pPoolOwnerVerificationKeyOrFile
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser StakePoolRelay
+pPoolRelay
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe StakePoolMetadataReference)
+pStakePoolMetadataReference
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake pool registration certificate"
+
+pStakePoolDeregistrationCertificateCmd :: ()
+  => CardanoEra era
+  -> Maybe (Parser (Cmd.StakePoolCmds era))
+pStakePoolDeregistrationCertificateCmd :: forall era. CardanoEra era -> Maybe (Parser (StakePoolCmds era))
+pStakePoolDeregistrationCertificateCmd CardanoEra era
+era = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"deregistration-certificate"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info
+        ( forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+StakePoolDeregistrationCertificateCmdArgs era -> StakePoolCmds era
+Cmd.StakePoolDeregistrationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+            forall era.
+ShelleyBasedEra era
+-> VerificationKeyOrFile StakePoolKey
+-> EpochNo
+-> File () 'Out
+-> StakePoolDeregistrationCertificateCmdArgs era
+Cmd.StakePoolDeregistrationCertificateCmdArgs ShelleyBasedEra era
+w
+              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe String -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> String -> Parser EpochNo
+pEpochNo String
+"The epoch number."
+              forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+        )
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a stake pool deregistration certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.TextView.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.TextView.html new file mode 100644 index 0000000000..7d1f635daf --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.TextView.html @@ -0,0 +1,56 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Options.TextView
+  ( pTextViewCmds
+  ) where
+
+import           Cardano.CLI.EraBased.Commands.TextView
+import           Cardano.CLI.EraBased.Options.Common
+
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pTextViewCmds :: Maybe (Parser (TextViewCmds era))
+pTextViewCmds :: forall era. Maybe (Parser (TextViewCmds era))
+pTextViewCmds =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"text-view"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Commands for dealing with Shelley TextView files. Transactions, addresses etc "
+          , String
+"are stored on disk as TextView files."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"decode-cbor"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. String -> Maybe (File () 'Out) -> TextViewCmds era
+TextViewInfo forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser String
+pCBORInFile forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print a TextView file as decoded CBOR."
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Transaction.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Transaction.html new file mode 100644 index 0000000000..64adc56fa6 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Options.Transaction.html @@ -0,0 +1,972 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+
+module Cardano.CLI.EraBased.Options.Transaction
+  ( pTransactionCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Environment (EnvCli (..))
+import           Cardano.CLI.EraBased.Commands.Transaction
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Types.Common
+
+import           Data.Foldable
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+import qualified Options.Applicative.Help as H
+import           Prettyprinter (line, pretty)
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+pTransactionCmds :: ()
+  => CardanoEra era
+  -> EnvCli
+  -> Maybe (Parser (TransactionCmds era))
+pTransactionCmds :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (TransactionCmds era))
+pTransactionCmds CardanoEra era
+era EnvCli
+envCli =
+  forall a.
+String -> InfoMod a -> [Maybe (Parser a)] -> Maybe (Parser a)
+subInfoParser String
+"transaction"
+    ( forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Transaction commands."
+          ]
+    )
+    [ forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"build-raw"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. CardanoEra era -> Parser (TransactionCmds era)
+pTransactionBuildRaw CardanoEra era
+era)
+        forall a b. (a -> b) -> a -> b
+$ forall a. Maybe Doc -> InfoMod a
+Opt.progDescDoc
+        forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ forall a ann. Pretty a => a -> Doc ann
+pretty @String String
+"Build a transaction (low-level, inconvenient)"
+            , forall ann. Doc ann
+line
+            , forall ann. Doc ann
+line
+            , Doc -> Doc
+H.yellow forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+                [ Doc
+"Please note the order of some cmd options is crucial. If used incorrectly may produce "
+                , Doc
+"undesired tx body. See nested [] notation above for details."
+                ]
+            ]
+    , forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (TransactionCmds era))
+pTransactionBuildCmd CardanoEra era
+era EnvCli
+envCli
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"sign"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionSign EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Sign a transaction"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"witness"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionCreateWitness EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Create a transaction witness"
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"assemble"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTransactionAssembleTxBodyWit
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Assemble a tx body and witness(es) to form a transaction"
+    , forall a. a -> Maybe a
+Just forall era. Parser (TransactionCmds era)
+pSignWitnessBackwardCompatible
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"submit"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionSubmit EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Submit a transaction to the local node whose Unix domain socket "
+            , String
+"is obtained from the CARDANO_NODE_SOCKET_PATH environment variable."
+            ]
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"policyid"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTransactionPolicyId
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Calculate the PolicyId from the monetary policy script."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"calculate-min-fee"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionCalculateMinFee EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Calculate the minimum fee for a transaction."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"calculate-min-required-utxo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. CardanoEra era -> Parser (TransactionCmds era)
+pTransactionCalculateMinReqUTxO CardanoEra era
+era)
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Calculate the minimum required UTxO for a transaction output."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall era. CardanoEra era -> Parser (TransactionCmds era)
+pCalculateMinRequiredUtxoBackwardCompatible CardanoEra era
+era
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"hash-script-data"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTxHashScriptData
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Calculate the hash of script data."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"txid"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTransactionId
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print a transaction identifier."
+    , forall a. a -> Maybe a
+Just
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"view"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTransactionView
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Print a transaction."
+    ]
+
+-- Backwards compatible parsers
+calcMinValueInfo :: CardanoEra era -> ParserInfo (TransactionCmds era)
+calcMinValueInfo :: forall era. CardanoEra era -> ParserInfo (TransactionCmds era)
+calcMinValueInfo CardanoEra era
+era =
+  forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. CardanoEra era -> Parser (TransactionCmds era)
+pTransactionCalculateMinReqUTxO CardanoEra era
+era)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"DEPRECATED: Use 'calculate-min-required-utxo' instead."
+
+pCalculateMinRequiredUtxoBackwardCompatible :: CardanoEra era -> Parser (TransactionCmds era)
+pCalculateMinRequiredUtxoBackwardCompatible :: forall era. CardanoEra era -> Parser (TransactionCmds era)
+pCalculateMinRequiredUtxoBackwardCompatible CardanoEra era
+era =
+  forall a. Mod CommandFields a -> Parser a
+Opt.subparser
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Mod CommandFields a
+Opt.command String
+"calculate-min-value" (forall era. CardanoEra era -> ParserInfo (TransactionCmds era)
+calcMinValueInfo CardanoEra era
+era) forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+
+assembleInfo :: ParserInfo (TransactionCmds era)
+assembleInfo :: forall era. ParserInfo (TransactionCmds era)
+assembleInfo =
+  forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info forall era. Parser (TransactionCmds era)
+pTransactionAssembleTxBodyWit
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Assemble a tx body and witness(es) to form a transaction"
+
+pSignWitnessBackwardCompatible :: Parser (TransactionCmds era)
+pSignWitnessBackwardCompatible :: forall era. Parser (TransactionCmds era)
+pSignWitnessBackwardCompatible =
+  forall a. Mod CommandFields a -> Parser a
+Opt.subparser
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Mod CommandFields a
+Opt.command String
+"sign-witness" forall era. ParserInfo (TransactionCmds era)
+assembleInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+
+pScriptValidity :: Parser ScriptValidity
+pScriptValidity :: Parser ScriptValidity
+pScriptValidity = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+  [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ScriptValidity
+ScriptValid forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"script-valid"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Assertion that the script is valid. (default)"
+    ]
+  , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ScriptValidity
+ScriptInvalid forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"script-invalid"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ String
+"Assertion that the script is invalid.  "
+      , String
+"If a transaction is submitted with such a script, "
+      , String
+"the script will fail and the collateral will be taken."
+      ]
+    ]
+  ]
+
+pTransactionBuildCmd :: CardanoEra era -> EnvCli -> Maybe (Parser (TransactionCmds era))
+pTransactionBuildCmd :: forall era.
+CardanoEra era -> EnvCli -> Maybe (Parser (TransactionCmds era))
+pTransactionBuildCmd CardanoEra era
+era EnvCli
+envCli = do
+  ShelleyBasedEra era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"build"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall era. ShelleyBasedEra era -> Parser (TransactionCmds era)
+pCmd ShelleyBasedEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall a. Maybe Doc -> InfoMod a
+Opt.progDescDoc
+    forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall a ann. Pretty a => a -> Doc ann
+pretty @String String
+"Build a balanced transaction (automatically calculates fees)"
+        , forall ann. Doc ann
+line
+        , forall ann. Doc ann
+line
+        , Doc -> Doc
+H.yellow forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ Doc
+"Please note "
+            , Doc -> Doc
+H.underline Doc
+"the order"
+            , Doc
+" of some cmd options is crucial. If used incorrectly may produce "
+            , Doc
+"undesired tx body. See nested [] notation above for details."
+            ]
+        ]
+  where
+    pCmd :: ShelleyBasedEra era ->  Parser (TransactionCmds era)
+    pCmd :: forall era. ShelleyBasedEra era -> Parser (TransactionCmds era)
+pCmd ShelleyBasedEra era
+sbe =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionBuildCmdArgs era -> TransactionCmds era
+TransactionBuildCmd forall a b. (a -> b) -> a -> b
+$
+        forall era.
+ShelleyBasedEra era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe ScriptValidity
+-> Maybe Word
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [RequiredSigner]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [TxOutAnyEra]
+-> TxOutChangeAddress
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBuildOutputOptions
+-> TransactionBuildCmdArgs era
+TransactionBuildCmdArgs ShelleyBasedEra era
+sbe
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ScriptValidity
+pScriptValidity
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pWitnessOverride
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some (BalanceTxExecUnits
+-> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn BalanceTxExecUnits
+AutoBalance)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pReadOnlyReferenceTxIn
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser RequiredSigner
+pRequiredSigner
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pTxInCollateral
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser TxOutAnyEra
+pReturnCollateral
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTotalCollateral
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxOutAnyEra
+pTxOut
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutChangeAddress
+pChangeAddress
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits
+-> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset BalanceTxExecUnits
+AutoBalance)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pInvalidBefore
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall era. CardanoEra era -> Parser (TxValidityUpperBound era)
+pInvalidHereafter (forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile BalanceTxExecUnits
+AutoBalance)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser
+     (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal BalanceTxExecUnits
+AutoBalance)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (String -> Maybe String -> String -> Parser ScriptFile
+pScriptFor
+                      String
+"auxiliary-script-file"
+                      forall a. Maybe a
+Nothing
+                      String
+"Filepath of auxiliary script(s)")
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser MetadataFile
+pMetadataFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (eon :: * -> *) (peon :: * -> *) era a.
+(Eon eon, ToCardanoEra peon) =>
+peon era -> Parser a -> Parser (Maybe (Featured eon era a))
+pFeatured (forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe) (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser UpdateProposalFile
+pUpdateProposalFile)
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"vote-file" String
+"Filepath of the vote.")
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"proposal-file" String
+"Filepath of the proposal.")
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (TxBodyFile 'Out -> TxBuildOutputOptions
+OutputTxBodyOnly forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'Out)
+pTxBodyFileOut forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser TxBuildOutputOptions
+pCalculatePlutusScriptCost)
+
+pChangeAddress :: Parser TxOutChangeAddress
+pChangeAddress :: Parser TxOutChangeAddress
+pChangeAddress =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap AddressAny -> TxOutChangeAddress
+TxOutChangeAddress forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser AddressAny
+parseAddressAny) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"change-address"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"ADDRESS"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Address where ADA in excess of the tx fee will go to."
+    ]
+
+pTransactionBuildRaw :: CardanoEra era -> Parser (TransactionCmds era)
+pTransactionBuildRaw :: forall era. CardanoEra era -> Parser (TransactionCmds era)
+pTransactionBuildRaw CardanoEra era
+era =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionBuildRawCmdArgs era -> TransactionCmds era
+TransactionBuildRawCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [RequiredSigner]
+-> [TxOutAnyEra]
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> Maybe Lovelace
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe ProtocolParamsFile
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBodyFile 'Out
+-> TransactionBuildRawCmdArgs era
+TransactionBuildRawCmdArgs CardanoEra era
+era
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ScriptValidity
+pScriptValidity
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some (BalanceTxExecUnits
+-> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pReadOnlyReferenceTxIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pTxInCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser TxOutAnyEra
+pReturnCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTotalCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser RequiredSigner
+pRequiredSigner
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxOutAnyEra
+pTxOut
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits
+-> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pInvalidBefore
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall era. CardanoEra era -> Parser (TxValidityUpperBound era)
+pInvalidHereafter CardanoEra era
+era
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTxFee
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile BalanceTxExecUnits
+ManualBalance )
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser
+     (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (String -> Maybe String -> String -> Parser ScriptFile
+pScriptFor String
+"auxiliary-script-file" forall a. Maybe a
+Nothing String
+"Filepath of auxiliary script(s)")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser MetadataFile
+pMetadataFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (eon :: * -> *) (peon :: * -> *) era a.
+(Eon eon, ToCardanoEra peon) =>
+peon era -> Parser a -> Parser (Maybe (Featured eon era a))
+pFeatured CardanoEra era
+era (forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser UpdateProposalFile
+pUpdateProposalFile)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"vote-file" String
+"Filepath of the vote.")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. String -> String -> Parser (File a 'In)
+pFileInDirection String
+"proposal-file" String
+"Filepath of the proposal.")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (TxBodyFile 'Out)
+pTxBodyFileOut
+
+pTransactionSign  :: EnvCli -> Parser (TransactionCmds era)
+pTransactionSign :: forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionSign EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionSignCmdArgs -> TransactionCmds era
+TransactionSignCmd forall a b. (a -> b) -> a -> b
+$
+    InputTxBodyOrTxFile
+-> [WitnessSigningData]
+-> Maybe NetworkId
+-> TxFile 'Out
+-> TransactionSignCmdArgs
+TransactionSignCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser WitnessSigningData
+pWitnessSigningData
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (TxFile 'Out)
+pTxFileOut
+
+pTransactionCreateWitness :: EnvCli -> Parser (TransactionCmds era)
+pTransactionCreateWitness :: forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionCreateWitness EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionWitnessCmdArgs -> TransactionCmds era
+TransactionWitnessCmd forall a b. (a -> b) -> a -> b
+$
+    TxBodyFile 'In
+-> WitnessSigningData
+-> Maybe NetworkId
+-> File () 'Out
+-> TransactionWitnessCmdArgs
+TransactionWitnessCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser WitnessSigningData
+pWitnessSigningData
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pTransactionAssembleTxBodyWit :: Parser (TransactionCmds era)
+pTransactionAssembleTxBodyWit :: forall era. Parser (TransactionCmds era)
+pTransactionAssembleTxBodyWit =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionSignWitnessCmdArgs -> TransactionCmds era
+TransactionSignWitnessCmd forall a b. (a -> b) -> a -> b
+$
+    TxBodyFile 'In
+-> [WitnessFile] -> File () 'Out -> TransactionSignWitnessCmdArgs
+TransactionSignWitnessCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser WitnessFile
+pWitnessFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pTransactionSubmit :: EnvCli -> Parser (TransactionCmds era)
+pTransactionSubmit :: forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionSubmit EnvCli
+envCli =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionSubmitCmdArgs -> TransactionCmds era
+TransactionSubmitCmd forall a b. (a -> b) -> a -> b
+$
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> String
+-> TransactionSubmitCmdArgs
+TransactionSubmitCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser String
+pTxSubmitFile
+
+pTransactionPolicyId :: Parser (TransactionCmds era)
+pTransactionPolicyId :: forall era. Parser (TransactionCmds era)
+pTransactionPolicyId =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionPolicyIdCmdArgs -> TransactionCmds era
+TransactionPolicyIdCmd forall a b. (a -> b) -> a -> b
+$
+    ScriptFile -> TransactionPolicyIdCmdArgs
+TransactionPolicyIdCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ScriptFile
+pScript
+
+pTransactionCalculateMinFee :: EnvCli -> Parser (TransactionCmds era)
+pTransactionCalculateMinFee :: forall era. EnvCli -> Parser (TransactionCmds era)
+pTransactionCalculateMinFee EnvCli
+envCli  =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+TransactionCalculateMinFeeCmdArgs -> TransactionCmds era
+TransactionCalculateMinFeeCmd forall a b. (a -> b) -> a -> b
+$
+    TxBodyFile 'In
+-> NetworkId
+-> ProtocolParamsFile
+-> TxInCount
+-> TxOutCount
+-> TxShelleyWitnessCount
+-> TxByronWitnessCount
+-> TransactionCalculateMinFeeCmdArgs
+TransactionCalculateMinFeeCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxInCount
+pTxInCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutCount
+pTxOutCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxShelleyWitnessCount
+pTxShelleyWitnessCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxByronWitnessCount
+pTxByronWitnessCount
+
+pTransactionCalculateMinReqUTxO :: CardanoEra era -> Parser (TransactionCmds era)
+pTransactionCalculateMinReqUTxO :: forall era. CardanoEra era -> Parser (TransactionCmds era)
+pTransactionCalculateMinReqUTxO CardanoEra era
+era =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era.
+TransactionCalculateMinValueCmdArgs era -> TransactionCmds era
+TransactionCalculateMinValueCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+CardanoEra era
+-> ProtocolParamsFile
+-> TxOutAnyEra
+-> TransactionCalculateMinValueCmdArgs era
+TransactionCalculateMinValueCmdArgs CardanoEra era
+era
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutAnyEra
+pTxOut
+
+pTxHashScriptData :: Parser (TransactionCmds era)
+pTxHashScriptData :: forall era. Parser (TransactionCmds era)
+pTxHashScriptData =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionHashScriptDataCmdArgs -> TransactionCmds era
+TransactionHashScriptDataCmd forall a b. (a -> b) -> a -> b
+$
+    ScriptDataOrFile -> TransactionHashScriptDataCmdArgs
+TransactionHashScriptDataCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> String -> String -> Parser ScriptDataOrFile
+pScriptDataOrFile
+            String
+"script-data"
+            String
+"The script data, in JSON syntax."
+            String
+"The script data, in the given JSON file."
+
+pTransactionId  :: Parser (TransactionCmds era)
+pTransactionId :: forall era. Parser (TransactionCmds era)
+pTransactionId =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionTxIdCmdArgs -> TransactionCmds era
+TransactionTxIdCmd forall a b. (a -> b) -> a -> b
+$
+    InputTxBodyOrTxFile -> TransactionTxIdCmdArgs
+TransactionTxIdCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+
+pTransactionView :: Parser (TransactionCmds era)
+pTransactionView :: forall era. Parser (TransactionCmds era)
+pTransactionView =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall era. TransactionViewCmdArgs -> TransactionCmds era
+TransactionViewCmd forall a b. (a -> b) -> a -> b
+$
+    TxViewOutputFormat
+-> Maybe (File () 'Out)
+-> InputTxBodyOrTxFile
+-> TransactionViewCmdArgs
+TransactionViewCmdArgs
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser TxViewOutputFormat
+pTxViewOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.Info.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.Info.html new file mode 100644 index 0000000000..5864358eec --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.Info.html @@ -0,0 +1,188 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Run.Address.Info
+  ( runAddressInfoCmd
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.AddressInfoError
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (left)
+import           Data.Aeson (ToJSON (..), object, (.=))
+import           Data.Aeson.Encode.Pretty (encodePretty)
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Text (Text)
+import           Options.Applicative (Alternative (..))
+
+data AddressInfo = AddressInfo
+  { AddressInfo -> Text
+aiType :: !Text
+  , AddressInfo -> Text
+aiEra :: !Text
+  , AddressInfo -> Text
+aiEncoding :: !Text
+  , AddressInfo -> Text
+aiAddress :: !Text
+  , AddressInfo -> Text
+aiBase16 :: !Text
+  }
+
+instance ToJSON AddressInfo where
+  toJSON :: AddressInfo -> Value
+toJSON AddressInfo
+addrInfo =
+    [Pair] -> Value
+object
+      [ Key
+"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= AddressInfo -> Text
+aiType AddressInfo
+addrInfo
+      , Key
+"era" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= AddressInfo -> Text
+aiEra AddressInfo
+addrInfo
+      , Key
+"encoding" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= AddressInfo -> Text
+aiEncoding AddressInfo
+addrInfo
+      , Key
+"address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= AddressInfo -> Text
+aiAddress AddressInfo
+addrInfo
+      , Key
+"base16" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= AddressInfo -> Text
+aiBase16 AddressInfo
+addrInfo
+      ]
+
+runAddressInfoCmd :: Text -> Maybe (File () Out) -> ExceptT AddressInfoError IO ()
+runAddressInfoCmd :: Text -> Maybe (File () 'Out) -> ExceptT AddressInfoError IO ()
+runAddressInfoCmd Text
+addrTxt Maybe (File () 'Out)
+mOutputFp = do
+    AddressInfo
+addrInfo <- case (forall a b. a -> Either a b
+Left  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall addr.
+SerialiseAddress addr =>
+AsType addr -> Text -> Maybe addr
+deserialiseAddress AsType AddressAny
+AsAddressAny Text
+addrTxt)
+                 forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> (forall a b. b -> Either a b
+Right forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall addr.
+SerialiseAddress addr =>
+AsType addr -> Text -> Maybe addr
+deserialiseAddress AsType StakeAddress
+AsStakeAddress Text
+addrTxt) of
+
+      Maybe (Either AddressAny StakeAddress)
+Nothing ->
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ Text -> AddressInfoError
+ShelleyAddressInvalid Text
+addrTxt
+
+      Just (Left (AddressByron Address ByronAddr
+payaddr)) ->
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ AddressInfo
+              { aiType :: Text
+aiType = Text
+"payment"
+              , aiEra :: Text
+aiEra = Text
+"byron"
+              , aiEncoding :: Text
+aiEncoding = Text
+"base58"
+              , aiAddress :: Text
+aiAddress = Text
+addrTxt
+              , aiBase16 :: Text
+aiBase16 = forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText Address ByronAddr
+payaddr
+              }
+
+      Just (Left (AddressShelley Address ShelleyAddr
+payaddr)) ->
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ AddressInfo
+              { aiType :: Text
+aiType = Text
+"payment"
+              , aiEra :: Text
+aiEra = Text
+"shelley"
+              , aiEncoding :: Text
+aiEncoding = Text
+"bech32"
+              , aiAddress :: Text
+aiAddress = Text
+addrTxt
+              , aiBase16 :: Text
+aiBase16 = forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText Address ShelleyAddr
+payaddr
+              }
+
+      Just (Right StakeAddress
+addr) ->
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ AddressInfo
+          { aiType :: Text
+aiType = Text
+"stake"
+          , aiEra :: Text
+aiEra = Text
+"shelley"
+          , aiEncoding :: Text
+aiEncoding = Text
+"bech32"
+          , aiAddress :: Text
+aiAddress = Text
+addrTxt
+          , aiBase16 :: Text
+aiBase16 = forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText StakeAddress
+addr
+          }
+
+    case Maybe (File () 'Out)
+mOutputFp of
+      Just (File FilePath
+fpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+LBS.writeFile FilePath
+fpath forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty AddressInfo
+addrInfo
+      Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty AddressInfo
+addrInfo
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.html new file mode 100644 index 0000000000..15b5a6e624 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Address.html @@ -0,0 +1,791 @@ +
{-# LANGUAGE CPP #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Run.Address
+  ( runAddressCmds
+
+  , runAddressBuildCmd
+  , runAddressKeyGenCmd
+  , runAddressKeyHashCmd
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Commands.Address
+import           Cardano.CLI.EraBased.Run.Address.Info
+import qualified Cardano.CLI.EraBased.Run.Key as Key
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.AddressCmdError
+import           Cardano.CLI.Types.Key (PaymentVerifier (..), StakeIdentifier (..),
+                   StakeVerifier (..), VerificationKeyTextOrFile, generateKeyPair,
+                   readVerificationKeyOrFile, readVerificationKeyTextOrFileAnyOf)
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, left, newExceptT)
+import qualified Data.ByteString.Char8 as BS
+import           Data.Function
+import qualified Data.Text.IO as Text
+
+runAddressCmds :: ()
+  => AddressCmds era
+  -> ExceptT AddressCmdError IO ()
+runAddressCmds :: forall era. AddressCmds era -> ExceptT AddressCmdError IO ()
+runAddressCmds = \case
+  AddressKeyGen KeyOutputFormat
+fmt AddressKeyType
+kt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf ->
+    KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+runAddressKeyGenCmd KeyOutputFormat
+fmt AddressKeyType
+kt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf
+  AddressKeyHash VerificationKeyTextOrFile
+vkf Maybe (File () 'Out)
+mOFp ->
+    VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> ExceptT AddressCmdError IO ()
+runAddressKeyHashCmd VerificationKeyTextOrFile
+vkf Maybe (File () 'Out)
+mOFp
+  AddressBuild PaymentVerifier
+paymentVerifier Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutFp ->
+    PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT AddressCmdError IO ()
+runAddressBuildCmd PaymentVerifier
+paymentVerifier Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutFp
+  AddressInfo Text
+txt Maybe (File () 'Out)
+mOFp ->
+    Text -> Maybe (File () 'Out) -> ExceptT AddressInfoError IO ()
+runAddressInfoCmd Text
+txt Maybe (File () 'Out)
+mOFp forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AddressInfoError -> AddressCmdError
+AddressCmdAddressInfoError
+
+runAddressKeyGenCmd
+  :: KeyOutputFormat
+  -> AddressKeyType
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT AddressCmdError IO ()
+runAddressKeyGenCmd :: KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+runAddressKeyGenCmd KeyOutputFormat
+fmt AddressKeyType
+kt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf = case AddressKeyType
+kt of
+  AddressKeyType
+AddressKeyShelley         -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole,
+ SerialiseAsBech32 (SigningKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+KeyOutputFormat
+-> AsType keyrole
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+generateAndWriteKeyFiles KeyOutputFormat
+fmt  AsType PaymentKey
+AsPaymentKey          VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf
+  AddressKeyType
+AddressKeyShelleyExtended -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole,
+ SerialiseAsBech32 (SigningKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+KeyOutputFormat
+-> AsType keyrole
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+generateAndWriteKeyFiles KeyOutputFormat
+fmt  AsType PaymentExtendedKey
+AsPaymentExtendedKey  VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf
+  AddressKeyType
+AddressKeyByron           -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+AsType keyrole
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+generateAndWriteByronKeyFiles AsType ByronKey
+AsByronKey            VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf
+
+generateAndWriteByronKeyFiles :: ()
+  => Key keyrole
+  => HasTypeProxy keyrole
+  => AsType keyrole
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT AddressCmdError IO ()
+generateAndWriteByronKeyFiles :: forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+AsType keyrole
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+generateAndWriteByronKeyFiles AsType keyrole
+asType VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf = do
+  forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry (forall keyrole.
+Key keyrole =>
+VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> VerificationKey keyrole
+-> SigningKey keyrole
+-> ExceptT AddressCmdError IO ()
+writeByronPaymentKeyFiles VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf) forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+AsType keyrole -> IO (VerificationKey keyrole, SigningKey keyrole)
+generateKeyPair AsType keyrole
+asType)
+
+generateAndWriteKeyFiles :: ()
+  => Key keyrole
+  => HasTypeProxy keyrole
+  => SerialiseAsBech32 (SigningKey keyrole)
+  => SerialiseAsBech32 (VerificationKey keyrole)
+  => KeyOutputFormat
+  -> AsType keyrole
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT AddressCmdError IO ()
+generateAndWriteKeyFiles :: forall keyrole.
+(Key keyrole, HasTypeProxy keyrole,
+ SerialiseAsBech32 (SigningKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+KeyOutputFormat
+-> AsType keyrole
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+generateAndWriteKeyFiles KeyOutputFormat
+fmt AsType keyrole
+asType VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf = do
+  forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry (forall keyrole.
+(Key keyrole, SerialiseAsBech32 (SigningKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> VerificationKey keyrole
+-> SigningKey keyrole
+-> ExceptT AddressCmdError IO ()
+writePaymentKeyFiles KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf) forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+AsType keyrole -> IO (VerificationKey keyrole, SigningKey keyrole)
+generateKeyPair AsType keyrole
+asType)
+
+writePaymentKeyFiles
+  :: Key keyrole
+  => SerialiseAsBech32 (SigningKey keyrole)
+  => SerialiseAsBech32 (VerificationKey keyrole)
+  => KeyOutputFormat
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> VerificationKey keyrole
+  -> SigningKey keyrole
+  -> ExceptT AddressCmdError IO ()
+writePaymentKeyFiles :: forall keyrole.
+(Key keyrole, SerialiseAsBech32 (SigningKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> VerificationKey keyrole
+-> SigningKey keyrole
+-> ExceptT AddressCmdError IO ()
+writePaymentKeyFiles KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vkeyPath SigningKeyFile 'Out
+skeyPath VerificationKey keyrole
+vkey SigningKey keyrole
+skey = do
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> AddressCmdError
+AddressCmdWriteFileError forall a b. (a -> b) -> a -> b
+$ do
+    case KeyOutputFormat
+fmt of
+      KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+skeyPath
+          forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey keyrole
+skey
+      KeyOutputFormat
+KeyOutputFormatBech32 ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile SigningKeyFile 'Out
+skeyPath
+          forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 SigningKey keyrole
+skey
+
+    case KeyOutputFormat
+fmt of
+      KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyPath
+          forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.paymentVkeyDesc) VerificationKey keyrole
+vkey
+      KeyOutputFormat
+KeyOutputFormatBech32 ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile VerificationKeyFile 'Out
+vkeyPath
+          forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 VerificationKey keyrole
+vkey
+
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Payment Signing Key"
+
+writeByronPaymentKeyFiles
+   :: Key keyrole
+   => VerificationKeyFile Out
+   -> SigningKeyFile Out
+   -> VerificationKey keyrole
+   -> SigningKey keyrole
+   -> ExceptT AddressCmdError IO ()
+writeByronPaymentKeyFiles :: forall keyrole.
+Key keyrole =>
+VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> VerificationKey keyrole
+-> SigningKey keyrole
+-> ExceptT AddressCmdError IO ()
+writeByronPaymentKeyFiles VerificationKeyFile 'Out
+vkeyPath SigningKeyFile 'Out
+skeyPath VerificationKey keyrole
+vkey SigningKey keyrole
+skey = do
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> AddressCmdError
+AddressCmdWriteFileError forall a b. (a -> b) -> a -> b
+$ do
+    -- No bech32 encoding for Byron keys
+    forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+skeyPath forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey keyrole
+skey
+    forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyPath forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.paymentVkeyDesc) VerificationKey keyrole
+vkey
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Payment Signing Key"
+
+runAddressKeyHashCmd :: VerificationKeyTextOrFile
+                  -> Maybe (File () Out)
+                  -> ExceptT AddressCmdError IO ()
+runAddressKeyHashCmd :: VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> ExceptT AddressCmdError IO ()
+runAddressKeyHashCmd VerificationKeyTextOrFile
+vkeyTextOrFile Maybe (File () 'Out)
+mOutputFp = do
+  SomeAddressVerificationKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VerificationKeyTextOrFileError -> AddressCmdError
+AddressCmdVerificationKeyTextOrFileError forall a b. (a -> b) -> a -> b
+$
+             forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ VerificationKeyTextOrFile
+-> IO
+     (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)
+readVerificationKeyTextOrFileAnyOf VerificationKeyTextOrFile
+vkeyTextOrFile
+
+  let hexKeyHash :: ByteString
+hexKeyHash = forall a.
+(forall keyrole. Key keyrole => VerificationKey keyrole -> a)
+-> SomeAddressVerificationKey -> a
+foldSomeAddressVerificationKey
+                     (forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash) SomeAddressVerificationKey
+vkey
+
+  case Maybe (File () 'Out)
+mOutputFp of
+    Just (File FilePath
+fpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+BS.writeFile FilePath
+fpath ByteString
+hexKeyHash
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn ByteString
+hexKeyHash
+
+
+runAddressBuildCmd :: PaymentVerifier
+                -> Maybe StakeIdentifier
+                -> NetworkId
+                -> Maybe (File () Out)
+                -> ExceptT AddressCmdError IO ()
+runAddressBuildCmd :: PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT AddressCmdError IO ()
+runAddressBuildCmd PaymentVerifier
+paymentVerifier Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutFp = do
+  Text
+outText <- case PaymentVerifier
+paymentVerifier of
+    PaymentVerifierKey VerificationKeyTextOrFile
+payVkeyTextOrFile -> do
+      SomeAddressVerificationKey
+payVKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VerificationKeyTextOrFileError -> AddressCmdError
+AddressCmdVerificationKeyTextOrFileError forall a b. (a -> b) -> a -> b
+$
+         forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ VerificationKeyTextOrFile
+-> IO
+     (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)
+readVerificationKeyTextOrFileAnyOf VerificationKeyTextOrFile
+payVkeyTextOrFile
+
+      AddressAny
+addr <- case SomeAddressVerificationKey
+payVKey of
+        AByronVerificationKey VerificationKey ByronKey
+vk ->
+          forall (m :: * -> *) a. Monad m => a -> m a
+return (Address ByronAddr -> AddressAny
+AddressByron (NetworkId -> VerificationKey ByronKey -> Address ByronAddr
+makeByronAddress NetworkId
+nw VerificationKey ByronKey
+vk))
+
+        APaymentVerificationKey VerificationKey PaymentKey
+vk ->
+          Address ShelleyAddr -> AddressAny
+AddressShelley forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> VerificationKey PaymentKey
+-> Maybe StakeIdentifier
+-> NetworkId
+-> ExceptT AddressCmdError IO (Address ShelleyAddr)
+buildShelleyAddress VerificationKey PaymentKey
+vk Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw
+
+        APaymentExtendedVerificationKey VerificationKey PaymentExtendedKey
+vk ->
+          Address ShelleyAddr -> AddressAny
+AddressShelley forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> VerificationKey PaymentKey
+-> Maybe StakeIdentifier
+-> NetworkId
+-> ExceptT AddressCmdError IO (Address ShelleyAddr)
+buildShelleyAddress (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey PaymentExtendedKey
+vk) Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw
+
+        AGenesisUTxOVerificationKey VerificationKey GenesisUTxOKey
+vk ->
+          Address ShelleyAddr -> AddressAny
+AddressShelley forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> VerificationKey PaymentKey
+-> Maybe StakeIdentifier
+-> NetworkId
+-> ExceptT AddressCmdError IO (Address ShelleyAddr)
+buildShelleyAddress (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisUTxOKey
+vk) Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw
+        SomeAddressVerificationKey
+nonPaymentKey ->
+          forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ SomeAddressVerificationKey -> AddressCmdError
+AddressCmdExpectedPaymentVerificationKey SomeAddressVerificationKey
+nonPaymentKey
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress (AddressAny
+addr :: AddressAny)
+
+    PaymentVerifierScriptFile (ScriptFile FilePath
+fp) -> do
+      ScriptInAnyLang ScriptLanguage lang
+_lang Script lang
+script <-
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> AddressCmdError
+AddressCmdReadScriptFileError forall a b. (a -> b) -> a -> b
+$
+          FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang FilePath
+fp
+
+      let payCred :: PaymentCredential
+payCred = ScriptHash -> PaymentCredential
+PaymentCredentialByScript (forall lang. Script lang -> ScriptHash
+hashScript Script lang
+script)
+
+      StakeAddressReference
+stakeAddressReference <- forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall (m :: * -> *) a. Monad m => a -> m a
+return StakeAddressReference
+NoStakeAddress) StakeIdentifier -> ExceptT AddressCmdError IO StakeAddressReference
+makeStakeAddressRef Maybe StakeIdentifier
+mbStakeVerifier
+
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress forall b c a. (b -> c) -> (a -> b) -> a -> c
+. NetworkId
+-> PaymentCredential
+-> StakeAddressReference
+-> Address ShelleyAddr
+makeShelleyAddress NetworkId
+nw PaymentCredential
+payCred forall a b. (a -> b) -> a -> b
+$ StakeAddressReference
+stakeAddressReference
+
+  case Maybe (File () 'Out)
+mOutFp of
+    Just (File FilePath
+fpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> Text -> IO ()
+Text.writeFile FilePath
+fpath Text
+outText
+    Maybe (File () 'Out)
+Nothing           -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStr          Text
+outText
+
+makeStakeAddressRef
+  :: StakeIdentifier
+  -> ExceptT AddressCmdError IO StakeAddressReference
+makeStakeAddressRef :: StakeIdentifier -> ExceptT AddressCmdError IO StakeAddressReference
+makeStakeAddressRef StakeIdentifier
+stakeIdentifier =
+  case StakeIdentifier
+stakeIdentifier of
+    StakeIdentifierVerifier StakeVerifier
+stakeVerifier ->
+      case StakeVerifier
+stakeVerifier of
+        StakeVerifierKey VerificationKeyOrFile StakeKey
+stkVkeyOrFile -> do
+          VerificationKey StakeKey
+stakeVKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> AddressCmdError
+AddressCmdReadKeyFileError forall a b. (a -> b) -> a -> b
+$
+            forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakeKey
+AsStakeKey VerificationKeyOrFile StakeKey
+stkVkeyOrFile
+
+          forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. StakeCredential -> StakeAddressReference
+StakeAddressByValue forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Hash StakeKey -> StakeCredential
+StakeCredentialByKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash forall a b. (a -> b) -> a -> b
+$ VerificationKey StakeKey
+stakeVKey
+
+        StakeVerifierScriptFile (ScriptFile FilePath
+fp) -> do
+          ScriptInAnyLang ScriptLanguage lang
+_lang Script lang
+script <-
+            forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> AddressCmdError
+AddressCmdReadScriptFileError forall a b. (a -> b) -> a -> b
+$
+              FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang FilePath
+fp
+
+          let stakeCred :: StakeCredential
+stakeCred = ScriptHash -> StakeCredential
+StakeCredentialByScript (forall lang. Script lang -> ScriptHash
+hashScript Script lang
+script)
+          forall (m :: * -> *) a. Monad m => a -> m a
+return (StakeCredential -> StakeAddressReference
+StakeAddressByValue StakeCredential
+stakeCred)
+    StakeIdentifierAddress StakeAddress
+stakeAddr ->
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ StakeCredential -> StakeAddressReference
+StakeAddressByValue forall a b. (a -> b) -> a -> b
+$ StakeAddress -> StakeCredential
+stakeAddressCredential StakeAddress
+stakeAddr
+
+buildShelleyAddress
+  :: VerificationKey PaymentKey
+  -> Maybe StakeIdentifier
+  -> NetworkId
+  -> ExceptT AddressCmdError IO (Address ShelleyAddr)
+buildShelleyAddress :: VerificationKey PaymentKey
+-> Maybe StakeIdentifier
+-> NetworkId
+-> ExceptT AddressCmdError IO (Address ShelleyAddr)
+buildShelleyAddress VerificationKey PaymentKey
+vkey Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw =
+  NetworkId
+-> PaymentCredential
+-> StakeAddressReference
+-> Address ShelleyAddr
+makeShelleyAddress NetworkId
+nw (Hash PaymentKey -> PaymentCredential
+PaymentCredentialByKey (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey PaymentKey
+vkey)) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall (m :: * -> *) a. Monad m => a -> m a
+return StakeAddressReference
+NoStakeAddress) StakeIdentifier -> ExceptT AddressCmdError IO StakeAddressReference
+makeStakeAddressRef Maybe StakeIdentifier
+mbStakeVerifier
+
+
+--
+-- Handling the variety of address key types
+--
+
+
+foldSomeAddressVerificationKey :: ()
+  => (forall keyrole. Key keyrole => VerificationKey keyrole -> a)
+  -> SomeAddressVerificationKey
+  -> a
+foldSomeAddressVerificationKey :: forall a.
+(forall keyrole. Key keyrole => VerificationKey keyrole -> a)
+-> SomeAddressVerificationKey -> a
+foldSomeAddressVerificationKey forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f = \case
+  AByronVerificationKey                   VerificationKey ByronKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey ByronKey
+vk
+  APaymentVerificationKey                 VerificationKey PaymentKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey PaymentKey
+vk
+  APaymentExtendedVerificationKey         VerificationKey PaymentExtendedKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey PaymentExtendedKey
+vk
+  AGenesisUTxOVerificationKey             VerificationKey GenesisUTxOKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey GenesisUTxOKey
+vk
+  AKesVerificationKey                     VerificationKey KesKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey KesKey
+vk
+  AGenesisDelegateExtendedVerificationKey VerificationKey GenesisDelegateExtendedKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey GenesisDelegateExtendedKey
+vk
+  AGenesisExtendedVerificationKey         VerificationKey GenesisExtendedKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey GenesisExtendedKey
+vk
+  AVrfVerificationKey                     VerificationKey VrfKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey VrfKey
+vk
+  AStakeVerificationKey                   VerificationKey StakeKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey StakeKey
+vk
+  AStakeExtendedVerificationKey           VerificationKey StakeExtendedKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey StakeExtendedKey
+vk
+  ADRepVerificationKey                    VerificationKey DRepKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey DRepKey
+vk
+  ADRepExtendedVerificationKey            VerificationKey DRepExtendedKey
+vk -> forall keyrole. Key keyrole => VerificationKey keyrole -> a
+f VerificationKey DRepExtendedKey
+vk
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Genesis.html new file mode 100644 index 0000000000..01927ac4d8 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Genesis.html @@ -0,0 +1,5006 @@ +
{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TypeApplications #-}
+
+{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+
+{- HLINT ignore "Reduce duplication" -}
+{- HLINT ignore "Redundant <$>" -}
+{- HLINT ignore "Use let" -}
+
+module Cardano.CLI.EraBased.Run.Genesis
+  ( runGenesisCmds
+
+  , runGenesisAddrCmd
+  , runGenesisCreateCardanoCmd
+  , runGenesisCreateCmd
+  , runGenesisCreateStakedCmd
+  , runGenesisHashFileCmd
+  , runGenesisKeyGenDelegateCmd
+  , runGenesisKeyGenGenesisCmd
+  , runGenesisKeyGenUTxOCmd
+  , runGenesisKeyHashCmd
+  , runGenesisTxInCmd
+  , runGenesisVerKeyCmd
+
+  , readAndDecodeShelleyGenesis
+
+  -- * Protocol Parameters
+  , readProtocolParameters
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Byron (toByronLovelace, toByronProtocolMagicId,
+                   toByronRequiresNetworkMagic)
+import           Cardano.Api.Shelley
+
+import           Cardano.Chain.Common (BlockCount (unBlockCount))
+import qualified Cardano.Chain.Common as Byron (KeyHash, mkKnownLovelace, rationalToLovelacePortion)
+import           Cardano.Chain.Delegation (delegateVK)
+import qualified Cardano.Chain.Delegation as Dlg
+import           Cardano.Chain.Genesis (FakeAvvmOptions (..), TestnetBalanceOptions (..),
+                   gdProtocolParameters, gsDlgIssuersSecrets, gsPoorSecrets, gsRichSecrets)
+import qualified Cardano.Chain.Genesis as Genesis
+import           Cardano.Chain.Update hiding (ProtocolParameters)
+import           Cardano.CLI.Byron.Delegation
+import           Cardano.CLI.Byron.Genesis as Byron
+import qualified Cardano.CLI.Byron.Key as Byron
+import           Cardano.CLI.EraBased.Commands.Genesis as Cmd
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+import qualified Cardano.CLI.EraBased.Run.Key as Key
+import           Cardano.CLI.EraBased.Run.Node (runNodeIssueOpCertCmd, runNodeKeyGenColdCmd,
+                   runNodeKeyGenKesCmd, runNodeKeyGenVrfCmd)
+import           Cardano.CLI.EraBased.Run.StakeAddress (runStakeAddressKeyGenCmd)
+import qualified Cardano.CLI.IO.Lazy as Lazy
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.GenesisCmdError
+import           Cardano.CLI.Types.Errors.NodeCmdError
+import           Cardano.CLI.Types.Errors.ProtocolParamsError
+import           Cardano.CLI.Types.Errors.StakePoolCmdError
+import           Cardano.CLI.Types.Key
+import qualified Cardano.Crypto as CC
+import           Cardano.Crypto.Hash (HashAlgorithm)
+import qualified Cardano.Crypto.Hash as Crypto
+import qualified Cardano.Crypto.Hash as Hash
+import qualified Cardano.Crypto.Random as Crypto
+import qualified Cardano.Crypto.Signing as Byron
+import qualified Cardano.Ledger.Alonzo.Genesis as Alonzo
+import qualified Cardano.Ledger.BaseTypes as Ledger
+import           Cardano.Ledger.Binary (Annotated (Annotated), ToCBOR (..))
+import           Cardano.Ledger.Coin (Coin (..))
+import qualified Cardano.Ledger.Conway.Genesis as Conway
+import           Cardano.Ledger.Core (ppMinUTxOValueL)
+import           Cardano.Ledger.Crypto (ADDRHASH, Crypto, StandardCrypto)
+import           Cardano.Ledger.Era ()
+import qualified Cardano.Ledger.Keys as Ledger
+import qualified Cardano.Ledger.Shelley.API as Ledger
+import           Cardano.Ledger.Shelley.Genesis (secondsToNominalDiffTimeMicro)
+import           Cardano.Prelude (canonicalEncodePretty)
+import           Cardano.Slotting.Slot (EpochSize (EpochSize))
+import           Ouroboros.Consensus.Shelley.Node (ShelleyGenesisStaking (..))
+
+import           Control.DeepSeq (NFData, force)
+import           Control.Monad (forM, forM_, unless, when)
+import           Control.Monad.Except (MonadError (..), runExceptT)
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT, throwE, withExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left,
+                   newExceptT)
+import           Data.Aeson hiding (Key)
+import qualified Data.Aeson as Aeson
+import           Data.Aeson.Encode.Pretty (encodePretty)
+import qualified Data.Aeson.KeyMap as Aeson
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.Binary.Get as Bin
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Char (isDigit)
+import           Data.Coerce (coerce)
+import           Data.Data (Proxy (..))
+import           Data.Either (fromRight)
+import           Data.Fixed (Fixed (MkFixed))
+import           Data.Function (on)
+import           Data.Functor (void)
+import           Data.Functor.Identity
+import qualified Data.List as List
+import qualified Data.List.Split as List
+import           Data.ListMap (ListMap (..))
+import qualified Data.ListMap as ListMap
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.Maybe (fromMaybe)
+import qualified Data.Sequence.Strict as Seq
+import           Data.String (fromString)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
+import           Data.Time.Clock (NominalDiffTime, UTCTime, addUTCTime, getCurrentTime)
+import           Data.Word (Word64)
+import qualified Data.Yaml as Yaml
+import           GHC.Generics (Generic)
+import           Lens.Micro ((^.))
+import           System.Directory (createDirectoryIfMissing, listDirectory)
+import           System.FilePath (takeExtension, takeExtensions, (</>))
+import qualified System.IO as IO
+import           System.IO.Error (isDoesNotExistError)
+import qualified System.Random as Random
+import           System.Random (StdGen)
+import qualified Text.JSON.Canonical (ToJSON)
+import           Text.JSON.Canonical (parseCanonicalJSON, renderCanonicalJSON)
+import           Text.Read (readMaybe)
+
+import           Crypto.Random as Crypto
+
+runGenesisCmds :: GenesisCmds era -> ExceptT GenesisCmdError IO ()
+runGenesisCmds :: forall era. GenesisCmds era -> ExceptT GenesisCmdError IO ()
+runGenesisCmds = \case
+  GenesisKeyGenGenesis GenesisKeyGenGenesisCmdArgs
+args -> GenesisKeyGenGenesisCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenGenesisCmd GenesisKeyGenGenesisCmdArgs
+args
+  GenesisKeyGenDelegate GenesisKeyGenDelegateCmdArgs
+args -> GenesisKeyGenDelegateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateCmd GenesisKeyGenDelegateCmdArgs
+args
+  GenesisKeyGenUTxO GenesisKeyGenUTxOCmdArgs
+args -> GenesisKeyGenUTxOCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenUTxOCmd GenesisKeyGenUTxOCmdArgs
+args
+  GenesisCmdKeyHash VerificationKeyFile 'In
+vk -> VerificationKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runGenesisKeyHashCmd VerificationKeyFile 'In
+vk
+  GenesisVerKey GenesisVerKeyCmdArgs
+args -> GenesisVerKeyCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisVerKeyCmd GenesisVerKeyCmdArgs
+args
+  GenesisTxIn GenesisTxInCmdArgs
+args -> GenesisTxInCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisTxInCmd GenesisTxInCmdArgs
+args
+  GenesisAddr GenesisAddrCmdArgs
+args -> GenesisAddrCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisAddrCmd GenesisAddrCmdArgs
+args
+  GenesisCreate GenesisCreateCmdArgs
+args -> GenesisCreateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCmd GenesisCreateCmdArgs
+args
+  GenesisCreateCardano GenesisCreateCardanoCmdArgs
+args -> GenesisCreateCardanoCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCardanoCmd GenesisCreateCardanoCmdArgs
+args
+  GenesisCreateStaked GenesisCreateStakedCmdArgs
+args -> GenesisCreateStakedCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateStakedCmd GenesisCreateStakedCmdArgs
+args
+  GenesisHashFile GenesisFile
+gf -> GenesisFile -> ExceptT GenesisCmdError IO ()
+runGenesisHashFileCmd GenesisFile
+gf
+
+runGenesisKeyGenGenesisCmd
+  :: GenesisKeyGenGenesisCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenGenesisCmd :: GenesisKeyGenGenesisCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenGenesisCmd
+    Cmd.GenesisKeyGenGenesisCmdArgs
+    { VerificationKeyFile 'Out
+$sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgs :: GenesisKeyGenGenesisCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath
+    , SigningKeyFile 'Out
+$sel:signingKeyPath:GenesisKeyGenGenesisCmdArgs :: GenesisKeyGenGenesisCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: SigningKeyFile 'Out
+Cmd.signingKeyPath
+    } = do
+    SigningKey GenesisKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType GenesisKey
+AsGenesisKey
+    let vkey :: VerificationKey GenesisKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+signingKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey GenesisKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.genesisVkeyDesc) VerificationKey GenesisKey
+vkey
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Genesis Signing Key"
+
+
+runGenesisKeyGenDelegateCmd
+  :: GenesisKeyGenDelegateCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateCmd :: GenesisKeyGenDelegateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateCmd
+    Cmd.GenesisKeyGenDelegateCmdArgs
+    { VerificationKeyFile 'Out
+$sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgs :: GenesisKeyGenDelegateCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath
+    , SigningKeyFile 'Out
+$sel:signingKeyPath:GenesisKeyGenDelegateCmdArgs :: GenesisKeyGenDelegateCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: SigningKeyFile 'Out
+Cmd.signingKeyPath
+    , OpCertCounterFile 'Out
+$sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgs :: GenesisKeyGenDelegateCmdArgs -> OpCertCounterFile 'Out
+opCertCounterPath :: OpCertCounterFile 'Out
+Cmd.opCertCounterPath
+    } = do
+    SigningKey GenesisDelegateKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey
+    let vkey :: VerificationKey GenesisDelegateKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisDelegateKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+signingKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey GenesisDelegateKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.genesisVkeyDelegateDesc) VerificationKey GenesisDelegateKey
+vkey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile OpCertCounterFile 'Out
+opCertCounterPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+certCtrDesc)
+      forall a b. (a -> b) -> a -> b
+$ Word64
+-> VerificationKey StakePoolKey
+-> OperationalCertificateIssueCounter
+OperationalCertificateIssueCounter
+          Word64
+initialCounter
+          (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisDelegateKey
+vkey)  -- Cast to a 'StakePoolKey'
+  where
+    skeyDesc, certCtrDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Genesis delegate operator key"
+    certCtrDesc :: TextEnvelopeDescr
+certCtrDesc = TextEnvelopeDescr
+"Next certificate issue number: "
+               forall a. Semigroup a => a -> a -> a
+<> forall a. IsString a => String -> a
+fromString (forall a. Show a => a -> String
+show Word64
+initialCounter)
+
+    initialCounter :: Word64
+    initialCounter :: Word64
+initialCounter = Word64
+0
+
+
+runGenesisKeyGenDelegateVRF ::
+     VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateVRF :: VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateVRF VerificationKeyFile 'Out
+vkeyPath SigningKeyFile 'Out
+skeyPath = do
+    SigningKey VrfKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType VrfKey
+AsVrfKey
+    let vkey :: VerificationKey VrfKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey VrfKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+skeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey VrfKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey VrfKey
+vkey
+  where
+    skeyDesc, vkeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"VRF Signing Key"
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"VRF Verification Key"
+
+
+runGenesisKeyGenUTxOCmd
+  :: GenesisKeyGenUTxOCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenUTxOCmd :: GenesisKeyGenUTxOCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenUTxOCmd
+    Cmd.GenesisKeyGenUTxOCmdArgs
+    { VerificationKeyFile 'Out
+$sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgs :: GenesisKeyGenUTxOCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath
+    , SigningKeyFile 'Out
+$sel:signingKeyPath:GenesisKeyGenUTxOCmdArgs :: GenesisKeyGenUTxOCmdArgs -> SigningKeyFile 'Out
+signingKeyPath :: SigningKeyFile 'Out
+Cmd.signingKeyPath
+    } = do
+    SigningKey GenesisUTxOKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType GenesisUTxOKey
+AsGenesisUTxOKey
+    let vkey :: VerificationKey GenesisUTxOKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisUTxOKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+signingKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey GenesisUTxOKey
+skey
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey GenesisUTxOKey
+vkey
+  where
+    skeyDesc, vkeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Genesis Initial UTxO Signing Key"
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"Genesis Initial UTxO Verification Key"
+
+
+runGenesisKeyHashCmd :: VerificationKeyFile In -> ExceptT GenesisCmdError IO ()
+runGenesisKeyHashCmd :: VerificationKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runGenesisKeyHashCmd VerificationKeyFile 'In
+vkeyPath = do
+    SomeGenesisKey VerificationKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+            forall b content.
+[FromSomeType HasTextEnvelope b]
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) b)
+readFileTextEnvelopeAnyOf
+              [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisKey
+AsGenesisKey)
+                             forall (f :: * -> *). f GenesisKey -> SomeGenesisKey f
+AGenesisKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+                             forall (f :: * -> *). f GenesisDelegateKey -> SomeGenesisKey f
+AGenesisDelegateKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisUTxOKey
+AsGenesisUTxOKey)
+                             forall (f :: * -> *). f GenesisUTxOKey -> SomeGenesisKey f
+AGenesisUTxOKey
+              ]
+              VerificationKeyFile 'In
+vkeyPath
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn (SomeGenesisKey VerificationKey -> ByteString
+renderKeyHash SomeGenesisKey VerificationKey
+vkey)
+  where
+    renderKeyHash :: SomeGenesisKey VerificationKey -> ByteString
+    renderKeyHash :: SomeGenesisKey VerificationKey -> ByteString
+renderKeyHash (AGenesisKey         VerificationKey GenesisKey
+vk) = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash VerificationKey GenesisKey
+vk
+    renderKeyHash (AGenesisDelegateKey VerificationKey GenesisDelegateKey
+vk) = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash VerificationKey GenesisDelegateKey
+vk
+    renderKeyHash (AGenesisUTxOKey     VerificationKey GenesisUTxOKey
+vk) = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash VerificationKey GenesisUTxOKey
+vk
+
+    renderVerificationKeyHash :: Key keyrole => VerificationKey keyrole -> ByteString
+    renderVerificationKeyHash :: forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash = forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex
+                              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash
+
+
+runGenesisVerKeyCmd
+  :: GenesisVerKeyCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisVerKeyCmd :: GenesisVerKeyCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisVerKeyCmd
+    Cmd.GenesisVerKeyCmdArgs
+    { VerificationKeyFile 'Out
+$sel:verificationKeyPath:GenesisVerKeyCmdArgs :: GenesisVerKeyCmdArgs -> VerificationKeyFile 'Out
+verificationKeyPath :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath
+    , SigningKeyFile 'In
+$sel:signingKeyPath:GenesisVerKeyCmdArgs :: GenesisVerKeyCmdArgs -> SigningKeyFile 'In
+signingKeyPath :: SigningKeyFile 'In
+Cmd.signingKeyPath
+    } = do
+    SomeGenesisKey SigningKey
+skey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+            forall b content.
+[FromSomeType HasTextEnvelope b]
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) b)
+readFileTextEnvelopeAnyOf
+              [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisKey
+AsGenesisKey)
+                             forall (f :: * -> *). f GenesisKey -> SomeGenesisKey f
+AGenesisKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+                             forall (f :: * -> *). f GenesisDelegateKey -> SomeGenesisKey f
+AGenesisDelegateKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisUTxOKey
+AsGenesisUTxOKey)
+                             forall (f :: * -> *). f GenesisUTxOKey -> SomeGenesisKey f
+AGenesisUTxOKey
+              ]
+              SigningKeyFile 'In
+signingKeyPath
+
+    let vkey :: SomeGenesisKey VerificationKey
+        vkey :: SomeGenesisKey VerificationKey
+vkey = case SomeGenesisKey SigningKey
+skey of
+          AGenesisKey         SigningKey GenesisKey
+sk -> forall (f :: * -> *). f GenesisKey -> SomeGenesisKey f
+AGenesisKey         (forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisKey
+sk)
+          AGenesisDelegateKey SigningKey GenesisDelegateKey
+sk -> forall (f :: * -> *). f GenesisDelegateKey -> SomeGenesisKey f
+AGenesisDelegateKey (forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisDelegateKey
+sk)
+          AGenesisUTxOKey     SigningKey GenesisUTxOKey
+sk -> forall (f :: * -> *). f GenesisUTxOKey -> SomeGenesisKey f
+AGenesisUTxOKey     (forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey GenesisUTxOKey
+sk)
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$
+      case SomeGenesisKey VerificationKey
+vkey of
+        AGenesisKey         VerificationKey GenesisKey
+vk -> forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey GenesisKey
+vk
+        AGenesisDelegateKey VerificationKey GenesisDelegateKey
+vk -> forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey GenesisDelegateKey
+vk
+        AGenesisUTxOKey     VerificationKey GenesisUTxOKey
+vk -> forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+verificationKeyPath forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey GenesisUTxOKey
+vk
+
+data SomeGenesisKey f
+     = AGenesisKey         (f GenesisKey)
+     | AGenesisDelegateKey (f GenesisDelegateKey)
+     | AGenesisUTxOKey     (f GenesisUTxOKey)
+
+
+runGenesisTxInCmd
+  :: GenesisTxInCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisTxInCmd :: GenesisTxInCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisTxInCmd
+    Cmd.GenesisTxInCmdArgs
+    { VerificationKeyFile 'In
+$sel:verificationKeyPath:GenesisTxInCmdArgs :: GenesisTxInCmdArgs -> VerificationKeyFile 'In
+verificationKeyPath :: VerificationKeyFile 'In
+Cmd.verificationKeyPath
+    , NetworkId
+$sel:network:GenesisTxInCmdArgs :: GenesisTxInCmdArgs -> NetworkId
+network :: NetworkId
+Cmd.network
+    , Maybe (File () 'Out)
+$sel:mOutFile:GenesisTxInCmdArgs :: GenesisTxInCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+    VerificationKey GenesisUTxOKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+            forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisUTxOKey
+AsGenesisUTxOKey) VerificationKeyFile 'In
+verificationKeyPath
+    let txin :: TxIn
+txin = NetworkId -> Hash GenesisUTxOKey -> TxIn
+genesisUTxOPseudoTxIn NetworkId
+network (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey GenesisUTxOKey
+vkey)
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Maybe (File () 'Out) -> Text -> IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile (TxIn -> Text
+renderTxIn TxIn
+txin)
+
+
+runGenesisAddrCmd
+  :: GenesisAddrCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisAddrCmd :: GenesisAddrCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisAddrCmd
+    Cmd.GenesisAddrCmdArgs
+    { VerificationKeyFile 'In
+$sel:verificationKeyPath:GenesisAddrCmdArgs :: GenesisAddrCmdArgs -> VerificationKeyFile 'In
+verificationKeyPath :: VerificationKeyFile 'In
+Cmd.verificationKeyPath
+    , NetworkId
+$sel:network:GenesisAddrCmdArgs :: GenesisAddrCmdArgs -> NetworkId
+network :: NetworkId
+Cmd.network
+    , Maybe (File () 'Out)
+$sel:mOutFile:GenesisAddrCmdArgs :: GenesisAddrCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+    VerificationKey GenesisUTxOKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+            forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisUTxOKey
+AsGenesisUTxOKey) VerificationKeyFile 'In
+verificationKeyPath
+    let vkh :: Hash PaymentKey
+vkh  = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisUTxOKey
+vkey)
+        addr :: Address ShelleyAddr
+addr = NetworkId
+-> PaymentCredential
+-> StakeAddressReference
+-> Address ShelleyAddr
+makeShelleyAddress NetworkId
+network (Hash PaymentKey -> PaymentCredential
+PaymentCredentialByKey Hash PaymentKey
+vkh)
+                                  StakeAddressReference
+NoStakeAddress
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Maybe (File () 'Out) -> Text -> IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile (forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress Address ShelleyAddr
+addr)
+
+writeOutput :: Maybe (File () Out) -> Text -> IO ()
+writeOutput :: Maybe (File () 'Out) -> Text -> IO ()
+writeOutput (Just (File String
+fpath)) = String -> Text -> IO ()
+Text.writeFile String
+fpath
+writeOutput Maybe (File () 'Out)
+Nothing                   = Text -> IO ()
+Text.putStrLn
+
+
+--
+-- Create Genesis command implementation
+--
+
+runGenesisCreateCmd
+  :: GenesisCreateCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCmd :: GenesisCreateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCmd
+    Cmd.GenesisCreateCmdArgs
+    { KeyOutputFormat
+$sel:keyOutputFormat:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> KeyOutputFormat
+keyOutputFormat :: KeyOutputFormat
+Cmd.keyOutputFormat
+    , GenesisDir
+$sel:genesisDir:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> GenesisDir
+genesisDir :: GenesisDir
+Cmd.genesisDir
+    , Word
+$sel:numGenesisKeys:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> Word
+numGenesisKeys :: Word
+Cmd.numGenesisKeys
+    , Word
+$sel:numUTxOKeys:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> Word
+numUTxOKeys :: Word
+Cmd.numUTxOKeys
+    , Maybe SystemStart
+$sel:mSystemStart:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> Maybe SystemStart
+mSystemStart :: Maybe SystemStart
+Cmd.mSystemStart
+    , Maybe Lovelace
+$sel:mSupply:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> Maybe Lovelace
+mSupply :: Maybe Lovelace
+Cmd.mSupply
+    , NetworkId
+$sel:network:GenesisCreateCmdArgs :: GenesisCreateCmdArgs -> NetworkId
+network :: NetworkId
+Cmd.network
+    } = do
+  let GenesisDir String
+rootdir = GenesisDir
+genesisDir
+      gendir :: String
+gendir  = String
+rootdir String -> String -> String
+</> String
+"genesis-keys"
+      deldir :: String
+deldir  = String
+rootdir String -> String -> String
+</> String
+"delegate-keys"
+      utxodir :: String
+utxodir = String
+rootdir String -> String -> String
+</> String
+"utxo-keys"
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+rootdir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+gendir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+deldir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+utxodir
+
+  ShelleyGenesis StandardCrypto
+template <- String
+-> (ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto)
+-> ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+readShelleyGenesisWithDefault (String
+rootdir String -> String -> String
+</> String
+"genesis.spec.json") ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustTemplate
+  AlonzoGenesis
+alonzoGenesis <- String -> ExceptT GenesisCmdError IO AlonzoGenesis
+readAlonzoGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.alonzo.spec.json")
+  ConwayGenesis StandardCrypto
+conwayGenesis <- String -> ExceptT GenesisCmdError IO (ConwayGenesis StandardCrypto)
+readConwayGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.conway.spec.json")
+
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [ Word
+1 .. Word
+numGenesisKeys ] forall a b. (a -> b) -> a -> b
+$ \Word
+index -> do
+    String -> Word -> ExceptT GenesisCmdError IO ()
+createGenesisKeys  String
+gendir  Word
+index
+    KeyOutputFormat -> String -> Word -> ExceptT GenesisCmdError IO ()
+createDelegateKeys KeyOutputFormat
+keyOutputFormat String
+deldir Word
+index
+
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [ Word
+1 .. Word
+numUTxOKeys ] forall a b. (a -> b) -> a -> b
+$ \Word
+index ->
+    String -> Word -> ExceptT GenesisCmdError IO ()
+createUtxoKeys String
+utxodir Word
+index
+
+  Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDlgs <- String
+-> String
+-> ExceptT
+     GenesisCmdError
+     IO
+     (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey))
+readGenDelegsMap String
+gendir String
+deldir
+  [AddressInEra ShelleyEra]
+utxoAddrs <- String
+-> NetworkId
+-> ExceptT GenesisCmdError IO [AddressInEra ShelleyEra]
+readInitialFundAddresses String
+utxodir NetworkId
+network
+  SystemStart
+start <- forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (UTCTime -> SystemStart
+SystemStart forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ExceptT a IO UTCTime
+getCurrentTimePlus30) forall (f :: * -> *) a. Applicative f => a -> f a
+pure Maybe SystemStart
+mSystemStart
+
+  let shelleyGenesis :: ShelleyGenesis StandardCrypto
+shelleyGenesis =
+        SystemStart
+-> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+-> Maybe Lovelace
+-> [AddressInEra ShelleyEra]
+-> Map
+     (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+-> Lovelace
+-> [AddressInEra ShelleyEra]
+-> [AddressInEra ShelleyEra]
+-> ShelleyGenesis StandardCrypto
+-> ShelleyGenesis StandardCrypto
+updateTemplate
+          -- Shelley genesis parameters
+          SystemStart
+start Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDlgs Maybe Lovelace
+mSupply [AddressInEra ShelleyEra]
+utxoAddrs forall a. Monoid a => a
+mempty (Integer -> Lovelace
+Lovelace Integer
+0) [] [] ShelleyGenesis StandardCrypto
+template
+
+  forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.json")        forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty ShelleyGenesis StandardCrypto
+shelleyGenesis
+  forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.alonzo.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty AlonzoGenesis
+alonzoGenesis
+  forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.conway.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty ConwayGenesis StandardCrypto
+conwayGenesis
+  --TODO: rationalise the naming convention on these genesis json files.
+  where
+    adjustTemplate :: ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustTemplate ShelleyGenesis StandardCrypto
+t = ShelleyGenesis StandardCrypto
+t { sgNetworkMagic :: Word32
+sgNetworkMagic = NetworkMagic -> Word32
+unNetworkMagic (NetworkId -> NetworkMagic
+toNetworkMagic NetworkId
+network) }
+
+toSKeyJSON :: Key a => SigningKey a -> ByteString
+toSKeyJSON :: forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON = ByteString -> ByteString
+LBS.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing
+
+toVkeyJSON :: ()
+  => Key a
+  => HasTypeProxy a
+  => SigningKey a
+  -> ByteString
+toVkeyJSON :: forall a. (Key a, HasTypeProxy a) => SigningKey a -> ByteString
+toVkeyJSON = ByteString -> ByteString
+LBS.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey
+
+toVkeyJSON' :: Key a => VerificationKey a -> ByteString
+toVkeyJSON' :: forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+toVkeyJSON' = ByteString -> ByteString
+LBS.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing
+
+toOpCert :: (OperationalCertificate, OperationalCertificateIssueCounter) -> ByteString
+toOpCert :: (OperationalCertificate, OperationalCertificateIssueCounter)
+-> ByteString
+toOpCert = ByteString -> ByteString
+LBS.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (a, b) -> a
+fst
+
+toCounter :: (OperationalCertificate, OperationalCertificateIssueCounter) -> ByteString
+toCounter :: (OperationalCertificate, OperationalCertificateIssueCounter)
+-> ByteString
+toCounter = ByteString -> ByteString
+LBS.toStrict forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (a, b) -> b
+snd
+
+generateShelleyNodeSecrets :: [SigningKey GenesisDelegateExtendedKey] -> [VerificationKey GenesisKey]
+    -> IO (Map (Hash GenesisKey)
+      ( Hash GenesisDelegateKey, Hash VrfKey)
+      , [SigningKey VrfKey]
+      , [SigningKey KesKey]
+      , [(OperationalCertificate, OperationalCertificateIssueCounter)])
+generateShelleyNodeSecrets :: [SigningKey GenesisDelegateExtendedKey]
+-> [VerificationKey GenesisKey]
+-> IO
+     (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey),
+      [SigningKey VrfKey], [SigningKey KesKey],
+      [(OperationalCertificate, OperationalCertificateIssueCounter)])
+generateShelleyNodeSecrets [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys [VerificationKey GenesisKey]
+shelleyGenesisvkeys = do
+  let
+    shelleyDelegatevkeys :: [VerificationKey GenesisDelegateKey]
+    shelleyDelegatevkeys :: [VerificationKey GenesisDelegateKey]
+shelleyDelegatevkeys = forall a b. (a -> b) -> [a] -> [b]
+map (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey) [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys
+  [SigningKey VrfKey]
+vrfKeys <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys forall a b. (a -> b) -> a -> b
+$ \SigningKey GenesisDelegateExtendedKey
+_ -> forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType VrfKey
+AsVrfKey
+  [SigningKey KesKey]
+kesKeys <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys forall a b. (a -> b) -> a -> b
+$ \SigningKey GenesisDelegateExtendedKey
+_ -> forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType KesKey
+AsKesKey
+
+  let
+    opCertInputs :: [(VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey)]
+    opCertInputs :: [(VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey)]
+opCertInputs = forall a b. [a] -> [b] -> [(a, b)]
+zip (forall a b. (a -> b) -> [a] -> [b]
+map forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey [SigningKey KesKey]
+kesKeys) [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys
+    createOpCert :: (VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey) -> (OperationalCertificate, OperationalCertificateIssueCounter)
+    createOpCert :: (VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey)
+-> (OperationalCertificate, OperationalCertificateIssueCounter)
+createOpCert (VerificationKey KesKey
+kesKey, SigningKey GenesisDelegateExtendedKey
+delegateKey) = forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
+either (forall a. HasCallStack => String -> a
+error forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> String
+show) forall a. a -> a
+id Either
+  OperationalCertIssueError
+  (OperationalCertificate, OperationalCertificateIssueCounter)
+eResult
+      where
+        eResult :: Either
+  OperationalCertIssueError
+  (OperationalCertificate, OperationalCertificateIssueCounter)
+eResult = VerificationKey KesKey
+-> Either
+     (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey)
+-> KESPeriod
+-> OperationalCertificateIssueCounter
+-> Either
+     OperationalCertIssueError
+     (OperationalCertificate, OperationalCertificateIssueCounter)
+issueOperationalCertificate VerificationKey KesKey
+kesKey (forall a b. b -> Either a b
+Right SigningKey GenesisDelegateExtendedKey
+delegateKey) (Word -> KESPeriod
+KESPeriod Word
+0) OperationalCertificateIssueCounter
+counter
+        counter :: OperationalCertificateIssueCounter
+counter = Word64
+-> VerificationKey StakePoolKey
+-> OperationalCertificateIssueCounter
+OperationalCertificateIssueCounter Word64
+0 (VerificationKey GenesisDelegateExtendedKey
+-> VerificationKey StakePoolKey
+convert forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey forall a b. (a -> b) -> a -> b
+$ SigningKey GenesisDelegateExtendedKey
+delegateKey)
+        convert :: VerificationKey GenesisDelegateExtendedKey
+                -> VerificationKey StakePoolKey
+        convert :: VerificationKey GenesisDelegateExtendedKey
+-> VerificationKey StakePoolKey
+convert = (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey :: VerificationKey GenesisDelegateKey
+                                       -> VerificationKey StakePoolKey)
+                forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey :: VerificationKey GenesisDelegateExtendedKey
+                                       -> VerificationKey GenesisDelegateKey)
+
+    opCerts :: [(OperationalCertificate, OperationalCertificateIssueCounter)]
+    opCerts :: [(OperationalCertificate, OperationalCertificateIssueCounter)]
+opCerts = forall a b. (a -> b) -> [a] -> [b]
+map (VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey)
+-> (OperationalCertificate, OperationalCertificateIssueCounter)
+createOpCert [(VerificationKey KesKey, SigningKey GenesisDelegateExtendedKey)]
+opCertInputs
+
+    vrfvkeys :: [VerificationKey VrfKey]
+vrfvkeys = forall a b. (a -> b) -> [a] -> [b]
+map forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey [SigningKey VrfKey]
+vrfKeys
+    combinedMap :: [ ( VerificationKey GenesisKey
+                     , VerificationKey GenesisDelegateKey
+                     , VerificationKey VrfKey
+                     )
+                   ]
+    combinedMap :: [(VerificationKey GenesisKey, VerificationKey GenesisDelegateKey,
+  VerificationKey VrfKey)]
+combinedMap = forall a b c. [a] -> [b] -> [c] -> [(a, b, c)]
+zip3 [VerificationKey GenesisKey]
+shelleyGenesisvkeys [VerificationKey GenesisDelegateKey]
+shelleyDelegatevkeys [VerificationKey VrfKey]
+vrfvkeys
+    hashKeys :: (VerificationKey GenesisKey, VerificationKey GenesisDelegateKey, VerificationKey VrfKey) -> (Hash GenesisKey, (Hash GenesisDelegateKey, Hash VrfKey))
+    hashKeys :: (VerificationKey GenesisKey, VerificationKey GenesisDelegateKey,
+ VerificationKey VrfKey)
+-> (Hash GenesisKey, (Hash GenesisDelegateKey, Hash VrfKey))
+hashKeys (VerificationKey GenesisKey
+genesis,VerificationKey GenesisDelegateKey
+delegate,VerificationKey VrfKey
+vrf) = (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey GenesisKey
+genesis, (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey GenesisDelegateKey
+delegate, forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey VrfKey
+vrf));
+    delegateMap :: Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+    delegateMap :: Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegateMap = forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (a -> b) -> [a] -> [b]
+map (VerificationKey GenesisKey, VerificationKey GenesisDelegateKey,
+ VerificationKey VrfKey)
+-> (Hash GenesisKey, (Hash GenesisDelegateKey, Hash VrfKey))
+hashKeys forall a b. (a -> b) -> a -> b
+$ [(VerificationKey GenesisKey, VerificationKey GenesisDelegateKey,
+  VerificationKey VrfKey)]
+combinedMap
+
+  forall (m :: * -> *) a. Monad m => a -> m a
+return (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegateMap, [SigningKey VrfKey]
+vrfKeys, [SigningKey KesKey]
+kesKeys, [(OperationalCertificate, OperationalCertificateIssueCounter)]
+opCerts)
+
+--
+-- Create Genesis Cardano command implementation
+--
+
+runGenesisCreateCardanoCmd
+  :: GenesisCreateCardanoCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCardanoCmd :: GenesisCreateCardanoCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCardanoCmd
+    Cmd.GenesisCreateCardanoCmdArgs
+    { GenesisDir
+$sel:genesisDir:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> GenesisDir
+genesisDir :: GenesisDir
+Cmd.genesisDir
+    , Word
+$sel:numGenesisKeys:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Word
+numGenesisKeys :: Word
+Cmd.numGenesisKeys
+    , Word
+$sel:numUTxOKeys:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Word
+numUTxOKeys :: Word
+Cmd.numUTxOKeys
+    , Maybe SystemStart
+$sel:mSystemStart:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Maybe SystemStart
+mSystemStart :: Maybe SystemStart
+Cmd.mSystemStart
+    , Maybe Lovelace
+$sel:mSupply:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Maybe Lovelace
+mSupply :: Maybe Lovelace
+Cmd.mSupply
+    , BlockCount
+$sel:security:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> BlockCount
+security :: BlockCount
+Cmd.security
+    , Word
+$sel:slotLength:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Word
+slotLength :: Word
+Cmd.slotLength
+    , Rational
+$sel:slotCoeff:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Rational
+slotCoeff :: Rational
+Cmd.slotCoeff
+    , NetworkId
+$sel:network:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> NetworkId
+network :: NetworkId
+Cmd.network
+    , String
+$sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> String
+byronGenesisTemplate :: String
+Cmd.byronGenesisTemplate
+    , String
+$sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> String
+shelleyGenesisTemplate :: String
+Cmd.shelleyGenesisTemplate
+    , String
+$sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> String
+alonzoGenesisTemplate :: String
+Cmd.alonzoGenesisTemplate
+    , String
+$sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> String
+conwayGenesisTemplate :: String
+Cmd.conwayGenesisTemplate
+    , Maybe String
+$sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgs :: GenesisCreateCardanoCmdArgs -> Maybe String
+mNodeConfigTemplate :: Maybe String
+Cmd.mNodeConfigTemplate
+    } = do
+  SystemStart
+start <- forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (UTCTime -> SystemStart
+SystemStart forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ExceptT a IO UTCTime
+getCurrentTimePlus30) forall (f :: * -> *) a. Applicative f => a -> f a
+pure Maybe SystemStart
+mSystemStart
+  (GenesisData
+byronGenesis', GeneratedSecrets
+byronSecrets) <- forall {a}.
+ExceptT ByronGenesisError IO a -> ExceptT GenesisCmdError IO a
+convertToShelleyError forall a b. (a -> b) -> a -> b
+$ GenesisParameters
+-> ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets)
+Byron.mkGenesis forall a b. (a -> b) -> a -> b
+$ SystemStart -> GenesisParameters
+byronParams SystemStart
+start
+  let
+    byronGenesis :: GenesisData
+byronGenesis = GenesisData
+byronGenesis'
+      { gdProtocolParameters :: ProtocolParameters
+gdProtocolParameters = (GenesisData -> ProtocolParameters
+gdProtocolParameters GenesisData
+byronGenesis') {
+          ppSlotDuration :: Natural
+ppSlotDuration = forall a b. (RealFrac a, Integral b) => a -> b
+floor ( forall a. Real a => a -> Rational
+toRational Word
+slotLength forall a. Num a => a -> a -> a
+* forall a. Fractional a => a -> a
+recip Rational
+slotCoeff )
+        }
+      }
+
+    genesisKeys :: [SigningKey]
+genesisKeys = GeneratedSecrets -> [SigningKey]
+gsDlgIssuersSecrets GeneratedSecrets
+byronSecrets
+    byronGenesisKeys :: [SigningKey ByronKey]
+byronGenesisKeys = forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey ByronKey
+ByronSigningKey [SigningKey]
+genesisKeys
+    shelleyGenesisKeys :: [SigningKey GenesisExtendedKey]
+shelleyGenesisKeys = forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey GenesisExtendedKey
+convertGenesisKey [SigningKey]
+genesisKeys
+    shelleyGenesisvkeys :: [VerificationKey GenesisKey]
+    shelleyGenesisvkeys :: [VerificationKey GenesisKey]
+shelleyGenesisvkeys = forall a b. (a -> b) -> [a] -> [b]
+map (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey) [SigningKey GenesisExtendedKey]
+shelleyGenesisKeys
+
+    delegateKeys :: [SigningKey]
+delegateKeys = GeneratedSecrets -> [SigningKey]
+gsRichSecrets GeneratedSecrets
+byronSecrets
+    byronDelegateKeys :: [SigningKey ByronKey]
+byronDelegateKeys = forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey ByronKey
+ByronSigningKey [SigningKey]
+delegateKeys
+    shelleyDelegateKeys :: [SigningKey GenesisDelegateExtendedKey]
+    shelleyDelegateKeys :: [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys = forall a b. (a -> b) -> [a] -> [b]
+map SigningKey -> SigningKey GenesisDelegateExtendedKey
+convertDelegate [SigningKey]
+delegateKeys
+    shelleyDelegatevkeys :: [VerificationKey GenesisDelegateKey]
+    shelleyDelegatevkeys :: [VerificationKey GenesisDelegateKey]
+shelleyDelegatevkeys = forall a b. (a -> b) -> [a] -> [b]
+map (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey) [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys
+
+    utxoKeys :: [PoorSecret]
+utxoKeys = GeneratedSecrets -> [PoorSecret]
+gsPoorSecrets GeneratedSecrets
+byronSecrets
+    byronUtxoKeys :: [SigningKey ByronKey]
+byronUtxoKeys = forall a b. (a -> b) -> [a] -> [b]
+map (SigningKey -> SigningKey ByronKey
+ByronSigningKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. PoorSecret -> SigningKey
+Genesis.poorSecretToKey) [PoorSecret]
+utxoKeys
+    shelleyUtxoKeys :: [SigningKey ByronKey]
+shelleyUtxoKeys = forall a b. (a -> b) -> [a] -> [b]
+map (SigningKey -> SigningKey ByronKey
+convertPoor forall b c a. (b -> c) -> (a -> b) -> a -> c
+. PoorSecret -> SigningKey
+Genesis.poorSecretToKey) [PoorSecret]
+utxoKeys
+
+  [Certificate]
+dlgCerts <- forall {a}.
+ExceptT ByronGenesisError IO a -> ExceptT GenesisCmdError IO a
+convertToShelleyError forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (GenesisData
+-> SigningKey ByronKey -> ExceptT ByronGenesisError IO Certificate
+findDelegateCert GenesisData
+byronGenesis) [SigningKey ByronKey]
+byronDelegateKeys
+  let
+    overrideShelleyGenesis :: ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+overrideShelleyGenesis ShelleyGenesis StandardCrypto
+t = ShelleyGenesis StandardCrypto
+t
+      { sgNetworkMagic :: Word32
+sgNetworkMagic = NetworkMagic -> Word32
+unNetworkMagic (NetworkId -> NetworkMagic
+toNetworkMagic NetworkId
+network)
+      , sgNetworkId :: Network
+sgNetworkId = NetworkId -> Network
+toShelleyNetwork NetworkId
+network
+      , sgActiveSlotsCoeff :: PositiveUnitInterval
+sgActiveSlotsCoeff = forall a. a -> Maybe a -> a
+fromMaybe (forall a. HasCallStack => String -> a
+error forall a b. (a -> b) -> a -> b
+$ String
+"Could not convert from Rational: " forall a. [a] -> [a] -> [a]
+++ forall a. Show a => a -> String
+show Rational
+slotCoeff) forall a b. (a -> b) -> a -> b
+$ forall r. BoundedRational r => Rational -> Maybe r
+Ledger.boundRational Rational
+slotCoeff
+      , sgSecurityParam :: Word64
+sgSecurityParam = BlockCount -> Word64
+unBlockCount BlockCount
+security
+      , sgUpdateQuorum :: Word64
+sgUpdateQuorum = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ ((Word
+numGenesisKeys forall a. Integral a => a -> a -> a
+`div` Word
+3) forall a. Num a => a -> a -> a
+* Word
+2) forall a. Num a => a -> a -> a
++ Word
+1
+      , sgEpochLength :: EpochSize
+sgEpochLength = Word64 -> EpochSize
+EpochSize forall a b. (a -> b) -> a -> b
+$ forall a b. (RealFrac a, Integral b) => a -> b
+floor forall a b. (a -> b) -> a -> b
+$ (forall a b. (Integral a, Num b) => a -> b
+fromIntegral (BlockCount -> Word64
+unBlockCount BlockCount
+security) forall a. Num a => a -> a -> a
+* Rational
+10) forall a. Fractional a => a -> a -> a
+/ Rational
+slotCoeff
+      , sgMaxLovelaceSupply :: Word64
+sgMaxLovelaceSupply = Word64
+45000000000000000
+      , sgSystemStart :: UTCTime
+sgSystemStart = SystemStart -> UTCTime
+getSystemStart SystemStart
+start
+      , sgSlotLength :: NominalDiffTimeMicro
+sgSlotLength = Micro -> NominalDiffTimeMicro
+secondsToNominalDiffTimeMicro forall a b. (a -> b) -> a -> b
+$ forall k (a :: k). Integer -> Fixed a
+MkFixed (forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+slotLength) forall a. Num a => a -> a -> a
+* Micro
+1000
+      }
+  ShelleyGenesis StandardCrypto
+shelleyGenesisTemplate' <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+overrideShelleyGenesis forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall b a. b -> Either a b -> b
+fromRight (forall a. HasCallStack => String -> a
+error String
+"shelley genesis template not found") forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String
+-> IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))
+readAndDecodeShelleyGenesis String
+shelleyGenesisTemplate
+  AlonzoGenesis
+alonzoGenesis <- String -> ExceptT GenesisCmdError IO AlonzoGenesis
+readAlonzoGenesis String
+alonzoGenesisTemplate
+  ConwayGenesis StandardCrypto
+conwayGenesis <- String -> ExceptT GenesisCmdError IO (ConwayGenesis StandardCrypto)
+readConwayGenesis String
+conwayGenesisTemplate
+  (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegateMap, [SigningKey VrfKey]
+vrfKeys, [SigningKey KesKey]
+kesKeys, [(OperationalCertificate, OperationalCertificateIssueCounter)]
+opCerts) <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ [SigningKey GenesisDelegateExtendedKey]
+-> [VerificationKey GenesisKey]
+-> IO
+     (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey),
+      [SigningKey VrfKey], [SigningKey KesKey],
+      [(OperationalCertificate, OperationalCertificateIssueCounter)])
+generateShelleyNodeSecrets [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys [VerificationKey GenesisKey]
+shelleyGenesisvkeys
+  let
+    shelleyGenesis :: ShelleyGenesis StandardCrypto
+    shelleyGenesis :: ShelleyGenesis StandardCrypto
+shelleyGenesis = SystemStart
+-> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+-> Maybe Lovelace
+-> [AddressInEra ShelleyEra]
+-> Map
+     (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+-> Lovelace
+-> [AddressInEra ShelleyEra]
+-> [AddressInEra ShelleyEra]
+-> ShelleyGenesis StandardCrypto
+-> ShelleyGenesis StandardCrypto
+updateTemplate SystemStart
+start Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegateMap forall a. Maybe a
+Nothing [] forall a. Monoid a => a
+mempty Lovelace
+0 [] [] ShelleyGenesis StandardCrypto
+shelleyGenesisTemplate'
+
+  let GenesisDir String
+rootdir = GenesisDir
+genesisDir
+      gendir :: String
+gendir  = String
+rootdir String -> String -> String
+</> String
+"genesis-keys"
+      deldir :: String
+deldir  = String
+rootdir String -> String -> String
+</> String
+"delegate-keys"
+      utxodir :: String
+utxodir = String
+rootdir String -> String -> String
+</> String
+"utxo-keys"
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+rootdir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+gendir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+deldir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+utxodir
+
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+gendir String
+"byron" String
+"key" forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes [SigningKey ByronKey]
+byronGenesisKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+gendir String
+"shelley" String
+"skey" forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON [SigningKey GenesisExtendedKey]
+shelleyGenesisKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+gendir String
+"shelley" String
+"vkey" forall a. (Key a, HasTypeProxy a) => SigningKey a -> ByteString
+toVkeyJSON [SigningKey GenesisExtendedKey]
+shelleyGenesisKeys
+
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"byron" String
+"key" forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes [SigningKey ByronKey]
+byronDelegateKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"skey" forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON [SigningKey GenesisDelegateExtendedKey]
+shelleyDelegateKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"vkey" forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+toVkeyJSON' [VerificationKey GenesisDelegateKey]
+shelleyDelegatevkeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"vrf.skey" forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON [SigningKey VrfKey]
+vrfKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"vrf.vkey" forall a. (Key a, HasTypeProxy a) => SigningKey a -> ByteString
+toVkeyJSON [SigningKey VrfKey]
+vrfKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"kes.skey" forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON [SigningKey KesKey]
+kesKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"kes.vkey" forall a. (Key a, HasTypeProxy a) => SigningKey a -> ByteString
+toVkeyJSON [SigningKey KesKey]
+kesKeys
+
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+utxodir String
+"byron" String
+"key" forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytes [SigningKey ByronKey]
+byronUtxoKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+utxodir String
+"shelley" String
+"skey" forall a. Key a => SigningKey a -> ByteString
+toSKeyJSON [SigningKey ByronKey]
+shelleyUtxoKeys
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+utxodir String
+"shelley" String
+"vkey" forall a. (Key a, HasTypeProxy a) => SigningKey a -> ByteString
+toVkeyJSON [SigningKey ByronKey]
+shelleyUtxoKeys
+
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"byron" String
+"cert.json" Certificate -> ByteString
+serialiseDelegationCert [Certificate]
+dlgCerts
+
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"opcert.json" (OperationalCertificate, OperationalCertificateIssueCounter)
+-> ByteString
+toOpCert [(OperationalCertificate, OperationalCertificateIssueCounter)]
+opCerts
+    forall a.
+String -> String -> String -> (a -> ByteString) -> [a] -> IO ()
+writeSecrets String
+deldir String
+"shelley" String
+"counter.json" (OperationalCertificate, OperationalCertificateIssueCounter)
+-> ByteString
+toCounter [(OperationalCertificate, OperationalCertificateIssueCounter)]
+opCerts
+
+  Hash Blake2b_256 ByteString
+byronGenesisHash <- String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"byron-genesis.json") forall a b. (a -> b) -> a -> b
+$ forall genesis.
+ToJSON Identity genesis =>
+genesis -> WriteFileGenesis
+WriteCanonical GenesisData
+byronGenesis
+  Hash Blake2b_256 ByteString
+shelleyGenesisHash <- String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"shelley-genesis.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty ShelleyGenesis StandardCrypto
+shelleyGenesis
+  Hash Blake2b_256 ByteString
+alonzoGenesisHash <- String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"alonzo-genesis.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty AlonzoGenesis
+alonzoGenesis
+  Hash Blake2b_256 ByteString
+conwayGenesisHash <- String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"conway-genesis.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty ConwayGenesis StandardCrypto
+conwayGenesis
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+    case Maybe String
+mNodeConfigTemplate of
+      Maybe String
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ()
+      Just String
+nodeCfg -> do
+        Value
+nodeConfig <- forall (m :: * -> *) a. (MonadIO m, FromJSON a) => String -> m a
+Yaml.decodeFileThrow String
+nodeCfg
+        let
+          setHash :: Key -> Hash h a -> KeyMap Value -> KeyMap Value
+setHash Key
+field Hash h a
+hash = forall v. Key -> v -> KeyMap v -> KeyMap v
+Aeson.insert Key
+field forall a b. (a -> b) -> a -> b
+$ Text -> Value
+String forall a b. (a -> b) -> a -> b
+$ forall h a. Hash h a -> Text
+Crypto.hashToTextAsHex Hash h a
+hash
+          updateConfig :: Yaml.Value -> Yaml.Value
+          updateConfig :: Value -> Value
+updateConfig (Object KeyMap Value
+obj) = KeyMap Value -> Value
+Object
+              forall a b. (a -> b) -> a -> b
+$ forall {h} {a}. Key -> Hash h a -> KeyMap Value -> KeyMap Value
+setHash Key
+"ByronGenesisHash" Hash Blake2b_256 ByteString
+byronGenesisHash
+              forall a b. (a -> b) -> a -> b
+$ forall {h} {a}. Key -> Hash h a -> KeyMap Value -> KeyMap Value
+setHash Key
+"ShelleyGenesisHash" Hash Blake2b_256 ByteString
+shelleyGenesisHash
+              forall a b. (a -> b) -> a -> b
+$ forall {h} {a}. Key -> Hash h a -> KeyMap Value -> KeyMap Value
+setHash Key
+"AlonzoGenesisHash" Hash Blake2b_256 ByteString
+alonzoGenesisHash
+              forall a b. (a -> b) -> a -> b
+$ forall {h} {a}. Key -> Hash h a -> KeyMap Value -> KeyMap Value
+setHash Key
+"ConwayGenesisHash" Hash Blake2b_256 ByteString
+conwayGenesisHash
+              KeyMap Value
+obj
+          updateConfig Value
+x = Value
+x
+          newConfig :: Yaml.Value
+          newConfig :: Value
+newConfig = Value -> Value
+updateConfig Value
+nodeConfig
+        forall a. ToJSON a => String -> a -> IO ()
+encodeFile (String
+rootdir String -> String -> String
+</> String
+"node-config.json") Value
+newConfig
+
+  where
+    convertToShelleyError :: ExceptT ByronGenesisError IO a -> ExceptT GenesisCmdError IO a
+convertToShelleyError = forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+withExceptT ByronGenesisError -> GenesisCmdError
+GenesisCmdByronError
+    convertGenesisKey :: Byron.SigningKey -> SigningKey GenesisExtendedKey
+    convertGenesisKey :: SigningKey -> SigningKey GenesisExtendedKey
+convertGenesisKey (Byron.SigningKey XPrv
+xsk) = XPrv -> SigningKey GenesisExtendedKey
+GenesisExtendedSigningKey XPrv
+xsk
+
+    convertDelegate :: Byron.SigningKey -> SigningKey GenesisDelegateExtendedKey
+    convertDelegate :: SigningKey -> SigningKey GenesisDelegateExtendedKey
+convertDelegate (Byron.SigningKey XPrv
+xsk) = XPrv -> SigningKey GenesisDelegateExtendedKey
+GenesisDelegateExtendedSigningKey XPrv
+xsk
+
+    convertPoor :: Byron.SigningKey -> SigningKey ByronKey
+    convertPoor :: SigningKey -> SigningKey ByronKey
+convertPoor = SigningKey -> SigningKey ByronKey
+ByronSigningKey
+
+    byronParams :: SystemStart -> GenesisParameters
+byronParams SystemStart
+start = UTCTime
+-> String
+-> BlockCount
+-> ProtocolMagic
+-> TestnetBalanceOptions
+-> FakeAvvmOptions
+-> LovelacePortion
+-> Maybe Integer
+-> GenesisParameters
+Byron.GenesisParameters (SystemStart -> UTCTime
+getSystemStart SystemStart
+start) String
+byronGenesisTemplate BlockCount
+security ProtocolMagic
+byronNetwork TestnetBalanceOptions
+byronBalance FakeAvvmOptions
+byronFakeAvvm LovelacePortion
+byronAvvmFactor forall a. Maybe a
+Nothing
+    byronNetwork :: ProtocolMagic
+byronNetwork = forall a.
+Annotated ProtocolMagicId a
+-> RequiresNetworkMagic -> AProtocolMagic a
+CC.AProtocolMagic
+                      (forall b a. b -> a -> Annotated b a
+Annotated (NetworkId -> ProtocolMagicId
+toByronProtocolMagicId NetworkId
+network) ())
+                      (NetworkId -> RequiresNetworkMagic
+toByronRequiresNetworkMagic NetworkId
+network)
+    byronBalance :: TestnetBalanceOptions
+byronBalance = TestnetBalanceOptions
+        { tboRichmen :: Word
+tboRichmen = Word
+numGenesisKeys
+        , tboPoors :: Word
+tboPoors = Word
+numUTxOKeys
+        , tboTotalBalance :: Lovelace
+tboTotalBalance = forall a. a -> Maybe a -> a
+fromMaybe Lovelace
+zeroLovelace forall a b. (a -> b) -> a -> b
+$ Lovelace -> Maybe Lovelace
+toByronLovelace (forall a. a -> Maybe a -> a
+fromMaybe Lovelace
+0 Maybe Lovelace
+mSupply)
+        , tboRichmenShare :: Rational
+tboRichmenShare = Rational
+0
+        }
+    byronFakeAvvm :: FakeAvvmOptions
+byronFakeAvvm = FakeAvvmOptions
+        { faoCount :: Word
+faoCount = Word
+0
+        , faoOneBalance :: Lovelace
+faoOneBalance = Lovelace
+zeroLovelace
+        }
+    byronAvvmFactor :: LovelacePortion
+byronAvvmFactor = Rational -> LovelacePortion
+Byron.rationalToLovelacePortion Rational
+0.0
+    zeroLovelace :: Lovelace
+zeroLovelace = forall (n :: Natural).
+(KnownNat n, n <= 45000000000000000) =>
+Lovelace
+Byron.mkKnownLovelace @0
+
+    -- Compare a given 'SigningKey' with a 'Certificate' 'VerificationKey'
+    isCertForSK :: CC.SigningKey -> Dlg.Certificate -> Bool
+    isCertForSK :: SigningKey -> Certificate -> Bool
+isCertForSK SigningKey
+sk Certificate
+cert = forall a. ACertificate a -> VerificationKey
+delegateVK Certificate
+cert forall a. Eq a => a -> a -> Bool
+== SigningKey -> VerificationKey
+CC.toVerification SigningKey
+sk
+
+    findDelegateCert :: Genesis.GenesisData -> SigningKey ByronKey -> ExceptT ByronGenesisError IO Dlg.Certificate
+    findDelegateCert :: GenesisData
+-> SigningKey ByronKey -> ExceptT ByronGenesisError IO Certificate
+findDelegateCert GenesisData
+byronGenesis bSkey :: SigningKey ByronKey
+bSkey@(ByronSigningKey SigningKey
+sk) = do
+      case forall (t :: * -> *) a. Foldable t => (a -> Bool) -> t a -> Maybe a
+List.find (SigningKey -> Certificate -> Bool
+isCertForSK SigningKey
+sk) (forall k a. Map k a -> [a]
+Map.elems forall a b. (a -> b) -> a -> b
+$ GenesisData -> Map KeyHash Certificate
+dlgCertMap GenesisData
+byronGenesis) of
+        Maybe Certificate
+Nothing -> forall (m :: * -> *) e a. Monad m => e -> ExceptT e m a
+throwE forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> ByronGenesisError
+NoGenesisDelegationForKey
+                   forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKey ByronKey -> Text
+Byron.prettyPublicKey forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey ByronKey
+bSkey
+        Just Certificate
+x  -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure Certificate
+x
+
+    dlgCertMap :: Genesis.GenesisData -> Map Byron.KeyHash Dlg.Certificate
+    dlgCertMap :: GenesisData -> Map KeyHash Certificate
+dlgCertMap GenesisData
+byronGenesis = GenesisDelegation -> Map KeyHash Certificate
+Genesis.unGenesisDelegation forall a b. (a -> b) -> a -> b
+$ GenesisData -> GenesisDelegation
+Genesis.gdHeavyDelegation GenesisData
+byronGenesis
+
+runGenesisCreateStakedCmd
+  :: GenesisCreateStakedCmdArgs
+  -> ExceptT GenesisCmdError IO ()
+runGenesisCreateStakedCmd :: GenesisCreateStakedCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateStakedCmd
+    Cmd.GenesisCreateStakedCmdArgs
+    { KeyOutputFormat
+$sel:keyOutputFormat:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> KeyOutputFormat
+keyOutputFormat :: KeyOutputFormat
+Cmd.keyOutputFormat
+    , GenesisDir
+$sel:genesisDir:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> GenesisDir
+genesisDir :: GenesisDir
+Cmd.genesisDir
+    , Word
+$sel:numGenesisKeys:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numGenesisKeys :: Word
+Cmd.numGenesisKeys
+    , Word
+$sel:numUTxOKeys:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numUTxOKeys :: Word
+Cmd.numUTxOKeys
+    , Word
+$sel:numPools:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numPools :: Word
+Cmd.numPools
+    , Word
+$sel:numStakeDelegators:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numStakeDelegators :: Word
+Cmd.numStakeDelegators
+    , Maybe SystemStart
+$sel:mSystemStart:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Maybe SystemStart
+mSystemStart :: Maybe SystemStart
+Cmd.mSystemStart
+    , Maybe Lovelace
+$sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Maybe Lovelace
+mNonDelegatedSupply :: Maybe Lovelace
+Cmd.mNonDelegatedSupply
+    , Lovelace
+$sel:delegatedSupply:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Lovelace
+delegatedSupply :: Lovelace
+Cmd.delegatedSupply
+    , NetworkId
+$sel:network:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> NetworkId
+network :: NetworkId
+Cmd.network
+    , Word
+$sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numBulkPoolCredFiles :: Word
+Cmd.numBulkPoolCredFiles
+    , Word
+$sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numBulkPoolsPerFile :: Word
+Cmd.numBulkPoolsPerFile
+    , Word
+$sel:numStuffedUtxo:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Word
+numStuffedUtxo :: Word
+Cmd.numStuffedUtxo
+    , Maybe String
+$sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgs :: GenesisCreateStakedCmdArgs -> Maybe String
+mStakePoolRelaySpecFile :: Maybe String
+Cmd.mStakePoolRelaySpecFile
+    } = do
+  let GenesisDir String
+rootdir = GenesisDir
+genesisDir
+      gendir :: String
+gendir   = String
+rootdir String -> String -> String
+</> String
+"genesis-keys"
+      deldir :: String
+deldir   = String
+rootdir String -> String -> String
+</> String
+"delegate-keys"
+      pooldir :: String
+pooldir  = String
+rootdir String -> String -> String
+</> String
+"pools"
+      stdeldir :: String
+stdeldir = String
+rootdir String -> String -> String
+</> String
+"stake-delegator-keys"
+      utxodir :: String
+utxodir  = String
+rootdir String -> String -> String
+</> String
+"utxo-keys"
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+rootdir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+gendir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+deldir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+pooldir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+stdeldir
+    Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+utxodir
+
+  ShelleyGenesis StandardCrypto
+template <- String
+-> (ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto)
+-> ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+readShelleyGenesisWithDefault (String
+rootdir String -> String -> String
+</> String
+"genesis.spec.json") ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustTemplate
+  AlonzoGenesis
+alonzoGenesis <- String -> ExceptT GenesisCmdError IO AlonzoGenesis
+readAlonzoGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.alonzo.spec.json")
+  ConwayGenesis StandardCrypto
+conwayGenesis <- String -> ExceptT GenesisCmdError IO (ConwayGenesis StandardCrypto)
+readConwayGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.conway.spec.json")
+
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [ Word
+1 .. Word
+numGenesisKeys ] forall a b. (a -> b) -> a -> b
+$ \Word
+index -> do
+    String -> Word -> ExceptT GenesisCmdError IO ()
+createGenesisKeys String
+gendir Word
+index
+    KeyOutputFormat -> String -> Word -> ExceptT GenesisCmdError IO ()
+createDelegateKeys KeyOutputFormat
+keyOutputFormat String
+deldir Word
+index
+
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [ Word
+1 .. Word
+numUTxOKeys ] forall a b. (a -> b) -> a -> b
+$ \Word
+index ->
+    String -> Word -> ExceptT GenesisCmdError IO ()
+createUtxoKeys String
+utxodir Word
+index
+
+  Maybe (Map Word [StakePoolRelay])
+mayStakePoolRelays
+    <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe String
+mStakePoolRelaySpecFile forall a b. (a -> b) -> a -> b
+$
+       \String
+fp -> do
+         ByteString
+relaySpecJsonBs <-
+           forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (String -> IOException -> GenesisCmdError
+GenesisCmdStakePoolRelayFileError String
+fp) (String -> IO ByteString
+LBS.readFile String
+fp)
+         forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> String -> GenesisCmdError
+GenesisCmdStakePoolRelayJsonDecodeError String
+fp)
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode ByteString
+relaySpecJsonBs
+
+  [PoolParams StandardCrypto]
+poolParams <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [ Word
+1 .. Word
+numPools ] forall a b. (a -> b) -> a -> b
+$ \Word
+index -> do
+    KeyOutputFormat -> String -> Word -> ExceptT GenesisCmdError IO ()
+createPoolCredentials KeyOutputFormat
+keyOutputFormat String
+pooldir Word
+index
+    NetworkId
+-> String
+-> Word
+-> Map Word [StakePoolRelay]
+-> ExceptT GenesisCmdError IO (PoolParams StandardCrypto)
+buildPoolParams NetworkId
+network String
+pooldir Word
+index (forall a. a -> Maybe a -> a
+fromMaybe forall a. Monoid a => a
+mempty Maybe (Map Word [StakePoolRelay])
+mayStakePoolRelays)
+
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (Word
+numBulkPoolCredFiles forall a. Num a => a -> a -> a
+* Word
+numBulkPoolsPerFile forall a. Ord a => a -> a -> Bool
+> Word
+numPools) forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) e a. Monad m => e -> ExceptT e m a
+left forall a b. (a -> b) -> a -> b
+$ Word -> Word -> Word -> GenesisCmdError
+GenesisCmdTooFewPoolsForBulkCreds Word
+numPools Word
+numBulkPoolCredFiles Word
+numBulkPoolsPerFile
+  -- We generate the bulk files for the last pool indices,
+  -- so that all the non-bulk pools have stable indices at beginning:
+  let bulkOffset :: Word
+bulkOffset  = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ Word
+numPools forall a. Num a => a -> a -> a
+- Word
+numBulkPoolCredFiles forall a. Num a => a -> a -> a
+* Word
+numBulkPoolsPerFile
+      [Word]
+bulkIndices :: [Word]   = [ Word
+1 forall a. Num a => a -> a -> a
++ Word
+bulkOffset .. Word
+numPools ]
+      [[Word]]
+bulkSlices  :: [[Word]] = forall e. Int -> [e] -> [[e]]
+List.chunksOf (forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+numBulkPoolsPerFile) [Word]
+bulkIndices
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ (forall a b. [a] -> [b] -> [(a, b)]
+zip [ Word
+1 .. Word
+numBulkPoolCredFiles ] [[Word]]
+bulkSlices) forall a b. (a -> b) -> a -> b
+$
+    forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry (String -> Word -> [Word] -> ExceptT GenesisCmdError IO ()
+writeBulkPoolCredentials String
+pooldir)
+
+  let (Word
+delegsPerPool, Word
+delegsRemaining) = forall a. Integral a => a -> a -> (a, a)
+divMod Word
+numStakeDelegators Word
+numPools
+      delegsForPool :: Word -> Word
+delegsForPool Word
+poolIx = if Word
+delegsRemaining forall a. Eq a => a -> a -> Bool
+/= Word
+0 Bool -> Bool -> Bool
+&& Word
+poolIx forall a. Eq a => a -> a -> Bool
+== Word
+numPools
+        then Word
+delegsPerPool
+        else Word
+delegsPerPool forall a. Num a => a -> a -> a
++ Word
+delegsRemaining
+      distribution :: [PoolParams StandardCrypto]
+distribution = [PoolParams StandardCrypto
+pool | (PoolParams StandardCrypto
+pool, Word
+poolIx) <- forall a b. [a] -> [b] -> [(a, b)]
+zip [PoolParams StandardCrypto]
+poolParams [Word
+1 ..], Word
+_ <- [Word
+1 .. Word -> Word
+delegsForPool Word
+poolIx]]
+
+  StdGen
+g <- forall (m :: * -> *). MonadIO m => m StdGen
+Random.getStdGen
+
+  -- Distribute M delegates across N pools:
+  [Delegation]
+delegations <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) s a b.
+MonadUnliftIO m =>
+s -> [a] -> (s -> a -> m (s, b)) -> m [b]
+Lazy.forStateM StdGen
+g [PoolParams StandardCrypto]
+distribution forall a b. (a -> b) -> a -> b
+$ forall a b c. (a -> b -> c) -> b -> a -> c
+flip StdGen
+-> NetworkId
+-> PoolParams StandardCrypto
+-> IO (StdGen, Delegation)
+computeInsecureDelegation NetworkId
+network
+
+  let numDelegations :: Int
+numDelegations = forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Delegation]
+delegations
+
+  Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDlgs <- String
+-> String
+-> ExceptT
+     GenesisCmdError
+     IO
+     (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey))
+readGenDelegsMap String
+gendir String
+deldir
+  [AddressInEra ShelleyEra]
+nonDelegAddrs <- String
+-> NetworkId
+-> ExceptT GenesisCmdError IO [AddressInEra ShelleyEra]
+readInitialFundAddresses String
+utxodir NetworkId
+network
+  SystemStart
+start <- forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (UTCTime -> SystemStart
+SystemStart forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ExceptT a IO UTCTime
+getCurrentTimePlus30) forall (f :: * -> *) a. Applicative f => a -> f a
+pure Maybe SystemStart
+mSystemStart
+
+  [AddressInEra ShelleyEra]
+stuffedUtxoAddrs <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadUnliftIO m => Int -> m a -> m [a]
+Lazy.replicateM (forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+numStuffedUtxo) IO (AddressInEra ShelleyEra)
+genStuffedAddress
+
+  let stake :: [(KeyHash 'Staking StandardCrypto,
+  KeyHash 'StakePool StandardCrypto)]
+stake = forall (p :: * -> * -> *) b c a.
+Bifunctor p =>
+(b -> c) -> p a b -> p a c
+second forall c. PoolParams c -> KeyHash 'StakePool c
+Ledger.ppId forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Delegation
+-> (KeyHash 'Staking StandardCrypto, PoolParams StandardCrypto)
+mkDelegationMapEntry forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Delegation]
+delegations
+      stakePools :: [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+stakePools = [ (forall c. PoolParams c -> KeyHash 'StakePool c
+Ledger.ppId PoolParams StandardCrypto
+poolParams', PoolParams StandardCrypto
+poolParams') | PoolParams StandardCrypto
+poolParams' <- forall a b. (a, b) -> b
+snd forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Delegation
+-> (KeyHash 'Staking StandardCrypto, PoolParams StandardCrypto)
+mkDelegationMapEntry forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Delegation]
+delegations ]
+      delegAddrs :: [AddressInEra ShelleyEra]
+delegAddrs = Delegation -> AddressInEra ShelleyEra
+dInitialUtxoAddr forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [Delegation]
+delegations
+      !shelleyGenesis :: ShelleyGenesis StandardCrypto
+shelleyGenesis =
+        SystemStart
+-> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+-> Maybe Lovelace
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+-> [(KeyHash 'Staking StandardCrypto,
+     KeyHash 'StakePool StandardCrypto)]
+-> Lovelace
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [AddressInEra ShelleyEra]
+-> ShelleyGenesis StandardCrypto
+-> ShelleyGenesis StandardCrypto
+updateCreateStakedOutputTemplate
+          -- Shelley genesis parameters
+          SystemStart
+start Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDlgs Maybe Lovelace
+mNonDelegatedSupply (forall (t :: * -> *) a. Foldable t => t a -> Int
+length [AddressInEra ShelleyEra]
+nonDelegAddrs) [AddressInEra ShelleyEra]
+nonDelegAddrs [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+stakePools [(KeyHash 'Staking StandardCrypto,
+  KeyHash 'StakePool StandardCrypto)]
+stake
+          Lovelace
+delegatedSupply Int
+numDelegations [AddressInEra ShelleyEra]
+delegAddrs [AddressInEra ShelleyEra]
+stuffedUtxoAddrs ShelleyGenesis StandardCrypto
+template
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile (String
+rootdir String -> String -> String
+</> String
+"genesis.json") forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+Aeson.encode ShelleyGenesis StandardCrypto
+shelleyGenesis
+
+  forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.alonzo.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty AlonzoGenesis
+alonzoGenesis
+  forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis (String
+rootdir String -> String -> String
+</> String
+"genesis.conway.json") forall a b. (a -> b) -> a -> b
+$ forall genesis. ToJSON genesis => genesis -> WriteFileGenesis
+WritePretty ConwayGenesis StandardCrypto
+conwayGenesis
+  --TODO: rationalise the naming convention on these genesis json files.
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> Text -> IO ()
+Text.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat forall a b. (a -> b) -> a -> b
+$
+    [ Text
+"generated genesis with: "
+    , forall a. Show a => a -> Text
+textShow Word
+numGenesisKeys, Text
+" genesis keys, "
+    , forall a. Show a => a -> Text
+textShow Word
+numUTxOKeys, Text
+" non-delegating UTxO keys, "
+    , forall a. Show a => a -> Text
+textShow Word
+numPools, Text
+" stake pools, "
+    , forall a. Show a => a -> Text
+textShow Word
+numStakeDelegators, Text
+" delegating UTxO keys, "
+    , forall a. Show a => a -> Text
+textShow Int
+numDelegations, Text
+" delegation map entries, "
+    ] forall a. [a] -> [a] -> [a]
+++
+    [ forall a. Monoid a => [a] -> a
+mconcat
+      [ Text
+", "
+      , forall a. Show a => a -> Text
+textShow Word
+numBulkPoolCredFiles, Text
+" bulk pool credential files, "
+      , forall a. Show a => a -> Text
+textShow Word
+numBulkPoolsPerFile, Text
+" pools per bulk credential file, indices starting from "
+      , forall a. Show a => a -> Text
+textShow Word
+bulkOffset, Text
+", "
+      , forall a. Show a => a -> Text
+textShow forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Word]
+bulkIndices, Text
+" total pools in bulk nodes, each bulk node having this many entries: "
+      , forall a. Show a => a -> Text
+textShow forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) a. Foldable t => t a -> Int
+length forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [[Word]]
+bulkSlices
+      ]
+    | Word
+numBulkPoolCredFiles forall a. Num a => a -> a -> a
+* Word
+numBulkPoolsPerFile forall a. Ord a => a -> a -> Bool
+> Word
+0 ]
+
+  where
+    adjustTemplate :: ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustTemplate ShelleyGenesis StandardCrypto
+t = ShelleyGenesis StandardCrypto
+t { sgNetworkMagic :: Word32
+sgNetworkMagic = NetworkMagic -> Word32
+unNetworkMagic (NetworkId -> NetworkMagic
+toNetworkMagic NetworkId
+network) }
+    mkDelegationMapEntry :: Delegation -> (Ledger.KeyHash Ledger.Staking StandardCrypto, Ledger.PoolParams StandardCrypto)
+    mkDelegationMapEntry :: Delegation
+-> (KeyHash 'Staking StandardCrypto, PoolParams StandardCrypto)
+mkDelegationMapEntry Delegation
+d = (Delegation -> KeyHash 'Staking StandardCrypto
+dDelegStaking Delegation
+d, Delegation -> PoolParams StandardCrypto
+dPoolParams Delegation
+d)
+
+    genStuffedAddress :: IO (AddressInEra ShelleyEra)
+    genStuffedAddress :: IO (AddressInEra ShelleyEra)
+genStuffedAddress =
+      forall era.
+ShelleyBasedEra era -> Address ShelleyAddr -> AddressInEra era
+shelleyAddressInEra ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+      (Network
+-> PaymentCredential StandardCrypto
+-> StakeReference StandardCrypto
+-> Address ShelleyAddr
+ShelleyAddress
+       forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Applicative f => a -> f a
+pure Network
+Ledger.Testnet
+       forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall c (discriminator :: KeyRole).
+Crypto c =>
+Int -> KeyHash discriminator c
+mkKeyHash forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> Int
+read64BitInt
+             forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. SecureRandom a -> IO a
+Crypto.runSecureRandom (forall (m :: * -> *) byteArray.
+(MonadRandom m, ByteArray byteArray) =>
+Int -> m byteArray
+getRandomBytes Int
+8))
+       forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall c. StakeReference c
+Ledger.StakeRefNull)
+
+    read64BitInt :: ByteString -> Int
+    read64BitInt :: ByteString -> Int
+read64BitInt = (forall a b. (Integral a, Num b) => a -> b
+fromIntegral :: Word64 -> Int)
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Get a -> ByteString -> a
+Bin.runGet Get Word64
+Bin.getWord64le forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> ByteString
+LBS.fromStrict
+
+    mkDummyHash :: forall h a. HashAlgorithm h => Proxy h -> Int -> Hash.Hash h a
+    mkDummyHash :: forall h a. HashAlgorithm h => Proxy h -> Int -> Hash h a
+mkDummyHash Proxy h
+_ = coerce :: forall a b. Coercible a b => a -> b
+coerce forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall h a. HashAlgorithm h => (a -> Encoding) -> a -> Hash h a
+Ledger.hashWithSerialiser @h forall a. ToCBOR a => a -> Encoding
+toCBOR
+
+    mkKeyHash :: forall c discriminator. Crypto c => Int -> Ledger.KeyHash discriminator c
+    mkKeyHash :: forall c (discriminator :: KeyRole).
+Crypto c =>
+Int -> KeyHash discriminator c
+mkKeyHash = forall (discriminator :: KeyRole) c.
+Hash (ADDRHASH c) (VerKeyDSIGN (DSIGN c))
+-> KeyHash discriminator c
+Ledger.KeyHash forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall h a. HashAlgorithm h => Proxy h -> Int -> Hash h a
+mkDummyHash (forall {k} (t :: k). Proxy t
+Proxy @(ADDRHASH c))
+
+-- -------------------------------------------------------------------------------------------------
+
+createDelegateKeys :: KeyOutputFormat -> FilePath -> Word -> ExceptT GenesisCmdError IO ()
+createDelegateKeys :: KeyOutputFormat -> String -> Word -> ExceptT GenesisCmdError IO ()
+createDelegateKeys KeyOutputFormat
+fmt String
+dir Word
+index = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+dir
+  GenesisKeyGenDelegateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateCmd
+    Cmd.GenesisKeyGenDelegateCmdArgs
+    { $sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgs :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath = forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+    , $sel:signingKeyPath:GenesisKeyGenDelegateCmdArgs :: SigningKeyFile 'Out
+Cmd.signingKeyPath = forall content. File content 'InOut -> File content 'Out
+onlyOut File (SigningKey ()) 'InOut
+coldSK
+    , $sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgs :: OpCertCounterFile 'Out
+Cmd.opCertCounterPath = forall content. File content 'InOut -> File content 'Out
+onlyOut File OpCertCounter 'InOut
+opCertCtr
+    }
+  VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateVRF
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vrf.vkey")
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vrf.skey")
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT NodeCmdError -> GenesisCmdError
+GenesisCmdNodeCmdError forall a b. (a -> b) -> a -> b
+$ do
+    NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenKESCmdArgs
+Cmd.NodeKeyGenKESCmdArgs
+        KeyOutputFormat
+fmt
+        (forall content. File content 'InOut -> File content 'Out
+onlyOut File (VerificationKey ()) 'InOut
+kesVK)
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".kes.skey")
+    NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd forall a b. (a -> b) -> a -> b
+$ VerificationKeyOrFile KesKey
+-> SigningKeyFile 'In
+-> File OpCertCounter 'InOut
+-> KESPeriod
+-> File () 'Out
+-> NodeIssueOpCertCmdArgs
+Cmd.NodeIssueOpCertCmdArgs
+        (forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath (forall content. File content 'InOut -> File content 'In
+onlyIn File (VerificationKey ()) 'InOut
+kesVK))
+        (forall content. File content 'InOut -> File content 'In
+onlyIn File (SigningKey ()) 'InOut
+coldSK)
+        File OpCertCounter 'InOut
+opCertCtr
+        (Word -> KESPeriod
+KESPeriod Word
+0)
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"opcert" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".cert")
+ where
+   strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+index
+   kesVK :: File (VerificationKey ()) 'InOut
+kesVK = forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".kes.vkey"
+   coldSK :: File (SigningKey ()) 'InOut
+coldSK = forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+   opCertCtr :: File OpCertCounter 'InOut
+opCertCtr = forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"delegate" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".counter"
+
+createGenesisKeys :: FilePath -> Word -> ExceptT GenesisCmdError IO ()
+createGenesisKeys :: String -> Word -> ExceptT GenesisCmdError IO ()
+createGenesisKeys String
+dir Word
+index = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+dir
+  let strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+index
+  GenesisKeyGenGenesisCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenGenesisCmd
+    GenesisKeyGenGenesisCmdArgs
+    { $sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgs :: VerificationKeyFile 'Out
+verificationKeyPath = forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"genesis" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+    , $sel:signingKeyPath:GenesisKeyGenGenesisCmdArgs :: SigningKeyFile 'Out
+signingKeyPath = forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"genesis" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+    }
+
+createUtxoKeys :: FilePath -> Word -> ExceptT GenesisCmdError IO ()
+createUtxoKeys :: String -> Word -> ExceptT GenesisCmdError IO ()
+createUtxoKeys String
+dir Word
+index = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+dir
+  let strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+index
+  GenesisKeyGenUTxOCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenUTxOCmd
+    Cmd.GenesisKeyGenUTxOCmdArgs
+    { $sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgs :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath = forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"utxo" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+    , $sel:signingKeyPath:GenesisKeyGenUTxOCmdArgs :: SigningKeyFile 'Out
+Cmd.signingKeyPath = forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"utxo" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+    }
+
+createPoolCredentials :: KeyOutputFormat -> FilePath -> Word -> ExceptT GenesisCmdError IO ()
+createPoolCredentials :: KeyOutputFormat -> String -> Word -> ExceptT GenesisCmdError IO ()
+createPoolCredentials KeyOutputFormat
+fmt String
+dir Word
+index = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Bool -> String -> IO ()
+createDirectoryIfMissing Bool
+False String
+dir
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT NodeCmdError -> GenesisCmdError
+GenesisCmdNodeCmdError forall a b. (a -> b) -> a -> b
+$ do
+    NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenKESCmdArgs
+Cmd.NodeKeyGenKESCmdArgs
+        KeyOutputFormat
+fmt
+        (forall content. File content 'InOut -> File content 'Out
+onlyOut File (VerificationKey ()) 'InOut
+kesVK)
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"kes" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey")
+    NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenVrfCmd forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenVRFCmdArgs
+Cmd.NodeKeyGenVRFCmdArgs
+        KeyOutputFormat
+fmt
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"vrf" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey")
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"vrf" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey")
+    NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenColdCmd forall a b. (a -> b) -> a -> b
+$ KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> NodeKeyGenColdCmdArgs
+Cmd.NodeKeyGenColdCmdArgs
+        KeyOutputFormat
+fmt
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"cold" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey")
+        (forall content. File content 'InOut -> File content 'Out
+onlyOut File (SigningKey ()) 'InOut
+coldSK)
+        (forall content. File content 'InOut -> File content 'Out
+onlyOut File OpCertCounter 'InOut
+opCertCtr)
+    NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd forall a b. (a -> b) -> a -> b
+$ VerificationKeyOrFile KesKey
+-> SigningKeyFile 'In
+-> File OpCertCounter 'InOut
+-> KESPeriod
+-> File () 'Out
+-> NodeIssueOpCertCmdArgs
+Cmd.NodeIssueOpCertCmdArgs
+        (forall keyrole.
+VerificationKeyFile 'In -> VerificationKeyOrFile keyrole
+VerificationKeyFilePath (forall content. File content 'InOut -> File content 'In
+onlyIn File (VerificationKey ()) 'InOut
+kesVK))
+        (forall content. File content 'InOut -> File content 'In
+onlyIn File (SigningKey ()) 'InOut
+coldSK)
+        File OpCertCounter 'InOut
+opCertCtr
+        (Word -> KESPeriod
+KESPeriod Word
+0)
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"opcert" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".cert")
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeAddressCmdError -> GenesisCmdError
+GenesisCmdStakeAddressCmdError forall a b. (a -> b) -> a -> b
+$
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyGenCmd
+        KeyOutputFormat
+fmt
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"staking-reward" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey")
+        (forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"staking-reward" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey")
+ where
+   strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+index
+   kesVK :: File (VerificationKey ()) 'InOut
+kesVK = forall content (direction :: FileDirection).
+String -> File content direction
+File @(VerificationKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"kes" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+   coldSK :: File (SigningKey ()) 'InOut
+coldSK = forall content (direction :: FileDirection).
+String -> File content direction
+File @(SigningKey ()) forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"cold" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+   opCertCtr :: File OpCertCounter 'InOut
+opCertCtr = forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"opcert" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".counter"
+
+data Delegation = Delegation
+  { Delegation -> AddressInEra ShelleyEra
+dInitialUtxoAddr  :: !(AddressInEra ShelleyEra)
+  , Delegation -> KeyHash 'Staking StandardCrypto
+dDelegStaking     :: !(Ledger.KeyHash Ledger.Staking StandardCrypto)
+  , Delegation -> PoolParams StandardCrypto
+dPoolParams       :: !(Ledger.PoolParams StandardCrypto)
+  }
+  deriving (forall x. Rep Delegation x -> Delegation
+forall x. Delegation -> Rep Delegation x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep Delegation x -> Delegation
+$cfrom :: forall x. Delegation -> Rep Delegation x
+Generic, Delegation -> ()
+forall a. (a -> ()) -> NFData a
+rnf :: Delegation -> ()
+$crnf :: Delegation -> ()
+NFData)
+
+buildPoolParams
+  :: NetworkId
+  -> FilePath -- ^ File directory where the necessary pool credentials were created
+  -> Word
+  -> Map Word [Ledger.StakePoolRelay] -- ^ User submitted stake pool relay map
+  -> ExceptT GenesisCmdError IO (Ledger.PoolParams StandardCrypto)
+buildPoolParams :: NetworkId
+-> String
+-> Word
+-> Map Word [StakePoolRelay]
+-> ExceptT GenesisCmdError IO (PoolParams StandardCrypto)
+buildPoolParams NetworkId
+nw String
+dir Word
+index Map Word [StakePoolRelay]
+specifiedRelays = do
+    StakePoolVerificationKey VKey 'StakePool StandardCrypto
+poolColdVK
+      <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (StakePoolCmdError -> GenesisCmdError
+GenesisCmdStakePoolCmdError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError TextEnvelopeError -> StakePoolCmdError
+StakePoolCmdReadFileError)
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType StakePoolKey
+AsStakePoolKey) File Any 'In
+poolColdVKF
+
+    VrfVerificationKey VerKeyVRF StandardCrypto
+poolVrfVK
+      <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (NodeCmdError -> GenesisCmdError
+GenesisCmdNodeCmdError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError TextEnvelopeError -> NodeCmdError
+NodeCmdReadFileError)
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType VrfKey
+AsVrfKey) File Any 'In
+poolVrfVKF
+    VerificationKey StakeKey
+rewardsSVK
+      <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType StakeKey
+AsStakeKey) File Any 'In
+poolRewardVKF
+
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure Ledger.PoolParams
+      { ppId :: KeyHash 'StakePool StandardCrypto
+Ledger.ppId          = forall c (kd :: KeyRole). Crypto c => VKey kd c -> KeyHash kd c
+Ledger.hashKey VKey 'StakePool StandardCrypto
+poolColdVK
+      , ppVrf :: Hash StandardCrypto (VerKeyVRF StandardCrypto)
+Ledger.ppVrf         = forall v h.
+(VRFAlgorithm v, HashAlgorithm h) =>
+VerKeyVRF v -> Hash h (VerKeyVRF v)
+Ledger.hashVerKeyVRF VerKeyVRF StandardCrypto
+poolVrfVK
+      , ppPledge :: Coin
+Ledger.ppPledge      = Integer -> Coin
+Ledger.Coin Integer
+0
+      , ppCost :: Coin
+Ledger.ppCost        = Integer -> Coin
+Ledger.Coin Integer
+0
+      , ppMargin :: UnitInterval
+Ledger.ppMargin      = forall a. Bounded a => a
+minBound
+      , ppRewardAcnt :: RewardAcnt StandardCrypto
+Ledger.ppRewardAcnt  =
+          StakeAddress -> RewardAcnt StandardCrypto
+toShelleyStakeAddr forall a b. (a -> b) -> a -> b
+$ NetworkId -> StakeCredential -> StakeAddress
+makeStakeAddress NetworkId
+nw forall a b. (a -> b) -> a -> b
+$ Hash StakeKey -> StakeCredential
+StakeCredentialByKey (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakeKey
+rewardsSVK)
+      , ppOwners :: Set (KeyHash 'Staking StandardCrypto)
+Ledger.ppOwners      = forall a. Monoid a => a
+mempty
+      , ppRelays :: StrictSeq StakePoolRelay
+Ledger.ppRelays      = Map Word [StakePoolRelay] -> StrictSeq StakePoolRelay
+lookupPoolRelay Map Word [StakePoolRelay]
+specifiedRelays
+      , ppMetadata :: StrictMaybe PoolMetadata
+Ledger.ppMetadata    = forall a. StrictMaybe a
+Ledger.SNothing
+      }
+ where
+   lookupPoolRelay
+     :: Map Word [Ledger.StakePoolRelay] -> Seq.StrictSeq Ledger.StakePoolRelay
+   lookupPoolRelay :: Map Word [StakePoolRelay] -> StrictSeq StakePoolRelay
+lookupPoolRelay Map Word [StakePoolRelay]
+m = forall b a. b -> (a -> b) -> Maybe a -> b
+maybe forall a. Monoid a => a
+mempty forall a. [a] -> StrictSeq a
+Seq.fromList (forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup Word
+index Map Word [StakePoolRelay]
+m)
+
+   strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+index
+   poolColdVKF :: File Any 'In
+poolColdVKF = forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"cold" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+   poolVrfVKF :: File Any 'In
+poolVrfVKF = forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"vrf" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+   poolRewardVKF :: File Any 'In
+poolRewardVKF = forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ String
+dir String -> String -> String
+</> String
+"staking-reward" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".vkey"
+
+writeBulkPoolCredentials :: FilePath -> Word -> [Word] -> ExceptT GenesisCmdError IO ()
+writeBulkPoolCredentials :: String -> Word -> [Word] -> ExceptT GenesisCmdError IO ()
+writeBulkPoolCredentials String
+dir Word
+bulkIx [Word]
+poolIxs = do
+  [(TextEnvelope, TextEnvelope, TextEnvelope)]
+creds <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM Word
+-> ExceptT
+     GenesisCmdError IO (TextEnvelope, TextEnvelope, TextEnvelope)
+readPoolCreds [Word]
+poolIxs
+  forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+bulkFile) forall a b. (a -> b) -> a -> b
+$
+    String -> ByteString -> IO ()
+LBS.writeFile String
+bulkFile forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+Aeson.encode [(TextEnvelope, TextEnvelope, TextEnvelope)]
+creds
+ where
+   bulkFile :: String
+bulkFile = String
+dir String -> String -> String
+</> String
+"bulk" forall a. [a] -> [a] -> [a]
+++ forall a. Show a => a -> String
+show Word
+bulkIx forall a. [a] -> [a] -> [a]
+++ String
+".creds"
+
+   readPoolCreds :: Word -> ExceptT GenesisCmdError IO
+                                   (TextEnvelope, TextEnvelope, TextEnvelope)
+   readPoolCreds :: Word
+-> ExceptT
+     GenesisCmdError IO (TextEnvelope, TextEnvelope, TextEnvelope)
+readPoolCreds Word
+ix = do
+     (,,) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> ExceptT GenesisCmdError IO TextEnvelope
+readEnvelope String
+poolOpCert
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> String -> ExceptT GenesisCmdError IO TextEnvelope
+readEnvelope String
+poolVrfSKF
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> String -> ExceptT GenesisCmdError IO TextEnvelope
+readEnvelope String
+poolKesSKF
+    where
+      strIndex :: String
+strIndex = forall a. Show a => a -> String
+show Word
+ix
+      poolOpCert :: String
+poolOpCert = String
+dir String -> String -> String
+</> String
+"opcert" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".cert"
+      poolVrfSKF :: String
+poolVrfSKF = String
+dir String -> String -> String
+</> String
+"vrf" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+      poolKesSKF :: String
+poolKesSKF = String
+dir String -> String -> String
+</> String
+"kes" forall a. [a] -> [a] -> [a]
+++ String
+strIndex forall a. [a] -> [a] -> [a]
+++ String
+".skey"
+   readEnvelope :: FilePath -> ExceptT GenesisCmdError IO TextEnvelope
+   readEnvelope :: String -> ExceptT GenesisCmdError IO TextEnvelope
+readEnvelope String
+fp = do
+     ByteString
+content <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fp) forall a b. (a -> b) -> a -> b
+$
+                  String -> IO ByteString
+BS.readFile String
+fp
+     forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> Text -> GenesisCmdError
+GenesisCmdAesonDecodeError String
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$
+       forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecodeStrict' ByteString
+content
+
+-- | This function should only be used for testing purposes.
+-- Keys returned by this function are not cryptographically secure.
+computeInsecureDelegation
+  :: StdGen
+  -> NetworkId
+  -> Ledger.PoolParams StandardCrypto
+  -> IO (StdGen, Delegation)
+computeInsecureDelegation :: StdGen
+-> NetworkId
+-> PoolParams StandardCrypto
+-> IO (StdGen, Delegation)
+computeInsecureDelegation StdGen
+g0 NetworkId
+nw PoolParams StandardCrypto
+pool = do
+    (VerificationKey PaymentKey
+paymentVK, StdGen
+g1) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole.
+(Key keyrole, SerialiseAsRawBytes (SigningKey keyrole)) =>
+StdGen -> AsType keyrole -> IO (SigningKey keyrole, StdGen)
+generateInsecureSigningKey StdGen
+g0 AsType PaymentKey
+AsPaymentKey
+    (VerificationKey StakeKey
+stakeVK  , StdGen
+g2) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole.
+(Key keyrole, SerialiseAsRawBytes (SigningKey keyrole)) =>
+StdGen -> AsType keyrole -> IO (SigningKey keyrole, StdGen)
+generateInsecureSigningKey StdGen
+g1 AsType StakeKey
+AsStakeKey
+
+    let stakeAddressReference :: StakeAddressReference
+stakeAddressReference = StakeCredential -> StakeAddressReference
+StakeAddressByValue forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Hash StakeKey -> StakeCredential
+StakeCredentialByKey forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash forall a b. (a -> b) -> a -> b
+$ VerificationKey StakeKey
+stakeVK
+    let initialUtxoAddr :: Address ShelleyAddr
+initialUtxoAddr = NetworkId
+-> PaymentCredential
+-> StakeAddressReference
+-> Address ShelleyAddr
+makeShelleyAddress NetworkId
+nw (Hash PaymentKey -> PaymentCredential
+PaymentCredentialByKey (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey PaymentKey
+paymentVK)) StakeAddressReference
+stakeAddressReference
+
+    Delegation
+delegation <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. NFData a => a -> a
+force Delegation
+      { $sel:dInitialUtxoAddr:Delegation :: AddressInEra ShelleyEra
+dInitialUtxoAddr = forall era.
+ShelleyBasedEra era -> Address ShelleyAddr -> AddressInEra era
+shelleyAddressInEra ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley Address ShelleyAddr
+initialUtxoAddr
+      , $sel:dDelegStaking:Delegation :: KeyHash 'Staking StandardCrypto
+dDelegStaking = forall c (kd :: KeyRole). Crypto c => VKey kd c -> KeyHash kd c
+Ledger.hashKey (VerificationKey StakeKey -> VKey 'Staking StandardCrypto
+unStakeVerificationKey VerificationKey StakeKey
+stakeVK)
+      , $sel:dPoolParams:Delegation :: PoolParams StandardCrypto
+dPoolParams = PoolParams StandardCrypto
+pool
+      }
+
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure (StdGen
+g2, Delegation
+delegation)
+
+-- | Current UTCTime plus 30 seconds
+getCurrentTimePlus30 :: ExceptT a IO UTCTime
+getCurrentTimePlus30 :: forall a. ExceptT a IO UTCTime
+getCurrentTimePlus30 =
+    UTCTime -> UTCTime
+plus30sec forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO IO UTCTime
+getCurrentTime
+  where
+    plus30sec :: UTCTime -> UTCTime
+    plus30sec :: UTCTime -> UTCTime
+plus30sec = NominalDiffTime -> UTCTime -> UTCTime
+addUTCTime (NominalDiffTime
+30 :: NominalDiffTime)
+
+-- | Attempts to read Shelley genesis from disk
+-- and if not found creates a default Shelley genesis.
+readShelleyGenesisWithDefault
+  :: FilePath
+  -> (ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto)
+  -> ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+readShelleyGenesisWithDefault :: String
+-> (ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto)
+-> ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+readShelleyGenesisWithDefault String
+fpath ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustDefaults = do
+    forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT (String
+-> IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))
+readAndDecodeShelleyGenesis String
+fpath)
+      forall e (m :: * -> *) a.
+MonadError e m =>
+m a -> (e -> m a) -> m a
+`catchError` \GenesisCmdError
+err ->
+        case GenesisCmdError
+err of
+          GenesisCmdGenesisFileReadError (FileIOError String
+_ IOException
+ioe)
+            | IOException -> Bool
+isDoesNotExistError IOException
+ioe -> ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+writeDefault
+          GenesisCmdError
+_                           -> forall (m :: * -> *) e a. Monad m => e -> ExceptT e m a
+left GenesisCmdError
+err
+  where
+    defaults :: ShelleyGenesis StandardCrypto
+    defaults :: ShelleyGenesis StandardCrypto
+defaults = ShelleyGenesis StandardCrypto -> ShelleyGenesis StandardCrypto
+adjustDefaults ShelleyGenesis StandardCrypto
+shelleyGenesisDefaults
+
+    writeDefault :: ExceptT GenesisCmdError IO (ShelleyGenesis StandardCrypto)
+writeDefault = do
+      forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$
+        String -> ByteString -> IO ()
+LBS.writeFile String
+fpath (forall a. ToJSON a => a -> ByteString
+encode ShelleyGenesis StandardCrypto
+defaults)
+      forall (m :: * -> *) a. Monad m => a -> m a
+return ShelleyGenesis StandardCrypto
+defaults
+
+readAndDecodeShelleyGenesis
+  :: FilePath
+  -> IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))
+readAndDecodeShelleyGenesis :: String
+-> IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))
+readAndDecodeShelleyGenesis String
+fpath = forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+  ByteString
+lbs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError IOException -> GenesisCmdError
+GenesisCmdGenesisFileReadError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+fpath
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> Text -> GenesisCmdError
+GenesisCmdGenesisFileDecodeError String
+fpath forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+lbs
+
+updateTemplate
+    :: SystemStart  -- ^ System start time
+    -> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey) -- ^ Genesis delegation (not stake-based)
+    -> Maybe Lovelace -- ^ Amount of lovelace not delegated
+    -> [AddressInEra ShelleyEra] -- ^ UTxO addresses that are not delegating
+    -> Map (Ledger.KeyHash 'Ledger.Staking StandardCrypto) (Ledger.PoolParams StandardCrypto) -- ^ Genesis staking: pools/delegation map & delegated initial UTxO spec
+    -> Lovelace -- ^ Number of UTxO Addresses for delegation
+    -> [AddressInEra ShelleyEra] -- ^ UTxO Addresses for delegation
+    -> [AddressInEra ShelleyEra] -- ^ Stuffed UTxO addresses
+    -> ShelleyGenesis StandardCrypto -- ^ Template from which to build a genesis
+    -> ShelleyGenesis StandardCrypto -- ^ Updated genesis
+updateTemplate :: SystemStart
+-> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+-> Maybe Lovelace
+-> [AddressInEra ShelleyEra]
+-> Map
+     (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+-> Lovelace
+-> [AddressInEra ShelleyEra]
+-> [AddressInEra ShelleyEra]
+-> ShelleyGenesis StandardCrypto
+-> ShelleyGenesis StandardCrypto
+updateTemplate (SystemStart UTCTime
+start)
+               Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDelegMap Maybe Lovelace
+mAmountNonDeleg [AddressInEra ShelleyEra]
+utxoAddrsNonDeleg
+               Map (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+poolSpecs (Lovelace Integer
+amountDeleg) [AddressInEra ShelleyEra]
+utxoAddrsDeleg [AddressInEra ShelleyEra]
+stuffedUtxoAddrs
+               ShelleyGenesis StandardCrypto
+template = do
+
+    let pparamsFromTemplate :: PParams (ShelleyEra StandardCrypto)
+pparamsFromTemplate = forall c. ShelleyGenesis c -> PParams (ShelleyEra c)
+sgProtocolParams ShelleyGenesis StandardCrypto
+template
+        shelleyGenesis :: ShelleyGenesis StandardCrypto
+shelleyGenesis = ShelleyGenesis StandardCrypto
+template
+          { sgSystemStart :: UTCTime
+sgSystemStart = UTCTime
+start
+          , sgMaxLovelaceSupply :: Word64
+sgMaxLovelaceSupply = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ Integer
+nonDelegCoin forall a. Num a => a -> a -> a
++ Integer
+delegCoin
+          , sgGenDelegs :: Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+sgGenDelegs = Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+shelleyDelKeys
+          , sgInitialFunds :: ListMap (Addr StandardCrypto) Coin
+sgInitialFunds = forall k v. [(k, v)] -> ListMap k v
+ListMap.fromList
+                              [ (forall era. AddressInEra era -> Addr StandardCrypto
+toShelleyAddr AddressInEra ShelleyEra
+addr, Lovelace -> Coin
+toShelleyLovelace Lovelace
+v)
+                              | (AddressInEra ShelleyEra
+addr, Lovelace
+v) <-
+                                Integer
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute (Integer
+nonDelegCoin forall a. Num a => a -> a -> a
+- Integer
+subtractForTreasury) [AddressInEra ShelleyEra]
+utxoAddrsNonDeleg forall a. [a] -> [a] -> [a]
+++
+                                Integer
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute (Integer
+delegCoin forall a. Num a => a -> a -> a
+- Integer
+subtractForTreasury)    [AddressInEra ShelleyEra]
+utxoAddrsDeleg forall a. [a] -> [a] -> [a]
+++
+                                [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+mkStuffedUtxo [AddressInEra ShelleyEra]
+stuffedUtxoAddrs ]
+          , sgStaking :: ShelleyGenesisStaking StandardCrypto
+sgStaking =
+            ShelleyGenesisStaking
+              { sgsPools :: ListMap
+  (KeyHash 'StakePool StandardCrypto) (PoolParams StandardCrypto)
+sgsPools = forall k v. [(k, v)] -> ListMap k v
+ListMap.fromList
+                            [ (forall c. PoolParams c -> KeyHash 'StakePool c
+Ledger.ppId PoolParams StandardCrypto
+poolParams, PoolParams StandardCrypto
+poolParams)
+                            | PoolParams StandardCrypto
+poolParams <- forall k a. Map k a -> [a]
+Map.elems Map (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+poolSpecs ]
+              , sgsStake :: ListMap
+  (KeyHash 'Staking StandardCrypto)
+  (KeyHash 'StakePool StandardCrypto)
+sgsStake = forall k v. Map k v -> ListMap k v
+ListMap.fromMap forall a b. (a -> b) -> a -> b
+$ forall c. PoolParams c -> KeyHash 'StakePool c
+Ledger.ppId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Map (KeyHash 'Staking StandardCrypto) (PoolParams StandardCrypto)
+poolSpecs
+              }
+          , sgProtocolParams :: PParams (ShelleyEra StandardCrypto)
+sgProtocolParams = PParams (ShelleyEra StandardCrypto)
+pparamsFromTemplate
+          }
+    ShelleyGenesis StandardCrypto
+shelleyGenesis
+  where
+    maximumLovelaceSupply :: Word64
+    maximumLovelaceSupply :: Word64
+maximumLovelaceSupply = forall c. ShelleyGenesis c -> Word64
+sgMaxLovelaceSupply ShelleyGenesis StandardCrypto
+template
+    -- If the initial funds are equal to the maximum funds, rewards cannot be created.
+    subtractForTreasury :: Integer
+    subtractForTreasury :: Integer
+subtractForTreasury = Integer
+nonDelegCoin forall a. Integral a => a -> a -> a
+`quot` Integer
+10
+    nonDelegCoin, delegCoin :: Integer
+    nonDelegCoin :: Integer
+nonDelegCoin = forall a b. (Integral a, Num b) => a -> b
+fromIntegral (forall b a. b -> (a -> b) -> Maybe a -> b
+maybe Word64
+maximumLovelaceSupply forall a. Integral a => Lovelace -> a
+unLovelace Maybe Lovelace
+mAmountNonDeleg)
+    delegCoin :: Integer
+delegCoin = forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+amountDeleg
+
+    distribute :: Integer -> [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+    distribute :: Integer
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute Integer
+funds [AddressInEra ShelleyEra]
+addrs =
+      forall a b. (a, b) -> a
+fst forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) b a.
+Foldable t =>
+(b -> a -> b) -> b -> t a -> b
+List.foldl' ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+-> AddressInEra ShelleyEra
+-> ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+folder ([], forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+funds) [AddressInEra ShelleyEra]
+addrs
+     where
+       nAddrs, coinPerAddr, splitThreshold :: Integer
+       nAddrs :: Integer
+nAddrs = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) a. Foldable t => t a -> Int
+length [AddressInEra ShelleyEra]
+addrs
+       coinPerAddr :: Integer
+coinPerAddr = Integer
+funds forall a. Integral a => a -> a -> a
+`div` Integer
+nAddrs
+       splitThreshold :: Integer
+splitThreshold = Integer
+coinPerAddr forall a. Num a => a -> a -> a
++ Integer
+nAddrs
+
+       folder :: ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+              -> AddressInEra ShelleyEra
+              -> ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+       folder :: ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+-> AddressInEra ShelleyEra
+-> ([(AddressInEra ShelleyEra, Lovelace)], Integer)
+folder ([(AddressInEra ShelleyEra, Lovelace)]
+acc, Integer
+rest) AddressInEra ShelleyEra
+addr
+         | Integer
+rest forall a. Ord a => a -> a -> Bool
+> Integer
+splitThreshold =
+             ((AddressInEra ShelleyEra
+addr, Integer -> Lovelace
+Lovelace Integer
+coinPerAddr) forall a. a -> [a] -> [a]
+: [(AddressInEra ShelleyEra, Lovelace)]
+acc, Integer
+rest forall a. Num a => a -> a -> a
+- Integer
+coinPerAddr)
+         | Bool
+otherwise = ((AddressInEra ShelleyEra
+addr, Integer -> Lovelace
+Lovelace Integer
+rest) forall a. a -> [a] -> [a]
+: [(AddressInEra ShelleyEra, Lovelace)]
+acc, Integer
+0)
+
+    mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+    mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+mkStuffedUtxo [AddressInEra ShelleyEra]
+xs = (, Integer -> Lovelace
+Lovelace Integer
+minUtxoVal) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [AddressInEra ShelleyEra]
+xs
+      where Coin Integer
+minUtxoVal = forall c. ShelleyGenesis c -> PParams (ShelleyEra c)
+sgProtocolParams ShelleyGenesis StandardCrypto
+template forall s a. s -> Getting a s a -> a
+^. forall era.
+(EraPParams era, ProtVerAtMost era 4) =>
+Lens' (PParams era) Coin
+ppMinUTxOValueL
+
+    shelleyDelKeys :: Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+shelleyDelKeys =
+      forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList
+        [ (KeyHash 'Genesis StandardCrypto
+gh, forall c.
+KeyHash 'GenesisDelegate c
+-> Hash c (VerKeyVRF c) -> GenDelegPair c
+Ledger.GenDelegPair KeyHash 'GenesisDelegate StandardCrypto
+gdh Hash StandardCrypto (VerKeyVRF StandardCrypto)
+h)
+        | (GenesisKeyHash KeyHash 'Genesis StandardCrypto
+gh,
+           (GenesisDelegateKeyHash KeyHash 'GenesisDelegate StandardCrypto
+gdh, VrfKeyHash Hash StandardCrypto (VerKeyVRF StandardCrypto)
+h)) <- forall k a. Map k a -> [(k, a)]
+Map.toList Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDelegMap
+        ]
+
+    unLovelace :: Integral a => Lovelace -> a
+    unLovelace :: forall a. Integral a => Lovelace -> a
+unLovelace (Lovelace Integer
+coin) = forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+coin
+
+updateCreateStakedOutputTemplate
+    :: SystemStart -- ^ System start time
+    -> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey) -- ^ Genesis delegation (not stake-based)
+    -> Maybe Lovelace -- ^ Amount of lovelace not delegated
+    -> Int -- ^ Number of UTxO addresses that are delegating
+    -> [AddressInEra ShelleyEra] -- ^ UTxO addresses that are not delegating
+    -> [(Ledger.KeyHash 'Ledger.StakePool StandardCrypto, Ledger.PoolParams StandardCrypto)] -- ^ Pool map
+    -> [(Ledger.KeyHash 'Ledger.Staking StandardCrypto, Ledger.KeyHash 'Ledger.StakePool StandardCrypto)] -- ^ Delegaton map
+    -> Lovelace -- ^ Amount of lovelace to delegate
+    -> Int -- ^ Number of UTxO address for delegationg
+    -> [AddressInEra ShelleyEra] -- ^ UTxO address for delegationg
+    -> [AddressInEra ShelleyEra] -- ^ Stuffed UTxO addresses
+    -> ShelleyGenesis StandardCrypto -- ^ Template from which to build a genesis
+    -> ShelleyGenesis StandardCrypto -- ^ Updated genesis
+updateCreateStakedOutputTemplate :: SystemStart
+-> Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+-> Maybe Lovelace
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+-> [(KeyHash 'Staking StandardCrypto,
+     KeyHash 'StakePool StandardCrypto)]
+-> Lovelace
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [AddressInEra ShelleyEra]
+-> ShelleyGenesis StandardCrypto
+-> ShelleyGenesis StandardCrypto
+updateCreateStakedOutputTemplate
+  (SystemStart UTCTime
+start)
+  Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDelegMap Maybe Lovelace
+mAmountNonDeleg Int
+nUtxoAddrsNonDeleg [AddressInEra ShelleyEra]
+utxoAddrsNonDeleg [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+pools [(KeyHash 'Staking StandardCrypto,
+  KeyHash 'StakePool StandardCrypto)]
+stake
+  (Lovelace Integer
+amountDeleg)
+  Int
+nUtxoAddrsDeleg [AddressInEra ShelleyEra]
+utxoAddrsDeleg [AddressInEra ShelleyEra]
+stuffedUtxoAddrs
+  ShelleyGenesis StandardCrypto
+template = do
+    let pparamsFromTemplate :: PParams (ShelleyEra StandardCrypto)
+pparamsFromTemplate = forall c. ShelleyGenesis c -> PParams (ShelleyEra c)
+sgProtocolParams ShelleyGenesis StandardCrypto
+template
+        shelleyGenesis :: ShelleyGenesis StandardCrypto
+shelleyGenesis = ShelleyGenesis StandardCrypto
+template
+          { sgSystemStart :: UTCTime
+sgSystemStart = UTCTime
+start
+          , sgMaxLovelaceSupply :: Word64
+sgMaxLovelaceSupply = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ Integer
+nonDelegCoin forall a. Num a => a -> a -> a
++ Integer
+delegCoin
+          , sgGenDelegs :: Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+sgGenDelegs = Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+shelleyDelKeys
+          , sgInitialFunds :: ListMap (Addr StandardCrypto) Coin
+sgInitialFunds = forall k v. [(k, v)] -> ListMap k v
+ListMap.fromList
+                              [ (forall era. AddressInEra era -> Addr StandardCrypto
+toShelleyAddr AddressInEra ShelleyEra
+addr, Lovelace -> Coin
+toShelleyLovelace Lovelace
+v)
+                              | (AddressInEra ShelleyEra
+addr, Lovelace
+v) <-
+                                Integer
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute (Integer
+nonDelegCoin forall a. Num a => a -> a -> a
+- Integer
+subtractForTreasury) Int
+nUtxoAddrsNonDeleg  [AddressInEra ShelleyEra]
+utxoAddrsNonDeleg
+                                forall a. [a] -> [a] -> [a]
+++
+                                Integer
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute (Integer
+delegCoin forall a. Num a => a -> a -> a
+- Integer
+subtractForTreasury)    Int
+nUtxoAddrsDeleg     [AddressInEra ShelleyEra]
+utxoAddrsDeleg
+                                forall a. [a] -> [a] -> [a]
+++
+                                [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+mkStuffedUtxo [AddressInEra ShelleyEra]
+stuffedUtxoAddrs
+                                ]
+          , sgStaking :: ShelleyGenesisStaking StandardCrypto
+sgStaking =
+            ShelleyGenesisStaking
+              { sgsPools :: ListMap
+  (KeyHash 'StakePool StandardCrypto) (PoolParams StandardCrypto)
+sgsPools = forall k v. [(k, v)] -> ListMap k v
+ListMap [(KeyHash 'StakePool StandardCrypto, PoolParams StandardCrypto)]
+pools
+              , sgsStake :: ListMap
+  (KeyHash 'Staking StandardCrypto)
+  (KeyHash 'StakePool StandardCrypto)
+sgsStake = forall k v. [(k, v)] -> ListMap k v
+ListMap [(KeyHash 'Staking StandardCrypto,
+  KeyHash 'StakePool StandardCrypto)]
+stake
+              }
+          , sgProtocolParams :: PParams (ShelleyEra StandardCrypto)
+sgProtocolParams = PParams (ShelleyEra StandardCrypto)
+pparamsFromTemplate
+          }
+    ShelleyGenesis StandardCrypto
+shelleyGenesis
+  where
+    maximumLovelaceSupply :: Word64
+    maximumLovelaceSupply :: Word64
+maximumLovelaceSupply = forall c. ShelleyGenesis c -> Word64
+sgMaxLovelaceSupply ShelleyGenesis StandardCrypto
+template
+    -- If the initial funds are equal to the maximum funds, rewards cannot be created.
+    subtractForTreasury :: Integer
+    subtractForTreasury :: Integer
+subtractForTreasury = Integer
+nonDelegCoin forall a. Integral a => a -> a -> a
+`quot` Integer
+10
+    nonDelegCoin, delegCoin :: Integer
+    nonDelegCoin :: Integer
+nonDelegCoin = forall a b. (Integral a, Num b) => a -> b
+fromIntegral (forall b a. b -> (a -> b) -> Maybe a -> b
+maybe Word64
+maximumLovelaceSupply forall a. Integral a => Lovelace -> a
+unLovelace Maybe Lovelace
+mAmountNonDeleg)
+    delegCoin :: Integer
+delegCoin = forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+amountDeleg
+
+    distribute :: Integer -> Int -> [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+    distribute :: Integer
+-> Int
+-> [AddressInEra ShelleyEra]
+-> [(AddressInEra ShelleyEra, Lovelace)]
+distribute Integer
+funds Int
+nAddrs [AddressInEra ShelleyEra]
+addrs = forall a b. [a] -> [b] -> [(a, b)]
+zip [AddressInEra ShelleyEra]
+addrs (forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Integer -> Lovelace
+Lovelace (Integer
+coinPerAddr forall a. Num a => a -> a -> a
++ Integer
+remainderforall a. a -> [a] -> [a]
+:forall a. a -> [a]
+repeat Integer
+coinPerAddr))
+      where coinPerAddr, remainder :: Integer
+            (,) Integer
+coinPerAddr Integer
+remainder = Integer
+funds forall a. Integral a => a -> a -> (a, a)
+`divMod` forall a b. (Integral a, Num b) => a -> b
+fromIntegral Int
+nAddrs
+
+    mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+    mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
+mkStuffedUtxo [AddressInEra ShelleyEra]
+xs = (, Integer -> Lovelace
+Lovelace Integer
+minUtxoVal) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [AddressInEra ShelleyEra]
+xs
+      where Coin Integer
+minUtxoVal = forall c. ShelleyGenesis c -> PParams (ShelleyEra c)
+sgProtocolParams ShelleyGenesis StandardCrypto
+template forall s a. s -> Getting a s a -> a
+^. forall era.
+(EraPParams era, ProtVerAtMost era 4) =>
+Lens' (PParams era) Coin
+ppMinUTxOValueL
+
+    shelleyDelKeys :: Map (KeyHash 'Genesis StandardCrypto) (GenDelegPair StandardCrypto)
+shelleyDelKeys = forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList
+      [ (KeyHash 'Genesis StandardCrypto
+gh, forall c.
+KeyHash 'GenesisDelegate c
+-> Hash c (VerKeyVRF c) -> GenDelegPair c
+Ledger.GenDelegPair KeyHash 'GenesisDelegate StandardCrypto
+gdh Hash StandardCrypto (VerKeyVRF StandardCrypto)
+h)
+      | (GenesisKeyHash KeyHash 'Genesis StandardCrypto
+gh,
+          (GenesisDelegateKeyHash KeyHash 'GenesisDelegate StandardCrypto
+gdh, VrfKeyHash Hash StandardCrypto (VerKeyVRF StandardCrypto)
+h)) <- forall k a. Map k a -> [(k, a)]
+Map.toList Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+genDelegMap
+      ]
+
+    unLovelace :: Integral a => Lovelace -> a
+    unLovelace :: forall a. Integral a => Lovelace -> a
+unLovelace (Lovelace Integer
+coin) = forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+coin
+
+writeFileGenesis
+  :: FilePath
+  -> WriteFileGenesis
+  -> ExceptT GenesisCmdError IO (Crypto.Hash Crypto.Blake2b_256 ByteString)
+writeFileGenesis :: String
+-> WriteFileGenesis
+-> ExceptT GenesisCmdError IO (Hash Blake2b_256 ByteString)
+writeFileGenesis String
+fpath WriteFileGenesis
+genesis = do
+  forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$
+    String -> ByteString -> IO ()
+BS.writeFile String
+fpath ByteString
+content
+  forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall h a. HashAlgorithm h => (a -> ByteString) -> a -> Hash h a
+Crypto.hashWith forall a. a -> a
+id ByteString
+content
+  where
+    content :: ByteString
+content = case WriteFileGenesis
+genesis of
+       WritePretty genesis
+a -> ByteString -> ByteString
+LBS.toStrict forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty genesis
+a
+       WriteCanonical genesis
+a -> ByteString -> ByteString
+LBS.toStrict
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. JSValue -> ByteString
+renderCanonicalJSON
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
+either (forall a. HasCallStack => String -> a
+error String
+"error parsing json that was just encoded!?") forall a. a -> a
+id
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> Either String JSValue
+parseCanonicalJSON
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON Identity a => a -> ByteString
+canonicalEncodePretty forall a b. (a -> b) -> a -> b
+$ genesis
+a
+
+data WriteFileGenesis where
+  WriteCanonical :: Text.JSON.Canonical.ToJSON Identity genesis => genesis -> WriteFileGenesis
+  WritePretty :: ToJSON genesis => genesis -> WriteFileGenesis
+
+-- ----------------------------------------------------------------------------
+
+readGenDelegsMap :: FilePath -> FilePath
+                 -> ExceptT GenesisCmdError IO
+                            (Map (Hash GenesisKey)
+                                 (Hash GenesisDelegateKey, Hash VrfKey))
+readGenDelegsMap :: String
+-> String
+-> ExceptT
+     GenesisCmdError
+     IO
+     (Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey))
+readGenDelegsMap String
+gendir String
+deldir = do
+    Map Int (VerificationKey GenesisKey)
+gkm <- String
+-> ExceptT
+     GenesisCmdError IO (Map Int (VerificationKey GenesisKey))
+readGenesisKeys String
+gendir
+    Map Int (VerificationKey GenesisDelegateKey)
+dkm <- String
+-> ExceptT
+     GenesisCmdError IO (Map Int (VerificationKey GenesisDelegateKey))
+readDelegateKeys String
+deldir
+    Map Int (VerificationKey VrfKey)
+vkm <- String
+-> ExceptT GenesisCmdError IO (Map Int (VerificationKey VrfKey))
+readDelegateVrfKeys String
+deldir
+
+    let combinedMap :: Map Int (VerificationKey GenesisKey,
+                                (VerificationKey GenesisDelegateKey,
+                                 VerificationKey VrfKey))
+        combinedMap :: Map
+  Int
+  (VerificationKey GenesisKey,
+   (VerificationKey GenesisDelegateKey, VerificationKey VrfKey))
+combinedMap =
+          forall k a b c.
+Ord k =>
+(a -> b -> c) -> Map k a -> Map k b -> Map k c
+Map.intersectionWith (,)
+            Map Int (VerificationKey GenesisKey)
+gkm
+            (forall k a b c.
+Ord k =>
+(a -> b -> c) -> Map k a -> Map k b -> Map k c
+Map.intersectionWith (,)
+               Map Int (VerificationKey GenesisDelegateKey)
+dkm Map Int (VerificationKey VrfKey)
+vkm)
+
+    -- All the maps should have an identical set of keys. Complain if not.
+    let gkmExtra :: Map Int (VerificationKey GenesisKey)
+gkmExtra = Map Int (VerificationKey GenesisKey)
+gkm forall k a b. Ord k => Map k a -> Map k b -> Map k a
+Map.\\ Map
+  Int
+  (VerificationKey GenesisKey,
+   (VerificationKey GenesisDelegateKey, VerificationKey VrfKey))
+combinedMap
+        dkmExtra :: Map Int (VerificationKey GenesisDelegateKey)
+dkmExtra = Map Int (VerificationKey GenesisDelegateKey)
+dkm forall k a b. Ord k => Map k a -> Map k b -> Map k a
+Map.\\ Map
+  Int
+  (VerificationKey GenesisKey,
+   (VerificationKey GenesisDelegateKey, VerificationKey VrfKey))
+combinedMap
+        vkmExtra :: Map Int (VerificationKey VrfKey)
+vkmExtra = Map Int (VerificationKey VrfKey)
+vkm forall k a b. Ord k => Map k a -> Map k b -> Map k a
+Map.\\ Map
+  Int
+  (VerificationKey GenesisKey,
+   (VerificationKey GenesisDelegateKey, VerificationKey VrfKey))
+combinedMap
+    forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless (forall k a. Map k a -> Bool
+Map.null Map Int (VerificationKey GenesisKey)
+gkmExtra Bool -> Bool -> Bool
+&& forall k a. Map k a -> Bool
+Map.null Map Int (VerificationKey GenesisDelegateKey)
+dkmExtra Bool -> Bool -> Bool
+&& forall k a. Map k a -> Bool
+Map.null Map Int (VerificationKey VrfKey)
+vkmExtra) forall a b. (a -> b) -> a -> b
+$
+      forall e (m :: * -> *) a. MonadError e m => e -> m a
+throwError forall a b. (a -> b) -> a -> b
+$ [Int] -> [Int] -> [Int] -> GenesisCmdError
+GenesisCmdMismatchedGenesisKeyFiles
+                     (forall k a. Map k a -> [k]
+Map.keys Map Int (VerificationKey GenesisKey)
+gkm) (forall k a. Map k a -> [k]
+Map.keys Map Int (VerificationKey GenesisDelegateKey)
+dkm) (forall k a. Map k a -> [k]
+Map.keys Map Int (VerificationKey VrfKey)
+vkm)
+
+    let delegsMap :: Map (Hash GenesisKey)
+                         (Hash GenesisDelegateKey, Hash VrfKey)
+        delegsMap :: Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegsMap =
+          forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList [ (Hash GenesisKey
+gh, (Hash GenesisDelegateKey
+dh, Hash VrfKey
+vh))
+                       | (VerificationKey GenesisKey
+g,(VerificationKey GenesisDelegateKey
+d,VerificationKey VrfKey
+v)) <- forall k a. Map k a -> [a]
+Map.elems Map
+  Int
+  (VerificationKey GenesisKey,
+   (VerificationKey GenesisDelegateKey, VerificationKey VrfKey))
+combinedMap
+                       , let gh :: Hash GenesisKey
+gh = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey GenesisKey
+g
+                             dh :: Hash GenesisDelegateKey
+dh = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey GenesisDelegateKey
+d
+                             vh :: Hash VrfKey
+vh = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey VrfKey
+v
+                       ]
+
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure Map (Hash GenesisKey) (Hash GenesisDelegateKey, Hash VrfKey)
+delegsMap
+
+
+readGenesisKeys :: FilePath -> ExceptT GenesisCmdError IO
+                                       (Map Int (VerificationKey GenesisKey))
+readGenesisKeys :: String
+-> ExceptT
+     GenesisCmdError IO (Map Int (VerificationKey GenesisKey))
+readGenesisKeys String
+gendir = do
+  [String]
+files <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (String -> IO [String]
+listDirectory String
+gendir)
+  [(String, Int)]
+fileIxs <- [String] -> ExceptT GenesisCmdError IO [(String, Int)]
+extractFileNameIndexes [ String
+gendir String -> String -> String
+</> String
+file
+                                    | String
+file <- [String]
+files
+                                    , String -> String
+takeExtension String
+file forall a. Eq a => a -> a -> Bool
+== String
+".vkey" ]
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall a b. (a -> b) -> a -> b
+$
+    forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+      forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+        [ (,) Int
+ix forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall {content}.
+File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError) IO (VerificationKey GenesisKey)
+readKey (forall content (direction :: FileDirection).
+String -> File content direction
+File String
+file)
+        | (String
+file, Int
+ix) <- [(String, Int)]
+fileIxs ]
+  where
+    readKey :: File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError) IO (VerificationKey GenesisKey)
+readKey = forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisKey
+AsGenesisKey)
+
+readDelegateKeys :: FilePath
+                 -> ExceptT GenesisCmdError IO
+                            (Map Int (VerificationKey GenesisDelegateKey))
+readDelegateKeys :: String
+-> ExceptT
+     GenesisCmdError IO (Map Int (VerificationKey GenesisDelegateKey))
+readDelegateKeys String
+deldir = do
+  [String]
+files <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (String -> IO [String]
+listDirectory String
+deldir)
+  [(String, Int)]
+fileIxs <- [String] -> ExceptT GenesisCmdError IO [(String, Int)]
+extractFileNameIndexes [ String
+deldir String -> String -> String
+</> String
+file
+                                    | String
+file <- [String]
+files
+                                    , String -> String
+takeExtensions String
+file forall a. Eq a => a -> a -> Bool
+== String
+".vkey" ]
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall a b. (a -> b) -> a -> b
+$
+    forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+      forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+        [ (,) Int
+ix forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall {content}.
+File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError)
+     IO
+     (VerificationKey GenesisDelegateKey)
+readKey (forall content (direction :: FileDirection).
+String -> File content direction
+File String
+file)
+        | (String
+file, Int
+ix) <- [(String, Int)]
+fileIxs ]
+  where
+    readKey :: File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError)
+     IO
+     (VerificationKey GenesisDelegateKey)
+readKey = forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+            forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+
+readDelegateVrfKeys :: FilePath -> ExceptT GenesisCmdError IO
+                                           (Map Int (VerificationKey VrfKey))
+readDelegateVrfKeys :: String
+-> ExceptT GenesisCmdError IO (Map Int (VerificationKey VrfKey))
+readDelegateVrfKeys String
+deldir = do
+  [String]
+files <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (String -> IO [String]
+listDirectory String
+deldir)
+  [(String, Int)]
+fileIxs <- [String] -> ExceptT GenesisCmdError IO [(String, Int)]
+extractFileNameIndexes [ String
+deldir String -> String -> String
+</> String
+file
+                                    | String
+file <- [String]
+files
+                                    , String -> String
+takeExtensions String
+file forall a. Eq a => a -> a -> Bool
+== String
+".vrf.vkey" ]
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall a b. (a -> b) -> a -> b
+$
+    forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+      forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+        [ (,) Int
+ix forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall {content}.
+File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError) IO (VerificationKey VrfKey)
+readKey (forall content (direction :: FileDirection).
+String -> File content direction
+File String
+file)
+        | (String
+file, Int
+ix) <- [(String, Int)]
+fileIxs ]
+  where
+    readKey :: File content 'In
+-> ExceptT
+     (FileError TextEnvelopeError) IO (VerificationKey VrfKey)
+readKey = forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+            forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType VrfKey
+AsVrfKey)
+
+
+-- | The file path is of the form @"delegate-keys/delegate3.vkey"@.
+-- This function reads the file and extracts the index (in this case 3).
+--
+extractFileNameIndex :: FilePath -> Maybe Int
+extractFileNameIndex :: String -> Maybe Int
+extractFileNameIndex String
+fp =
+  case forall a. (a -> Bool) -> [a] -> [a]
+filter Char -> Bool
+isDigit String
+fp of
+    [] -> forall a. Maybe a
+Nothing
+    String
+xs -> forall a. Read a => String -> Maybe a
+readMaybe String
+xs
+
+extractFileNameIndexes :: [FilePath]
+                       -> ExceptT GenesisCmdError IO [(FilePath, Int)]
+extractFileNameIndexes :: [String] -> ExceptT GenesisCmdError IO [(String, Int)]
+extractFileNameIndexes [String]
+files = do
+    case [ String
+file | (String
+file, Maybe Int
+Nothing) <- [(String, Maybe Int)]
+filesIxs ] of
+      []     -> forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+      [String]
+files' -> forall e (m :: * -> *) a. MonadError e m => e -> m a
+throwError ([String] -> GenesisCmdError
+GenesisCmdFilesNoIndex [String]
+files')
+    case forall a. (a -> Bool) -> [a] -> [a]
+filter (\[(String, Int)]
+g -> forall (t :: * -> *) a. Foldable t => t a -> Int
+length [(String, Int)]
+g forall a. Ord a => a -> a -> Bool
+> Int
+1)
+       forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. (a -> a -> Bool) -> [a] -> [[a]]
+List.groupBy (forall a. Eq a => a -> a -> Bool
+(==) forall b c a. (b -> b -> c) -> (a -> b) -> a -> a -> c
+`on` forall a b. (a, b) -> b
+snd)
+       forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. (a -> a -> Ordering) -> [a] -> [a]
+List.sortBy (forall a. Ord a => a -> a -> Ordering
+compare forall b c a. (b -> b -> c) -> (a -> b) -> a -> a -> c
+`on` forall a b. (a, b) -> b
+snd)
+       forall a b. (a -> b) -> a -> b
+$ [ (String
+file, Int
+ix) | (String
+file, Just Int
+ix) <- [(String, Maybe Int)]
+filesIxs ] of
+      [] -> forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+      ([(String, Int)]
+g:[[(String, Int)]]
+_) -> forall e (m :: * -> *) a. MonadError e m => e -> m a
+throwError ([String] -> GenesisCmdError
+GenesisCmdFilesDupIndex (forall a b. (a -> b) -> [a] -> [b]
+map forall a b. (a, b) -> a
+fst [(String, Int)]
+g))
+
+    forall (m :: * -> *) a. Monad m => a -> m a
+return [ (String
+file, Int
+ix) | (String
+file, Just Int
+ix) <- [(String, Maybe Int)]
+filesIxs ]
+  where
+    filesIxs :: [(String, Maybe Int)]
+filesIxs = [ (String
+file, String -> Maybe Int
+extractFileNameIndex String
+file) | String
+file <- [String]
+files ]
+
+readInitialFundAddresses :: FilePath -> NetworkId
+                         -> ExceptT GenesisCmdError IO [AddressInEra ShelleyEra]
+readInitialFundAddresses :: String
+-> NetworkId
+-> ExceptT GenesisCmdError IO [AddressInEra ShelleyEra]
+readInitialFundAddresses String
+utxodir NetworkId
+nw = do
+    [String]
+files <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO (String -> IO [String]
+listDirectory String
+utxodir)
+    [VerificationKey GenesisUTxOKey]
+vkeys <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GenesisCmdError
+GenesisCmdTextEnvReadFileError forall a b. (a -> b) -> a -> b
+$
+               forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+                 [ forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+                     forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisUTxOKey
+AsGenesisUTxOKey)
+                                          (forall content (direction :: FileDirection).
+String -> File content direction
+File (String
+utxodir String -> String -> String
+</> String
+file))
+                 | String
+file <- [String]
+files
+                 , String -> String
+takeExtension String
+file forall a. Eq a => a -> a -> Bool
+== String
+".vkey" ]
+    forall (m :: * -> *) a. Monad m => a -> m a
+return [ AddressInEra ShelleyEra
+addr | VerificationKey GenesisUTxOKey
+vkey <- [VerificationKey GenesisUTxOKey]
+vkeys
+           , let vkh :: Hash PaymentKey
+vkh  = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisUTxOKey
+vkey)
+                 addr :: AddressInEra ShelleyEra
+addr = forall era.
+ShelleyBasedEra era
+-> NetworkId
+-> PaymentCredential
+-> StakeAddressReference
+-> AddressInEra era
+makeShelleyAddressInEra ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley NetworkId
+nw (Hash PaymentKey -> PaymentCredential
+PaymentCredentialByKey Hash PaymentKey
+vkh)
+                                                StakeAddressReference
+NoStakeAddress
+           ]
+
+
+-- | Hash a genesis file
+runGenesisHashFileCmd :: GenesisFile -> ExceptT GenesisCmdError IO ()
+runGenesisHashFileCmd :: GenesisFile -> ExceptT GenesisCmdError IO ()
+runGenesisHashFileCmd (GenesisFile String
+fpath) = do
+   ByteString
+content <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$
+              String -> IO ByteString
+BS.readFile String
+fpath
+   let gh :: Crypto.Hash Crypto.Blake2b_256 ByteString
+       gh :: Hash Blake2b_256 ByteString
+gh = forall h a. HashAlgorithm h => (a -> ByteString) -> a -> Hash h a
+Crypto.hashWith forall a. a -> a
+id ByteString
+content
+   forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStrLn (forall h a. Hash h a -> Text
+Crypto.hashToTextAsHex Hash Blake2b_256 ByteString
+gh)
+
+readAlonzoGenesis
+  :: FilePath
+  -> ExceptT GenesisCmdError IO Alonzo.AlonzoGenesis
+readAlonzoGenesis :: String -> ExceptT GenesisCmdError IO AlonzoGenesis
+readAlonzoGenesis String
+fpath = do
+  ByteString
+lbs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+fpath
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> Text -> GenesisCmdError
+GenesisCmdAesonDecodeError String
+fpath forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+lbs
+
+readConwayGenesis
+  :: FilePath
+  -> ExceptT GenesisCmdError IO (Conway.ConwayGenesis StandardCrypto)
+readConwayGenesis :: String -> ExceptT GenesisCmdError IO (ConwayGenesis StandardCrypto)
+readConwayGenesis String
+fpath = do
+  ByteString
+lbs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GenesisCmdError
+GenesisCmdGenesisFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+fpath
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> Text -> GenesisCmdError
+GenesisCmdAesonDecodeError String
+fpath forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack)
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+lbs
+
+-- Protocol Parameters
+
+--TODO: eliminate this and get only the necessary params, and get them in a more
+-- helpful way rather than requiring them as a local file.
+readProtocolParameters :: ProtocolParamsFile
+                       -> ExceptT ProtocolParamsError IO ProtocolParameters
+readProtocolParameters :: ProtocolParamsFile
+-> ExceptT ProtocolParamsError IO ProtocolParameters
+readProtocolParameters (ProtocolParamsFile String
+fpath) = do
+  ByteString
+pparams <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> ProtocolParamsError
+ProtocolParamsErrorFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+fpath
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> Text -> ProtocolParamsError
+ProtocolParamsErrorJSON String
+fpath forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$
+    forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+pparams
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Actions.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Actions.html new file mode 100644 index 0000000000..307f847130 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Actions.html @@ -0,0 +1,1202 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE TypeFamilies #-}
+
+module Cardano.CLI.EraBased.Run.Governance.Actions
+  ( runGovernanceActionCmds
+  , GovernanceActionsError(..)
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Commands.Governance.Actions
+import qualified Cardano.CLI.EraBased.Commands.Governance.Actions as Cmd
+import           Cardano.CLI.Json.Friendly
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.GovernanceActionsError
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad
+import           Control.Monad.Except (ExceptT)
+import           Control.Monad.Trans (MonadTrans (..))
+import           Control.Monad.Trans.Except.Extra
+import           Data.Function
+import qualified Data.Map.Strict as Map
+
+runGovernanceActionCmds :: ()
+  => GovernanceActionCmds era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCmds :: forall era.
+GovernanceActionCmds era -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCmds = \case
+  GovernanceActionCreateConstitutionCmd GovernanceActionCreateConstitutionCmdArgs era
+args ->
+    forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateConstitutionCmd GovernanceActionCreateConstitutionCmdArgs era
+args
+
+  GovernanceActionProtocolParametersUpdateCmd GovernanceActionProtocolParametersUpdateCmdArgs era
+args ->
+    forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateProtocolParametersUpdateCmd GovernanceActionProtocolParametersUpdateCmdArgs era
+args
+
+  GovernanceActionTreasuryWithdrawalCmd GovernanceActionTreasuryWithdrawalCmdArgs era
+args ->
+    forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionTreasuryWithdrawalCmd GovernanceActionTreasuryWithdrawalCmdArgs era
+args
+
+  GoveranceActionUpdateCommitteeCmd GoveranceActionUpdateCommitteeCmdArgs era
+args ->
+    forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNewCommitteeCmd GoveranceActionUpdateCommitteeCmdArgs era
+args
+
+  GovernanceActionCreateNoConfidenceCmd GovernanceActionCreateNoConfidenceCmdArgs era
+args ->
+    forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNoConfidenceCmd GovernanceActionCreateNoConfidenceCmdArgs era
+args
+
+  GovernanceActionInfoCmd GovernanceActionInfoCmdArgs era
+args ->
+    forall era.
+GovernanceActionInfoCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionInfoCmd GovernanceActionInfoCmdArgs era
+args
+
+  GovernanceActionViewCmd GovernanceActionViewCmdArgs era
+args ->
+    forall era.
+GovernanceActionViewCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionViewCmd GovernanceActionViewCmdArgs era
+args
+
+runGovernanceActionViewCmd :: ()
+  => GovernanceActionViewCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionViewCmd :: forall era.
+GovernanceActionViewCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionViewCmd
+  Cmd.GovernanceActionViewCmdArgs
+    { GovernanceActionViewOutputFormat
+$sel:outFormat:GovernanceActionViewCmdArgs :: forall era.
+GovernanceActionViewCmdArgs era -> GovernanceActionViewOutputFormat
+outFormat :: GovernanceActionViewOutputFormat
+Cmd.outFormat
+    , ProposalFile 'In
+$sel:actionFile:GovernanceActionViewCmdArgs :: forall era. GovernanceActionViewCmdArgs era -> ProposalFile 'In
+actionFile :: ProposalFile 'In
+Cmd.actionFile
+    , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceActionViewCmdArgs :: forall era. GovernanceActionViewCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    , ConwayEraOnwards era
+$sel:eon:GovernanceActionViewCmdArgs :: forall era. GovernanceActionViewCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+    } = do
+  Proposal era
+proposal <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceActionsError
+GovernanceActionsCmdReadTextEnvelopeFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraOnwards era
+-> ProposalFile 'In
+-> IO (Either (FileError TextEnvelopeError) (Proposal era))
+readProposal ConwayEraOnwards era
+eon ProposalFile 'In
+actionFile
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> ConwayEraOnwards era
+-> Proposal era
+-> m (Either (FileError e) ())
+friendlyProposal
+      (case GovernanceActionViewOutputFormat
+outFormat of
+        GovernanceActionViewOutputFormat
+GovernanceActionViewOutputFormatJson -> FriendlyFormat
+FriendlyJson
+        GovernanceActionViewOutputFormat
+GovernanceActionViewOutputFormatYaml -> FriendlyFormat
+FriendlyYaml)
+      Maybe (File () 'Out)
+mOutFile
+      ConwayEraOnwards era
+eon
+      Proposal era
+proposal
+
+runGovernanceActionInfoCmd :: ()
+  => GovernanceActionInfoCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionInfoCmd :: forall era.
+GovernanceActionInfoCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionInfoCmd
+    Cmd.GovernanceActionInfoCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceActionInfoCmdArgs :: forall era. GovernanceActionInfoCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , Network
+$sel:networkId:GovernanceActionInfoCmdArgs :: forall era. GovernanceActionInfoCmdArgs era -> Network
+networkId :: Network
+Cmd.networkId
+      , Lovelace
+$sel:deposit:GovernanceActionInfoCmdArgs :: forall era. GovernanceActionInfoCmdArgs era -> Lovelace
+deposit :: Lovelace
+Cmd.deposit
+      , VerificationKeyOrHashOrFile StakeKey
+$sel:returnStakeAddress:GovernanceActionInfoCmdArgs :: forall era.
+GovernanceActionInfoCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress :: VerificationKeyOrHashOrFile StakeKey
+Cmd.returnStakeAddress
+      , ProposalUrl
+$sel:proposalUrl:GovernanceActionInfoCmdArgs :: forall era. GovernanceActionInfoCmdArgs era -> ProposalUrl
+proposalUrl :: ProposalUrl
+Cmd.proposalUrl
+      , SafeHash StandardCrypto AnchorData
+$sel:proposalHash:GovernanceActionInfoCmdArgs :: forall era.
+GovernanceActionInfoCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash :: SafeHash StandardCrypto AnchorData
+Cmd.proposalHash
+      , File () 'Out
+$sel:outFile:GovernanceActionInfoCmdArgs :: forall era. GovernanceActionInfoCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } = do
+  Hash StakeKey
+returnKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress
+
+  let proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+        }
+
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+      govAction :: GovernanceAction era
+govAction = forall era. GovernanceAction era
+InfoAct
+      proposalProcedure :: Proposal era
+proposalProcedure = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+networkId Lovelace
+deposit Hash StakeKey
+returnKeyHash forall era. GovernanceAction era
+govAction Anchor StandardCrypto
+proposalAnchor
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile forall a. Maybe a
+Nothing Proposal era
+proposalProcedure
+
+-- TODO: Conway era - update with new ledger types from cardano-ledger-conway-1.7.0.0
+runGovernanceActionCreateNoConfidenceCmd :: ()
+  => GovernanceActionCreateNoConfidenceCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNoConfidenceCmd :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNoConfidenceCmd
+    Cmd.GovernanceActionCreateNoConfidenceCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , Network
+$sel:networkId:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> Network
+networkId :: Network
+Cmd.networkId
+      , Lovelace
+$sel:deposit:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> Lovelace
+deposit :: Lovelace
+Cmd.deposit
+      , VerificationKeyOrHashOrFile StakeKey
+$sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress :: VerificationKeyOrHashOrFile StakeKey
+Cmd.returnStakeAddress
+      , ProposalUrl
+$sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> ProposalUrl
+proposalUrl :: ProposalUrl
+Cmd.proposalUrl
+      , SafeHash StandardCrypto AnchorData
+$sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash :: SafeHash StandardCrypto AnchorData
+Cmd.proposalHash
+      , TxId
+$sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgs :: forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> TxId
+governanceActionId :: TxId
+Cmd.governanceActionId
+      , Word32
+$sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgs :: forall era. GovernanceActionCreateNoConfidenceCmdArgs era -> Word32
+governanceActionIndex :: Word32
+Cmd.governanceActionIndex
+      , File () 'Out
+$sel:outFile:GovernanceActionCreateNoConfidenceCmdArgs :: forall era.
+GovernanceActionCreateNoConfidenceCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } = do
+  Hash StakeKey
+returnKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+returnStakeAddress
+
+  let proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+        }
+
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+      previousGovernanceAction :: GovernanceAction era
+previousGovernanceAction = forall era.
+StrictMaybe (PrevGovActionId 'CommitteePurpose StandardCrypto)
+-> GovernanceAction era
+MotionOfNoConfidence forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. a -> StrictMaybe a
+Ledger.SJust forall a b. (a -> b) -> a -> b
+$ forall (r :: GovActionPurpose).
+TxId -> Word32 -> PrevGovActionId r StandardCrypto
+createPreviousGovernanceActionId TxId
+governanceActionId Word32
+governanceActionIndex
+      proposalProcedure :: Proposal era
+proposalProcedure = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+networkId Lovelace
+deposit Hash StakeKey
+returnKeyHash GovernanceAction era
+previousGovernanceAction Anchor StandardCrypto
+proposalAnchor
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile forall a. Maybe a
+Nothing Proposal era
+proposalProcedure
+
+runGovernanceActionCreateConstitutionCmd :: ()
+  => GovernanceActionCreateConstitutionCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateConstitutionCmd :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateConstitutionCmd
+    Cmd.GovernanceActionCreateConstitutionCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , Network
+$sel:networkId:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> Network
+networkId :: Network
+Cmd.networkId
+      , Lovelace
+$sel:deposit:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> Lovelace
+deposit :: Lovelace
+Cmd.deposit
+      , VerificationKeyOrHashOrFile StakeKey
+$sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+stakeCredential :: VerificationKeyOrHashOrFile StakeKey
+Cmd.stakeCredential
+      , Maybe (TxId, Word32)
+$sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> Maybe (TxId, Word32)
+mPrevGovernanceActionId :: Maybe (TxId, Word32)
+Cmd.mPrevGovernanceActionId
+      , ProposalUrl
+$sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> ProposalUrl
+proposalUrl :: ProposalUrl
+Cmd.proposalUrl
+      , SafeHash StandardCrypto AnchorData
+$sel:proposalHash:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash :: SafeHash StandardCrypto AnchorData
+Cmd.proposalHash
+      , ConstitutionUrl
+$sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> ConstitutionUrl
+constitutionUrl :: ConstitutionUrl
+Cmd.constitutionUrl
+      , ConstitutionHashSource
+$sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era
+-> ConstitutionHashSource
+constitutionHashSource :: ConstitutionHashSource
+Cmd.constitutionHashSource
+      , File () 'Out
+$sel:outFile:GovernanceActionCreateConstitutionCmdArgs :: forall era.
+GovernanceActionCreateConstitutionCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } = do
+
+  Hash StakeKey
+stakeKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+stakeCredential
+
+  let proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+        }
+
+  SafeHash StandardCrypto AnchorData
+constitutionHash <-
+    ConstitutionHashSource
+-> ExceptT
+     ConstitutionError IO (SafeHash StandardCrypto AnchorData)
+constitutionHashSourceToHash ConstitutionHashSource
+constitutionHashSource
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ConstitutionError -> GovernanceActionsError
+GovernanceActionsCmdConstitutionError
+
+  let prevGovActId :: StrictMaybe (PrevGovActionId 'ConstitutionPurpose StandardCrypto)
+prevGovActId = forall a. Maybe a -> StrictMaybe a
+Ledger.maybeToStrictMaybe forall a b. (a -> b) -> a -> b
+$ forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry forall (r :: GovActionPurpose).
+TxId -> Word32 -> PrevGovActionId r StandardCrypto
+createPreviousGovernanceActionId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe (TxId, Word32)
+mPrevGovernanceActionId
+      constitutionAnchor :: Anchor StandardCrypto
+constitutionAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ConstitutionUrl -> Url
+unConstitutionUrl ConstitutionUrl
+constitutionUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+constitutionHash
+        }
+      govAct :: GovernanceAction era
+govAct = forall era.
+StrictMaybe (PrevGovActionId 'ConstitutionPurpose StandardCrypto)
+-> Anchor StandardCrypto -> GovernanceAction era
+ProposeNewConstitution StrictMaybe (PrevGovActionId 'ConstitutionPurpose StandardCrypto)
+prevGovActId Anchor StandardCrypto
+constitutionAnchor
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+      proposalProcedure :: Proposal era
+proposalProcedure = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+networkId Lovelace
+deposit Hash StakeKey
+stakeKeyHash GovernanceAction era
+govAct Anchor StandardCrypto
+proposalAnchor
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile forall a. Maybe a
+Nothing Proposal era
+proposalProcedure
+
+-- TODO: Conway era - After ledger bump update this function
+-- with the new ledger types
+runGovernanceActionCreateNewCommitteeCmd :: ()
+  => GoveranceActionUpdateCommitteeCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNewCommitteeCmd :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateNewCommitteeCmd
+    Cmd.GoveranceActionUpdateCommitteeCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , Network
+$sel:networkId:GoveranceActionUpdateCommitteeCmdArgs :: forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Network
+networkId :: Network
+Cmd.networkId
+      , Lovelace
+$sel:deposit:GoveranceActionUpdateCommitteeCmdArgs :: forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Lovelace
+deposit :: Lovelace
+Cmd.deposit
+      , VerificationKeyOrHashOrFile StakeKey
+$sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnAddress :: VerificationKeyOrHashOrFile StakeKey
+Cmd.returnAddress
+      , ProposalUrl
+$sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> ProposalUrl
+proposalUrl :: ProposalUrl
+Cmd.proposalUrl
+      , SafeHash StandardCrypto AnchorData
+$sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash :: SafeHash StandardCrypto AnchorData
+Cmd.proposalHash
+      , [VerificationKeyOrHashOrFile CommitteeColdKey]
+$sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+oldCommitteeVkeySource :: [VerificationKeyOrHashOrFile CommitteeColdKey]
+Cmd.oldCommitteeVkeySource
+      , [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+$sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era
+-> [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+newCommitteeVkeySource :: [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+Cmd.newCommitteeVkeySource
+      , Rational
+$sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgs :: forall era. GoveranceActionUpdateCommitteeCmdArgs era -> Rational
+requiredQuorum :: Rational
+Cmd.requiredQuorum
+      , Maybe (TxId, Word32)
+$sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> Maybe (TxId, Word32)
+mPrevGovernanceActionId :: Maybe (TxId, Word32)
+Cmd.mPrevGovernanceActionId
+      , File () 'Out
+$sel:outFile:GoveranceActionUpdateCommitteeCmdArgs :: forall era.
+GoveranceActionUpdateCommitteeCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } = do
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+      govActIdentifier :: StrictMaybe (PrevGovActionId 'CommitteePurpose StandardCrypto)
+govActIdentifier = forall a. Maybe a -> StrictMaybe a
+Ledger.maybeToStrictMaybe forall a b. (a -> b) -> a -> b
+$
+        forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry forall (r :: GovActionPurpose).
+TxId -> Word32 -> PrevGovActionId r StandardCrypto
+createPreviousGovernanceActionId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe (TxId, Word32)
+mPrevGovernanceActionId
+      quorumRational :: Rational
+quorumRational = forall a. Real a => a -> Rational
+toRational Rational
+requiredQuorum
+
+  let proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+        }
+
+  [Hash CommitteeColdKey]
+oldCommitteeKeyHashes <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [VerificationKeyOrHashOrFile CommitteeColdKey]
+oldCommitteeVkeySource forall a b. (a -> b) -> a -> b
+$ \VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyOrHashOrTextFile ->
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeColdKey
+AsCommitteeColdKey VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyOrHashOrTextFile)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceActionsError
+GovernanceActionsCmdReadFileError)
+
+  [(Hash CommitteeColdKey, EpochNo)]
+newCommitteeKeyHashes <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [(VerificationKeyOrHashOrFile CommitteeColdKey, EpochNo)]
+newCommitteeVkeySource forall a b. (a -> b) -> a -> b
+$ \(VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyOrHashOrTextFile, EpochNo
+expEpoch) -> do
+    Hash CommitteeColdKey
+kh <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeColdKey
+AsCommitteeColdKey VerificationKeyOrHashOrFile CommitteeColdKey
+vkeyOrHashOrTextFile)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceActionsError
+GovernanceActionsCmdReadFileError)
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Hash CommitteeColdKey
+kh, EpochNo
+expEpoch)
+
+  Hash StakeKey
+returnKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+returnAddress
+
+  let proposeNewCommittee :: GovernanceAction era
+proposeNewCommittee = forall era.
+StrictMaybe (PrevGovActionId 'CommitteePurpose StandardCrypto)
+-> [Hash CommitteeColdKey]
+-> Map (Hash CommitteeColdKey) EpochNo
+-> Rational
+-> GovernanceAction era
+ProposeNewCommittee
+                              StrictMaybe (PrevGovActionId 'CommitteePurpose StandardCrypto)
+govActIdentifier
+                              [Hash CommitteeColdKey]
+oldCommitteeKeyHashes
+                              (forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList [(Hash CommitteeColdKey, EpochNo)]
+newCommitteeKeyHashes)
+                              Rational
+quorumRational
+      proposal :: Proposal era
+proposal = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+networkId Lovelace
+deposit Hash StakeKey
+returnKeyHash GovernanceAction era
+proposeNewCommittee Anchor StandardCrypto
+proposalAnchor
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile forall a. Maybe a
+Nothing Proposal era
+proposal
+
+runGovernanceActionCreateProtocolParametersUpdateCmd :: ()
+  => Cmd.GovernanceActionProtocolParametersUpdateCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateProtocolParametersUpdateCmd :: forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCreateProtocolParametersUpdateCmd GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams' = do
+  let sbe :: ShelleyBasedEra era
+sbe = forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> ShelleyBasedEra era
+uppShelleyBasedEra GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+  forall era a.
+(ShelleyToBabbageEraConstraints era =>
+ ShelleyToBabbageEra era -> a)
+-> (ConwayEraOnwardsConstraints era => ConwayEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToBabbageOrConwayEraOnwards
+    (\ShelleyToBabbageEra era
+sToB -> do
+         let oFp :: File () 'Out
+oFp = forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era -> File () 'Out
+uppFilePath GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+             anyEra :: AnyShelleyBasedEra
+anyEra = forall era.
+Typeable era =>
+ShelleyBasedEra era -> AnyShelleyBasedEra
+AnyShelleyBasedEra forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+sToB
+         UpdateProtocolParametersPreConway ShelleyToBabbageEra era
+_cOn EpochNo
+expEpoch [VerificationKeyFile 'In]
+genesisVerKeys
+           <- forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (AnyShelleyBasedEra -> GovernanceActionsError
+GovernanceActionsValueUpdateProtocolParametersNotFound AnyShelleyBasedEra
+anyEra)
+                forall a b. (a -> b) -> a -> b
+$ forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> Maybe (UpdateProtocolParametersPreConway era)
+uppPreConway GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+         let eraBasedPParams :: EraBasedProtocolParametersUpdate era
+eraBasedPParams = forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> EraBasedProtocolParametersUpdate era
+uppNewPParams GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+             updateProtocolParams :: PParamsUpdate (ShelleyLedgerEra era)
+updateProtocolParams = forall era.
+ShelleyBasedEra era
+-> EraBasedProtocolParametersUpdate era
+-> PParamsUpdate (ShelleyLedgerEra era)
+createEraBasedProtocolParamUpdate ShelleyBasedEra era
+sbe EraBasedProtocolParametersUpdate era
+eraBasedPParams
+             apiUpdateProtocolParamsType :: ProtocolParametersUpdate
+apiUpdateProtocolParamsType = forall era.
+ShelleyBasedEra era
+-> PParamsUpdate (ShelleyLedgerEra era) -> ProtocolParametersUpdate
+fromLedgerPParamsUpdate ShelleyBasedEra era
+sbe PParamsUpdate (ShelleyLedgerEra era)
+updateProtocolParams
+         [VerificationKey GenesisKey]
+genVKeys <- forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+           [ forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceActionsError
+GovernanceActionsCmdReadTextEnvelopeFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+               forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisKey
+AsGenesisKey) VerificationKeyFile 'In
+vkeyFile
+           | VerificationKeyFile 'In
+vkeyFile <- [VerificationKeyFile 'In]
+genesisVerKeys
+           ]
+         let genKeyHashes :: [Hash GenesisKey]
+genKeyHashes = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash [VerificationKey GenesisKey]
+genVKeys
+             upProp :: UpdateProposal
+upProp = ProtocolParametersUpdate
+-> [Hash GenesisKey] -> EpochNo -> UpdateProposal
+makeShelleyUpdateProposal ProtocolParametersUpdate
+apiUpdateProtocolParamsType [Hash GenesisKey]
+genKeyHashes EpochNo
+expEpoch
+         forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+           forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing UpdateProposal
+upProp
+    )
+    (\ConwayEraOnwards era
+conwayOnwards -> do
+        let oFp :: File () 'Out
+oFp = forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era -> File () 'Out
+uppFilePath GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+            anyEra :: AnyShelleyBasedEra
+anyEra = forall era.
+Typeable era =>
+ShelleyBasedEra era -> AnyShelleyBasedEra
+AnyShelleyBasedEra forall a b. (a -> b) -> a -> b
+$ forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+conwayOnwards
+
+        UpdateProtocolParametersConwayOnwards ConwayEraOnwards era
+_cOnwards Network
+network Lovelace
+deposit VerificationKeyOrHashOrFile StakeKey
+returnAddr ProposalUrl
+proposalUrl
+                                              SafeHash StandardCrypto AnchorData
+proposalHash Maybe (TxId, Word32)
+mPrevGovActId
+          <- forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (AnyShelleyBasedEra -> GovernanceActionsError
+GovernanceActionsValueUpdateProtocolParametersNotFound AnyShelleyBasedEra
+anyEra)
+              forall a b. (a -> b) -> a -> b
+$ forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> Maybe (UpdateProtocolParametersConwayOnwards era)
+uppConwayOnwards GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+
+        Hash StakeKey
+returnKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+returnAddr
+
+        let eraBasedPParams :: EraBasedProtocolParametersUpdate era
+eraBasedPParams = forall era.
+GovernanceActionProtocolParametersUpdateCmdArgs era
+-> EraBasedProtocolParametersUpdate era
+uppNewPParams GovernanceActionProtocolParametersUpdateCmdArgs era
+eraBasedPParams'
+            updateProtocolParams :: PParamsUpdate (ShelleyLedgerEra era)
+updateProtocolParams = forall era.
+ShelleyBasedEra era
+-> EraBasedProtocolParametersUpdate era
+-> PParamsUpdate (ShelleyLedgerEra era)
+createEraBasedProtocolParamUpdate ShelleyBasedEra era
+sbe EraBasedProtocolParametersUpdate era
+eraBasedPParams
+
+            prevGovActId :: StrictMaybe (PrevGovActionId 'PParamUpdatePurpose StandardCrypto)
+prevGovActId = forall a. Maybe a -> StrictMaybe a
+Ledger.maybeToStrictMaybe forall a b. (a -> b) -> a -> b
+$ forall a b c. (a -> b -> c) -> (a, b) -> c
+uncurry forall (r :: GovActionPurpose).
+TxId -> Word32 -> PrevGovActionId r StandardCrypto
+createPreviousGovernanceActionId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe (TxId, Word32)
+mPrevGovActId
+            proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+              { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+              , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+              }
+            govAct :: GovernanceAction era
+govAct = forall era.
+StrictMaybe (PrevGovActionId 'PParamUpdatePurpose StandardCrypto)
+-> PParamsUpdate (ShelleyLedgerEra era) -> GovernanceAction era
+UpdatePParams StrictMaybe (PrevGovActionId 'PParamUpdatePurpose StandardCrypto)
+prevGovActId PParamsUpdate (ShelleyLedgerEra era)
+updateProtocolParams
+
+
+        let proposalProcedure :: Proposal era
+proposalProcedure = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+network Lovelace
+deposit Hash StakeKey
+returnKeyHash GovernanceAction era
+govAct Anchor StandardCrypto
+proposalAnchor
+
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+conwayOnwards
+          forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+oFp forall a. Maybe a
+Nothing Proposal era
+proposalProcedure
+    )
+    ShelleyBasedEra era
+sbe
+
+readStakeKeyHash :: VerificationKeyOrHashOrFile StakeKey -> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash :: VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+stake =
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceActionsError
+GovernanceActionsCmdReadFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType StakeKey
+AsStakeKey VerificationKeyOrHashOrFile StakeKey
+stake
+
+runGovernanceActionTreasuryWithdrawalCmd :: ()
+  => GovernanceActionTreasuryWithdrawalCmdArgs era
+  -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionTreasuryWithdrawalCmd :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> ExceptT GovernanceActionsError IO ()
+runGovernanceActionTreasuryWithdrawalCmd
+    Cmd.GovernanceActionTreasuryWithdrawalCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , Network
+$sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> Network
+networkId :: Network
+Cmd.networkId
+      , Lovelace
+$sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> Lovelace
+deposit :: Lovelace
+Cmd.deposit
+      , VerificationKeyOrHashOrFile StakeKey
+$sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> VerificationKeyOrHashOrFile StakeKey
+returnAddr :: VerificationKeyOrHashOrFile StakeKey
+Cmd.returnAddr
+      , ProposalUrl
+$sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> ProposalUrl
+proposalUrl :: ProposalUrl
+Cmd.proposalUrl
+      , SafeHash StandardCrypto AnchorData
+$sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> SafeHash StandardCrypto AnchorData
+proposalHash :: SafeHash StandardCrypto AnchorData
+Cmd.proposalHash
+      , [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+$sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era
+-> [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+treasuryWithdrawal :: [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+Cmd.treasuryWithdrawal
+      , File () 'Out
+$sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgs :: forall era.
+GovernanceActionTreasuryWithdrawalCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } = do
+
+  let proposalAnchor :: Anchor StandardCrypto
+proposalAnchor = Ledger.Anchor
+        { anchorUrl :: Url
+Ledger.anchorUrl = ProposalUrl -> Url
+unProposalUrl ProposalUrl
+proposalUrl
+        , anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+proposalHash
+        }
+
+  Hash StakeKey
+returnKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+returnAddr
+
+  [(Network, StakeCredential, Lovelace)]
+withdrawals <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [(VerificationKeyOrHashOrFile StakeKey, Lovelace)]
+treasuryWithdrawal forall a b. (a -> b) -> a -> b
+$ \(VerificationKeyOrHashOrFile StakeKey
+verificationKeyOrHashOrFile, Lovelace
+lovelace) -> do
+    Hash StakeKey
+stakeKeyHash <- VerificationKeyOrHashOrFile StakeKey
+-> ExceptT GovernanceActionsError IO (Hash StakeKey)
+readStakeKeyHash VerificationKeyOrHashOrFile StakeKey
+verificationKeyOrHashOrFile
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Network
+networkId, Hash StakeKey -> StakeCredential
+StakeCredentialByKey Hash StakeKey
+stakeKeyHash, Lovelace
+lovelace)
+
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+      treasuryWithdrawals :: GovernanceAction era
+treasuryWithdrawals = forall era.
+[(Network, StakeCredential, Lovelace)] -> GovernanceAction era
+TreasuryWithdrawal [(Network, StakeCredential, Lovelace)]
+withdrawals
+      proposal :: Proposal era
+proposal = forall era.
+ShelleyBasedEra era
+-> Network
+-> Lovelace
+-> Hash StakeKey
+-> GovernanceAction era
+-> Anchor StandardCrypto
+-> Proposal era
+createProposalProcedure ShelleyBasedEra era
+sbe Network
+networkId Lovelace
+deposit Hash StakeKey
+returnKeyHash GovernanceAction era
+treasuryWithdrawals Anchor StandardCrypto
+proposalAnchor
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceActionsError
+GovernanceActionsCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile forall a. Maybe a
+Nothing Proposal era
+proposal
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Committee.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Committee.html new file mode 100644 index 0000000000..b16b55d079 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Committee.html @@ -0,0 +1,593 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+
+module Cardano.CLI.EraBased.Run.Governance.Committee
+  ( runGovernanceCommitteeCmds
+  , GovernanceCommitteeError(..)
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Commands.Governance.Committee
+import qualified Cardano.CLI.EraBased.Commands.Governance.Committee as Cmd
+import           Cardano.CLI.Types.Errors.GovernanceCommitteeError
+import           Cardano.CLI.Types.Key
+import           Cardano.CLI.Types.Key.VerificationKey
+
+import           Control.Monad.Except (ExceptT)
+import           Control.Monad.IO.Class (liftIO)
+import           Control.Monad.Trans (lift)
+import           Control.Monad.Trans.Except.Extra
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Char8 as BS
+import           Data.Function
+
+runGovernanceCommitteeCmds :: ()
+  => GovernanceCommitteeCmds era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCmds :: forall era.
+GovernanceCommitteeCmds era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCmds = \case
+  GovernanceCommitteeKeyGenColdCmd GovernanceCommitteeKeyGenColdCmdArgs era
+cmd ->
+    forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenCold GovernanceCommitteeKeyGenColdCmdArgs era
+cmd
+  GovernanceCommitteeKeyGenHotCmd GovernanceCommitteeKeyGenHotCmdArgs era
+cmd ->
+    forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenHot GovernanceCommitteeKeyGenHotCmdArgs era
+cmd
+  GovernanceCommitteeKeyHashCmd GovernanceCommitteeKeyHashCmdArgs era
+cmd ->
+    forall era.
+GovernanceCommitteeKeyHashCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyHash GovernanceCommitteeKeyHashCmdArgs era
+cmd
+  GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+cmd ->
+    forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCreateHotKeyAuthorizationCertificate GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+cmd
+  GovernanceCommitteeCreateColdKeyResignationCertificateCmd GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+cmd ->
+    forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeColdKeyResignationCertificate GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+cmd
+
+runGovernanceCommitteeKeyGenCold :: ()
+  => Cmd.GovernanceCommitteeKeyGenColdCmdArgs era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenCold :: forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenCold
+    Cmd.GovernanceCommitteeKeyGenColdCmdArgs
+      { $sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs :: forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> File (VerificationKey ()) 'Out
+Cmd.vkeyOutFile = File (VerificationKey ()) 'Out
+vkeyPath
+      , $sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs :: forall era.
+GovernanceCommitteeKeyGenColdCmdArgs era
+-> File (SigningKey ()) 'Out
+Cmd.skeyOutFile = File (SigningKey ()) 'Out
+skeyPath
+      } = do
+  SigningKey CommitteeColdKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType CommitteeColdKey
+AsCommitteeColdKey
+
+  let vkey :: VerificationKey CommitteeColdKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey CommitteeColdKey
+skey
+
+  forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (SigningKey ()) 'Out
+skeyPath (forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey CommitteeColdKey
+skey)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdWriteFileError)
+
+  forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (VerificationKey ()) 'Out
+vkeyPath (forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey CommitteeColdKey
+vkey)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdWriteFileError)
+
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Constitutional Committee Cold Signing Key"
+
+    vkeyDesc :: TextEnvelopeDescr
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"Constitutional Committee Cold Verification Key"
+
+runGovernanceCommitteeKeyGenHot :: ()
+  => Cmd.GovernanceCommitteeKeyGenHotCmdArgs era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenHot :: forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyGenHot
+    Cmd.GovernanceCommitteeKeyGenHotCmdArgs
+      { $sel:eon:GovernanceCommitteeKeyGenHotCmdArgs :: forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era -> ConwayEraOnwards era
+Cmd.eon         = ConwayEraOnwards era
+_eon
+      , $sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs :: forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> File (VerificationKey ()) 'Out
+Cmd.vkeyOutFile = File (VerificationKey ()) 'Out
+vkeyPath
+      , $sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs :: forall era.
+GovernanceCommitteeKeyGenHotCmdArgs era
+-> File (SigningKey ()) 'Out
+Cmd.skeyOutFile = File (SigningKey ()) 'Out
+skeyPath
+      } = do
+  SigningKey CommitteeHotKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType CommitteeHotKey
+AsCommitteeHotKey
+
+  let vkey :: VerificationKey CommitteeHotKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey CommitteeHotKey
+skey
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (SigningKey ()) 'Out
+skeyPath
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey CommitteeHotKey
+skey
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (VerificationKey ()) 'Out
+vkeyPath
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey CommitteeHotKey
+vkey
+
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Constitutional Committee Hot Signing Key"
+
+    vkeyDesc :: TextEnvelopeDescr
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"Constitutional Committee Hot Verification Key"
+
+data SomeCommitteeKey f
+  = ACommitteeHotKey  (f CommitteeHotKey)
+  | ACommitteeColdKey (f CommitteeColdKey)
+
+runGovernanceCommitteeKeyHash :: ()
+  => Cmd.GovernanceCommitteeKeyHashCmdArgs era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyHash :: forall era.
+GovernanceCommitteeKeyHashCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeKeyHash
+    Cmd.GovernanceCommitteeKeyHashCmdArgs
+      { AnyVerificationKeySource
+$sel:vkeySource:GovernanceCommitteeKeyHashCmdArgs :: forall era.
+GovernanceCommitteeKeyHashCmdArgs era -> AnyVerificationKeySource
+vkeySource :: AnyVerificationKeySource
+Cmd.vkeySource
+      } = do
+  SomeCommitteeKey VerificationKey
+vkey <-
+    case AnyVerificationKeySource
+vkeySource of
+      AnyVerificationKeySourceOfText AnyVerificationKeyText
+vkText -> do
+        let asTypes :: [FromSomeType SerialiseAsBech32 (SomeCommitteeKey VerificationKey)]
+asTypes =
+              [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeHotKey
+AsCommitteeHotKey ) forall (f :: * -> *). f CommitteeHotKey -> SomeCommitteeKey f
+ACommitteeHotKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeColdKey
+AsCommitteeColdKey) forall (f :: * -> *). f CommitteeColdKey -> SomeCommitteeKey f
+ACommitteeColdKey
+              ]
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall b.
+[FromSomeType SerialiseAsBech32 b]
+-> Text -> Either Bech32DecodeError b
+deserialiseAnyOfFromBech32 [FromSomeType SerialiseAsBech32 (SomeCommitteeKey VerificationKey)]
+asTypes (AnyVerificationKeyText -> Text
+unAnyVerificationKeyText AnyVerificationKeyText
+vkText))
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. InputDecodeError -> GovernanceCommitteeError
+GovernanceCommitteeCmdKeyDecodeError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Bech32DecodeError -> InputDecodeError
+InputBech32DecodeError)
+      AnyVerificationKeySourceOfFile File (VerificationKey ()) 'In
+vkeyPath -> do
+        let asTypes :: [FromSomeType HasTextEnvelope (SomeCommitteeKey VerificationKey)]
+asTypes =
+              [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeHotKey
+AsCommitteeHotKey ) forall (f :: * -> *). f CommitteeHotKey -> SomeCommitteeKey f
+ACommitteeHotKey
+              , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType CommitteeColdKey
+AsCommitteeColdKey) forall (f :: * -> *). f CommitteeColdKey -> SomeCommitteeKey f
+ACommitteeColdKey
+              ]
+        forall b content.
+[FromSomeType HasTextEnvelope b]
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) b)
+readFileTextEnvelopeAnyOf [FromSomeType HasTextEnvelope (SomeCommitteeKey VerificationKey)]
+asTypes File (VerificationKey ()) 'In
+vkeyPath
+          forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceCommitteeError
+GovernanceCommitteeCmdTextEnvReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn (SomeCommitteeKey VerificationKey -> ByteString
+renderKeyHash SomeCommitteeKey VerificationKey
+vkey)
+
+  where
+    renderKeyHash :: SomeCommitteeKey VerificationKey -> ByteString
+    renderKeyHash :: SomeCommitteeKey VerificationKey -> ByteString
+renderKeyHash = \case
+      ACommitteeHotKey  VerificationKey CommitteeHotKey
+vk -> forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash VerificationKey CommitteeHotKey
+vk
+      ACommitteeColdKey VerificationKey CommitteeColdKey
+vk -> forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash VerificationKey CommitteeColdKey
+vk
+
+    renderVerificationKeyHash :: Key keyrole => VerificationKey keyrole -> ByteString
+    renderVerificationKeyHash :: forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> ByteString
+renderVerificationKeyHash = forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex
+                              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash
+
+runGovernanceCommitteeCreateHotKeyAuthorizationCertificate :: ()
+  => Cmd.GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCreateHotKeyAuthorizationCertificate :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCreateHotKeyAuthorizationCertificate
+    Cmd.GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
+      { $sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> ConwayEraOnwards era
+Cmd.eon = ConwayEraOnwards era
+eon
+      , $sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+Cmd.vkeyColdKeySource = VerificationKeyOrHashOrFile CommitteeColdKey
+coldVkOrHashOrFp
+      , $sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeHotKey
+Cmd.vkeyHotKeySource = VerificationKeyOrHashOrFile CommitteeHotKey
+hotVkOrHashOrFp
+      , $sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era
+-> File () 'Out
+Cmd.outFile = File () 'Out
+oFp
+      } =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+    CommitteeColdKeyHash KeyHash 'ColdCommitteeRole StandardCrypto
+coldVKHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeColdKey
+AsCommitteeColdKey VerificationKeyOrHashOrFile CommitteeColdKey
+coldVkOrHashOrFp)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceCommitteeError
+GovernanceCommitteeCmdKeyReadError)
+
+    CommitteeHotKeyHash KeyHash 'HotCommitteeRole StandardCrypto
+hotVkHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeHotKey
+AsCommitteeHotKey VerificationKeyOrHashOrFile CommitteeHotKey
+hotVkOrHashOrFp)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceCommitteeError
+GovernanceCommitteeCmdKeyReadError)
+
+    forall era.
+CommitteeHotKeyAuthorizationRequirements era -> Certificate era
+makeCommitteeHotKeyAuthorizationCertificate (forall era.
+ConwayEraOnwards era
+-> KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+-> KeyHash 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+-> CommitteeHotKeyAuthorizationRequirements era
+CommitteeHotKeyAuthorizationRequirements ConwayEraOnwards era
+eon KeyHash 'ColdCommitteeRole StandardCrypto
+coldVKHash KeyHash 'HotCommitteeRole StandardCrypto
+hotVkHash)
+      forall a b. a -> (a -> b) -> b
+& forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genKeyDelegCertDesc)
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdTextEnvWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+
+  where
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+genKeyDelegCertDesc = TextEnvelopeDescr
+"Constitutional Committee Hot Key Registration Certificate"
+
+runGovernanceCommitteeColdKeyResignationCertificate :: ()
+  => Cmd.GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+  -> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeColdKeyResignationCertificate :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeColdKeyResignationCertificate
+    Cmd.GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs
+      { $sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> ConwayEraOnwards era
+Cmd.eon               = ConwayEraOnwards era
+w
+      , $sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile CommitteeColdKey
+Cmd.vkeyColdKeySource = VerificationKeyOrHashOrFile CommitteeColdKey
+coldVkOrHashOrFp
+      , $sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+Cmd.anchor            = Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+anchor
+      , $sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs :: forall era.
+GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era
+-> File () 'Out
+Cmd.outFile           = File () 'Out
+oFp
+      } =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ do
+    CommitteeColdKeyHash KeyHash 'ColdCommitteeRole StandardCrypto
+coldVKHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeColdKey
+AsCommitteeColdKey VerificationKeyOrHashOrFile CommitteeColdKey
+coldVkOrHashOrFp)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceCommitteeError
+GovernanceCommitteeCmdKeyReadError)
+
+    forall era.
+CommitteeColdkeyResignationRequirements era -> Certificate era
+makeCommitteeColdkeyResignationCertificate (forall era.
+ConwayEraOnwards era
+-> KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+-> CommitteeColdkeyResignationRequirements era
+CommitteeColdkeyResignationRequirements ConwayEraOnwards era
+w KeyHash 'ColdCommitteeRole StandardCrypto
+coldVKHash Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+anchor)
+      forall a b. a -> (a -> b) -> b
+& forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genKeyDelegCertDesc)
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCommitteeError
+GovernanceCommitteeCmdTextEnvWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+
+  where
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+genKeyDelegCertDesc = TextEnvelopeDescr
+"Constitutional Committee Cold Key Resignation Certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.DRep.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.DRep.html new file mode 100644 index 0000000000..09241d7512 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.DRep.html @@ -0,0 +1,539 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+
+{- HLINT ignore "Use let" -}
+
+module Cardano.CLI.EraBased.Run.Governance.DRep
+  ( runGovernanceDRepCmds
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Ledger (Credential (KeyHashObj))
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.DRep as Cmd
+import qualified Cardano.CLI.EraBased.Run.Key as Key
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.CmdError
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+import           Cardano.CLI.Types.Errors.RegistrationError
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.IO.Class
+import           Control.Monad.Trans.Class
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import           Data.Function
+import qualified Data.Text.Encoding as Text
+
+runGovernanceDRepCmds :: ()
+  => Cmd.GovernanceDRepCmds era
+  -> ExceptT CmdError IO ()
+runGovernanceDRepCmds :: forall era. GovernanceDRepCmds era -> ExceptT CmdError IO ()
+runGovernanceDRepCmds = \case
+  Cmd.GovernanceDRepKeyGenCmd GovernanceDRepKeyGenCmdArgs era
+args ->
+    forall era.
+GovernanceDRepKeyGenCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepKeyGenCmd GovernanceDRepKeyGenCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceDRepIdCmd GovernanceDRepIdCmdArgs era
+args ->
+    forall era.
+GovernanceDRepIdCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepIdCmd GovernanceDRepIdCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceDRepRegistrationCertificateCmd GovernanceDRepRegistrationCertificateCmdArgs era
+args ->
+    forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> ExceptT RegistrationError IO ()
+runGovernanceDRepRegistrationCertificateCmd GovernanceDRepRegistrationCertificateCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT RegistrationError -> CmdError
+CmdRegistrationError
+
+  Cmd.GovernanceDRepRetirementCertificateCmd GovernanceDRepRetirementCertificateCmdArgs era
+args ->
+    forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepRetirementCertificateCmd GovernanceDRepRetirementCertificateCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceDRepMetadataHashCmd GovernanceDRepMetadataHashCmdArgs era
+args ->
+    forall era.
+GovernanceDRepMetadataHashCmdArgs era
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepMetadataHashCmd GovernanceDRepMetadataHashCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+runGovernanceDRepKeyGenCmd :: ()
+  => Cmd.GovernanceDRepKeyGenCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepKeyGenCmd :: forall era.
+GovernanceDRepKeyGenCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepKeyGenCmd
+    Cmd.GovernanceDRepKeyGenCmdArgs
+      { File (VerificationKey ()) 'Out
+$sel:vkeyFile:GovernanceDRepKeyGenCmdArgs :: forall era.
+GovernanceDRepKeyGenCmdArgs era -> File (VerificationKey ()) 'Out
+vkeyFile :: File (VerificationKey ()) 'Out
+vkeyFile
+      , File (SigningKey ()) 'Out
+$sel:skeyFile:GovernanceDRepKeyGenCmdArgs :: forall era.
+GovernanceDRepKeyGenCmdArgs era -> File (SigningKey ()) 'Out
+skeyFile :: File (SigningKey ()) 'Out
+skeyFile
+     } = forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdWriteFileError forall a b. (a -> b) -> a -> b
+$ do
+  SigningKey DRepKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType DRepKey
+AsDRepKey
+  let vkey :: VerificationKey DRepKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey DRepKey
+skey
+  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (SigningKey ()) 'Out
+skeyFile (forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey DRepKey
+skey)
+  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File (VerificationKey ()) 'Out
+vkeyFile (forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.drepVkeyDesc) VerificationKey DRepKey
+vkey)
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Delegate Representative Signing Key"
+
+runGovernanceDRepIdCmd :: ()
+  => Cmd.GovernanceDRepIdCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepIdCmd :: forall era.
+GovernanceDRepIdCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepIdCmd
+    Cmd.GovernanceDRepIdCmdArgs
+      { VerificationKeyOrFile DRepKey
+$sel:vkeySource:GovernanceDRepIdCmdArgs :: forall era.
+GovernanceDRepIdCmdArgs era -> VerificationKeyOrFile DRepKey
+vkeySource :: VerificationKeyOrFile DRepKey
+vkeySource
+      , IdOutputFormat
+$sel:idOutputFormat:GovernanceDRepIdCmdArgs :: forall era. GovernanceDRepIdCmdArgs era -> IdOutputFormat
+idOutputFormat :: IdOutputFormat
+idOutputFormat
+      , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceDRepIdCmdArgs :: forall era. GovernanceDRepIdCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  VerificationKey DRepKey
+drepVerKey <-
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+HasTextEnvelope (VerificationKey keyrole) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrTextEnvFile AsType DRepKey
+AsDRepKey VerificationKeyOrFile DRepKey
+vkeySource)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> GovernanceCmdError
+ReadFileError)
+
+  ByteString
+content <-
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ case IdOutputFormat
+idOutputFormat of
+      IdOutputFormat
+IdOutputFormatHex -> forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey DRepKey
+drepVerKey
+      IdOutputFormat
+IdOutputFormatBech32 -> Text -> ByteString
+Text.encodeUtf8 forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey DRepKey
+drepVerKey
+
+  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile ByteString
+content)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> GovernanceCmdError
+WriteFileError)
+
+--------------------------------------------------------------------------------
+
+-- Registration Certificate related
+
+runGovernanceDRepRegistrationCertificateCmd :: ()
+  => Cmd.GovernanceDRepRegistrationCertificateCmdArgs era
+  -> ExceptT RegistrationError IO ()
+runGovernanceDRepRegistrationCertificateCmd :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> ExceptT RegistrationError IO ()
+runGovernanceDRepRegistrationCertificateCmd
+    Cmd.GovernanceDRepRegistrationCertificateCmdArgs
+      { $sel:eon:GovernanceDRepRegistrationCertificateCmdArgs :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon = ConwayEraOnwards era
+w
+      , VerificationKeyOrHashOrFile DRepKey
+$sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgs :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile DRepKey
+drepVkeyHashSource :: VerificationKeyOrHashOrFile DRepKey
+drepVkeyHashSource
+      , Lovelace
+$sel:deposit:GovernanceDRepRegistrationCertificateCmdArgs :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era -> Lovelace
+deposit :: Lovelace
+deposit
+      , Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+$sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgs :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor :: Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor
+      , File () 'Out
+$sel:outFile:GovernanceDRepRegistrationCertificateCmdArgs :: forall era.
+GovernanceDRepRegistrationCertificateCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+outFile
+      } = do
+  DRepKeyHash KeyHash 'DRepRole StandardCrypto
+drepKeyHash <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> RegistrationError
+RegistrationReadError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType DRepKey
+AsDRepKey VerificationKeyOrHashOrFile DRepKey
+drepVkeyHashSource
+  let drepCred :: Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+drepCred = forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w KeyHash 'DRepRole StandardCrypto
+drepKeyHash
+      req :: DRepRegistrationRequirements era
+req = forall era.
+ConwayEraOnwards era
+-> Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+-> Lovelace
+-> DRepRegistrationRequirements era
+DRepRegistrationRequirements ConwayEraOnwards era
+w Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+drepCred Lovelace
+deposit
+      registrationCert :: Certificate era
+registrationCert = forall era.
+DRepRegistrationRequirements era
+-> Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+-> Certificate era
+makeDrepRegistrationCertificate DRepRegistrationRequirements era
+req Maybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor
+      description :: Maybe TextEnvelopeDescr
+description = forall a. a -> Maybe a
+Just @TextEnvelopeDescr TextEnvelopeDescr
+"DRep Key Registration Certificate"
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> RegistrationError
+RegistrationWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON Maybe TextEnvelopeDescr
+description Certificate era
+registrationCert
+
+runGovernanceDRepRetirementCertificateCmd :: ()
+  => Cmd.GovernanceDRepRetirementCertificateCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepRetirementCertificateCmd :: forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepRetirementCertificateCmd
+    Cmd.GovernanceDRepRetirementCertificateCmdArgs
+      { $sel:eon:GovernanceDRepRetirementCertificateCmdArgs :: forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> ConwayEraOnwards era
+eon = ConwayEraOnwards era
+w
+      , VerificationKeyOrHashOrFile DRepKey
+$sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgs :: forall era.
+GovernanceDRepRetirementCertificateCmdArgs era
+-> VerificationKeyOrHashOrFile DRepKey
+vkeyHashSource :: VerificationKeyOrHashOrFile DRepKey
+vkeyHashSource
+      , Lovelace
+$sel:deposit:GovernanceDRepRetirementCertificateCmdArgs :: forall era.
+GovernanceDRepRetirementCertificateCmdArgs era -> Lovelace
+deposit :: Lovelace
+deposit
+      , File () 'Out
+$sel:outFile:GovernanceDRepRetirementCertificateCmdArgs :: forall era.
+GovernanceDRepRetirementCertificateCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+outFile
+      } =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ do
+    DRepKeyHash KeyHash 'DRepRole StandardCrypto
+drepKeyHash <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceCmdError
+GovernanceCmdKeyReadError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType DRepKey
+AsDRepKey VerificationKeyOrHashOrFile DRepKey
+vkeyHashSource
+    forall era. DRepUnregistrationRequirements era -> Certificate era
+makeDrepUnregistrationCertificate (forall era.
+ConwayEraOnwards era
+-> Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+-> Lovelace
+-> DRepUnregistrationRequirements era
+DRepUnregistrationRequirements ConwayEraOnwards era
+w (forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+KeyHashObj KeyHash 'DRepRole StandardCrypto
+drepKeyHash) Lovelace
+deposit)
+      forall a b. a -> (a -> b) -> b
+& forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File () 'Out
+outFile (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genKeyDelegCertDesc)
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+
+  where
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+genKeyDelegCertDesc = TextEnvelopeDescr
+"DRep Retirement Certificate"
+
+runGovernanceDRepMetadataHashCmd :: ()
+  => Cmd.GovernanceDRepMetadataHashCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepMetadataHashCmd :: forall era.
+GovernanceDRepMetadataHashCmdArgs era
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepMetadataHashCmd
+    Cmd.GovernanceDRepMetadataHashCmdArgs
+      { DRepMetadataFile 'In
+$sel:metadataFile:GovernanceDRepMetadataHashCmdArgs :: forall era.
+GovernanceDRepMetadataHashCmdArgs era -> DRepMetadataFile 'In
+metadataFile :: DRepMetadataFile 'In
+metadataFile
+      , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceDRepMetadataHashCmdArgs :: forall era.
+GovernanceDRepMetadataHashCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  ByteString
+metadataBytes <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceCmdError
+ReadFileError forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT (forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'In -> m (Either (FileError e) ByteString)
+readByteStringFile DRepMetadataFile 'In
+metadataFile)
+  (DRepMetadata
+_metadata, Hash DRepMetadata
+metadataHash) <-
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT DRepMetadataValidationError -> GovernanceCmdError
+GovernanceCmdDRepMetadataValidationError
+     forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+     forall a b. (a -> b) -> a -> b
+$ ByteString
+-> Either
+     DRepMetadataValidationError (DRepMetadata, Hash DRepMetadata)
+validateAndHashDRepMetadata ByteString
+metadataBytes
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+WriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex
+    forall a b. (a -> b) -> a -> b
+$ Hash DRepMetadata
+metadataHash
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate.html new file mode 100644 index 0000000000..90af40265c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate.html @@ -0,0 +1,147 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
+  ( runGovernanceGenesisKeyDelegationCertificate
+  ) where
+
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra
+
+runGovernanceGenesisKeyDelegationCertificate
+  :: ShelleyToBabbageEra era
+  -> VerificationKeyOrHashOrFile GenesisKey
+  -> VerificationKeyOrHashOrFile GenesisDelegateKey
+  -> VerificationKeyOrHashOrFile VrfKey
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceGenesisKeyDelegationCertificate :: forall era.
+ShelleyToBabbageEra era
+-> VerificationKeyOrHashOrFile GenesisKey
+-> VerificationKeyOrHashOrFile GenesisDelegateKey
+-> VerificationKeyOrHashOrFile VrfKey
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceGenesisKeyDelegationCertificate ShelleyToBabbageEra era
+stb
+                                             VerificationKeyOrHashOrFile GenesisKey
+genVkOrHashOrFp
+                                             VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelVkOrHashOrFp
+                                             VerificationKeyOrHashOrFile VrfKey
+vrfVkOrHashOrFp
+                                             File () 'Out
+oFp = do
+  Hash GenesisKey
+genesisVkHash <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceCmdError
+GovernanceCmdKeyReadError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType GenesisKey
+AsGenesisKey VerificationKeyOrHashOrFile GenesisKey
+genVkOrHashOrFp
+  Hash GenesisDelegateKey
+genesisDelVkHash <-forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceCmdError
+GovernanceCmdKeyReadError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType GenesisDelegateKey
+AsGenesisDelegateKey VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelVkOrHashOrFp
+  Hash VrfKey
+vrfVkHash <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> GovernanceCmdError
+GovernanceCmdKeyReadError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType VrfKey
+AsVrfKey VerificationKeyOrHashOrFile VrfKey
+vrfVkOrHashOrFp
+
+  let req :: GenesisKeyDelegationRequirements era
+req = forall ere.
+ShelleyToBabbageEra ere
+-> Hash GenesisKey
+-> Hash GenesisDelegateKey
+-> Hash VrfKey
+-> GenesisKeyDelegationRequirements ere
+GenesisKeyDelegationRequirements ShelleyToBabbageEra era
+stb Hash GenesisKey
+genesisVkHash Hash GenesisDelegateKey
+genesisDelVkHash Hash VrfKey
+vrfVkHash
+      genKeyDelegCert :: Certificate era
+genKeyDelegCert = forall era. GenesisKeyDelegationRequirements era -> Certificate era
+makeGenesisKeyDelegationCertificate GenesisKeyDelegationRequirements era
+req
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+stb)
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genKeyDelegCertDesc) Certificate era
+genKeyDelegCert
+  where
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+    genKeyDelegCertDesc :: TextEnvelopeDescr
+genKeyDelegCertDesc = TextEnvelopeDescr
+"Genesis Key Delegation Certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Hash.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Hash.html new file mode 100644 index 0000000000..3ca91eeb78 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Hash.html @@ -0,0 +1,167 @@ +

+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+{- HLINT ignore "Use let" -}
+
+module Cardano.CLI.EraBased.Run.Governance.Hash
+  ( runGovernanceHashCmds
+  ) where
+
+import           Cardano.Api
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Hash as Cmd
+import           Cardano.CLI.Types.Errors.CmdError
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+import           Cardano.CLI.Types.Errors.GovernanceHashError
+import           Cardano.Crypto.Hash (hashToTextAsHex)
+import qualified Cardano.Ledger.BaseTypes as Ledger
+import           Cardano.Ledger.Crypto
+import           Cardano.Ledger.SafeHash (extractHash)
+import qualified Cardano.Ledger.SafeHash as Ledger
+
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import qualified Data.ByteString as BS
+import           Data.Function
+import qualified Data.Text.Encoding as Text
+import qualified Data.Text.IO as Text
+
+runGovernanceHashCmds :: ()
+  => Cmd.GovernanceHashCmds era
+  -> ExceptT CmdError IO ()
+runGovernanceHashCmds :: forall era. GovernanceHashCmds era -> ExceptT CmdError IO ()
+runGovernanceHashCmds (Cmd.GovernanceHashCmd GovernanceHashCmdArgs era
+args)=
+    forall era.
+GovernanceHashCmdArgs era -> ExceptT GovernanceHashError IO ()
+runGovernanceHashCmd GovernanceHashCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (GovernanceCmdError -> CmdError
+CmdGovernanceCmdError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. GovernanceHashError -> GovernanceCmdError
+GovernanceCmdHashError)
+
+runGovernanceHashCmd :: ()
+  => Cmd.GovernanceHashCmdArgs era
+  -> ExceptT GovernanceHashError IO ()
+runGovernanceHashCmd :: forall era.
+GovernanceHashCmdArgs era -> ExceptT GovernanceHashError IO ()
+runGovernanceHashCmd Cmd.GovernanceHashCmdArgs { GovernanceHashSource
+toHash :: forall era. GovernanceHashCmdArgs era -> GovernanceHashSource
+toHash :: GovernanceHashSource
+toHash, Maybe (File () 'Out)
+moutFile :: forall era. GovernanceHashCmdArgs era -> Maybe (File () 'Out)
+moutFile :: Maybe (File () 'Out)
+moutFile } =
+  -- TODO @smelc we probably want an option to write the computed hash to a file
+  -- This can be done in a separate PR
+  case GovernanceHashSource
+toHash of
+    Cmd.GovernanceHashSourceBinaryFile File ProposalText 'In
+fp -> do
+      let path :: FilePath
+path = forall content (direction :: FileDirection).
+File content direction -> FilePath
+unFile File ProposalText 'In
+fp
+      ByteString
+bytes <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FilePath -> IOException -> GovernanceHashError
+GovernanceHashReadFileError FilePath
+path) forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ByteString
+BS.readFile FilePath
+path
+      let hash :: SafeHash StandardCrypto AnchorData
+hash = forall c. Crypto c => AnchorData -> SafeHash c AnchorData
+Ledger.hashAnchorData forall a b. (a -> b) -> a -> b
+$ ByteString -> AnchorData
+Ledger.AnchorData ByteString
+bytes
+      forall i.
+SafeHash StandardCrypto i -> ExceptT GovernanceHashError IO ()
+printHash SafeHash StandardCrypto AnchorData
+hash
+    Cmd.GovernanceHashSourceTextFile File ProposalText 'In
+fp -> do
+      let path :: FilePath
+path = forall content (direction :: FileDirection).
+File content direction -> FilePath
+unFile File ProposalText 'In
+fp
+      Text
+text <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FilePath -> IOException -> GovernanceHashError
+GovernanceHashReadFileError FilePath
+path) forall a b. (a -> b) -> a -> b
+$ FilePath -> IO Text
+Text.readFile FilePath
+path
+      let hash :: SafeHash StandardCrypto AnchorData
+hash = forall c. Crypto c => AnchorData -> SafeHash c AnchorData
+Ledger.hashAnchorData forall a b. (a -> b) -> a -> b
+$ ByteString -> AnchorData
+Ledger.AnchorData forall a b. (a -> b) -> a -> b
+$ Text -> ByteString
+Text.encodeUtf8 Text
+text
+      forall i.
+SafeHash StandardCrypto i -> ExceptT GovernanceHashError IO ()
+printHash SafeHash StandardCrypto AnchorData
+hash
+    Cmd.GovernanceHashSourceText Text
+text -> do
+      let hash :: SafeHash StandardCrypto AnchorData
+hash = forall c. Crypto c => AnchorData -> SafeHash c AnchorData
+Ledger.hashAnchorData forall a b. (a -> b) -> a -> b
+$ ByteString -> AnchorData
+Ledger.AnchorData forall a b. (a -> b) -> a -> b
+$ Text -> ByteString
+Text.encodeUtf8 Text
+text
+      forall i.
+SafeHash StandardCrypto i -> ExceptT GovernanceHashError IO ()
+printHash SafeHash StandardCrypto AnchorData
+hash
+  where
+    printHash :: Ledger.SafeHash StandardCrypto i -> ExceptT GovernanceHashError IO ()
+    printHash :: forall i.
+SafeHash StandardCrypto i -> ExceptT GovernanceHashError IO ()
+printHash SafeHash StandardCrypto i
+hash = do
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceHashError
+GovernanceHashWriteFileError forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out) -> Text -> m (Either (FileError e) ())
+writeTextOutput Maybe (File () 'Out)
+moutFile Text
+text
+      where
+        text :: Text
+text = forall h a. Hash h a -> Text
+hashToTextAsHex forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall c i. SafeHash c i -> Hash (HASH c) i
+extractHash forall a b. (a -> b) -> a -> b
+$ SafeHash StandardCrypto i
+hash
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Poll.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Poll.html new file mode 100644 index 0000000000..c98e92d636 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Poll.html @@ -0,0 +1,567 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Run.Governance.Poll
+  ( runGovernancePollCmds,
+    runGovernanceCreatePollCmd,
+    runGovernanceAnswerPollCmd,
+    runGovernanceVerifyPollCmd
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Poll as Cmd
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+
+import           Control.Monad
+import           Control.Monad.IO.Class
+import           Control.Monad.Trans.Class (lift)
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Function ((&))
+import           Data.String (fromString)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+import qualified Data.Text.IO as Text
+import qualified Data.Text.Read as Text
+import qualified System.IO as IO
+import           System.IO (stderr, stdin, stdout)
+
+
+runGovernancePollCmds :: ()
+  => Cmd.GovernancePollCmds era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernancePollCmds :: forall era.
+GovernancePollCmds era -> ExceptT GovernanceCmdError IO ()
+runGovernancePollCmds = \case
+  Cmd.GovernanceCreatePoll GovernanceCreatePollCmdArgs era
+args -> forall era.
+GovernanceCreatePollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreatePollCmd GovernanceCreatePollCmdArgs era
+args
+  Cmd.GovernanceAnswerPoll GovernanceAnswerPollCmdArgs era
+args -> forall era.
+GovernanceAnswerPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceAnswerPollCmd GovernanceAnswerPollCmdArgs era
+args
+  Cmd.GovernanceVerifyPoll GovernanceVerifyPollCmdArgs era
+args -> forall era.
+GovernanceVerifyPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceVerifyPollCmd GovernanceVerifyPollCmdArgs era
+args
+
+runGovernanceCreatePollCmd :: ()
+  => Cmd.GovernanceCreatePollCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreatePollCmd :: forall era.
+GovernanceCreatePollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreatePollCmd
+    Cmd.GovernanceCreatePollCmdArgs
+      { $sel:eon:GovernanceCreatePollCmdArgs :: forall era.
+GovernanceCreatePollCmdArgs era -> BabbageEraOnwards era
+eon     = BabbageEraOnwards era
+_eon
+      , $sel:prompt:GovernanceCreatePollCmdArgs :: forall era. GovernanceCreatePollCmdArgs era -> Text
+prompt  = Text
+govPollQuestion
+      , $sel:choices:GovernanceCreatePollCmdArgs :: forall era. GovernanceCreatePollCmdArgs era -> [Text]
+choices = [Text]
+govPollAnswers
+      , $sel:nonce:GovernanceCreatePollCmdArgs :: forall era. GovernanceCreatePollCmdArgs era -> Maybe Word
+nonce   = Maybe Word
+govPollNonce
+      , $sel:outFile:GovernanceCreatePollCmdArgs :: forall era.
+GovernanceCreatePollCmdArgs era -> File GovernancePoll 'Out
+outFile = File GovernancePoll 'Out
+out
+      } = do
+  let poll :: GovernancePoll
+poll = GovernancePoll{ Text
+govPollQuestion :: Text
+govPollQuestion :: Text
+govPollQuestion, [Text]
+govPollAnswers :: [Text]
+govPollAnswers :: [Text]
+govPollAnswers, Maybe Word
+govPollNonce :: Maybe Word
+govPollNonce :: Maybe Word
+govPollNonce }
+
+  let description :: TextEnvelopeDescr
+description = forall a. IsString a => String -> a
+fromString forall a b. (a -> b) -> a -> b
+$ String
+"An on-chain poll for SPOs: " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack Text
+govPollQuestion
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope File GovernancePoll 'Out
+out (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+description) GovernancePoll
+poll
+
+  let metadata :: Value
+metadata = forall a. AsTxMetadata a => a -> TxMetadata
+asTxMetadata GovernancePoll
+poll
+        forall a b. a -> (a -> b) -> b
+& TxMetadataJsonSchema -> TxMetadata -> Value
+metadataToJson TxMetadataJsonSchema
+TxMetadataJsonDetailedSchema
+
+  let outPath :: ByteString
+outPath = forall content (direction :: FileDirection).
+File content direction -> String
+unFile File GovernancePoll 'Out
+out forall a b. a -> (a -> b) -> b
+& Text -> ByteString
+Text.encodeUtf8 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+    Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ ByteString
+"Poll created successfully.\n"
+      , ByteString
+"Please submit a transaction using the resulting metadata.\n"
+      ]
+    Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stdout (forall a. ToJSON a => a -> ByteString
+prettyPrintJSON Value
+metadata)
+    Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ ByteString
+"\n"
+      , ByteString
+"Hint (1): Use '--json-metadata-detailed-schema' and '--metadata-json-file' "
+      , ByteString
+"from the build or build-raw commands.\n"
+      , ByteString
+"Hint (2): You can redirect the standard output of this command to a JSON "
+      , ByteString
+"file to capture metadata.\n\n"
+      , ByteString
+"Note: A serialized version of the poll suitable for sharing with "
+      , ByteString
+"participants has been generated at '" forall a. Semigroup a => a -> a -> a
+<> ByteString
+outPath forall a. Semigroup a => a -> a -> a
+<> ByteString
+"'."
+      ]
+
+runGovernanceAnswerPollCmd :: ()
+  => Cmd.GovernanceAnswerPollCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceAnswerPollCmd :: forall era.
+GovernanceAnswerPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceAnswerPollCmd
+    Cmd.GovernanceAnswerPollCmdArgs
+      { $sel:eon:GovernanceAnswerPollCmdArgs :: forall era.
+GovernanceAnswerPollCmdArgs era -> BabbageEraOnwards era
+eon         = BabbageEraOnwards era
+_eon
+      , $sel:pollFile:GovernanceAnswerPollCmdArgs :: forall era.
+GovernanceAnswerPollCmdArgs era -> File GovernancePoll 'In
+pollFile    = File GovernancePoll 'In
+pollFile
+      , $sel:answerIndex:GovernanceAnswerPollCmdArgs :: forall era. GovernanceAnswerPollCmdArgs era -> Maybe Word
+answerIndex = Maybe Word
+maybeChoice
+      , $sel:mOutFile:GovernanceAnswerPollCmdArgs :: forall era. GovernanceAnswerPollCmdArgs era -> Maybe (File () 'Out)
+mOutFile    = Maybe (File () 'Out)
+mOutFile
+       } = do
+  GovernancePoll
+poll <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceCmdError
+GovernanceCmdTextEnvReadError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope AsType GovernancePoll
+AsGovernancePoll File GovernancePoll 'In
+pollFile
+
+  Word
+choice <- case Maybe Word
+maybeChoice of
+    Maybe Word
+Nothing -> do
+      GovernancePoll -> ExceptT GovernanceCmdError IO Word
+askInteractively GovernancePoll
+poll
+    Just Word
+ix -> do
+      GovernancePoll -> Word -> ExceptT GovernanceCmdError IO ()
+validateChoice GovernancePoll
+poll Word
+ix
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ Text -> ByteString
+Text.encodeUtf8 forall a b. (a -> b) -> a -> b
+$ Text -> [Text] -> Text
+Text.intercalate Text
+"\n"
+        [ GovernancePoll -> Text
+govPollQuestion GovernancePoll
+poll
+        , Text
+"→ " forall a. Semigroup a => a -> a -> a
+<> (GovernancePoll -> [Text]
+govPollAnswers GovernancePoll
+poll forall a. [a] -> Int -> a
+!! forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+ix)
+        , Text
+""
+        ]
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure Word
+ix
+
+  let pollAnswer :: GovernancePollAnswer
+pollAnswer = GovernancePollAnswer
+        { govAnsPoll :: Hash GovernancePoll
+govAnsPoll = GovernancePoll -> Hash GovernancePoll
+hashGovernancePoll GovernancePoll
+poll
+        , govAnsChoice :: Word
+govAnsChoice = Word
+choice
+        }
+  let metadata :: Value
+metadata =
+        TxMetadataJsonSchema -> TxMetadata -> Value
+metadataToJson TxMetadataJsonSchema
+TxMetadataJsonDetailedSchema (forall a. AsTxMetadata a => a -> TxMetadata
+asTxMetadata GovernancePollAnswer
+pollAnswer)
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ ByteString
+"Poll answer created successfully.\n"
+      , ByteString
+"Please submit a transaction using the resulting metadata.\n"
+      , ByteString
+"To be valid, the transaction must also be signed using a valid key\n"
+      , ByteString
+"identifying your stake pool (e.g. your cold key).\n"
+      ]
+
+  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile (forall a. ToJSON a => a -> ByteString
+prettyPrintJSON Value
+metadata))
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> GovernanceCmdError
+GovernanceCmdWriteFileError)
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ ByteString
+"\n"
+      , ByteString
+"Hint (1): Use '--json-metadata-detailed-schema' and '--metadata-json-file' "
+      , ByteString
+"from the build or build-raw commands.\n"
+      , ByteString
+"Hint (2): You can redirect the standard output of this command to a JSON "
+      , ByteString
+"file to capture metadata."
+      ]
+ where
+  validateChoice :: GovernancePoll -> Word -> ExceptT GovernanceCmdError IO ()
+  validateChoice :: GovernancePoll -> Word -> ExceptT GovernanceCmdError IO ()
+validateChoice GovernancePoll{[Text]
+govPollAnswers :: [Text]
+govPollAnswers :: GovernancePoll -> [Text]
+govPollAnswers} Word
+ix = do
+    let maxAnswerIndex :: Int
+maxAnswerIndex = forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Text]
+govPollAnswers forall a. Num a => a -> a -> a
+- Int
+1
+        ixInt :: Int
+ixInt = forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+ix
+    forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (Int
+ixInt forall a. Ord a => a -> a -> Bool
+< Int
+0 Bool -> Bool -> Bool
+|| Int
+ixInt forall a. Ord a => a -> a -> Bool
+> Int
+maxAnswerIndex) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$
+      Int -> GovernanceCmdError
+GovernanceCmdPollOutOfBoundAnswer Int
+maxAnswerIndex
+
+  askInteractively :: GovernancePoll -> ExceptT GovernanceCmdError IO Word
+  askInteractively :: GovernancePoll -> ExceptT GovernanceCmdError IO Word
+askInteractively poll :: GovernancePoll
+poll@GovernancePoll{Text
+govPollQuestion :: Text
+govPollQuestion :: GovernancePoll -> Text
+govPollQuestion, [Text]
+govPollAnswers :: [Text]
+govPollAnswers :: GovernancePoll -> [Text]
+govPollAnswers} = do
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ Text -> ByteString
+Text.encodeUtf8 forall a b. (a -> b) -> a -> b
+$ Text -> [Text] -> Text
+Text.intercalate Text
+"\n"
+      ( Text
+govPollQuestion
+      forall a. a -> [a] -> [a]
+: [ Text
+"[" forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Int
+ix forall a. Semigroup a => a -> a -> a
+<> Text
+"] " forall a. Semigroup a => a -> a -> a
+<> Text
+answer
+        | (Int
+ix :: Int, Text
+answer) <- forall a b. [a] -> [b] -> [(a, b)]
+zip [Int
+0..] [Text]
+govPollAnswers
+        ]
+      )
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr ByteString
+""
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStr Handle
+stderr ByteString
+"Please indicate an answer (by index): "
+    Text
+txt <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> IO Text
+Text.hGetLine Handle
+stdin
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> ByteString -> IO ()
+BSC.hPutStrLn Handle
+stderr ByteString
+""
+    case forall a. Integral a => Reader a
+Text.decimal Text
+txt of
+      Right (Word
+choice, Text
+rest) | Text -> Bool
+Text.null Text
+rest ->
+        Word
+choice forall (f :: * -> *) a b. Functor f => a -> f b -> f a
+<$ GovernancePoll -> Word -> ExceptT GovernanceCmdError IO ()
+validateChoice GovernancePoll
+poll Word
+choice
+      Either String (Word, Text)
+_ ->
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left GovernanceCmdError
+GovernanceCmdPollInvalidChoice
+
+runGovernanceVerifyPollCmd :: ()
+  => Cmd.GovernanceVerifyPollCmdArgs era
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceVerifyPollCmd :: forall era.
+GovernanceVerifyPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceVerifyPollCmd
+    Cmd.GovernanceVerifyPollCmdArgs
+      { $sel:eon:GovernanceVerifyPollCmdArgs :: forall era.
+GovernanceVerifyPollCmdArgs era -> BabbageEraOnwards era
+eon       = BabbageEraOnwards era
+_eon
+      , $sel:pollFile:GovernanceVerifyPollCmdArgs :: forall era.
+GovernanceVerifyPollCmdArgs era -> File GovernancePoll 'In
+pollFile  = File GovernancePoll 'In
+pollFile
+      , $sel:txFile:GovernanceVerifyPollCmdArgs :: forall era. GovernanceVerifyPollCmdArgs era -> File (Tx ()) 'In
+txFile    = File (Tx ()) 'In
+txFile
+      , $sel:mOutFile:GovernanceVerifyPollCmdArgs :: forall era. GovernanceVerifyPollCmdArgs era -> Maybe (File () 'Out)
+mOutFile  = Maybe (File () 'Out)
+mOutFile
+      } = do
+  GovernancePoll
+poll <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceCmdError
+GovernanceCmdTextEnvReadError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope AsType GovernancePoll
+AsGovernancePoll File GovernancePoll 'In
+pollFile
+
+  FileOrPipe
+txFileOrPipe <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> IO FileOrPipe
+fileOrPipe (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File (Tx ()) 'In
+txFile)
+  InAnyCardanoEra Tx
+tx <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> GovernanceCmdError
+GovernanceCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+txFileOrPipe
+
+  [Hash PaymentKey]
+signatories <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernancePollError -> GovernanceCmdError
+GovernanceCmdVerifyPollError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$
+    GovernancePoll
+-> InAnyCardanoEra Tx
+-> Either GovernancePollError [Hash PaymentKey]
+verifyPollAnswer GovernancePoll
+poll InAnyCardanoEra Tx
+tx
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Handle -> String -> IO ()
+IO.hPutStrLn Handle
+stderr forall a b. (a -> b) -> a -> b
+$ String
+"Found valid poll answer with " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show (forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Hash PaymentKey]
+signatories) forall a. Semigroup a => a -> a -> a
+<> String
+" signatories"
+
+  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile (forall a. ToJSON a => a -> ByteString
+prettyPrintJSON [Hash PaymentKey]
+signatories))
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> GovernanceCmdError
+GovernanceCmdWriteFileError)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Vote.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Vote.html new file mode 100644 index 0000000000..66c28209cd --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.Vote.html @@ -0,0 +1,354 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Run.Governance.Vote
+  ( runGovernanceVoteCmds
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Vote as Cmd
+import           Cardano.CLI.Read (readVotingProceduresFile)
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.CmdError
+import           Cardano.CLI.Types.Errors.GovernanceVoteCmdError
+import           Cardano.CLI.Types.Governance
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import           Data.Aeson.Encode.Pretty
+import           Data.Function
+import qualified Data.Yaml.Pretty as Yaml
+
+runGovernanceVoteCmds :: ()
+  => Cmd.GovernanceVoteCmds era
+  -> ExceptT CmdError IO ()
+runGovernanceVoteCmds :: forall era. GovernanceVoteCmds era -> ExceptT CmdError IO ()
+runGovernanceVoteCmds = \case
+  Cmd.GovernanceVoteCreateCmd GovernanceVoteCreateCmdArgs era
+args ->
+    forall era.
+GovernanceVoteCreateCmdArgs era
+-> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteCreateCmd GovernanceVoteCreateCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceVoteCmdError -> CmdError
+CmdGovernanceVoteError
+  Cmd.GovernanceVoteViewCmd GovernanceVoteViewCmdArgs era
+args ->
+    forall era.
+GovernanceVoteViewCmdArgs era
+-> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteViewCmd GovernanceVoteViewCmdArgs era
+args
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceVoteCmdError -> CmdError
+CmdGovernanceVoteError
+
+runGovernanceVoteCreateCmd :: ()
+  => Cmd.GovernanceVoteCreateCmdArgs era
+  -> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteCreateCmd :: forall era.
+GovernanceVoteCreateCmdArgs era
+-> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteCreateCmd
+    Cmd.GovernanceVoteCreateCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceVoteCreateCmdArgs :: forall era. GovernanceVoteCreateCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+eon
+      , Vote
+$sel:voteChoice:GovernanceVoteCreateCmdArgs :: forall era. GovernanceVoteCreateCmdArgs era -> Vote
+voteChoice :: Vote
+voteChoice
+      , (TxId, Word32)
+$sel:governanceAction:GovernanceVoteCreateCmdArgs :: forall era. GovernanceVoteCreateCmdArgs era -> (TxId, Word32)
+governanceAction :: (TxId, Word32)
+governanceAction
+      , AnyVotingStakeVerificationKeyOrHashOrFile
+$sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgs :: forall era.
+GovernanceVoteCreateCmdArgs era
+-> AnyVotingStakeVerificationKeyOrHashOrFile
+votingStakeCredentialSource :: AnyVotingStakeVerificationKeyOrHashOrFile
+votingStakeCredentialSource
+      , Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+$sel:mAnchor:GovernanceVoteCreateCmdArgs :: forall era.
+GovernanceVoteCreateCmdArgs era
+-> Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+mAnchor :: Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+mAnchor
+      , VoteFile 'Out
+$sel:outFile:GovernanceVoteCreateCmdArgs :: forall era. GovernanceVoteCreateCmdArgs era -> VoteFile 'Out
+outFile :: VoteFile 'Out
+outFile
+      } = do
+  let (TxId
+govActionTxId, Word32
+govActionIndex) = (TxId, Word32)
+governanceAction
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon -- TODO: Conway era - update vote creation related function to take ConwayEraOnwards
+  VotingProcedure era
+voteProcedure <- case Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+mAnchor of
+     Maybe (VoteUrl, SafeHash StandardCrypto AnchorData)
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraOnwards era
+-> Vote -> Maybe (Url, Text) -> VotingProcedure era
+createVotingProcedure ConwayEraOnwards era
+eon Vote
+voteChoice forall a. Maybe a
+Nothing
+     Just (VoteUrl Url
+url, SafeHash StandardCrypto AnchorData
+voteHash) -> forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+       let voteAnchor :: Anchor StandardCrypto
+voteAnchor = Ledger.Anchor { anchorUrl :: Url
+Ledger.anchorUrl = Url
+url, anchorDataHash :: SafeHash StandardCrypto AnchorData
+Ledger.anchorDataHash = SafeHash StandardCrypto AnchorData
+voteHash }
+           VotingProcedure VotingProcedure (ShelleyLedgerEra era)
+votingProcedureWithoutAnchor = forall era.
+ConwayEraOnwards era
+-> Vote -> Maybe (Url, Text) -> VotingProcedure era
+createVotingProcedure ConwayEraOnwards era
+eon Vote
+voteChoice forall a. Maybe a
+Nothing
+           votingProcedureWithAnchor :: VotingProcedure era
+votingProcedureWithAnchor = forall era.
+VotingProcedure (ShelleyLedgerEra era) -> VotingProcedure era
+VotingProcedure forall a b. (a -> b) -> a -> b
+$ VotingProcedure (ShelleyLedgerEra era)
+votingProcedureWithoutAnchor { vProcAnchor :: StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+Ledger.vProcAnchor = forall a. a -> StrictMaybe a
+Ledger.SJust Anchor StandardCrypto
+voteAnchor }
+       forall (f :: * -> *) a. Applicative f => a -> f a
+pure VotingProcedure era
+votingProcedureWithAnchor
+
+  forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+    Voter StandardCrypto
+voter <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT  FileError InputDecodeError -> GovernanceVoteCmdError
+GovernanceVoteCmdReadVerificationKeyError forall a b. (a -> b) -> a -> b
+$ case AnyVotingStakeVerificationKeyOrHashOrFile
+votingStakeCredentialSource of
+      AnyDRepVerificationKeyOrHashOrFile VerificationKeyOrHashOrFile DRepKey
+stake -> do
+        DRepKeyHash KeyHash 'DRepRole StandardCrypto
+h <- forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType DRepKey
+AsDRepKey VerificationKeyOrHashOrFile DRepKey
+stake
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. Credential 'DRepRole c -> Voter c
+Ledger.DRepVoter forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'DRepRole StandardCrypto
+h
+
+      AnyStakePoolVerificationKeyOrHashOrFile VerificationKeyOrHashOrFile StakePoolKey
+stake -> do
+        StakePoolKeyHash KeyHash 'StakePool StandardCrypto
+h <- forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrHashOrFile StakePoolKey
+stake
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. KeyHash 'StakePool c -> Voter c
+Ledger.StakePoolVoter KeyHash 'StakePool StandardCrypto
+h
+
+      AnyCommitteeHotVerificationKeyOrHashOrFile VerificationKeyOrHashOrFile CommitteeHotKey
+stake -> do
+        CommitteeHotKeyHash KeyHash 'HotCommitteeRole StandardCrypto
+h <-  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType CommitteeHotKey
+AsCommitteeHotKey VerificationKeyOrHashOrFile CommitteeHotKey
+stake
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. Credential 'HotCommitteeRole c -> Voter c
+Ledger.CommitteeVoter forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'HotCommitteeRole StandardCrypto
+h
+
+    let govActIdentifier :: GovActionId StandardCrypto
+govActIdentifier = TxId -> Word32 -> GovActionId StandardCrypto
+createGovernanceActionId TxId
+govActionTxId Word32
+govActionIndex
+        votingProcedures :: VotingProcedures era
+votingProcedures = forall era.
+ConwayEraOnwards era
+-> Voter (EraCrypto (ShelleyLedgerEra era))
+-> GovActionId (EraCrypto (ShelleyLedgerEra era))
+-> VotingProcedure (ShelleyLedgerEra era)
+-> VotingProcedures era
+singletonVotingProcedures ConwayEraOnwards era
+eon Voter StandardCrypto
+voter GovActionId StandardCrypto
+govActIdentifier (forall era.
+VotingProcedure era -> VotingProcedure (ShelleyLedgerEra era)
+unVotingProcedure VotingProcedure era
+voteProcedure)
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceVoteCmdError
+GovernanceVoteCmdWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+File content 'Out
+-> Maybe TextEnvelopeDescr -> a -> IO (Either (FileError ()) ())
+writeFileTextEnvelope VoteFile 'Out
+outFile forall a. Maybe a
+Nothing VotingProcedures era
+votingProcedures
+
+runGovernanceVoteViewCmd :: ()
+  => Cmd.GovernanceVoteViewCmdArgs era
+  -> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteViewCmd :: forall era.
+GovernanceVoteViewCmdArgs era
+-> ExceptT GovernanceVoteCmdError IO ()
+runGovernanceVoteViewCmd
+    Cmd.GovernanceVoteViewCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:GovernanceVoteViewCmdArgs :: forall era. GovernanceVoteViewCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+eon
+      , Bool
+$sel:yamlOutput:GovernanceVoteViewCmdArgs :: forall era. GovernanceVoteViewCmdArgs era -> Bool
+yamlOutput :: Bool
+yamlOutput
+      , VoteFile 'In
+$sel:voteFile:GovernanceVoteViewCmdArgs :: forall era. GovernanceVoteViewCmdArgs era -> VoteFile 'In
+voteFile :: VoteFile 'In
+voteFile
+      , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceVoteViewCmdArgs :: forall era. GovernanceVoteViewCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  let sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+    VotingProcedures era
+voteProcedures <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VoteError -> GovernanceVoteCmdError
+GovernanceVoteCmdReadVoteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+     forall era.
+ConwayEraOnwards era
+-> VoteFile 'In -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFile ConwayEraOnwards era
+eon VoteFile 'In
+voteFile
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceVoteCmdError
+GovernanceVoteCmdWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+.
+      forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+.
+      (if Bool
+yamlOutput
+      then forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON a => Config -> a -> ByteString
+Yaml.encodePretty ((Text -> Text -> Ordering) -> Config -> Config
+Yaml.setConfCompare forall a. Ord a => a -> a -> Ordering
+compare Config
+Yaml.defConfig)
+      else forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringOutput Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON a => Config -> a -> ByteString
+encodePretty' (Config
+defConfig {confCompare :: Text -> Text -> Ordering
+confCompare = forall a. Ord a => a -> a -> Ordering
+compare})) forall b c a. (b -> c) -> (a -> b) -> a -> c
+.
+      forall era.
+VotingProcedures era -> VotingProcedures (ShelleyLedgerEra era)
+unVotingProcedures forall a b. (a -> b) -> a -> b
+$
+      VotingProcedures era
+voteProcedures
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.html new file mode 100644 index 0000000000..bf53643852 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Governance.html @@ -0,0 +1,438 @@ +
{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Run.Governance
+  ( runGovernanceCmds
+
+  , runGovernanceMIRCertificatePayStakeAddrs
+  , runGovernanceCreateMirCertificateTransferToTreasuryCmd
+  , runGovernanceCreateMirCertificateTransferToReservesCmd
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance as Cmd
+import           Cardano.CLI.EraBased.Run.Governance.Actions
+import           Cardano.CLI.EraBased.Run.Governance.Committee
+import           Cardano.CLI.EraBased.Run.Governance.DRep
+import           Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
+import           Cardano.CLI.EraBased.Run.Governance.Hash
+import           Cardano.CLI.EraBased.Run.Governance.Poll
+import           Cardano.CLI.EraBased.Run.Governance.Vote
+import           Cardano.CLI.Types.Errors.CmdError
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+import qualified Cardano.Ledger.Shelley.TxBody as Shelley
+
+import           Control.Monad
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra
+import           Data.Function
+import qualified Data.Map.Strict as Map
+
+runGovernanceCmds :: ()
+  => Cmd.GovernanceCmds era
+  -> ExceptT CmdError IO ()
+runGovernanceCmds :: forall era. GovernanceCmds era -> ExceptT CmdError IO ()
+runGovernanceCmds = \case
+  Cmd.GovernanceCreateMirCertificateStakeAddressesCmd ShelleyToBabbageEra era
+w MIRPot
+mirpot [StakeAddress]
+vKeys [Lovelace]
+rewards File () 'Out
+out ->
+    forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceMIRCertificatePayStakeAddrs ShelleyToBabbageEra era
+w MIRPot
+mirpot [StakeAddress]
+vKeys [Lovelace]
+rewards File () 'Out
+out
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp ->
+    forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp ->
+    forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceGenesisKeyDelegationCertificate ShelleyToBabbageEra era
+sta VerificationKeyOrHashOrFile GenesisKey
+genVk VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelegVk VerificationKeyOrHashOrFile VrfKey
+vrfVk File () 'Out
+out ->
+    forall era.
+ShelleyToBabbageEra era
+-> VerificationKeyOrHashOrFile GenesisKey
+-> VerificationKeyOrHashOrFile GenesisDelegateKey
+-> VerificationKeyOrHashOrFile VrfKey
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceGenesisKeyDelegationCertificate ShelleyToBabbageEra era
+sta VerificationKeyOrHashOrFile GenesisKey
+genVk VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelegVk VerificationKeyOrHashOrFile VrfKey
+vrfVk File () 'Out
+out
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceCommitteeCmds GovernanceCommitteeCmds era
+cmds ->
+    forall era.
+GovernanceCommitteeCmds era
+-> ExceptT GovernanceCommitteeError IO ()
+runGovernanceCommitteeCmds GovernanceCommitteeCmds era
+cmds
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCommitteeError -> CmdError
+CmdGovernanceCommitteeError
+
+  Cmd.GovernanceActionCmds GovernanceActionCmds era
+cmds ->
+    forall era.
+GovernanceActionCmds era -> ExceptT GovernanceActionsError IO ()
+runGovernanceActionCmds GovernanceActionCmds era
+cmds
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceActionsError -> CmdError
+CmdGovernanceActionError
+
+  Cmd.GovernanceDRepCmds GovernanceDRepCmds era
+cmds ->
+    forall era. GovernanceDRepCmds era -> ExceptT CmdError IO ()
+runGovernanceDRepCmds GovernanceDRepCmds era
+cmds
+
+  Cmd.GovernanceHashCmds GovernanceHashCmds era
+cmds ->
+    forall era. GovernanceHashCmds era -> ExceptT CmdError IO ()
+runGovernanceHashCmds GovernanceHashCmds era
+cmds
+
+  Cmd.GovernancePollCmds GovernancePollCmds era
+cmds ->
+    forall era.
+GovernancePollCmds era -> ExceptT GovernanceCmdError IO ()
+runGovernancePollCmds GovernancePollCmds era
+cmds
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError
+
+  Cmd.GovernanceVoteCmds GovernanceVoteCmds era
+cmds ->
+    forall era. GovernanceVoteCmds era -> ExceptT CmdError IO ()
+runGovernanceVoteCmds GovernanceVoteCmds era
+cmds
+
+runGovernanceMIRCertificatePayStakeAddrs
+  :: ShelleyToBabbageEra era
+  -> Shelley.MIRPot
+  -> [StakeAddress] -- ^ Stake addresses
+  -> [Lovelace]     -- ^ Corresponding reward amounts (same length)
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceMIRCertificatePayStakeAddrs :: forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceMIRCertificatePayStakeAddrs ShelleyToBabbageEra era
+w MIRPot
+mirPot [StakeAddress]
+sAddrs [Lovelace]
+rwdAmts File () 'Out
+oFp = do
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless (forall (t :: * -> *) a. Foldable t => t a -> Int
+length [StakeAddress]
+sAddrs forall a. Eq a => a -> a -> Bool
+== forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Lovelace]
+rwdAmts) forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ FilePath -> Int -> Int -> GovernanceCmdError
+GovernanceCmdMIRCertificateKeyRewardMistmach
+              (forall content (direction :: FileDirection).
+File content direction -> FilePath
+unFile File () 'Out
+oFp) (forall (t :: * -> *) a. Foldable t => t a -> Int
+length [StakeAddress]
+sAddrs) (forall (t :: * -> *) a. Foldable t => t a -> Int
+length [Lovelace]
+rwdAmts)
+
+  let sCreds :: [StakeCredential]
+sCreds  = forall a b. (a -> b) -> [a] -> [b]
+map StakeAddress -> StakeCredential
+stakeAddressCredential [StakeAddress]
+sAddrs
+      mirTarget :: MIRTarget StandardCrypto
+mirTarget = forall c. Map (Credential 'Staking c) DeltaCoin -> MIRTarget c
+Ledger.StakeAddressesMIR
+                    forall a b. (a -> b) -> a -> b
+$ forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList [ (StakeCredential -> Credential 'Staking StandardCrypto
+toShelleyStakeCredential StakeCredential
+scred, Coin -> DeltaCoin
+Ledger.toDeltaCoin (Lovelace -> Coin
+toShelleyLovelace Lovelace
+rwdAmt))
+                                    | (StakeCredential
+scred, Lovelace
+rwdAmt) <- forall a b. [a] -> [b] -> [(a, b)]
+zip [StakeCredential]
+sCreds [Lovelace]
+rwdAmts
+                                    ]
+  let mirCert :: Certificate era
+mirCert = forall era. MirCertificateRequirements era -> Certificate era
+makeMIRCertificate
+        forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> MIRTarget (EraCrypto (ShelleyLedgerEra era))
+-> MirCertificateRequirements era
+MirCertificateRequirements ShelleyToBabbageEra era
+w MIRPot
+mirPot
+        forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyToBabbageEra era
+-> (ShelleyToBabbageEraConstraints era => a) -> a
+shelleyToBabbageEraConstraints ShelleyToBabbageEra era
+w MIRTarget StandardCrypto
+mirTarget
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+mirCertDesc) Certificate era
+mirCert
+  where
+    mirCertDesc :: TextEnvelopeDescr
+    mirCertDesc :: TextEnvelopeDescr
+mirCertDesc = TextEnvelopeDescr
+"Move Instantaneous Rewards Certificate"
+
+runGovernanceCreateMirCertificateTransferToTreasuryCmd :: ()
+  => ShelleyToBabbageEra era
+  -> Lovelace
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToTreasuryCmd :: forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp = do
+  let mirTarget :: MIRTarget (EraCrypto (ShelleyLedgerEra era))
+mirTarget = forall c. Coin -> MIRTarget c
+Ledger.SendToOppositePotMIR (Lovelace -> Coin
+toShelleyLovelace Lovelace
+ll)
+
+  let mirCert :: Certificate era
+mirCert = forall era. MirCertificateRequirements era -> Certificate era
+makeMIRCertificate forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> MIRTarget (EraCrypto (ShelleyLedgerEra era))
+-> MirCertificateRequirements era
+MirCertificateRequirements ShelleyToBabbageEra era
+w MIRPot
+Ledger.ReservesMIR MIRTarget (EraCrypto (ShelleyLedgerEra era))
+mirTarget
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+mirCertDesc) Certificate era
+mirCert
+  where
+    mirCertDesc :: TextEnvelopeDescr
+    mirCertDesc :: TextEnvelopeDescr
+mirCertDesc = TextEnvelopeDescr
+"MIR Certificate Send To Treasury"
+
+runGovernanceCreateMirCertificateTransferToReservesCmd :: ()
+  => ShelleyToBabbageEra era
+  -> Lovelace
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToReservesCmd :: forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w Lovelace
+ll File () 'Out
+oFp = do
+  let mirTarget :: MIRTarget (EraCrypto (ShelleyLedgerEra era))
+mirTarget = forall c. Coin -> MIRTarget c
+Ledger.SendToOppositePotMIR (Lovelace -> Coin
+toShelleyLovelace Lovelace
+ll)
+
+  let mirCert :: Certificate era
+mirCert = forall era. MirCertificateRequirements era -> Certificate era
+makeMIRCertificate forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> MIRTarget (EraCrypto (ShelleyLedgerEra era))
+-> MirCertificateRequirements era
+MirCertificateRequirements ShelleyToBabbageEra era
+w MIRPot
+Ledger.TreasuryMIR MIRTarget (EraCrypto (ShelleyLedgerEra era))
+mirTarget
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints (forall era. ShelleyToBabbageEra era -> ShelleyBasedEra era
+shelleyToBabbageEraToShelleyBasedEra ShelleyToBabbageEra era
+w)
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+mirCertDesc) Certificate era
+mirCert
+  where
+    mirCertDesc :: TextEnvelopeDescr
+    mirCertDesc :: TextEnvelopeDescr
+mirCertDesc = TextEnvelopeDescr
+"MIR Certificate Send To Reserves"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Key.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Key.html new file mode 100644 index 0000000000..010eec9438 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Key.html @@ -0,0 +1,1571 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.EraBased.Run.Key
+  ( runKeyCmds
+
+  , runConvertByronGenesisVKeyCmd
+  , runConvertByronKeyCmd
+  , runConvertCardanoAddressKeyCmd
+  , runConvertITNBip32KeyCmd
+  , runConvertITNExtendedKeyCmd
+  , runConvertITNKeyCmd
+  , runNonExtendedKeyCmd
+  , runVerificationKeyCmd
+
+  , drepVkeyDesc
+  , genesisVkeyDesc
+  , genesisVkeyDelegateDesc
+  , stakeVkeyDesc
+  , paymentVkeyDesc
+
+    -- * Exports for testing
+  , decodeBech32
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Byron as ByronApi
+import           Cardano.Api.Crypto.Ed25519Bip32 (xPrvFromBytes)
+
+import qualified Cardano.CLI.Byron.Key as Byron
+import qualified Cardano.CLI.EraBased.Commands.Key as Cmd
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
+import           Cardano.CLI.Types.Errors.ItnKeyConversionError
+import           Cardano.CLI.Types.Errors.KeyCmdError
+import           Cardano.CLI.Types.Key
+import qualified Cardano.Crypto.DSIGN as DSIGN
+import qualified Cardano.Crypto.Signing as Byron
+import qualified Cardano.Crypto.Signing as Byron.Crypto
+import qualified Cardano.Crypto.Signing as Crypto
+import qualified Cardano.Crypto.Wallet as Crypto
+import qualified Cardano.Ledger.Keys as Shelley
+
+import qualified Codec.Binary.Bech32 as Bech32
+import qualified Control.Exception as Exception
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left, newExceptT)
+import           Data.Bifunctor (Bifunctor (..))
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString as BS
+import           Data.Function
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+import           System.Exit (exitFailure)
+
+-- Note on these constants:
+-- https://github.com/input-output-hk/cardano-cli/pull/416#discussion_r1378789737
+
+drepVkeyDesc :: TextEnvelopeDescr
+drepVkeyDesc :: TextEnvelopeDescr
+drepVkeyDesc = TextEnvelopeDescr
+"Delegate Representative Verification Key"
+
+genesisVkeyDesc :: TextEnvelopeDescr
+genesisVkeyDesc :: TextEnvelopeDescr
+genesisVkeyDesc = TextEnvelopeDescr
+"Genesis Verification Key"
+
+genesisVkeyDelegateDesc :: TextEnvelopeDescr
+genesisVkeyDelegateDesc :: TextEnvelopeDescr
+genesisVkeyDelegateDesc = TextEnvelopeDescr
+"Genesis delegate operator key"
+
+paymentVkeyDesc :: TextEnvelopeDescr
+paymentVkeyDesc :: TextEnvelopeDescr
+paymentVkeyDesc = TextEnvelopeDescr
+"Payment Verification Key"
+
+stakeVkeyDesc :: TextEnvelopeDescr
+stakeVkeyDesc :: TextEnvelopeDescr
+stakeVkeyDesc = TextEnvelopeDescr
+"Stake Verification Key"
+
+runKeyCmds :: ()
+  => Cmd.KeyCmds era
+  -> ExceptT KeyCmdError IO ()
+runKeyCmds :: forall era. KeyCmds era -> ExceptT KeyCmdError IO ()
+runKeyCmds = \case
+  Cmd.KeyVerificationKeyCmd KeyVerificationKeyCmdArgs
+cmd ->
+    KeyVerificationKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runVerificationKeyCmd KeyVerificationKeyCmdArgs
+cmd
+  Cmd.KeyNonExtendedKeyCmd KeyNonExtendedKeyCmdArgs
+cmd ->
+    KeyNonExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runNonExtendedKeyCmd KeyNonExtendedKeyCmdArgs
+cmd
+  Cmd.KeyConvertByronKeyCmd KeyConvertByronKeyCmdArgs
+cmd ->
+    KeyConvertByronKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronKeyCmd KeyConvertByronKeyCmdArgs
+cmd
+  Cmd.KeyConvertByronGenesisVKeyCmd KeyConvertByronGenesisVKeyCmdArgs
+cmd ->
+    KeyConvertByronGenesisVKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronGenesisVKeyCmd KeyConvertByronGenesisVKeyCmdArgs
+cmd
+  Cmd.KeyConvertITNKeyCmd KeyConvertITNKeyCmdArgs
+cmd ->
+    KeyConvertITNKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNKeyCmd KeyConvertITNKeyCmdArgs
+cmd
+  Cmd.KeyConvertITNExtendedKeyCmd KeyConvertITNExtendedKeyCmdArgs
+cmd ->
+    KeyConvertITNExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNExtendedKeyCmd KeyConvertITNExtendedKeyCmdArgs
+cmd
+  Cmd.KeyConvertITNBip32KeyCmd KeyConvertITNBip32KeyCmdArgs
+cmd ->
+    KeyConvertITNBip32KeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNBip32KeyCmd KeyConvertITNBip32KeyCmdArgs
+cmd
+  Cmd.KeyConvertCardanoAddressKeyCmd KeyConvertCardanoAddressKeyCmdArgs
+cmd ->
+    KeyConvertCardanoAddressKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertCardanoAddressKeyCmd KeyConvertCardanoAddressKeyCmdArgs
+cmd
+
+runVerificationKeyCmd :: ()
+  => Cmd.KeyVerificationKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runVerificationKeyCmd :: KeyVerificationKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runVerificationKeyCmd
+    Cmd.KeyVerificationKeyCmdArgs
+    { $sel:skeyFile:KeyVerificationKeyCmdArgs :: KeyVerificationKeyCmdArgs -> SigningKeyFile 'In
+Cmd.skeyFile = SigningKeyFile 'In
+skf
+    , $sel:vkeyFile:KeyVerificationKeyCmdArgs :: KeyVerificationKeyCmdArgs -> VerificationKeyFile 'Out
+Cmd.vkeyFile = VerificationKeyFile 'Out
+vkf
+    } = do
+  SomeSigningKey
+ssk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> KeyCmdError
+KeyCmdReadKeyFileError forall a b. (a -> b) -> a -> b
+$ SigningKeyFile 'In
+-> ExceptT (FileError InputDecodeError) IO SomeSigningKey
+readSigningKeyFile SigningKeyFile 'In
+skf
+  forall a.
+SomeSigningKey
+-> (forall keyrole.
+    (Key keyrole, HasTypeProxy keyrole) =>
+    SigningKey keyrole -> a)
+-> a
+withSomeSigningKey SomeSigningKey
+ssk forall a b. (a -> b) -> a -> b
+$ \SigningKey keyrole
+sk ->
+    let vk :: VerificationKey keyrole
+vk = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey keyrole
+sk in
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkf forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey keyrole
+vk
+
+runNonExtendedKeyCmd
+  :: Cmd.KeyNonExtendedKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runNonExtendedKeyCmd :: KeyNonExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runNonExtendedKeyCmd
+    Cmd.KeyNonExtendedKeyCmdArgs
+      { $sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgs :: KeyNonExtendedKeyCmdArgs -> VerificationKeyFile 'In
+Cmd.extendedVkeyFileIn = VerificationKeyFile 'In
+evkf
+      , $sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgs :: KeyNonExtendedKeyCmdArgs -> VerificationKeyFile 'Out
+Cmd.nonExtendedVkeyFileOut = VerificationKeyFile 'Out
+vkf
+      } =
+  SomeAddressVerificationKey -> ExceptT KeyCmdError IO ()
+writeVerificationKey forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< VerificationKeyFile 'In
+-> ExceptT KeyCmdError IO SomeAddressVerificationKey
+readExtendedVerificationKeyFile VerificationKeyFile 'In
+evkf
+ where
+  -- TODO: Expose a function specifically for this purpose
+  -- and explain the extended verification keys can be converted
+  -- to their non-extended counterparts however this is NOT the case
+  -- for extended signing keys
+
+  writeVerificationKey
+    :: SomeAddressVerificationKey
+    -> ExceptT KeyCmdError IO ()
+  writeVerificationKey :: SomeAddressVerificationKey -> ExceptT KeyCmdError IO ()
+writeVerificationKey SomeAddressVerificationKey
+ssk =
+    case SomeAddressVerificationKey
+ssk of
+      APaymentExtendedVerificationKey VerificationKey PaymentExtendedKey
+vk ->
+        forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk VerificationKeyFile 'Out
+vkf (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+paymentVkeyDesc) (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey PaymentExtendedKey
+vk :: VerificationKey PaymentKey)
+      ADRepExtendedVerificationKey VerificationKey DRepExtendedKey
+vk ->
+        forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk VerificationKeyFile 'Out
+vkf (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+drepVkeyDesc) (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey DRepExtendedKey
+vk :: VerificationKey DRepKey)
+      AStakeExtendedVerificationKey VerificationKey StakeExtendedKey
+vk ->
+        forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk VerificationKeyFile 'Out
+vkf (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+stakeVkeyDesc) (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey StakeExtendedKey
+vk :: VerificationKey StakeKey)
+      AGenesisExtendedVerificationKey VerificationKey GenesisExtendedKey
+vk ->
+        forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk VerificationKeyFile 'Out
+vkf (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genesisVkeyDesc) (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisExtendedKey
+vk :: VerificationKey GenesisKey)
+      AGenesisDelegateExtendedVerificationKey VerificationKey GenesisDelegateExtendedKey
+vk ->
+        forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk VerificationKeyFile 'Out
+vkf (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+genesisVkeyDelegateDesc) (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisDelegateExtendedKey
+vk :: VerificationKey GenesisDelegateKey)
+      SomeAddressVerificationKey
+nonExtendedKey -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ SomeAddressVerificationKey -> KeyCmdError
+KeyCmdExpectedExtendedVerificationKey SomeAddressVerificationKey
+nonExtendedKey
+
+
+  writeToDisk
+   :: Key keyrole
+   => File content Out
+   -> Maybe TextEnvelopeDescr
+   -> VerificationKey keyrole
+   -> ExceptT KeyCmdError IO ()
+  writeToDisk :: forall keyrole content.
+Key keyrole =>
+File content 'Out
+-> Maybe TextEnvelopeDescr
+-> VerificationKey keyrole
+-> ExceptT KeyCmdError IO ()
+writeToDisk File content 'Out
+vkf' Maybe TextEnvelopeDescr
+descr VerificationKey keyrole
+vk =
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File content 'Out
+vkf' forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON Maybe TextEnvelopeDescr
+descr VerificationKey keyrole
+vk
+
+
+readExtendedVerificationKeyFile
+  :: VerificationKeyFile In
+  -> ExceptT KeyCmdError IO SomeAddressVerificationKey
+readExtendedVerificationKeyFile :: VerificationKeyFile 'In
+-> ExceptT KeyCmdError IO SomeAddressVerificationKey
+readExtendedVerificationKeyFile VerificationKeyFile 'In
+evkfile = do
+  SomeAddressVerificationKey
+vKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VerificationKeyTextOrFileError -> KeyCmdError
+KeyCmdVerificationKeyReadError
+            forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ VerificationKeyTextOrFile
+-> IO
+     (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)
+readVerificationKeyTextOrFileAnyOf
+                         forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'In -> VerificationKeyTextOrFile
+VktofVerificationKeyFile VerificationKeyFile 'In
+evkfile
+  case SomeAddressVerificationKey
+vKey of
+      k :: SomeAddressVerificationKey
+k@APaymentExtendedVerificationKey{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return SomeAddressVerificationKey
+k
+      k :: SomeAddressVerificationKey
+k@ADRepExtendedVerificationKey{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return SomeAddressVerificationKey
+k
+      k :: SomeAddressVerificationKey
+k@AStakeExtendedVerificationKey{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return SomeAddressVerificationKey
+k
+      k :: SomeAddressVerificationKey
+k@AGenesisExtendedVerificationKey{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return SomeAddressVerificationKey
+k
+      k :: SomeAddressVerificationKey
+k@AGenesisDelegateExtendedVerificationKey{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return SomeAddressVerificationKey
+k
+      SomeAddressVerificationKey
+nonExtendedKey ->
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ SomeAddressVerificationKey -> KeyCmdError
+KeyCmdExpectedExtendedVerificationKey SomeAddressVerificationKey
+nonExtendedKey
+
+
+runConvertByronKeyCmd
+  :: Cmd.KeyConvertByronKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertByronKeyCmd :: KeyConvertByronKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronKeyCmd
+    Cmd.KeyConvertByronKeyCmdArgs
+        { $sel:mPassword:KeyConvertByronKeyCmdArgs :: KeyConvertByronKeyCmdArgs -> Maybe Text
+Cmd.mPassword = Maybe Text
+mPwd
+        , ByronKeyType
+$sel:byronKeyType:KeyConvertByronKeyCmdArgs :: KeyConvertByronKeyCmdArgs -> ByronKeyType
+byronKeyType :: ByronKeyType
+Cmd.byronKeyType
+        , $sel:someKeyFileIn:KeyConvertByronKeyCmdArgs :: KeyConvertByronKeyCmdArgs -> SomeKeyFile 'In
+Cmd.someKeyFileIn = SomeKeyFile 'In
+inFile
+        , $sel:someKeyFileOut:KeyConvertByronKeyCmdArgs :: KeyConvertByronKeyCmdArgs -> File () 'Out
+Cmd.someKeyFileOut = File () 'Out
+outFile
+        } =
+  case (ByronKeyType
+byronKeyType, SomeKeyFile 'In
+inFile) of
+    (ByronPaymentKey ByronKeyFormat
+format, ASigningKeyFile SigningKeyFile 'In
+skeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+Maybe Text
+-> ByronKeyFormat
+-> (SigningKey -> SigningKey keyrole)
+-> SigningKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronSigningKey Maybe Text
+mPwd ByronKeyFormat
+format SigningKey -> SigningKey ByronKey
+convert SigningKeyFile 'In
+skeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.SigningKey -> SigningKey ByronKey
+        convert :: SigningKey -> SigningKey ByronKey
+convert = SigningKey -> SigningKey ByronKey
+ByronSigningKey
+
+    (ByronGenesisKey ByronKeyFormat
+format, ASigningKeyFile SigningKeyFile 'In
+skeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+Maybe Text
+-> ByronKeyFormat
+-> (SigningKey -> SigningKey keyrole)
+-> SigningKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronSigningKey Maybe Text
+mPwd ByronKeyFormat
+format SigningKey -> SigningKey GenesisExtendedKey
+convert SigningKeyFile 'In
+skeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.SigningKey -> SigningKey GenesisExtendedKey
+        convert :: SigningKey -> SigningKey GenesisExtendedKey
+convert (Byron.SigningKey XPrv
+xsk) = XPrv -> SigningKey GenesisExtendedKey
+GenesisExtendedSigningKey XPrv
+xsk
+
+    (ByronDelegateKey ByronKeyFormat
+format, ASigningKeyFile SigningKeyFile 'In
+skeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+Maybe Text
+-> ByronKeyFormat
+-> (SigningKey -> SigningKey keyrole)
+-> SigningKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronSigningKey Maybe Text
+mPwd ByronKeyFormat
+format SigningKey -> SigningKey GenesisDelegateExtendedKey
+convert SigningKeyFile 'In
+skeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.SigningKey -> SigningKey GenesisDelegateExtendedKey
+        convert :: SigningKey -> SigningKey GenesisDelegateExtendedKey
+convert (Byron.SigningKey XPrv
+xsk) = XPrv -> SigningKey GenesisDelegateExtendedKey
+GenesisDelegateExtendedSigningKey XPrv
+xsk
+
+    (ByronPaymentKey ByronKeyFormat
+NonLegacyByronKeyFormat, AVerificationKeyFile VerificationKeyFile 'In
+vkeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+(VerificationKey -> VerificationKey keyrole)
+-> VerificationKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronVerificationKey VerificationKey -> VerificationKey ByronKey
+convert VerificationKeyFile 'In
+vkeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.VerificationKey -> VerificationKey ByronKey
+        convert :: VerificationKey -> VerificationKey ByronKey
+convert = VerificationKey -> VerificationKey ByronKey
+ByronVerificationKey
+
+    (ByronGenesisKey ByronKeyFormat
+NonLegacyByronKeyFormat, AVerificationKeyFile VerificationKeyFile 'In
+vkeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+(VerificationKey -> VerificationKey keyrole)
+-> VerificationKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronVerificationKey VerificationKey -> VerificationKey GenesisExtendedKey
+convert VerificationKeyFile 'In
+vkeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.VerificationKey -> VerificationKey GenesisExtendedKey
+        convert :: VerificationKey -> VerificationKey GenesisExtendedKey
+convert (Byron.VerificationKey XPub
+xvk) = XPub -> VerificationKey GenesisExtendedKey
+GenesisExtendedVerificationKey XPub
+xvk
+
+    (ByronDelegateKey ByronKeyFormat
+NonLegacyByronKeyFormat, AVerificationKeyFile VerificationKeyFile 'In
+vkeyPathOld) ->
+      forall keyrole.
+Key keyrole =>
+(VerificationKey -> VerificationKey keyrole)
+-> VerificationKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronVerificationKey VerificationKey -> VerificationKey GenesisDelegateExtendedKey
+convert VerificationKeyFile 'In
+vkeyPathOld File () 'Out
+outFile
+      where
+        convert :: Byron.VerificationKey -> VerificationKey GenesisDelegateExtendedKey
+        convert :: VerificationKey -> VerificationKey GenesisDelegateExtendedKey
+convert (Byron.VerificationKey XPub
+xvk) =
+          XPub -> VerificationKey GenesisDelegateExtendedKey
+GenesisDelegateExtendedVerificationKey XPub
+xvk
+
+    (ByronPaymentKey  ByronKeyFormat
+LegacyByronKeyFormat, AVerificationKeyFile{}) ->
+      forall e a. ExceptT e IO a
+legacyVerificationKeysNotSupported
+
+    (ByronGenesisKey  ByronKeyFormat
+LegacyByronKeyFormat, AVerificationKeyFile{}) ->
+      forall e a. ExceptT e IO a
+legacyVerificationKeysNotSupported
+
+    (ByronDelegateKey ByronKeyFormat
+LegacyByronKeyFormat, AVerificationKeyFile{}) ->
+      forall e a. ExceptT e IO a
+legacyVerificationKeysNotSupported
+
+legacyVerificationKeysNotSupported :: ExceptT e IO a
+legacyVerificationKeysNotSupported :: forall e a. ExceptT e IO a
+legacyVerificationKeysNotSupported =
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ do
+      [Char] -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ [Char]
+"convert keys: byron legacy format not supported for "
+              forall a. [a] -> [a] -> [a]
+++ [Char]
+"verification keys. Convert the signing key and then get the "
+              forall a. [a] -> [a] -> [a]
+++ [Char]
+"verification key."
+      forall a. IO a
+exitFailure
+
+convertByronSigningKey
+  :: forall keyrole.
+     Key keyrole
+  => Maybe Text          -- ^ Password (if applicable)
+  -> ByronKeyFormat
+  -> (Byron.SigningKey -> SigningKey keyrole)
+  -> SigningKeyFile In   -- ^ Input file: old format
+  -> File () Out         -- ^ Output file: new format
+  -> ExceptT KeyCmdError IO ()
+convertByronSigningKey :: forall keyrole.
+Key keyrole =>
+Maybe Text
+-> ByronKeyFormat
+-> (SigningKey -> SigningKey keyrole)
+-> SigningKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronSigningKey Maybe Text
+mPwd ByronKeyFormat
+byronFormat SigningKey -> SigningKey keyrole
+convert SigningKeyFile 'In
+skeyPathOld File () 'Out
+skeyPathNew = do
+    SomeByronSigningKey
+sKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> KeyCmdError
+KeyCmdByronKeyFailure
+              forall a b. (a -> b) -> a -> b
+$ ByronKeyFormat
+-> SigningKeyFile 'In
+-> ExceptT ByronKeyFailure IO SomeByronSigningKey
+Byron.readByronSigningKey ByronKeyFormat
+byronFormat SigningKeyFile 'In
+skeyPathOld
+
+    -- Account for password protected legacy Byron keys
+    SigningKey
+unprotectedSk <- case SomeByronSigningKey
+sKey of
+                       ByronApi.AByronSigningKeyLegacy (ByronSigningKeyLegacy sk :: SigningKey
+sk@(Crypto.SigningKey XPrv
+xprv)) ->
+                         case Maybe Text
+mPwd of
+                           -- Change password to empty string
+                           Just Text
+pwd -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. XPrv -> SigningKey
+Crypto.SigningKey
+                                         forall a b. (a -> b) -> a -> b
+$ forall oldPassPhrase newPassPhrase.
+(ByteArrayAccess oldPassPhrase, ByteArrayAccess newPassPhrase) =>
+oldPassPhrase -> newPassPhrase -> XPrv -> XPrv
+Crypto.xPrvChangePass (Text -> ByteString
+Text.encodeUtf8 Text
+pwd) (Text -> ByteString
+Text.encodeUtf8 Text
+"") XPrv
+xprv
+                           Maybe Text
+Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
+return SigningKey
+sk
+                       ByronApi.AByronSigningKey (ByronSigningKey SigningKey
+sk) -> forall (m :: * -> *) a. Monad m => a -> m a
+return SigningKey
+sk
+
+
+    let sk' :: SigningKey keyrole
+        sk' :: SigningKey keyrole
+sk' = SigningKey -> SigningKey keyrole
+convert SigningKey
+unprotectedSk
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+skeyPathNew forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey keyrole
+sk'
+
+convertByronVerificationKey
+  :: forall keyrole.
+     Key keyrole
+  => (Byron.VerificationKey -> VerificationKey keyrole)
+  -> VerificationKeyFile In -- ^ Input file: old format
+  -> File () Out            -- ^ Output file: new format
+  -> ExceptT KeyCmdError IO ()
+convertByronVerificationKey :: forall keyrole.
+Key keyrole =>
+(VerificationKey -> VerificationKey keyrole)
+-> VerificationKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+convertByronVerificationKey VerificationKey -> VerificationKey keyrole
+convert VerificationKeyFile 'In
+vkeyPathOld File () 'Out
+vkeyPathNew = do
+
+    VerificationKey
+vk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronKeyFailure -> KeyCmdError
+KeyCmdByronKeyFailure forall a b. (a -> b) -> a -> b
+$
+            VerificationKeyFile 'In
+-> ExceptT ByronKeyFailure IO VerificationKey
+Byron.readPaymentVerificationKey VerificationKeyFile 'In
+vkeyPathOld
+
+    let vk' :: VerificationKey keyrole
+        vk' :: VerificationKey keyrole
+vk' = VerificationKey -> VerificationKey keyrole
+convert VerificationKey
+vk
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+vkeyPathNew forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey keyrole
+vk'
+
+
+runConvertByronGenesisVKeyCmd
+  :: Cmd.KeyConvertByronGenesisVKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertByronGenesisVKeyCmd :: KeyConvertByronGenesisVKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronGenesisVKeyCmd
+    Cmd.KeyConvertByronGenesisVKeyCmdArgs
+      { $sel:vkey:KeyConvertByronGenesisVKeyCmdArgs :: KeyConvertByronGenesisVKeyCmdArgs -> VerificationKeyBase64
+Cmd.vkey        = VerificationKeyBase64 [Char]
+b64ByronVKey
+      , $sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgs :: KeyConvertByronGenesisVKeyCmdArgs -> File () 'Out
+Cmd.vkeyFileOut = File () 'Out
+vkeyPathNew
+      } = do
+  VerificationKey
+vk <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (Text -> KeyCmdError
+KeyCmdByronKeyParseError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> Text
+textShow)
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> Either VerificationKeyParseError VerificationKey
+Byron.Crypto.parseFullVerificationKey
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Char] -> Text
+Text.pack
+      forall a b. (a -> b) -> a -> b
+$ [Char]
+b64ByronVKey
+
+  let vk' :: VerificationKey GenesisKey
+      vk' :: VerificationKey GenesisKey
+vk' = VerificationKey -> VerificationKey GenesisKey
+convert VerificationKey
+vk
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+vkeyPathNew forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey GenesisKey
+vk'
+  where
+    convert :: Byron.VerificationKey -> VerificationKey GenesisKey
+    convert :: VerificationKey -> VerificationKey GenesisKey
+convert (Byron.VerificationKey XPub
+xvk) =
+      forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey (XPub -> VerificationKey GenesisExtendedKey
+GenesisExtendedVerificationKey XPub
+xvk)
+
+
+--------------------------------------------------------------------------------
+-- ITN verification/signing key conversion to Haskell verficiation/signing keys
+--------------------------------------------------------------------------------
+
+runConvertITNKeyCmd
+  :: Cmd.KeyConvertITNKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertITNKeyCmd :: KeyConvertITNKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNKeyCmd
+    Cmd.KeyConvertITNKeyCmdArgs
+      { SomeKeyFile 'In
+$sel:itnKeyFile:KeyConvertITNKeyCmdArgs :: KeyConvertITNKeyCmdArgs -> SomeKeyFile 'In
+itnKeyFile :: SomeKeyFile 'In
+Cmd.itnKeyFile
+      , File () 'Out
+$sel:outFile:KeyConvertITNKeyCmdArgs :: KeyConvertITNKeyCmdArgs -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } =
+  case SomeKeyFile 'In
+itnKeyFile of
+    AVerificationKeyFile (File [Char]
+vk) -> do
+      Text
+bech32publicKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+                        [Char] -> IO (Either ItnKeyConversionError Text)
+readFileITNKey [Char]
+vk
+      VerificationKey StakeKey
+vkey <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError
+        forall a b. (a -> b) -> a -> b
+$ Text -> Either ItnKeyConversionError (VerificationKey StakeKey)
+convertITNVerificationKey Text
+bech32publicKey
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing VerificationKey StakeKey
+vkey
+
+    ASigningKeyFile (File [Char]
+sk) -> do
+      Text
+bech32privateKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+                          [Char] -> IO (Either ItnKeyConversionError Text)
+readFileITNKey [Char]
+sk
+      SigningKey StakeKey
+skey <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError
+        forall a b. (a -> b) -> a -> b
+$ Text -> Either ItnKeyConversionError (SigningKey StakeKey)
+convertITNSigningKey Text
+bech32privateKey
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey StakeKey
+skey
+
+runConvertITNExtendedKeyCmd :: ()
+  => Cmd.KeyConvertITNExtendedKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertITNExtendedKeyCmd :: KeyConvertITNExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNExtendedKeyCmd
+    Cmd.KeyConvertITNExtendedKeyCmdArgs
+      { SomeKeyFile 'In
+$sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgs :: KeyConvertITNExtendedKeyCmdArgs -> SomeKeyFile 'In
+itnPrivKeyFile :: SomeKeyFile 'In
+Cmd.itnPrivKeyFile
+      , File () 'Out
+$sel:outFile:KeyConvertITNExtendedKeyCmdArgs :: KeyConvertITNExtendedKeyCmdArgs -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } =
+  case SomeKeyFile 'In
+itnPrivKeyFile of
+    AVerificationKeyFile VerificationKeyFile 'In
+_ ->
+      forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left KeyCmdError
+KeyCmdWrongKeyTypeError
+    ASigningKeyFile (File [Char]
+sk) -> do
+      Text
+bech32privateKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ [Char] -> IO (Either ItnKeyConversionError Text)
+readFileITNKey [Char]
+sk
+      SigningKey StakeExtendedKey
+skey <-
+        Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNExtendedSigningKey Text
+bech32privateKey
+          forall a b. a -> (a -> b) -> b
+& forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError
+          forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey StakeExtendedKey
+skey
+
+runConvertITNBip32KeyCmd :: ()
+  => Cmd.KeyConvertITNBip32KeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertITNBip32KeyCmd :: KeyConvertITNBip32KeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNBip32KeyCmd
+    Cmd.KeyConvertITNBip32KeyCmdArgs
+      { SomeKeyFile 'In
+$sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgs :: KeyConvertITNBip32KeyCmdArgs -> SomeKeyFile 'In
+itnPrivKeyFile :: SomeKeyFile 'In
+Cmd.itnPrivKeyFile
+      , File () 'Out
+$sel:outFile:KeyConvertITNBip32KeyCmdArgs :: KeyConvertITNBip32KeyCmdArgs -> File () 'Out
+outFile :: File () 'Out
+Cmd.outFile
+      } =
+  case SomeKeyFile 'In
+itnPrivKeyFile of
+    AVerificationKeyFile VerificationKeyFile 'In
+_ ->
+      forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left KeyCmdError
+KeyCmdWrongKeyTypeError
+    ASigningKeyFile (File [Char]
+sk) -> do
+      Text
+bech32privateKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ [Char] -> IO (Either ItnKeyConversionError Text)
+readFileITNKey [Char]
+sk
+      SigningKey StakeExtendedKey
+skey <-
+        Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNBIP32SigningKey Text
+bech32privateKey
+          forall a b. a -> (a -> b) -> b
+& forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ItnKeyConversionError -> KeyCmdError
+KeyCmdItnKeyConvError
+          forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey StakeExtendedKey
+skey
+
+-- | Convert public ed25519 key to a Shelley stake verification key
+convertITNVerificationKey :: Text -> Either ItnKeyConversionError (VerificationKey StakeKey)
+convertITNVerificationKey :: Text -> Either ItnKeyConversionError (VerificationKey StakeKey)
+convertITNVerificationKey Text
+pubKey = do
+  (HumanReadablePart
+_, DataPart
+_, ByteString
+keyBS) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first Bech32DecodeError -> ItnKeyConversionError
+ItnKeyBech32DecodeError (Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 Text
+pubKey)
+  case forall v. DSIGNAlgorithm v => ByteString -> Maybe (VerKeyDSIGN v)
+DSIGN.rawDeserialiseVerKeyDSIGN ByteString
+keyBS of
+    Just VerKeyDSIGN Ed25519DSIGN
+verKey -> forall a b. b -> Either a b
+Right forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VKey 'Staking StandardCrypto -> VerificationKey StakeKey
+StakeVerificationKey forall a b. (a -> b) -> a -> b
+$ forall (kd :: KeyRole) c. VerKeyDSIGN (DSIGN c) -> VKey kd c
+Shelley.VKey VerKeyDSIGN Ed25519DSIGN
+verKey
+    Maybe (VerKeyDSIGN Ed25519DSIGN)
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ ByteString -> ItnKeyConversionError
+ItnVerificationKeyDeserialisationError ByteString
+keyBS
+
+-- | Convert private ed22519 key to a Shelley signing key.
+convertITNSigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeKey)
+convertITNSigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeKey)
+convertITNSigningKey Text
+privKey = do
+  (HumanReadablePart
+_, DataPart
+_, ByteString
+keyBS) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first Bech32DecodeError -> ItnKeyConversionError
+ItnKeyBech32DecodeError (Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 Text
+privKey)
+  case forall v. DSIGNAlgorithm v => ByteString -> Maybe (SignKeyDSIGN v)
+DSIGN.rawDeserialiseSignKeyDSIGN ByteString
+keyBS of
+    Just SignKeyDSIGN Ed25519DSIGN
+signKey -> forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ SignKeyDSIGN StandardCrypto -> SigningKey StakeKey
+StakeSigningKey SignKeyDSIGN Ed25519DSIGN
+signKey
+    Maybe (SignKeyDSIGN Ed25519DSIGN)
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ ByteString -> ItnKeyConversionError
+ItnSigningKeyDeserialisationError ByteString
+keyBS
+
+-- | Convert extended private ed22519 key to a Shelley signing key
+-- Extended private key = 64 bytes,
+-- Public key = 32 bytes.
+convertITNExtendedSigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNExtendedSigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNExtendedSigningKey Text
+privKey = do
+  (HumanReadablePart
+_, DataPart
+_, ByteString
+privkeyBS) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first Bech32DecodeError -> ItnKeyConversionError
+ItnKeyBech32DecodeError (Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 Text
+privKey)
+  let dummyChainCode :: ByteString
+dummyChainCode = Int -> Word8 -> ByteString
+BS.replicate Int
+32 Word8
+0
+  case ByteString -> Maybe XPrv
+xPrvFromBytes forall a b. (a -> b) -> a -> b
+$ [ByteString] -> ByteString
+BS.concat [ByteString
+privkeyBS, ByteString
+dummyChainCode] of
+    Just XPrv
+xprv -> forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ XPrv -> SigningKey StakeExtendedKey
+StakeExtendedSigningKey XPrv
+xprv
+    Maybe XPrv
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ ByteString -> ItnKeyConversionError
+ItnSigningKeyDeserialisationError ByteString
+privkeyBS
+
+-- BIP32 Private key = 96 bytes (64 bytes extended private key + 32 bytes chaincode)
+-- BIP32 Public Key = 64 Bytes
+convertITNBIP32SigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNBIP32SigningKey :: Text -> Either ItnKeyConversionError (SigningKey StakeExtendedKey)
+convertITNBIP32SigningKey Text
+privKey = do
+  (HumanReadablePart
+_, DataPart
+_, ByteString
+privkeyBS) <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first Bech32DecodeError -> ItnKeyConversionError
+ItnKeyBech32DecodeError (Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 Text
+privKey)
+  case ByteString -> Maybe XPrv
+xPrvFromBytes ByteString
+privkeyBS of
+    Just XPrv
+xprv -> forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ XPrv -> SigningKey StakeExtendedKey
+StakeExtendedSigningKey XPrv
+xprv
+    Maybe XPrv
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ ByteString -> ItnKeyConversionError
+ItnSigningKeyDeserialisationError ByteString
+privkeyBS
+
+readFileITNKey :: FilePath -> IO (Either ItnKeyConversionError Text)
+readFileITNKey :: [Char] -> IO (Either ItnKeyConversionError Text)
+readFileITNKey [Char]
+fp = do
+  Either IOException [Char]
+eStr <- forall e a. Exception e => IO a -> IO (Either e a)
+Exception.try forall a b. (a -> b) -> a -> b
+$ [Char] -> IO [Char]
+readFile [Char]
+fp
+  case Either IOException [Char]
+eStr of
+    Left IOException
+e -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ [Char] -> IOException -> ItnKeyConversionError
+ItnReadBech32FileError [Char]
+fp IOException
+e
+    Right [Char]
+str -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. b -> Either a b
+Right forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Text] -> Text
+Text.concat forall a b. (a -> b) -> a -> b
+$ Text -> [Text]
+Text.words forall a b. (a -> b) -> a -> b
+$ [Char] -> Text
+Text.pack [Char]
+str
+
+--------------------------------------------------------------------------------
+-- `cardano-address` extended signing key conversions
+--------------------------------------------------------------------------------
+
+runConvertCardanoAddressKeyCmd :: ()
+  => Cmd.KeyConvertCardanoAddressKeyCmdArgs
+  -> ExceptT KeyCmdError IO ()
+runConvertCardanoAddressKeyCmd :: KeyConvertCardanoAddressKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertCardanoAddressKeyCmd
+    Cmd.KeyConvertCardanoAddressKeyCmdArgs
+      { $sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgs :: KeyConvertCardanoAddressKeyCmdArgs -> CardanoAddressKeyType
+cardanoAddressKeyType = CardanoAddressKeyType
+keyType
+      , $sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgs :: KeyConvertCardanoAddressKeyCmdArgs -> SigningKeyFile 'In
+skeyFileIn            = SigningKeyFile 'In
+skFile
+      , $sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgs :: KeyConvertCardanoAddressKeyCmdArgs -> File () 'Out
+skeyFileOut           = File () 'Out
+outFile
+      } = do
+  SomeCardanoAddressSigningKey
+sKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError CardanoAddressSigningKeyConversionError -> KeyCmdError
+KeyCmdCardanoAddressSigningKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ CardanoAddressKeyType
+-> SigningKeyFile 'In
+-> IO
+     (Either
+        (FileError CardanoAddressSigningKeyConversionError)
+        SomeCardanoAddressSigningKey)
+readSomeCardanoAddressSigningKeyFile CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skFile
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> KeyCmdError
+KeyCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall direction.
+File direction 'Out
+-> SomeCardanoAddressSigningKey -> IO (Either (FileError ()) ())
+writeSomeCardanoAddressSigningKeyFile File () 'Out
+outFile SomeCardanoAddressSigningKey
+sKey
+
+-- | Some kind of signing key that was converted from a @cardano-address@
+-- signing key.
+data SomeCardanoAddressSigningKey
+  = ACardanoAddrShelleyPaymentSigningKey !(SigningKey PaymentExtendedKey)
+  | ACardanoAddrShelleyStakeSigningKey !(SigningKey StakeExtendedKey)
+  | ACardanoAddrByronSigningKey !(SigningKey ByronKey)
+
+-- | Decode a Bech32-encoded string.
+decodeBech32
+  :: Text
+  -> Either Bech32DecodeError (Bech32.HumanReadablePart, Bech32.DataPart, ByteString)
+decodeBech32 :: Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 Text
+bech32Str =
+  case Text -> Either DecodingError (HumanReadablePart, DataPart)
+Bech32.decodeLenient Text
+bech32Str of
+    Left DecodingError
+err -> forall a b. a -> Either a b
+Left (DecodingError -> Bech32DecodeError
+Bech32DecodingError DecodingError
+err)
+    Right (HumanReadablePart
+hrPart, DataPart
+dataPart) ->
+      case DataPart -> Maybe ByteString
+Bech32.dataPartToBytes DataPart
+dataPart of
+        Maybe ByteString
+Nothing ->
+          forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ Text -> Bech32DecodeError
+Bech32DataPartToBytesError (DataPart -> Text
+Bech32.dataPartToText DataPart
+dataPart)
+        Just ByteString
+bs -> forall a b. b -> Either a b
+Right (HumanReadablePart
+hrPart, DataPart
+dataPart, ByteString
+bs)
+
+-- | Convert a Ed25519 BIP32 extended signing key (96 bytes) to a @cardano-crypto@
+-- style extended signing key.
+--
+-- Note that both the ITN and @cardano-address@ use this key format.
+convertBip32SigningKey
+  :: ByteString
+  -> Either CardanoAddressSigningKeyConversionError Crypto.XPrv
+convertBip32SigningKey :: ByteString -> Either CardanoAddressSigningKeyConversionError XPrv
+convertBip32SigningKey ByteString
+signingKeyBs =
+  case ByteString -> Maybe XPrv
+xPrvFromBytes ByteString
+signingKeyBs of
+    Just XPrv
+xPrv -> forall a b. b -> Either a b
+Right XPrv
+xPrv
+    Maybe XPrv
+Nothing ->
+      forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ ByteString -> CardanoAddressSigningKeyConversionError
+CardanoAddressSigningKeyDeserialisationError ByteString
+signingKeyBs
+
+-- | Read a file containing a Bech32-encoded Ed25519 BIP32 extended signing
+-- key.
+readBech32Bip32SigningKeyFile
+  :: SigningKeyFile In
+  -> IO (Either (FileError CardanoAddressSigningKeyConversionError) Crypto.XPrv)
+readBech32Bip32SigningKeyFile :: SigningKeyFile 'In
+-> IO
+     (Either (FileError CardanoAddressSigningKeyConversionError) XPrv)
+readBech32Bip32SigningKeyFile (File [Char]
+fp) = do
+  Either IOException [Char]
+eStr <- forall e a. Exception e => IO a -> IO (Either e a)
+Exception.try forall a b. (a -> b) -> a -> b
+$ [Char] -> IO [Char]
+readFile [Char]
+fp
+  case Either IOException [Char]
+eStr of
+    Left IOException
+e -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ forall e. [Char] -> IOException -> FileError e
+FileIOError [Char]
+fp IOException
+e
+    Right [Char]
+str ->
+      case Text
+-> Either
+     Bech32DecodeError (HumanReadablePart, DataPart, ByteString)
+decodeBech32 ([Text] -> Text
+Text.concat forall a b. (a -> b) -> a -> b
+$ Text -> [Text]
+Text.words forall a b. (a -> b) -> a -> b
+$ [Char] -> Text
+Text.pack [Char]
+str) of
+        Left Bech32DecodeError
+err ->
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$
+            forall e. [Char] -> e -> FileError e
+FileError [Char]
+fp (Bech32DecodeError -> CardanoAddressSigningKeyConversionError
+CardanoAddressSigningKeyBech32DecodeError Bech32DecodeError
+err)
+        Right (HumanReadablePart
+_hrPart, DataPart
+_dataPart, ByteString
+bs) ->
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (forall e. [Char] -> e -> FileError e
+FileError [Char]
+fp) (ByteString -> Either CardanoAddressSigningKeyConversionError XPrv
+convertBip32SigningKey ByteString
+bs)
+
+-- | Read a file containing a Bech32-encoded @cardano-address@ extended
+-- signing key.
+readSomeCardanoAddressSigningKeyFile
+  :: CardanoAddressKeyType
+  -> SigningKeyFile In
+  -> IO (Either (FileError CardanoAddressSigningKeyConversionError) SomeCardanoAddressSigningKey)
+readSomeCardanoAddressSigningKeyFile :: CardanoAddressKeyType
+-> SigningKeyFile 'In
+-> IO
+     (Either
+        (FileError CardanoAddressSigningKeyConversionError)
+        SomeCardanoAddressSigningKey)
+readSomeCardanoAddressSigningKeyFile CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skFile = do
+    Either (FileError CardanoAddressSigningKeyConversionError) XPrv
+xPrv <- SigningKeyFile 'In
+-> IO
+     (Either (FileError CardanoAddressSigningKeyConversionError) XPrv)
+readBech32Bip32SigningKeyFile SigningKeyFile 'In
+skFile
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure (XPrv -> SomeCardanoAddressSigningKey
+toSomeCardanoAddressSigningKey forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Either (FileError CardanoAddressSigningKeyConversionError) XPrv
+xPrv)
+  where
+    toSomeCardanoAddressSigningKey :: Crypto.XPrv -> SomeCardanoAddressSigningKey
+    toSomeCardanoAddressSigningKey :: XPrv -> SomeCardanoAddressSigningKey
+toSomeCardanoAddressSigningKey XPrv
+xPrv =
+      case CardanoAddressKeyType
+keyType of
+        CardanoAddressKeyType
+CardanoAddressShelleyPaymentKey ->
+          SigningKey PaymentExtendedKey -> SomeCardanoAddressSigningKey
+ACardanoAddrShelleyPaymentSigningKey
+            (XPrv -> SigningKey PaymentExtendedKey
+PaymentExtendedSigningKey XPrv
+xPrv)
+        CardanoAddressKeyType
+CardanoAddressShelleyStakeKey ->
+          SigningKey StakeExtendedKey -> SomeCardanoAddressSigningKey
+ACardanoAddrShelleyStakeSigningKey (XPrv -> SigningKey StakeExtendedKey
+StakeExtendedSigningKey XPrv
+xPrv)
+        CardanoAddressKeyType
+CardanoAddressIcarusPaymentKey ->
+          SigningKey ByronKey -> SomeCardanoAddressSigningKey
+ACardanoAddrByronSigningKey forall a b. (a -> b) -> a -> b
+$
+            SigningKey -> SigningKey ByronKey
+ByronSigningKey (XPrv -> SigningKey
+Byron.SigningKey XPrv
+xPrv)
+        CardanoAddressKeyType
+CardanoAddressByronPaymentKey ->
+          SigningKey ByronKey -> SomeCardanoAddressSigningKey
+ACardanoAddrByronSigningKey forall a b. (a -> b) -> a -> b
+$
+            SigningKey -> SigningKey ByronKey
+ByronSigningKey (XPrv -> SigningKey
+Byron.SigningKey XPrv
+xPrv)
+
+-- | Write a text envelope formatted file containing a @cardano-address@
+-- extended signing key, but converted to a format supported by @cardano-cli@.
+writeSomeCardanoAddressSigningKeyFile
+  :: File direction Out
+  -> SomeCardanoAddressSigningKey
+  -> IO (Either (FileError ()) ())
+writeSomeCardanoAddressSigningKeyFile :: forall direction.
+File direction 'Out
+-> SomeCardanoAddressSigningKey -> IO (Either (FileError ()) ())
+writeSomeCardanoAddressSigningKeyFile File direction 'Out
+outFile SomeCardanoAddressSigningKey
+skey =
+  case SomeCardanoAddressSigningKey
+skey of
+    ACardanoAddrShelleyPaymentSigningKey SigningKey PaymentExtendedKey
+sk ->
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File direction 'Out
+outFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey PaymentExtendedKey
+sk
+    ACardanoAddrShelleyStakeSigningKey SigningKey StakeExtendedKey
+sk ->
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File direction 'Out
+outFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey StakeExtendedKey
+sk
+    ACardanoAddrByronSigningKey SigningKey ByronKey
+sk ->
+      forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File direction 'Out
+outFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing SigningKey ByronKey
+sk
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Node.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Node.html new file mode 100644 index 0000000000..f169a79235 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Node.html @@ -0,0 +1,962 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+
+module Cardano.CLI.EraBased.Run.Node
+  ( runNodeCmds
+
+  , runNodeIssueOpCertCmd
+  , runNodeKeyGenColdCmd
+  , runNodeKeyGenKesCmd
+  , runNodeKeyGenVrfCmd
+  , runNodeKeyHashVrfCmd
+  , runNodeNewCounterCmd
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.NodeCmdError
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, newExceptT)
+import qualified Data.ByteString.Char8 as BS
+import           Data.String (fromString)
+import           Data.Word (Word64)
+
+{- HLINT ignore "Reduce duplication" -}
+
+runNodeCmds :: ()
+  => Cmd.NodeCmds era
+  -> ExceptT NodeCmdError IO ()
+runNodeCmds :: forall era. NodeCmds era -> ExceptT NodeCmdError IO ()
+runNodeCmds = \case
+  Cmd.NodeKeyGenColdCmd NodeKeyGenColdCmdArgs
+args    -> NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenColdCmd NodeKeyGenColdCmdArgs
+args
+  Cmd.NodeKeyGenKESCmd NodeKeyGenKESCmdArgs
+args     -> NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd NodeKeyGenKESCmdArgs
+args
+  Cmd.NodeKeyGenVRFCmd NodeKeyGenVRFCmdArgs
+args     -> NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenVrfCmd NodeKeyGenVRFCmdArgs
+args
+  Cmd.NodeKeyHashVRFCmd NodeKeyHashVRFCmdArgs
+args    -> NodeKeyHashVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyHashVrfCmd NodeKeyHashVRFCmdArgs
+args
+  Cmd.NodeNewCounterCmd NodeNewCounterCmdArgs
+args    -> NodeNewCounterCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeNewCounterCmd NodeNewCounterCmdArgs
+args
+  Cmd.NodeIssueOpCertCmd NodeIssueOpCertCmdArgs
+args   -> NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd NodeIssueOpCertCmdArgs
+args
+
+runNodeKeyGenColdCmd :: ()
+  => Cmd.NodeKeyGenColdCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeKeyGenColdCmd :: NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenColdCmd
+    Cmd.NodeKeyGenColdCmdArgs
+      { KeyOutputFormat
+$sel:keyOutputFormat:NodeKeyGenColdCmdArgs :: NodeKeyGenColdCmdArgs -> KeyOutputFormat
+keyOutputFormat :: KeyOutputFormat
+keyOutputFormat
+      , VerificationKeyFile 'Out
+$sel:vkeyFile:NodeKeyGenColdCmdArgs :: NodeKeyGenColdCmdArgs -> VerificationKeyFile 'Out
+vkeyFile :: VerificationKeyFile 'Out
+vkeyFile
+      , SigningKeyFile 'Out
+$sel:skeyFile:NodeKeyGenColdCmdArgs :: NodeKeyGenColdCmdArgs -> SigningKeyFile 'Out
+skeyFile :: SigningKeyFile 'Out
+skeyFile
+      , OpCertCounterFile 'Out
+$sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgs :: NodeKeyGenColdCmdArgs -> OpCertCounterFile 'Out
+operationalCertificateIssueCounter :: OpCertCounterFile 'Out
+operationalCertificateIssueCounter
+      } = do
+  SigningKey StakePoolKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType StakePoolKey
+AsStakePoolKey
+  let vkey :: VerificationKey StakePoolKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey StakePoolKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey StakePoolKey
+skey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 SigningKey StakePoolKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey StakePoolKey
+vkey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 VerificationKey StakePoolKey
+vkey
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile OpCertCounterFile 'Out
+operationalCertificateIssueCounter
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+ocertCtrDesc)
+    forall a b. (a -> b) -> a -> b
+$ Word64
+-> VerificationKey StakePoolKey
+-> OperationalCertificateIssueCounter
+OperationalCertificateIssueCounter Word64
+initialCounter VerificationKey StakePoolKey
+vkey
+
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Stake Pool Operator Signing Key"
+
+    vkeyDesc :: TextEnvelopeDescr
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"Stake Pool Operator Verification Key"
+
+    ocertCtrDesc :: TextEnvelopeDescr
+    ocertCtrDesc :: TextEnvelopeDescr
+ocertCtrDesc = TextEnvelopeDescr
+"Next certificate issue number: "
+                forall a. Semigroup a => a -> a -> a
+<> forall a. IsString a => String -> a
+fromString (forall a. Show a => a -> String
+show Word64
+initialCounter)
+
+    initialCounter :: Word64
+    initialCounter :: Word64
+initialCounter = Word64
+0
+
+
+runNodeKeyGenKesCmd :: ()
+  => Cmd.NodeKeyGenKESCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd :: NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd
+    Cmd.NodeKeyGenKESCmdArgs
+      { KeyOutputFormat
+$sel:keyOutputFormat:NodeKeyGenKESCmdArgs :: NodeKeyGenKESCmdArgs -> KeyOutputFormat
+keyOutputFormat :: KeyOutputFormat
+keyOutputFormat
+      , VerificationKeyFile 'Out
+$sel:vkeyFile:NodeKeyGenKESCmdArgs :: NodeKeyGenKESCmdArgs -> VerificationKeyFile 'Out
+vkeyFile :: VerificationKeyFile 'Out
+vkeyFile
+      , SigningKeyFile 'Out
+$sel:skeyFile:NodeKeyGenKESCmdArgs :: NodeKeyGenKESCmdArgs -> SigningKeyFile 'Out
+skeyFile :: SigningKeyFile 'Out
+skeyFile
+      } = do
+  SigningKey KesKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType KesKey
+AsKesKey
+
+  let vkey :: VerificationKey KesKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey KesKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall content e.
+File content 'Out -> ByteString -> IO (Either (FileError e) ())
+writeLazyByteStringFileWithOwnerPermissions SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey KesKey
+skey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 SigningKey KesKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey KesKey
+vkey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 VerificationKey KesKey
+vkey
+
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"KES Signing Key"
+
+    vkeyDesc :: TextEnvelopeDescr
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"KES Verification Key"
+
+runNodeKeyGenVrfCmd :: ()
+  => Cmd.NodeKeyGenVRFCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeKeyGenVrfCmd :: NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenVrfCmd
+    Cmd.NodeKeyGenVRFCmdArgs
+      { KeyOutputFormat
+$sel:keyOutputFormat:NodeKeyGenVRFCmdArgs :: NodeKeyGenVRFCmdArgs -> KeyOutputFormat
+keyOutputFormat :: KeyOutputFormat
+keyOutputFormat
+      , VerificationKeyFile 'Out
+$sel:vkeyFile:NodeKeyGenVRFCmdArgs :: NodeKeyGenVRFCmdArgs -> VerificationKeyFile 'Out
+vkeyFile :: VerificationKeyFile 'Out
+vkeyFile
+      , SigningKeyFile 'Out
+$sel:skeyFile:NodeKeyGenVRFCmdArgs :: NodeKeyGenVRFCmdArgs -> SigningKeyFile 'Out
+skeyFile :: SigningKeyFile 'Out
+skeyFile
+      } = do
+  SigningKey VrfKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType VrfKey
+AsVrfKey
+
+  let vkey :: VerificationKey VrfKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey VrfKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall content e.
+File content 'Out -> ByteString -> IO (Either (FileError e) ())
+writeLazyByteStringFileWithOwnerPermissions SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey VrfKey
+skey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile SigningKeyFile 'Out
+skeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 SigningKey VrfKey
+skey
+
+  case KeyOutputFormat
+keyOutputFormat of
+    KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+vkeyDesc) VerificationKey VrfKey
+vkey
+    KeyOutputFormat
+KeyOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile VerificationKeyFile 'Out
+vkeyFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 VerificationKey VrfKey
+vkey
+  where
+    skeyDesc, vkeyDesc :: TextEnvelopeDescr
+    skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"VRF Signing Key"
+    vkeyDesc :: TextEnvelopeDescr
+vkeyDesc = TextEnvelopeDescr
+"VRF Verification Key"
+
+runNodeKeyHashVrfCmd :: ()
+  => Cmd.NodeKeyHashVRFCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeKeyHashVrfCmd :: NodeKeyHashVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyHashVrfCmd
+    Cmd.NodeKeyHashVRFCmdArgs
+      { VerificationKeyOrFile VrfKey
+$sel:vkeySource:NodeKeyHashVRFCmdArgs :: NodeKeyHashVRFCmdArgs -> VerificationKeyOrFile VrfKey
+vkeySource :: VerificationKeyOrFile VrfKey
+vkeySource
+      , Maybe (File () 'Out)
+$sel:mOutFile:NodeKeyHashVRFCmdArgs :: NodeKeyHashVRFCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  VerificationKey VrfKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> NodeCmdError
+NodeCmdReadKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType VrfKey
+AsVrfKey VerificationKeyOrFile VrfKey
+vkeySource
+
+  let hexKeyHash :: ByteString
+hexKeyHash = forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey VrfKey
+vkey)
+
+  case Maybe (File () 'Out)
+mOutFile of
+    Just File () 'Out
+fpath -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+BS.writeFile (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'Out
+fpath) ByteString
+hexKeyHash
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn ByteString
+hexKeyHash
+
+runNodeNewCounterCmd :: ()
+  => Cmd.NodeNewCounterCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeNewCounterCmd :: NodeNewCounterCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeNewCounterCmd
+    Cmd.NodeNewCounterCmdArgs
+      { ColdVerificationKeyOrFile
+$sel:coldVkeyFile:NodeNewCounterCmdArgs :: NodeNewCounterCmdArgs -> ColdVerificationKeyOrFile
+coldVkeyFile :: ColdVerificationKeyOrFile
+coldVkeyFile
+      , Word
+$sel:counter:NodeNewCounterCmdArgs :: NodeNewCounterCmdArgs -> Word
+counter :: Word
+counter
+      , OpCertCounterFile 'InOut
+$sel:mOutFile:NodeNewCounterCmdArgs :: NodeNewCounterCmdArgs -> OpCertCounterFile 'InOut
+mOutFile :: OpCertCounterFile 'InOut
+mOutFile
+      } = do
+  VerificationKey StakePoolKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> NodeCmdError
+NodeCmdReadFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    ColdVerificationKeyOrFile
+-> IO
+     (Either
+        (FileError TextEnvelopeError) (VerificationKey StakePoolKey))
+readColdVerificationKeyOrFile ColdVerificationKeyOrFile
+coldVkeyFile
+
+  let ocertIssueCounter :: OperationalCertificateIssueCounter
+ocertIssueCounter =
+        Word64
+-> VerificationKey StakePoolKey
+-> OperationalCertificateIssueCounter
+OperationalCertificateIssueCounter (forall a b. (Integral a, Num b) => a -> b
+fromIntegral Word
+counter) VerificationKey StakePoolKey
+vkey
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile (forall content. File content 'InOut -> File content 'Out
+onlyOut OpCertCounterFile 'InOut
+mOutFile)
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing OperationalCertificateIssueCounter
+ocertIssueCounter
+
+runNodeIssueOpCertCmd :: ()
+  => Cmd.NodeIssueOpCertCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd :: NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd
+    Cmd.NodeIssueOpCertCmdArgs
+      { VerificationKeyOrFile KesKey
+$sel:kesVkeySource:NodeIssueOpCertCmdArgs :: NodeIssueOpCertCmdArgs -> VerificationKeyOrFile KesKey
+kesVkeySource :: VerificationKeyOrFile KesKey
+kesVkeySource
+      , SigningKeyFile 'In
+$sel:poolSkeyFile:NodeIssueOpCertCmdArgs :: NodeIssueOpCertCmdArgs -> SigningKeyFile 'In
+poolSkeyFile :: SigningKeyFile 'In
+poolSkeyFile
+      , OpCertCounterFile 'InOut
+$sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgs :: NodeIssueOpCertCmdArgs -> OpCertCounterFile 'InOut
+operationalCertificateCounterFile :: OpCertCounterFile 'InOut
+operationalCertificateCounterFile
+      , KESPeriod
+$sel:kesPeriod:NodeIssueOpCertCmdArgs :: NodeIssueOpCertCmdArgs -> KESPeriod
+kesPeriod :: KESPeriod
+kesPeriod
+      , File () 'Out
+$sel:outFile:NodeIssueOpCertCmdArgs :: NodeIssueOpCertCmdArgs -> File () 'Out
+outFile :: File () 'Out
+outFile
+      } = do
+  OperationalCertificateIssueCounter
+ocertIssueCounter <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> NodeCmdError
+NodeCmdReadFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope AsType OperationalCertificateIssueCounter
+AsOperationalCertificateIssueCounter (forall content. File content 'InOut -> File content 'In
+onlyIn OpCertCounterFile 'InOut
+operationalCertificateCounterFile)
+
+  VerificationKey KesKey
+verKeyKes <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> NodeCmdError
+NodeCmdReadKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType KesKey
+AsKesKey VerificationKeyOrFile KesKey
+kesVkeySource
+
+  Either
+  (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey)
+signKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> NodeCmdError
+NodeCmdReadKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall content b.
+[FromSomeType SerialiseAsBech32 b]
+-> [FromSomeType HasTextEnvelope b]
+-> File content 'In
+-> IO (Either (FileError InputDecodeError) b)
+readKeyFileAnyOf
+        [FromSomeType
+   SerialiseAsBech32
+   (Either
+      (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey))]
+bech32PossibleBlockIssuers
+        [FromSomeType
+   HasTextEnvelope
+   (Either
+      (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey))]
+textEnvPossibleBlockIssuers
+        SigningKeyFile 'In
+poolSkeyFile
+
+  (OperationalCertificate
+ocert, OperationalCertificateIssueCounter
+nextOcertCtr) <-
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT OperationalCertIssueError -> NodeCmdError
+NodeCmdOperationalCertificateIssueError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall a b. (a -> b) -> a -> b
+$ VerificationKey KesKey
+-> Either
+     (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey)
+-> KESPeriod
+-> OperationalCertificateIssueCounter
+-> Either
+     OperationalCertIssueError
+     (OperationalCertificate, OperationalCertificateIssueCounter)
+issueOperationalCertificate
+          VerificationKey KesKey
+verKeyKes
+          Either
+  (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey)
+signKey
+          KESPeriod
+kesPeriod
+          OperationalCertificateIssueCounter
+ocertIssueCounter
+
+  -- Write the counter first, to reduce the chance of ending up with
+  -- a new cert but without updating the counter.
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile (forall content. File content 'InOut -> File content 'Out
+onlyOut OpCertCounterFile 'InOut
+operationalCertificateCounterFile)
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ Word64 -> TextEnvelopeDescr
+ocertCtrDesc forall a b. (a -> b) -> a -> b
+$ OperationalCertificateIssueCounter -> Word64
+getCounter OperationalCertificateIssueCounter
+nextOcertCtr) OperationalCertificateIssueCounter
+nextOcertCtr
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> NodeCmdError
+NodeCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing OperationalCertificate
+ocert
+
+  where
+    getCounter :: OperationalCertificateIssueCounter -> Word64
+    getCounter :: OperationalCertificateIssueCounter -> Word64
+getCounter (OperationalCertificateIssueCounter Word64
+n VerificationKey StakePoolKey
+_) = Word64
+n
+
+    ocertCtrDesc :: Word64 -> TextEnvelopeDescr
+    ocertCtrDesc :: Word64 -> TextEnvelopeDescr
+ocertCtrDesc Word64
+n = TextEnvelopeDescr
+"Next certificate issue number: " forall a. Semigroup a => a -> a -> a
+<> forall a. IsString a => String -> a
+fromString (forall a. Show a => a -> String
+show Word64
+n)
+
+    textEnvPossibleBlockIssuers
+      :: [FromSomeType HasTextEnvelope
+                       (Either (SigningKey StakePoolKey)
+                               (SigningKey GenesisDelegateExtendedKey))]
+    textEnvPossibleBlockIssuers :: [FromSomeType
+   HasTextEnvelope
+   (Either
+      (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey))]
+textEnvPossibleBlockIssuers =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey)        forall a b. a -> Either a b
+Left
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey) (forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyroleA keyroleB.
+CastSigningKeyRole keyroleA keyroleB =>
+SigningKey keyroleA -> SigningKey keyroleB
+castSigningKey)
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateExtendedKey
+AsGenesisDelegateExtendedKey) forall a b. b -> Either a b
+Right
+      ]
+
+    bech32PossibleBlockIssuers
+      :: [FromSomeType SerialiseAsBech32
+                       (Either (SigningKey StakePoolKey)
+                               (SigningKey GenesisDelegateExtendedKey))]
+    bech32PossibleBlockIssuers :: [FromSomeType
+   SerialiseAsBech32
+   (Either
+      (SigningKey StakePoolKey) (SigningKey GenesisDelegateExtendedKey))]
+bech32PossibleBlockIssuers =
+      [forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey) forall a b. a -> Either a b
+Left]
+
+-- | Read a cold verification key or file.
+--
+-- If a filepath is provided, it will be interpreted as a text envelope
+-- formatted file.
+readColdVerificationKeyOrFile
+  :: ColdVerificationKeyOrFile
+  -> IO (Either (FileError TextEnvelopeError) (VerificationKey StakePoolKey))
+readColdVerificationKeyOrFile :: ColdVerificationKeyOrFile
+-> IO
+     (Either
+        (FileError TextEnvelopeError) (VerificationKey StakePoolKey))
+readColdVerificationKeyOrFile ColdVerificationKeyOrFile
+coldVerKeyOrFile =
+  case ColdVerificationKeyOrFile
+coldVerKeyOrFile of
+    ColdStakePoolVerificationKey VerificationKey StakePoolKey
+vk -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a b. b -> Either a b
+Right VerificationKey StakePoolKey
+vk)
+    ColdGenesisDelegateVerificationKey VerificationKey GenesisDelegateKey
+vk ->
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right (forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey VerificationKey GenesisDelegateKey
+vk)
+    ColdVerificationKeyFile VerificationKeyFile 'In
+fp ->
+      forall b content.
+[FromSomeType HasTextEnvelope b]
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) b)
+readFileTextEnvelopeAnyOf
+        [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType StakePoolKey
+AsStakePoolKey) forall a. a -> a
+id
+        , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisDelegateKey
+AsGenesisDelegateKey) forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey
+        ]
+        VerificationKeyFile 'In
+fp
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Query.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Query.html new file mode 100644 index 0000000000..2902780f1e --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Query.html @@ -0,0 +1,6040 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE TypeOperators #-}
+
+module Cardano.CLI.EraBased.Run.Query
+  ( runQueryCmds
+
+  , runQueryConstitutionHashCmd
+  , runQueryKesPeriodInfoCmd
+  , runQueryLeadershipScheduleCmd
+  , runQueryLedgerStateCmd
+  , runQueryPoolStateCmd
+  , runQueryProtocolParametersCmd
+  , runQueryProtocolStateCmd
+  , runQuerySlotNumberCmd
+  , runQueryStakeAddressInfoCmd
+  , runQueryStakeDistributionCmd
+  , runQueryStakePoolsCmd
+  , runQueryStakeSnapshotCmd
+  , runQueryTipCmd
+  , runQueryTxMempoolCmd
+  , runQueryUTxOCmd
+
+  , DelegationsAndRewards(..)
+  , renderQueryCmdError
+  , renderLocalStateQueryError
+  , renderOpCertIntervalInformation
+  , percentage
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+import qualified Cardano.Api as Api
+import           Cardano.Api.Byron hiding (QueryInShelleyBasedEra (..))
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import qualified Cardano.CLI.EraBased.Commands.Query as Cmd
+import           Cardano.CLI.EraBased.Run.Genesis (readAndDecodeShelleyGenesis)
+import           Cardano.CLI.Helpers
+import           Cardano.CLI.Pretty
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.QueryCmdError
+import           Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
+import           Cardano.CLI.Types.Key
+import qualified Cardano.CLI.Types.Output as O
+import           Cardano.Crypto.Hash (hashToBytesAsHex)
+import qualified Cardano.Crypto.Hash.Blake2b as Blake2b
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.Core as Core
+import qualified Cardano.Ledger.Crypto as Crypto
+import           Cardano.Ledger.Keys (KeyHash (..), KeyRole (..))
+import           Cardano.Ledger.SafeHash (SafeHash)
+import           Cardano.Ledger.Shelley.LedgerState
+                   (PState (psFutureStakePoolParams, psRetiring, psStakePoolParams))
+import qualified Cardano.Ledger.Shelley.LedgerState as SL
+import           Cardano.Slotting.EpochInfo (EpochInfo (..), epochInfoSlotToUTCTime, hoistEpochInfo)
+import           Ouroboros.Consensus.BlockchainTime.WallClock.Types (RelativeTime (..),
+                   toRelativeTime)
+import qualified Ouroboros.Consensus.Cardano.Block as Consensus
+import qualified Ouroboros.Consensus.HardFork.History as Consensus
+import qualified Ouroboros.Consensus.Protocol.Abstract as Consensus
+import qualified Ouroboros.Consensus.Protocol.Praos.Common as Consensus
+import           Ouroboros.Consensus.Protocol.TPraos (StandardCrypto)
+import           Ouroboros.Network.Block (Serialised (..))
+
+import           Control.Monad (forM, forM_, join)
+import           Control.Monad.IO.Class (MonadIO)
+import           Control.Monad.IO.Unlift (MonadIO (..))
+import           Control.Monad.Trans.Class
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import           Data.Aeson as Aeson
+import qualified Data.Aeson as A
+import           Data.Aeson.Encode.Pretty (encodePretty)
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Coerce (coerce)
+import           Data.Function ((&))
+import           Data.Functor ((<&>))
+import qualified Data.List as List
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.Proxy (Proxy (..))
+import           Data.Set (Set)
+import qualified Data.Set as Set
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+import qualified Data.Text.IO as T
+import qualified Data.Text.IO as Text
+import           Data.Time.Clock
+import           Lens.Micro ((^.))
+import           Numeric (showEFloat)
+import           Prettyprinter
+import qualified System.IO as IO
+import           Text.Printf (printf)
+
+{- HLINT ignore "Move brackets to avoid $" -}
+{- HLINT ignore "Redundant flip" -}
+
+runQueryCmds :: Cmd.QueryCmds era -> ExceptT QueryCmdError IO ()
+runQueryCmds :: forall era. QueryCmds era -> ExceptT QueryCmdError IO ()
+runQueryCmds = \case
+  Cmd.QueryLeadershipScheduleCmd    QueryLeadershipScheduleCmdArgs
+args -> QueryLeadershipScheduleCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryLeadershipScheduleCmd QueryLeadershipScheduleCmdArgs
+args
+  Cmd.QueryProtocolParametersCmd    QueryProtocolParametersCmdArgs
+args -> QueryProtocolParametersCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryProtocolParametersCmd QueryProtocolParametersCmdArgs
+args
+  Cmd.QueryConstitutionHashCmd      QueryConstitutionHashCmdArgs
+args -> QueryConstitutionHashCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryConstitutionHashCmd QueryConstitutionHashCmdArgs
+args
+  Cmd.QueryTipCmd                   QueryTipCmdArgs
+args -> QueryTipCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryTipCmd QueryTipCmdArgs
+args
+  Cmd.QueryStakePoolsCmd            QueryStakePoolsCmdArgs
+args -> QueryStakePoolsCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakePoolsCmd QueryStakePoolsCmdArgs
+args
+  Cmd.QueryStakeDistributionCmd     QueryStakeDistributionCmdArgs
+args -> QueryStakeDistributionCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeDistributionCmd QueryStakeDistributionCmdArgs
+args
+  Cmd.QueryStakeAddressInfoCmd      QueryStakeAddressInfoCmdArgs
+args -> QueryStakeAddressInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeAddressInfoCmd QueryStakeAddressInfoCmdArgs
+args
+  Cmd.QueryLedgerStateCmd           QueryLedgerStateCmdArgs
+args -> QueryLedgerStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryLedgerStateCmd QueryLedgerStateCmdArgs
+args
+  Cmd.QueryStakeSnapshotCmd         QueryStakeSnapshotCmdArgs
+args -> QueryStakeSnapshotCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeSnapshotCmd QueryStakeSnapshotCmdArgs
+args
+  Cmd.QueryProtocolStateCmd         QueryProtocolStateCmdArgs
+args -> QueryProtocolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryProtocolStateCmd QueryProtocolStateCmdArgs
+args
+  Cmd.QueryUTxOCmd                  QueryUTxOCmdArgs
+args -> QueryUTxOCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryUTxOCmd QueryUTxOCmdArgs
+args
+  Cmd.QueryKesPeriodInfoCmd         QueryKesPeriodInfoCmdArgs
+args -> QueryKesPeriodInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryKesPeriodInfoCmd QueryKesPeriodInfoCmdArgs
+args
+  Cmd.QueryPoolStateCmd             QueryPoolStateCmdArgs
+args -> QueryPoolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryPoolStateCmd QueryPoolStateCmdArgs
+args
+  Cmd.QueryTxMempoolCmd             QueryTxMempoolCmdArgs
+args -> QueryTxMempoolCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryTxMempoolCmd QueryTxMempoolCmdArgs
+args
+  Cmd.QuerySlotNumberCmd            QuerySlotNumberCmdArgs
+args -> QuerySlotNumberCmdArgs -> ExceptT QueryCmdError IO ()
+runQuerySlotNumberCmd QuerySlotNumberCmdArgs
+args
+  Cmd.QueryConstitutionCmd          QueryNoArgCmdArgs era
+args -> forall era. QueryNoArgCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryConstitution QueryNoArgCmdArgs era
+args
+  Cmd.QueryGovStateCmd              QueryNoArgCmdArgs era
+args -> forall era. QueryNoArgCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryGovState QueryNoArgCmdArgs era
+args
+  Cmd.QueryDRepStateCmd             QueryDRepStateCmdArgs era
+args -> forall era.
+QueryDRepStateCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryDRepState QueryDRepStateCmdArgs era
+args
+  Cmd.QueryDRepStakeDistributionCmd QueryDRepStakeDistributionCmdArgs era
+args -> forall era.
+QueryDRepStakeDistributionCmdArgs era
+-> ExceptT QueryCmdError IO ()
+runQueryDRepStakeDistribution QueryDRepStakeDistributionCmdArgs era
+args
+  Cmd.QueryCommitteeMembersStateCmd QueryCommitteeMembersStateCmdArgs era
+args -> forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> ExceptT QueryCmdError IO ()
+runQueryCommitteeMembersState QueryCommitteeMembersStateCmdArgs era
+args
+
+runQueryConstitutionHashCmd :: ()
+  => Cmd.QueryConstitutionHashCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryConstitutionHashCmd :: QueryConstitutionHashCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryConstitutionHashCmd
+    Cmd.QueryConstitutionHashCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryConstitutionHashCmdArgs :: QueryConstitutionHashCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryConstitutionHashCmdArgs :: QueryConstitutionHashCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryConstitutionHashCmdArgs :: QueryConstitutionHashCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryConstitutionHashCmdArgs :: QueryConstitutionHashCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  Either
+  AcquiringFailure
+  (Either QueryCmdError (Maybe (SafeHash StandardCrypto AnchorData)))
+result <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+    AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+    ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+      forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either
+           EraMismatch
+           (Maybe (SafeHash (EraCrypto (ShelleyLedgerEra era)) AnchorData))))
+queryConstitutionHash ShelleyBasedEra era
+sbe))
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdError
+QueryCmdEraMismatch)
+
+  Maybe (File () 'Out)
+-> Maybe (SafeHash StandardCrypto AnchorData)
+-> ExceptT QueryCmdError IO ()
+writeConstitutionHash Maybe (File () 'Out)
+mOutFile forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
+=<< forall (m :: * -> *) e a. Monad m => Either e a -> ExceptT e m a
+except (forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure Either
+  AcquiringFailure
+  (Either QueryCmdError (Maybe (SafeHash StandardCrypto AnchorData)))
+result))
+  where
+    writeConstitutionHash
+      :: Maybe (File () Out)
+      -> Maybe (SafeHash StandardCrypto L.AnchorData)
+      -> ExceptT QueryCmdError IO ()
+    writeConstitutionHash :: Maybe (File () 'Out)
+-> Maybe (SafeHash StandardCrypto AnchorData)
+-> ExceptT QueryCmdError IO ()
+writeConstitutionHash Maybe (File () 'Out)
+mOutFile' Maybe (SafeHash StandardCrypto AnchorData)
+cHash =
+      case Maybe (File () 'Out)
+mOutFile' of
+        Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn (forall a. ToJSON a => a -> ByteString
+encodePretty Maybe (SafeHash StandardCrypto AnchorData)
+cHash)
+        Just (File String
+fpath) ->
+          forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$
+            String -> ByteString -> IO ()
+LBS.writeFile String
+fpath (forall a. ToJSON a => a -> ByteString
+encodePretty Maybe (SafeHash StandardCrypto AnchorData)
+cHash)
+
+runQueryProtocolParametersCmd :: ()
+  => Cmd.QueryProtocolParametersCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryProtocolParametersCmd :: QueryProtocolParametersCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryProtocolParametersCmd
+    Cmd.QueryProtocolParametersCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryProtocolParametersCmdArgs :: QueryProtocolParametersCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryProtocolParametersCmdArgs :: QueryProtocolParametersCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryProtocolParametersCmdArgs :: QueryProtocolParametersCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryProtocolParametersCmdArgs :: QueryProtocolParametersCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+  AnyCardanoEra CardanoEra era
+era <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo -> IO (Either AcquiringFailure AnyCardanoEra)
+determineEra LocalNodeConnectInfo
+localNodeConnInfo
+  ShelleyBasedEra era
+sbe <- forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon @ShelleyBasedEra CardanoEra era
+era (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra) forall (f :: * -> *) a. Applicative f => a -> f a
+pure
+  let qInMode :: QueryInMode (Either EraMismatch (PParams (ShelleyLedgerEra era)))
+qInMode = forall era result1.
+QueryInEra era result1 -> QueryInMode (Either EraMismatch result1)
+QueryInEra forall a b. (a -> b) -> a -> b
+$ forall era result.
+ShelleyBasedEra era
+-> QueryInShelleyBasedEra era result -> QueryInEra era result
+QueryInShelleyBasedEra ShelleyBasedEra era
+sbe forall era.
+QueryInShelleyBasedEra era (PParams (ShelleyLedgerEra era))
+Api.QueryProtocolParameters
+  PParams (ShelleyLedgerEra era)
+pp <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT QueryConvenienceError -> QueryCmdError
+QueryCmdConvenienceError
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall result.
+LocalNodeConnectInfo
+-> QueryInMode (Either EraMismatch result)
+-> IO (Either QueryConvenienceError result)
+executeQueryAnyMode LocalNodeConnectInfo
+localNodeConnInfo QueryInMode (Either EraMismatch (PParams (ShelleyLedgerEra era)))
+qInMode
+  forall era.
+ShelleyBasedEra era
+-> Maybe (File () 'Out)
+-> PParams (ShelleyLedgerEra era)
+-> ExceptT QueryCmdError IO ()
+writeProtocolParameters ShelleyBasedEra era
+sbe Maybe (File () 'Out)
+mOutFile PParams (ShelleyLedgerEra era)
+pp
+  where
+    writeProtocolParameters
+      :: ShelleyBasedEra era
+      -> Maybe (File () Out)
+      -> Ledger.PParams (ShelleyLedgerEra era)
+      -> ExceptT QueryCmdError IO ()
+    writeProtocolParameters :: forall era.
+ShelleyBasedEra era
+-> Maybe (File () 'Out)
+-> PParams (ShelleyLedgerEra era)
+-> ExceptT QueryCmdError IO ()
+writeProtocolParameters ShelleyBasedEra era
+sbe Maybe (File () 'Out)
+mOutFile' PParams (ShelleyLedgerEra era)
+pparams =
+      let apiPParamsJSON :: ByteString
+apiPParamsJSON = forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty PParams (ShelleyLedgerEra era)
+pparams
+      in case Maybe (File () 'Out)
+mOutFile' of
+        Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn ByteString
+apiPParamsJSON
+        Just (File String
+fpath) ->
+          forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath) forall a b. (a -> b) -> a -> b
+$
+            String -> ByteString -> IO ()
+LBS.writeFile String
+fpath ByteString
+apiPParamsJSON
+
+-- | Calculate the percentage sync rendered as text.
+percentage
+  :: RelativeTime
+  -- ^ 'tolerance'.  If 'b' - 'a' < 'tolerance', then 100% is reported.  This even if we are 'tolerance' seconds
+  -- behind, we are still considered fully synced.
+  -> RelativeTime
+  -- ^ 'nowTime'.  The time of the most recently synced block.
+  -> RelativeTime
+  -- ^ 'tipTime'.  The time of the tip of the block chain to which we need to sync.
+  -> Text
+percentage :: RelativeTime -> RelativeTime -> RelativeTime -> Text
+percentage RelativeTime
+tolerance RelativeTime
+a RelativeTime
+b = String -> Text
+Text.pack (forall r. PrintfType r => String -> r
+printf String
+"%.2f" Double
+pc)
+  where -- All calculations are in seconds (Integer)
+        t :: Integer
+t  = RelativeTime -> Integer
+relativeTimeSeconds RelativeTime
+tolerance
+        -- Plus 1 to prevent division by zero.  The 's' prefix stands for strictly-positive.
+        sa :: Integer
+sa = RelativeTime -> Integer
+relativeTimeSeconds RelativeTime
+a forall a. Num a => a -> a -> a
++ Integer
+1
+        sb :: Integer
+sb = RelativeTime -> Integer
+relativeTimeSeconds RelativeTime
+b forall a. Num a => a -> a -> a
++ Integer
+1
+        -- Fast forward the 'nowTime` by the tolerance, but don't let the result exceed the tip time.
+        ua :: Integer
+ua = forall a. Ord a => a -> a -> a
+min (Integer
+sa forall a. Num a => a -> a -> a
++ Integer
+t) Integer
+sb
+        ub :: Integer
+ub = Integer
+sb
+        -- Final percentage to render as text.
+        pc :: Double
+pc = forall a. a -> a
+id @Double (forall a b. (Integral a, Num b) => a -> b
+fromIntegral Integer
+ua forall a. Fractional a => a -> a -> a
+/ forall a b. (Integral a, Num b) => a -> b
+fromIntegral  Integer
+ub) forall a. Num a => a -> a -> a
+* Double
+100.0
+
+relativeTimeSeconds :: RelativeTime -> Integer
+relativeTimeSeconds :: RelativeTime -> Integer
+relativeTimeSeconds (RelativeTime NominalDiffTime
+dt) = forall a b. (RealFrac a, Integral b) => a -> b
+floor (NominalDiffTime -> Pico
+nominalDiffTimeToSeconds NominalDiffTime
+dt)
+
+-- | Query the chain tip via the chain sync protocol.
+--
+-- This is a fallback query to support older versions of node to client protocol.
+queryChainTipViaChainSync :: MonadIO m => LocalNodeConnectInfo -> m ChainTip
+queryChainTipViaChainSync :: forall (m :: * -> *).
+MonadIO m =>
+LocalNodeConnectInfo -> m ChainTip
+queryChainTipViaChainSync LocalNodeConnectInfo
+localNodeConnInfo = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Handle -> Text -> IO ()
+T.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$
+    Text
+"Warning: Local header state query unavailable. Falling back to chain sync query"
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo -> IO ChainTip
+getLocalChainTip LocalNodeConnectInfo
+localNodeConnInfo
+
+runQueryTipCmd :: ()
+  => Cmd.QueryTipCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryTipCmd :: QueryTipCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryTipCmd
+    Cmd.QueryTipCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryTipCmdArgs :: QueryTipCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryTipCmdArgs :: QueryTipCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryTipCmdArgs :: QueryTipCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryTipCmdArgs :: QueryTipCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  Either AcquiringFailure (QueryTipLocalState Any)
+eLocalState <- forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence forall a b. (a -> b) -> a -> b
+$
+    forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+      AnyCardanoEra
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+      EraHistory
+eraHistory <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError EraHistory)
+queryEraHistory forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+      Maybe (WithOrigin BlockNo)
+mChainBlockNo <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError (WithOrigin BlockNo))
+queryChainBlockNo forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion) forall a b. a -> (a -> b) -> b
+& forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just
+      Maybe ChainPoint
+mChainPoint <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError ChainPoint)
+queryChainPoint forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion) forall a b. a -> (a -> b) -> b
+& forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just
+      Maybe SystemStart
+mSystemStart <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError SystemStart)
+querySystemStart forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion) forall a b. a -> (a -> b) -> b
+& forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall a. a -> Maybe a
+Just
+
+      forall (m :: * -> *) a. Monad m => a -> m a
+return O.QueryTipLocalState
+        { $sel:era:QueryTipLocalState :: AnyCardanoEra
+O.era = AnyCardanoEra
+era
+        , $sel:eraHistory:QueryTipLocalState :: EraHistory
+O.eraHistory = EraHistory
+eraHistory
+        , $sel:mSystemStart:QueryTipLocalState :: Maybe SystemStart
+O.mSystemStart = Maybe SystemStart
+mSystemStart
+        , $sel:mChainTip:QueryTipLocalState :: Maybe ChainTip
+O.mChainTip = WithOrigin BlockNo -> ChainPoint -> ChainTip
+makeChainTip forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe (WithOrigin BlockNo)
+mChainBlockNo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe ChainPoint
+mChainPoint
+        }
+
+  Maybe (QueryTipLocalState Any)
+mLocalState <- forall (m :: * -> *) e a.
+Monad m =>
+Either e a -> (e -> m ()) -> m (Maybe a)
+hushM (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure Either AcquiringFailure (QueryTipLocalState Any)
+eLocalState) forall a b. (a -> b) -> a -> b
+$ \QueryCmdError
+e ->
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Handle -> Text -> IO ()
+T.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$ Text
+"Warning: Local state unavailable: " forall a. Semigroup a => a -> a -> a
+<> QueryCmdError -> Text
+renderQueryCmdError QueryCmdError
+e
+
+  ChainTip
+chainTip <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (Maybe (QueryTipLocalState Any)
+mLocalState forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
+>>= forall mode. QueryTipLocalState mode -> Maybe ChainTip
+O.mChainTip)
+    -- The chain tip is unavailable via local state query because we are connecting with an older
+    -- node to client protocol so we use chain sync instead which necessitates another connection.
+    -- At some point when we can stop supporting the older node to client protocols, this fallback
+    -- can be removed.
+    forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *).
+MonadIO m =>
+LocalNodeConnectInfo -> m ChainTip
+queryChainTipViaChainSync LocalNodeConnectInfo
+localNodeConnInfo)
+
+  let SlotNo
+tipSlotNo :: SlotNo = case ChainTip
+chainTip of
+        ChainTip
+ChainTipAtGenesis -> SlotNo
+0
+        ChainTip SlotNo
+slotNo Hash BlockHeader
+_ BlockNo
+_ -> SlotNo
+slotNo
+
+  Maybe QueryTipLocalStateOutput
+localStateOutput <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe (QueryTipLocalState Any)
+mLocalState forall a b. (a -> b) -> a -> b
+$ \QueryTipLocalState Any
+localState -> do
+    case SlotNo
+-> EraHistory
+-> Either
+     PastHorizonException (EpochNo, SlotsInEpoch, SlotsToEpochEnd)
+slotToEpoch SlotNo
+tipSlotNo (forall mode. QueryTipLocalState mode -> EraHistory
+O.eraHistory QueryTipLocalState Any
+localState) of
+      Left PastHorizonException
+e -> do
+        forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Handle -> Text -> IO ()
+T.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$
+          Text
+"Warning: Epoch unavailable: " forall a. Semigroup a => a -> a -> a
+<> QueryCmdError -> Text
+renderQueryCmdError (PastHorizonException -> QueryCmdError
+QueryCmdPastHorizon PastHorizonException
+e)
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ O.QueryTipLocalStateOutput
+          { $sel:localStateChainTip:QueryTipLocalStateOutput :: ChainTip
+O.localStateChainTip = ChainTip
+chainTip
+          , $sel:mEra:QueryTipLocalStateOutput :: Maybe AnyCardanoEra
+O.mEra = forall a. Maybe a
+Nothing
+          , $sel:mEpoch:QueryTipLocalStateOutput :: Maybe EpochNo
+O.mEpoch = forall a. Maybe a
+Nothing
+          , $sel:mSyncProgress:QueryTipLocalStateOutput :: Maybe Text
+O.mSyncProgress = forall a. Maybe a
+Nothing
+          , $sel:mSlotInEpoch:QueryTipLocalStateOutput :: Maybe Word64
+O.mSlotInEpoch = forall a. Maybe a
+Nothing
+          , $sel:mSlotsToEpochEnd:QueryTipLocalStateOutput :: Maybe Word64
+O.mSlotsToEpochEnd = forall a. Maybe a
+Nothing
+          }
+
+      Right (EpochNo
+epochNo, SlotsInEpoch Word64
+slotsInEpoch, SlotsToEpochEnd Word64
+slotsToEpochEnd) -> do
+        Either QueryCmdError Text
+syncProgressResult <- forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+          UTCTime
+systemStart <- forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap SystemStart -> UTCTime
+getSystemStart (forall mode. QueryTipLocalState mode -> Maybe SystemStart
+O.mSystemStart QueryTipLocalState Any
+localState) forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe QueryCmdError
+QueryCmdSystemStartUnavailable
+          RelativeTime
+nowSeconds <- SystemStart -> UTCTime -> RelativeTime
+toRelativeTime (UTCTime -> SystemStart
+SystemStart UTCTime
+systemStart) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO IO UTCTime
+getCurrentTime
+          RelativeTime
+tipTimeResult <- SlotNo
+-> EraHistory
+-> Either PastHorizonException (RelativeTime, SlotLength)
+getProgress SlotNo
+tipSlotNo (forall mode. QueryTipLocalState mode -> EraHistory
+O.eraHistory QueryTipLocalState Any
+localState) forall a b. a -> (a -> b) -> b
+& forall (p :: * -> * -> *) a b c d.
+Bifunctor p =>
+(a -> b) -> (c -> d) -> p a c -> p b d
+bimap PastHorizonException -> QueryCmdError
+QueryCmdPastHorizon forall a b. (a, b) -> a
+fst forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) e a. Monad m => Either e a -> ExceptT e m a
+except
+
+          let tolerance :: RelativeTime
+tolerance = NominalDiffTime -> RelativeTime
+RelativeTime (Pico -> NominalDiffTime
+secondsToNominalDiffTime Pico
+600)
+
+          forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b c. (a -> b -> c) -> b -> a -> c
+flip (RelativeTime -> RelativeTime -> RelativeTime -> Text
+percentage RelativeTime
+tolerance) RelativeTime
+nowSeconds RelativeTime
+tipTimeResult
+
+        Maybe Text
+mSyncProgress <- forall (m :: * -> *) e a.
+Monad m =>
+Either e a -> (e -> m ()) -> m (Maybe a)
+hushM Either QueryCmdError Text
+syncProgressResult forall a b. (a -> b) -> a -> b
+$ \QueryCmdError
+e -> do
+          forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Handle -> Text -> IO ()
+T.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$ Text
+"Warning: Sync progress unavailable: " forall a. Semigroup a => a -> a -> a
+<> QueryCmdError -> Text
+renderQueryCmdError QueryCmdError
+e
+
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ O.QueryTipLocalStateOutput
+          { $sel:localStateChainTip:QueryTipLocalStateOutput :: ChainTip
+O.localStateChainTip = ChainTip
+chainTip
+          , $sel:mEra:QueryTipLocalStateOutput :: Maybe AnyCardanoEra
+O.mEra = forall a. a -> Maybe a
+Just (forall mode. QueryTipLocalState mode -> AnyCardanoEra
+O.era QueryTipLocalState Any
+localState)
+          , $sel:mEpoch:QueryTipLocalStateOutput :: Maybe EpochNo
+O.mEpoch = forall a. a -> Maybe a
+Just EpochNo
+epochNo
+          , $sel:mSlotInEpoch:QueryTipLocalStateOutput :: Maybe Word64
+O.mSlotInEpoch = forall a. a -> Maybe a
+Just Word64
+slotsInEpoch
+          , $sel:mSlotsToEpochEnd:QueryTipLocalStateOutput :: Maybe Word64
+O.mSlotsToEpochEnd = forall a. a -> Maybe a
+Just Word64
+slotsToEpochEnd
+          , $sel:mSyncProgress:QueryTipLocalStateOutput :: Maybe Text
+O.mSyncProgress = Maybe Text
+mSyncProgress
+          }
+
+  case Maybe (File () 'Out)
+mOutFile of
+    Just (File String
+fpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+fpath forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty Maybe QueryTipLocalStateOutput
+localStateOutput
+    Maybe (File () 'Out)
+Nothing                 -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn        forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty Maybe QueryTipLocalStateOutput
+localStateOutput
+
+-- | Query the UTxO, filtered by a given set of addresses, from a Shelley node
+-- via the local state query protocol.
+runQueryUTxOCmd :: ()
+  => Cmd.QueryUTxOCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryUTxOCmd :: QueryUTxOCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryUTxOCmd
+    Cmd.QueryUTxOCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryUTxOCmdArgs :: QueryUTxOCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryUTxOCmdArgs :: QueryUTxOCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , QueryUTxOFilter
+$sel:queryFilter:QueryUTxOCmdArgs :: QueryUTxOCmdArgs -> QueryUTxOFilter
+queryFilter :: QueryUTxOFilter
+Cmd.queryFilter
+    , NetworkId
+$sel:networkId:QueryUTxOCmdArgs :: QueryUTxOCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryUTxOCmdArgs :: QueryUTxOCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        UTxO era
+utxo <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> QueryUTxOFilter
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch (UTxO era)))
+queryUtxo ShelleyBasedEra era
+sbe QueryUTxOFilter
+queryFilter)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          forall era.
+ShelleyBasedEra era
+-> Maybe (File () 'Out) -> UTxO era -> ExceptT QueryCmdError IO ()
+writeFilteredUTxOs ShelleyBasedEra era
+sbe Maybe (File () 'Out)
+mOutFile UTxO era
+utxo
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+runQueryKesPeriodInfoCmd :: ()
+  => Cmd.QueryKesPeriodInfoCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryKesPeriodInfoCmd :: QueryKesPeriodInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryKesPeriodInfoCmd
+    Cmd.QueryKesPeriodInfoCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgs :: QueryKesPeriodInfoCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryKesPeriodInfoCmdArgs :: QueryKesPeriodInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryKesPeriodInfoCmdArgs :: QueryKesPeriodInfoCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , File () 'In
+$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgs :: QueryKesPeriodInfoCmdArgs -> File () 'In
+nodeOpCertFp :: File () 'In
+Cmd.nodeOpCertFp
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryKesPeriodInfoCmdArgs :: QueryKesPeriodInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  OperationalCertificate
+opCert <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope AsType OperationalCertificate
+AsOperationalCertificate File () 'In
+nodeOpCertFp)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError TextEnvelopeError -> QueryCmdError
+QueryCmdOpCertCounterReadError)
+
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        -- We check that the KES period specified in the operational certificate is correct
+        -- based on the KES period defined in the genesis parameters and the current slot number
+        GenesisParameters ShelleyEra
+gParams <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (GenesisParameters ShelleyEra)))
+queryGenesisParameters ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        EraHistory
+eraHistory <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError EraHistory)
+queryEraHistory
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        let eInfo :: Tentative (EpochInfo (Either Text))
+eInfo = EraHistory -> Tentative (EpochInfo (Either Text))
+toTentativeEpochInfo EraHistory
+eraHistory
+
+        -- We get the operational certificate counter from the protocol state and check that
+        -- it is equivalent to what we have on disk.
+        ProtocolState era
+ptclState <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (ProtocolState era)))
+queryProtocolState ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          ChainTip
+chainTip <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo -> IO ChainTip
+getLocalChainTip LocalNodeConnectInfo
+localNodeConnInfo
+
+          let curKesPeriod :: CurrentKesPeriod
+curKesPeriod = forall era. ChainTip -> GenesisParameters era -> CurrentKesPeriod
+currentKesPeriod ChainTip
+chainTip GenesisParameters ShelleyEra
+gParams
+              oCertStartKesPeriod :: OpCertStartingKesPeriod
+oCertStartKesPeriod = OperationalCertificate -> OpCertStartingKesPeriod
+opCertStartingKesPeriod OperationalCertificate
+opCert
+              oCertEndKesPeriod :: OpCertEndingKesPeriod
+oCertEndKesPeriod = forall era.
+GenesisParameters era
+-> OperationalCertificate -> OpCertEndingKesPeriod
+opCertEndKesPeriod GenesisParameters ShelleyEra
+gParams OperationalCertificate
+opCert
+              opCertIntervalInformation :: OpCertIntervalInformation
+opCertIntervalInformation = forall era.
+GenesisParameters era
+-> ChainTip
+-> CurrentKesPeriod
+-> OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> OpCertIntervalInformation
+opCertIntervalInfo GenesisParameters ShelleyEra
+gParams ChainTip
+chainTip CurrentKesPeriod
+curKesPeriod OpCertStartingKesPeriod
+oCertStartKesPeriod OpCertEndingKesPeriod
+oCertEndKesPeriod
+
+          (OpCertOnDiskCounter
+onDiskC, Maybe OpCertNodeStateCounter
+stateC) <- forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall era.
+(PraosProtocolSupportsNode (ConsensusProtocol era),
+ FromCBOR (ChainDepState (ConsensusProtocol era)),
+ ADDRHASH (PraosProtocolSupportsNodeCrypto (ConsensusProtocol era))
+ ~ Blake2b_224) =>
+ProtocolState era
+-> OperationalCertificate
+-> ExceptT
+     QueryCmdError
+     IO
+     (OpCertOnDiskCounter, Maybe OpCertNodeStateCounter)
+opCertOnDiskAndStateCounters ProtocolState era
+ptclState OperationalCertificate
+opCert
+
+          let counterInformation :: OpCertNodeAndOnDiskCounterInformation
+counterInformation = OpCertOnDiskCounter
+-> Maybe OpCertNodeStateCounter
+-> OpCertNodeAndOnDiskCounterInformation
+opCertNodeAndOnDiskCounters OpCertOnDiskCounter
+onDiskC Maybe OpCertNodeStateCounter
+stateC
+
+          -- Always render diagnostic information
+          forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ String -> OpCertIntervalInformation -> String
+renderOpCertIntervalInformation (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+nodeOpCertFp) OpCertIntervalInformation
+opCertIntervalInformation
+          forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ String -> OpCertNodeAndOnDiskCounterInformation -> String
+renderOpCertNodeAndOnDiskCounterInformation (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+nodeOpCertFp) OpCertNodeAndOnDiskCounterInformation
+counterInformation
+
+          let qKesInfoOutput :: QueryKesPeriodInfoOutput
+qKesInfoOutput = forall era.
+OpCertIntervalInformation
+-> OpCertNodeAndOnDiskCounterInformation
+-> Tentative (EpochInfo (Either Text))
+-> GenesisParameters era
+-> QueryKesPeriodInfoOutput
+createQueryKesPeriodInfoOutput OpCertIntervalInformation
+opCertIntervalInformation OpCertNodeAndOnDiskCounterInformation
+counterInformation Tentative (EpochInfo (Either Text))
+eInfo GenesisParameters ShelleyEra
+gParams
+              kesPeriodInfoJSON :: ByteString
+kesPeriodInfoJSON = forall a. ToJSON a => a -> ByteString
+encodePretty QueryKesPeriodInfoOutput
+qKesInfoOutput
+
+          forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn ByteString
+kesPeriodInfoJSON
+          forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ Maybe (File () 'Out)
+mOutFile (\(File String
+oFp) ->
+            forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+oFp)
+              forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+oFp ByteString
+kesPeriodInfoJSON)
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+ where
+   currentKesPeriod :: ChainTip -> GenesisParameters era -> CurrentKesPeriod
+   currentKesPeriod :: forall era. ChainTip -> GenesisParameters era -> CurrentKesPeriod
+currentKesPeriod ChainTip
+ChainTipAtGenesis GenesisParameters era
+_ = Word64 -> CurrentKesPeriod
+CurrentKesPeriod Word64
+0
+   currentKesPeriod (ChainTip SlotNo
+currSlot Hash BlockHeader
+_ BlockNo
+_) GenesisParameters era
+gParams =
+     let slotsPerKesPeriod :: Word64
+slotsPerKesPeriod = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ forall era. GenesisParameters era -> Int
+protocolParamSlotsPerKESPeriod GenesisParameters era
+gParams
+     in Word64 -> CurrentKesPeriod
+CurrentKesPeriod forall a b. (a -> b) -> a -> b
+$ SlotNo -> Word64
+unSlotNo SlotNo
+currSlot forall a. Integral a => a -> a -> a
+`div` Word64
+slotsPerKesPeriod
+
+   opCertStartingKesPeriod :: OperationalCertificate -> OpCertStartingKesPeriod
+   opCertStartingKesPeriod :: OperationalCertificate -> OpCertStartingKesPeriod
+opCertStartingKesPeriod = Word64 -> OpCertStartingKesPeriod
+OpCertStartingKesPeriod forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
+. OperationalCertificate -> Word
+getKesPeriod
+
+   opCertEndKesPeriod :: GenesisParameters era -> OperationalCertificate -> OpCertEndingKesPeriod
+   opCertEndKesPeriod :: forall era.
+GenesisParameters era
+-> OperationalCertificate -> OpCertEndingKesPeriod
+opCertEndKesPeriod GenesisParameters era
+gParams OperationalCertificate
+oCert =
+     let OpCertStartingKesPeriod Word64
+start = OperationalCertificate -> OpCertStartingKesPeriod
+opCertStartingKesPeriod OperationalCertificate
+oCert
+         maxKesEvo :: Word64
+maxKesEvo = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ forall era. GenesisParameters era -> Int
+protocolParamMaxKESEvolutions GenesisParameters era
+gParams
+     in Word64 -> OpCertEndingKesPeriod
+OpCertEndingKesPeriod forall a b. (a -> b) -> a -> b
+$ Word64
+start forall a. Num a => a -> a -> a
++ Word64
+maxKesEvo
+
+   -- See OCERT rule in Shelley Spec: https://hydra.iohk.io/job/Cardano/cardano-ledger-specs/shelleyLedgerSpec/latest/download-by-type/doc-pdf/ledger-spec
+   opCertIntervalInfo
+     :: GenesisParameters era
+     -> ChainTip
+     -> CurrentKesPeriod
+     -> OpCertStartingKesPeriod
+     -> OpCertEndingKesPeriod
+     -> OpCertIntervalInformation
+   opCertIntervalInfo :: forall era.
+GenesisParameters era
+-> ChainTip
+-> CurrentKesPeriod
+-> OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> OpCertIntervalInformation
+opCertIntervalInfo GenesisParameters era
+gParams ChainTip
+currSlot' CurrentKesPeriod
+c OpCertStartingKesPeriod
+s e :: OpCertEndingKesPeriod
+e@(OpCertEndingKesPeriod Word64
+oCertEnd) =
+       let cSlot :: Word64
+cSlot = case ChainTip
+currSlot' of
+                       (ChainTip SlotNo
+cSlotN Hash BlockHeader
+_ BlockNo
+_) -> SlotNo -> Word64
+unSlotNo SlotNo
+cSlotN
+                       ChainTip
+ChainTipAtGenesis -> Word64
+0
+           slotsTillExp :: SlotsTillKesKeyExpiry
+slotsTillExp = SlotNo -> SlotsTillKesKeyExpiry
+SlotsTillKesKeyExpiry forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Word64 -> SlotNo
+SlotNo forall a b. (a -> b) -> a -> b
+$ (Word64
+oCertEnd forall a. Num a => a -> a -> a
+* forall a b. (Integral a, Num b) => a -> b
+fromIntegral (forall era. GenesisParameters era -> Int
+protocolParamSlotsPerKESPeriod GenesisParameters era
+gParams)) forall a. Num a => a -> a -> a
+- Word64
+cSlot
+       in CurrentKesPeriod
+-> OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> Maybe SlotsTillKesKeyExpiry
+-> OpCertIntervalInformation
+O.createOpCertIntervalInfo CurrentKesPeriod
+c OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e (forall a. a -> Maybe a
+Just SlotsTillKesKeyExpiry
+slotsTillExp)
+
+   opCertNodeAndOnDiskCounters
+     :: OpCertOnDiskCounter
+     -> Maybe OpCertNodeStateCounter
+     -> OpCertNodeAndOnDiskCounterInformation
+   opCertNodeAndOnDiskCounters :: OpCertOnDiskCounter
+-> Maybe OpCertNodeStateCounter
+-> OpCertNodeAndOnDiskCounterInformation
+opCertNodeAndOnDiskCounters o :: OpCertOnDiskCounter
+o@(OpCertOnDiskCounter Word64
+odc) (Just n :: OpCertNodeStateCounter
+n@(OpCertNodeStateCounter Word64
+nsc))
+     | Word64
+odc forall a. Ord a => a -> a -> Bool
+< Word64
+nsc = OpCertOnDiskCounter
+-> OpCertNodeStateCounter -> OpCertNodeAndOnDiskCounterInformation
+OpCertOnDiskCounterBehindNodeState OpCertOnDiskCounter
+o OpCertNodeStateCounter
+n
+     | Word64
+odc forall a. Ord a => a -> a -> Bool
+> Word64
+nsc forall a. Num a => a -> a -> a
++ Word64
+1 = OpCertOnDiskCounter
+-> OpCertNodeStateCounter -> OpCertNodeAndOnDiskCounterInformation
+OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounter
+o OpCertNodeStateCounter
+n
+     | Word64
+odc forall a. Eq a => a -> a -> Bool
+== Word64
+nsc forall a. Num a => a -> a -> a
++ Word64
+1 = OpCertOnDiskCounter
+-> OpCertNodeStateCounter -> OpCertNodeAndOnDiskCounterInformation
+OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounter
+o OpCertNodeStateCounter
+n
+     | Bool
+otherwise = OpCertOnDiskCounter
+-> OpCertNodeStateCounter -> OpCertNodeAndOnDiskCounterInformation
+OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounter
+o OpCertNodeStateCounter
+n
+   opCertNodeAndOnDiskCounters OpCertOnDiskCounter
+o Maybe OpCertNodeStateCounter
+Nothing = OpCertOnDiskCounter -> OpCertNodeAndOnDiskCounterInformation
+OpCertNoBlocksMintedYet OpCertOnDiskCounter
+o
+
+   opCertExpiryUtcTime
+     :: Tentative (EpochInfo (Either Text))
+     -> GenesisParameters era
+     -> OpCertEndingKesPeriod
+     -> Maybe UTCTime
+   opCertExpiryUtcTime :: forall era.
+Tentative (EpochInfo (Either Text))
+-> GenesisParameters era -> OpCertEndingKesPeriod -> Maybe UTCTime
+opCertExpiryUtcTime Tentative (EpochInfo (Either Text))
+eInfo GenesisParameters era
+gParams (OpCertEndingKesPeriod Word64
+oCertExpiryKesPeriod) =
+     let time :: Either Text UTCTime
+time = forall (m :: * -> *).
+(HasCallStack, Monad m) =>
+EpochInfo m -> SystemStart -> SlotNo -> m UTCTime
+epochInfoSlotToUTCTime
+                  (forall a. Tentative a -> a
+tentative Tentative (EpochInfo (Either Text))
+eInfo)
+                  (UTCTime -> SystemStart
+SystemStart forall a b. (a -> b) -> a -> b
+$ forall era. GenesisParameters era -> UTCTime
+protocolParamSystemStart GenesisParameters era
+gParams)
+                  (forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ Word64
+oCertExpiryKesPeriod forall a. Num a => a -> a -> a
+* forall a b. (Integral a, Num b) => a -> b
+fromIntegral (forall era. GenesisParameters era -> Int
+protocolParamSlotsPerKESPeriod GenesisParameters era
+gParams))
+     in case Either Text UTCTime
+time of
+          Left Text
+_ -> forall a. Maybe a
+Nothing
+          Right UTCTime
+t -> forall a. a -> Maybe a
+Just UTCTime
+t
+
+   renderOpCertNodeAndOnDiskCounterInformation :: FilePath -> OpCertNodeAndOnDiskCounterInformation -> String
+   renderOpCertNodeAndOnDiskCounterInformation :: String -> OpCertNodeAndOnDiskCounterInformation -> String
+renderOpCertNodeAndOnDiskCounterInformation String
+opCertFile OpCertNodeAndOnDiskCounterInformation
+opCertCounterInfo =
+     case OpCertNodeAndOnDiskCounterInformation
+opCertCounterInfo of
+      OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounter
+_ OpCertNodeStateCounter
+_ ->
+        Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+          Doc AnsiStyle -> Doc AnsiStyle
+green Doc AnsiStyle
+"✓" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+              ( forall ann. [Doc ann] -> Doc ann
+vsep
+                [ Doc AnsiStyle
+"The operational certificate counter agrees with the node protocol state counter"
+                ]
+              )
+      OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounter
+_ OpCertNodeStateCounter
+_ ->
+        Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+          Doc AnsiStyle -> Doc AnsiStyle
+green Doc AnsiStyle
+"✓" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+              ( forall ann. [Doc ann] -> Doc ann
+vsep
+                [ Doc AnsiStyle
+"The operational certificate counter ahead of the node protocol state counter by 1"
+                ]
+              )
+      OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounter
+onDiskC OpCertNodeStateCounter
+nodeStateC ->
+        Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+          Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+            ( forall ann. [Doc ann] -> Doc ann
+vsep
+              [ Doc AnsiStyle
+"The operational certificate counter too far ahead of the node protocol state counter in the operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile
+              , Doc AnsiStyle
+"On disk operational certificate counter: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty (OpCertOnDiskCounter -> Word64
+unOpCertOnDiskCounter OpCertOnDiskCounter
+onDiskC)
+              , Doc AnsiStyle
+"Protocol state counter: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty (OpCertNodeStateCounter -> Word64
+unOpCertNodeStateCounter OpCertNodeStateCounter
+nodeStateC)
+              ]
+            )
+      OpCertOnDiskCounterBehindNodeState OpCertOnDiskCounter
+onDiskC OpCertNodeStateCounter
+nodeStateC ->
+        Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+          Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+            ( forall ann. [Doc ann] -> Doc ann
+vsep
+              [ Doc AnsiStyle
+"The protocol state counter is greater than the counter in the operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile
+              , Doc AnsiStyle
+"On disk operational certificate counter: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty (OpCertOnDiskCounter -> Word64
+unOpCertOnDiskCounter OpCertOnDiskCounter
+onDiskC)
+              , Doc AnsiStyle
+"Protocol state counter: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty (OpCertNodeStateCounter -> Word64
+unOpCertNodeStateCounter OpCertNodeStateCounter
+nodeStateC)
+              ]
+            )
+      OpCertNoBlocksMintedYet (OpCertOnDiskCounter Word64
+onDiskC) ->
+        Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+          Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+            ( forall ann. [Doc ann] -> Doc ann
+vsep
+              [ Doc AnsiStyle
+"No blocks minted so far with the operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile
+              , Doc AnsiStyle
+"On disk operational certificate counter: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+onDiskC
+              ]
+            )
+
+
+   createQueryKesPeriodInfoOutput
+     :: OpCertIntervalInformation
+     -> OpCertNodeAndOnDiskCounterInformation
+     -> Tentative (EpochInfo (Either Text))
+     -> GenesisParameters era
+     -> O.QueryKesPeriodInfoOutput
+   createQueryKesPeriodInfoOutput :: forall era.
+OpCertIntervalInformation
+-> OpCertNodeAndOnDiskCounterInformation
+-> Tentative (EpochInfo (Either Text))
+-> GenesisParameters era
+-> QueryKesPeriodInfoOutput
+createQueryKesPeriodInfoOutput OpCertIntervalInformation
+oCertIntervalInfo OpCertNodeAndOnDiskCounterInformation
+oCertCounterInfo Tentative (EpochInfo (Either Text))
+eInfo GenesisParameters era
+gParams  =
+     let (OpCertEndingKesPeriod
+e, Maybe SlotsTillKesKeyExpiry
+mStillExp) = case OpCertIntervalInformation
+oCertIntervalInfo of
+                            OpCertWithinInterval OpCertStartingKesPeriod
+_ OpCertEndingKesPeriod
+end CurrentKesPeriod
+_ SlotsTillKesKeyExpiry
+sTillExp -> (OpCertEndingKesPeriod
+end, forall a. a -> Maybe a
+Just SlotsTillKesKeyExpiry
+sTillExp)
+                            OpCertStartingKesPeriodIsInTheFuture OpCertStartingKesPeriod
+_ OpCertEndingKesPeriod
+end CurrentKesPeriod
+_ -> (OpCertEndingKesPeriod
+end, forall a. Maybe a
+Nothing)
+                            OpCertExpired OpCertStartingKesPeriod
+_ OpCertEndingKesPeriod
+end CurrentKesPeriod
+_ -> (OpCertEndingKesPeriod
+end, forall a. Maybe a
+Nothing)
+                            OpCertSomeOtherError OpCertStartingKesPeriod
+_ OpCertEndingKesPeriod
+end CurrentKesPeriod
+_ -> (OpCertEndingKesPeriod
+end, forall a. Maybe a
+Nothing)
+         (OpCertOnDiskCounter
+onDiskCounter, Maybe OpCertNodeStateCounter
+mNodeCounter) = case OpCertNodeAndOnDiskCounterInformation
+oCertCounterInfo of
+                                           OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounter
+d OpCertNodeStateCounter
+n -> (OpCertOnDiskCounter
+d, forall a. a -> Maybe a
+Just OpCertNodeStateCounter
+n)
+                                           OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounter
+d OpCertNodeStateCounter
+n -> (OpCertOnDiskCounter
+d, forall a. a -> Maybe a
+Just OpCertNodeStateCounter
+n)
+                                           OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounter
+d OpCertNodeStateCounter
+n -> (OpCertOnDiskCounter
+d, forall a. a -> Maybe a
+Just OpCertNodeStateCounter
+n)
+                                           OpCertOnDiskCounterBehindNodeState OpCertOnDiskCounter
+d OpCertNodeStateCounter
+n -> (OpCertOnDiskCounter
+d, forall a. a -> Maybe a
+Just OpCertNodeStateCounter
+n)
+                                           OpCertNoBlocksMintedYet OpCertOnDiskCounter
+d -> (OpCertOnDiskCounter
+d, forall a. Maybe a
+Nothing)
+
+     in O.QueryKesPeriodInfoOutput
+        { $sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutput :: OpCertIntervalInformation
+O.qKesOpCertIntervalInformation = OpCertIntervalInformation
+oCertIntervalInfo
+        , $sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutput :: Maybe OpCertNodeStateCounter
+O.qKesInfoNodeStateOperationalCertNo = Maybe OpCertNodeStateCounter
+mNodeCounter
+        , $sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutput :: OpCertOnDiskCounter
+O.qKesInfoOnDiskOperationalCertNo = OpCertOnDiskCounter
+onDiskCounter
+        , $sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutput :: Word64
+O.qKesInfoMaxKesKeyEvolutions = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ forall era. GenesisParameters era -> Int
+protocolParamMaxKESEvolutions GenesisParameters era
+gParams
+        , $sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutput :: Word64
+O.qKesInfoSlotsPerKesPeriod = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ forall era. GenesisParameters era -> Int
+protocolParamSlotsPerKESPeriod GenesisParameters era
+gParams
+        , $sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutput :: Maybe UTCTime
+O.qKesInfoKesKeyExpiry =
+            case Maybe SlotsTillKesKeyExpiry
+mStillExp of
+              Just SlotsTillKesKeyExpiry
+_ -> forall era.
+Tentative (EpochInfo (Either Text))
+-> GenesisParameters era -> OpCertEndingKesPeriod -> Maybe UTCTime
+opCertExpiryUtcTime Tentative (EpochInfo (Either Text))
+eInfo GenesisParameters era
+gParams OpCertEndingKesPeriod
+e
+              Maybe SlotsTillKesKeyExpiry
+Nothing -> forall a. Maybe a
+Nothing
+        }
+
+   -- We get the operational certificate counter from the protocol state and check that
+   -- it is equivalent to what we have on disk.
+   opCertOnDiskAndStateCounters :: forall era . ()
+      => Consensus.PraosProtocolSupportsNode (ConsensusProtocol era)
+      => FromCBOR (Consensus.ChainDepState (ConsensusProtocol era))
+      => Crypto.ADDRHASH (Consensus.PraosProtocolSupportsNodeCrypto (ConsensusProtocol era)) ~ Blake2b.Blake2b_224
+      => ProtocolState era
+      -> OperationalCertificate
+      -> ExceptT QueryCmdError IO (OpCertOnDiskCounter, Maybe OpCertNodeStateCounter)
+   opCertOnDiskAndStateCounters :: forall era.
+(PraosProtocolSupportsNode (ConsensusProtocol era),
+ FromCBOR (ChainDepState (ConsensusProtocol era)),
+ ADDRHASH (PraosProtocolSupportsNodeCrypto (ConsensusProtocol era))
+ ~ Blake2b_224) =>
+ProtocolState era
+-> OperationalCertificate
+-> ExceptT
+     QueryCmdError
+     IO
+     (OpCertOnDiskCounter, Maybe OpCertNodeStateCounter)
+opCertOnDiskAndStateCounters ProtocolState era
+ptclState opCert :: OperationalCertificate
+opCert@(OperationalCertificate OCert StandardCrypto
+_ VerificationKey StakePoolKey
+stakePoolVKey) = do
+    let onDiskOpCertCount :: Word64
+onDiskOpCertCount = forall a b. (Integral a, Num b) => a -> b
+fromIntegral forall a b. (a -> b) -> a -> b
+$ OperationalCertificate -> Word64
+getOpCertCount OperationalCertificate
+opCert
+
+    ChainDepState (ConsensusProtocol era)
+chainDepState <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+FromCBOR (ChainDepState (ConsensusProtocol era)) =>
+ProtocolState era
+-> Either
+     (ByteString, DecoderError) (ChainDepState (ConsensusProtocol era))
+decodeProtocolState ProtocolState era
+ptclState)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (ByteString, DecoderError) -> QueryCmdError
+QueryCmdProtocolStateDecodeFailure)
+
+    -- We need the stake pool id to determine what the counter of our SPO
+    -- should be.
+    let opCertCounterMap :: Map
+  (KeyHash
+     'BlockIssuer
+     (PraosProtocolSupportsNodeCrypto (ConsensusProtocol era)))
+  Word64
+opCertCounterMap = forall p (proxy :: * -> *).
+PraosProtocolSupportsNode p =>
+proxy p
+-> ChainDepState p
+-> Map
+     (KeyHash 'BlockIssuer (PraosProtocolSupportsNodeCrypto p)) Word64
+Consensus.getOpCertCounters (forall {k} (t :: k). Proxy t
+Proxy @(ConsensusProtocol era)) ChainDepState (ConsensusProtocol era)
+chainDepState
+        StakePoolKeyHash KeyHash 'StakePool StandardCrypto
+blockIssuerHash = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakePoolKey
+stakePoolVKey
+
+    case forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup (coerce :: forall a b. Coercible a b => a -> b
+coerce KeyHash 'StakePool StandardCrypto
+blockIssuerHash) Map
+  (KeyHash
+     'BlockIssuer
+     (PraosProtocolSupportsNodeCrypto (ConsensusProtocol era)))
+  Word64
+opCertCounterMap of
+      -- Operational certificate exists in the protocol state
+      -- so our ondisk op cert counter must be greater than or
+      -- equal to what is in the node state
+      Just Word64
+ptclStateCounter -> forall (m :: * -> *) a. Monad m => a -> m a
+return (Word64 -> OpCertOnDiskCounter
+OpCertOnDiskCounter Word64
+onDiskOpCertCount, forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ Word64 -> OpCertNodeStateCounter
+OpCertNodeStateCounter Word64
+ptclStateCounter)
+      Maybe Word64
+Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
+return (Word64 -> OpCertOnDiskCounter
+OpCertOnDiskCounter Word64
+onDiskOpCertCount, forall a. Maybe a
+Nothing)
+
+
+renderOpCertIntervalInformation :: FilePath -> OpCertIntervalInformation -> String
+renderOpCertIntervalInformation :: String -> OpCertIntervalInformation -> String
+renderOpCertIntervalInformation String
+opCertFile OpCertIntervalInformation
+opCertInfo = case OpCertIntervalInformation
+opCertInfo of
+  OpCertWithinInterval OpCertStartingKesPeriod
+_start OpCertEndingKesPeriod
+_end CurrentKesPeriod
+_current SlotsTillKesKeyExpiry
+_stillExp ->
+    Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+      Doc AnsiStyle -> Doc AnsiStyle
+green Doc AnsiStyle
+"✓" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+        ( forall ann. [Doc ann] -> Doc ann
+vsep
+          [ Doc AnsiStyle
+"Operational certificate's KES period is within the correct KES period interval"
+          ]
+        )
+  OpCertStartingKesPeriodIsInTheFuture (OpCertStartingKesPeriod Word64
+start) (OpCertEndingKesPeriod Word64
+end) (CurrentKesPeriod Word64
+current) ->
+    Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+      Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+        ( forall ann. [Doc ann] -> Doc ann
+vsep
+          [ Doc AnsiStyle
+"Node operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile forall a. Semigroup a => a -> a -> a
+<> Doc AnsiStyle
+" has an incorrectly specified starting KES period. "
+          , Doc AnsiStyle
+"Current KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+current
+          , Doc AnsiStyle
+"Operational certificate's starting KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+start
+          , Doc AnsiStyle
+"Operational certificate's expiry KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+end
+          ]
+        )
+  OpCertExpired OpCertStartingKesPeriod
+_ (OpCertEndingKesPeriod Word64
+end) (CurrentKesPeriod Word64
+current) ->
+    Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+      Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+        ( forall ann. [Doc ann] -> Doc ann
+vsep
+          [ Doc AnsiStyle
+"Node operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile forall a. Semigroup a => a -> a -> a
+<> Doc AnsiStyle
+" has expired. "
+          , Doc AnsiStyle
+"Current KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+current
+          , Doc AnsiStyle
+"Operational certificate's expiry KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+end
+          ]
+        )
+
+  OpCertSomeOtherError (OpCertStartingKesPeriod Word64
+start) (OpCertEndingKesPeriod Word64
+end) (CurrentKesPeriod Word64
+current) ->
+    Doc AnsiStyle -> String
+renderStringDefault forall a b. (a -> b) -> a -> b
+$
+      Doc AnsiStyle -> Doc AnsiStyle
+red Doc AnsiStyle
+"✗" forall ann. Doc ann -> Doc ann -> Doc ann
+<+> forall ann. Int -> Doc ann -> Doc ann
+hang Int
+0
+        ( forall ann. [Doc ann] -> Doc ann
+vsep
+          [ Doc AnsiStyle
+"An unknown error occurred with operational certificate at: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty String
+opCertFile
+          , Doc AnsiStyle
+"Current KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+current
+          , Doc AnsiStyle
+"Operational certificate's starting KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+start
+          , Doc AnsiStyle
+"Operational certificate's expiry KES period: " forall a. Semigroup a => a -> a -> a
+<> forall a ann. Pretty a => a -> Doc ann
+pretty Word64
+end
+          ]
+        )
+
+-- | Query the current and future parameters for a stake pool, including the retirement date.
+-- Any of these may be empty (in which case a null will be displayed).
+--
+runQueryPoolStateCmd :: ()
+  => Cmd.QueryPoolStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryPoolStateCmd :: QueryPoolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryPoolStateCmd
+    Cmd.QueryPoolStateCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryPoolStateCmdArgs :: QueryPoolStateCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryPoolStateCmdArgs :: QueryPoolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryPoolStateCmdArgs :: QueryPoolStateCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , [PoolId]
+$sel:poolIds:QueryPoolStateCmdArgs :: QueryPoolStateCmdArgs -> [PoolId]
+poolIds :: [PoolId]
+Cmd.poolIds
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        SerialisedPoolState era
+result <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> Maybe (Set PoolId)
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (SerialisedPoolState era)))
+queryPoolState ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Ord a => [a] -> Set a
+Set.fromList [PoolId]
+poolIds)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera,
+ EraCrypto ledgerera ~ StandardCrypto, Era ledgerera) =>
+SerialisedPoolState era -> ExceptT QueryCmdError IO ()
+writePoolState SerialisedPoolState era
+result
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+-- | Query the local mempool state
+runQueryTxMempoolCmd :: ()
+  => Cmd.QueryTxMempoolCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryTxMempoolCmd :: QueryTxMempoolCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryTxMempoolCmd
+    Cmd.QueryTxMempoolCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryTxMempoolCmdArgs :: QueryTxMempoolCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryTxMempoolCmdArgs :: QueryTxMempoolCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryTxMempoolCmdArgs :: QueryTxMempoolCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , TxMempoolQuery
+$sel:query:QueryTxMempoolCmdArgs :: QueryTxMempoolCmdArgs -> TxMempoolQuery
+query :: TxMempoolQuery
+Cmd.query
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryTxMempoolCmdArgs :: QueryTxMempoolCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  LocalTxMonitoringQuery
+localQuery <- case TxMempoolQuery
+query of
+      TxMempoolQueryTxExists TxId
+tx -> do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (LocalNodeConnectInfo -> IO (Either AcquiringFailure AnyCardanoEra)
+determineEra LocalNodeConnectInfo
+localNodeConnInfo)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ TxIdInMode -> LocalTxMonitoringQuery
+LocalTxMonitoringQueryTx forall a b. (a -> b) -> a -> b
+$ forall era. CardanoEra era -> TxId -> TxIdInMode
+TxIdInMode CardanoEra era
+era TxId
+tx
+      TxMempoolQuery
+TxMempoolQueryNextTx -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure LocalTxMonitoringQuery
+LocalTxMonitoringSendNextTx
+      TxMempoolQuery
+TxMempoolQueryInfo -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure LocalTxMonitoringQuery
+LocalTxMonitoringMempoolInformation
+
+  LocalTxMonitoringResult
+result <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo
+-> LocalTxMonitoringQuery -> IO LocalTxMonitoringResult
+queryTxMonitoringLocal LocalNodeConnectInfo
+localNodeConnInfo LocalTxMonitoringQuery
+localQuery
+  let renderedResult :: ByteString
+renderedResult = forall a. ToJSON a => a -> ByteString
+encodePretty LocalTxMonitoringResult
+result
+  case Maybe (File () 'Out)
+mOutFile of
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+LBS.putStrLn ByteString
+renderedResult
+    Just (File String
+oFp) -> forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+oFp)
+        forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+oFp ByteString
+renderedResult
+
+runQuerySlotNumberCmd :: ()
+  => Cmd.QuerySlotNumberCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQuerySlotNumberCmd :: QuerySlotNumberCmdArgs -> ExceptT QueryCmdError IO ()
+runQuerySlotNumberCmd
+    Cmd.QuerySlotNumberCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QuerySlotNumberCmdArgs :: QuerySlotNumberCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QuerySlotNumberCmdArgs :: QuerySlotNumberCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QuerySlotNumberCmdArgs :: QuerySlotNumberCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , UTCTime
+$sel:utcTime:QuerySlotNumberCmdArgs :: QuerySlotNumberCmdArgs -> UTCTime
+utcTime :: UTCTime
+Cmd.utcTime
+    } = do
+  SlotNo Word64
+slotNo <- SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> UTCTime
+-> ExceptT QueryCmdError IO SlotNo
+utcTimeToSlotNo SocketPath
+nodeSocketPath ConsensusModeParams
+consensusModeParams NetworkId
+networkId UTCTime
+utcTime
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> IO ()
+putStr forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> String
+show Word64
+slotNo
+
+-- | Obtain stake snapshot information for a pool, plus information about the total active stake.
+-- This information can be used for leader slot calculation, for example, and has been requested by SPOs.
+-- Obtaining the information directly is significantly more time and memory efficient than using a full ledger state dump.
+runQueryStakeSnapshotCmd :: ()
+  => Cmd.QueryStakeSnapshotCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryStakeSnapshotCmd :: QueryStakeSnapshotCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeSnapshotCmd
+    Cmd.QueryStakeSnapshotCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryStakeSnapshotCmdArgs :: QueryStakeSnapshotCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryStakeSnapshotCmdArgs :: QueryStakeSnapshotCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryStakeSnapshotCmdArgs :: QueryStakeSnapshotCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , AllOrOnly [PoolId]
+$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgs :: QueryStakeSnapshotCmdArgs -> AllOrOnly [PoolId]
+allOrOnlyPoolIds :: AllOrOnly [PoolId]
+Cmd.allOrOnlyPoolIds
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryStakeSnapshotCmdArgs :: QueryStakeSnapshotCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        let poolFilter :: Maybe (Set PoolId)
+poolFilter = case AllOrOnly [PoolId]
+allOrOnlyPoolIds of
+              AllOrOnly [PoolId]
+All -> forall a. Maybe a
+Nothing
+              Only [PoolId]
+poolIds -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Ord a => [a] -> Set a
+Set.fromList [PoolId]
+poolIds
+
+        SerialisedStakeSnapshots era
+result <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> Maybe (Set PoolId)
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (SerialisedStakeSnapshots era)))
+queryStakeSnapshot ShelleyBasedEra era
+sbe Maybe (Set PoolId)
+poolFilter)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe (forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera,
+ EraCrypto ledgerera ~ StandardCrypto) =>
+Maybe (File () 'Out)
+-> SerialisedStakeSnapshots era -> ExceptT QueryCmdError IO ()
+writeStakeSnapshots Maybe (File () 'Out)
+mOutFile) SerialisedStakeSnapshots era
+result
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+runQueryLedgerStateCmd :: ()
+  => Cmd.QueryLedgerStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryLedgerStateCmd :: QueryLedgerStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryLedgerStateCmd
+    Cmd.QueryLedgerStateCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryLedgerStateCmdArgs :: QueryLedgerStateCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryLedgerStateCmdArgs :: QueryLedgerStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryLedgerStateCmdArgs :: QueryLedgerStateCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryLedgerStateCmdArgs :: QueryLedgerStateCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+     } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        SerialisedDebugLedgerState era
+result <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (SerialisedDebugLedgerState era)))
+queryDebugLedgerState ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe (forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera, ToJSON (DebugLedgerState era),
+ FromCBOR (DebugLedgerState era)) =>
+Maybe (File () 'Out)
+-> SerialisedDebugLedgerState era -> ExceptT QueryCmdError IO ()
+writeLedgerState Maybe (File () 'Out)
+mOutFile) SerialisedDebugLedgerState era
+result
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+runQueryProtocolStateCmd :: ()
+  => Cmd.QueryProtocolStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryProtocolStateCmd :: QueryProtocolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryProtocolStateCmd
+    Cmd.QueryProtocolStateCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryProtocolStateCmdArgs :: QueryProtocolStateCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryProtocolStateCmdArgs :: QueryProtocolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryProtocolStateCmdArgs :: QueryProtocolStateCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryProtocolStateCmdArgs :: QueryProtocolStateCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+     } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        ProtocolState era
+result <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (ProtocolState era)))
+queryProtocolState ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall era.
+(FromCBOR (ChainDepState (ConsensusProtocol era)),
+ ToJSON (ChainDepState (ConsensusProtocol era))) =>
+Maybe (File () 'Out)
+-> ProtocolState era -> ExceptT QueryCmdError IO ()
+writeProtocolState Maybe (File () 'Out)
+mOutFile ProtocolState era
+result
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+-- | Query the current delegations and reward accounts, filtered by a given
+-- set of addresses, from a Shelley node via the local state query protocol.
+
+runQueryStakeAddressInfoCmd :: ()
+  => Cmd.QueryStakeAddressInfoCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryStakeAddressInfoCmd :: QueryStakeAddressInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeAddressInfoCmd
+    Cmd.QueryStakeAddressInfoCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgs :: QueryStakeAddressInfoCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryStakeAddressInfoCmdArgs :: QueryStakeAddressInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , $sel:addr:QueryStakeAddressInfoCmdArgs :: QueryStakeAddressInfoCmdArgs -> StakeAddress
+Cmd.addr = StakeAddress Network
+_ StakeCredential StandardCrypto
+addr
+    , NetworkId
+$sel:networkId:QueryStakeAddressInfoCmdArgs :: QueryStakeAddressInfoCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryStakeAddressInfoCmdArgs :: QueryStakeAddressInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        let stakeAddr :: Set StakeCredential
+stakeAddr = forall a. a -> Set a
+Set.singleton forall a b. (a -> b) -> a -> b
+$ StakeCredential StandardCrypto -> StakeCredential
+fromShelleyStakeCredential StakeCredential StandardCrypto
+addr
+
+        (Map StakeAddress Lovelace
+stakeRewardAccountBalances, Map StakeAddress PoolId
+stakePools) <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> Set StakeCredential
+-> NetworkId
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either
+           EraMismatch (Map StakeAddress Lovelace, Map StakeAddress PoolId)))
+queryStakeAddresses ShelleyBasedEra era
+sbe Set StakeCredential
+stakeAddr NetworkId
+networkId)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        Map StakeCredential Lovelace
+stakeDelegDeposits <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> Set StakeCredential
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (Map StakeCredential Lovelace)))
+queryStakeDelegDeposits ShelleyBasedEra era
+sbe Set StakeCredential
+stakeAddr)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ do
+          Maybe (File () 'Out)
+-> DelegationsAndRewards
+-> Map StakeAddress Lovelace
+-> ExceptT QueryCmdError IO ()
+writeStakeAddressInfo
+            Maybe (File () 'Out)
+mOutFile
+            ((Map StakeAddress Lovelace, Map StakeAddress PoolId)
+-> DelegationsAndRewards
+DelegationsAndRewards (Map StakeAddress Lovelace
+stakeRewardAccountBalances, Map StakeAddress PoolId
+stakePools))
+            (forall k2 k1 a. Ord k2 => (k1 -> k2) -> Map k1 a -> Map k2 a
+Map.mapKeys (NetworkId -> StakeCredential -> StakeAddress
+makeStakeAddress NetworkId
+networkId) Map StakeCredential Lovelace
+stakeDelegDeposits)
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+-- -------------------------------------------------------------------------------------------------
+
+writeStakeAddressInfo
+  :: Maybe (File () Out)
+  -> DelegationsAndRewards
+  -> Map StakeAddress Lovelace -- ^ deposits
+  -> ExceptT QueryCmdError IO ()
+writeStakeAddressInfo :: Maybe (File () 'Out)
+-> DelegationsAndRewards
+-> Map StakeAddress Lovelace
+-> ExceptT QueryCmdError IO ()
+writeStakeAddressInfo
+  Maybe (File () 'Out)
+mOutFile
+  (DelegationsAndRewards (Map StakeAddress Lovelace
+stakeAccountBalances, Map StakeAddress PoolId
+stakePools))
+  Map StakeAddress Lovelace
+stakeDelegDeposits =
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringOutput Maybe (File () 'Out)
+mOutFile (forall a. ToJSON a => a -> ByteString
+encodePretty [Value]
+jsonInfo)
+ where
+  jsonInfo :: [Aeson.Value]
+  jsonInfo :: [Value]
+jsonInfo =
+    forall a b. (a -> b) -> [a] -> [b]
+map
+      (\(StakeAddress
+addr, Maybe Lovelace
+mBalance, Maybe PoolId
+mPoolId, Maybe Lovelace
+mDeposit) ->
+        [Pair] -> Value
+Aeson.object
+        [ Key
+"address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeAddress
+addr
+        , Key
+"delegation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe PoolId
+mPoolId
+        , Key
+"rewardAccountBalance" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe Lovelace
+mBalance
+        , Key
+"delegationDeposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe Lovelace
+mDeposit
+        ]
+      )
+      [(StakeAddress, Maybe Lovelace, Maybe PoolId, Maybe Lovelace)]
+merged
+
+  merged :: [(StakeAddress, Maybe Lovelace, Maybe PoolId, Maybe Lovelace)]
+  merged :: [(StakeAddress, Maybe Lovelace, Maybe PoolId, Maybe Lovelace)]
+merged =
+    [ (StakeAddress
+addr, Maybe Lovelace
+mBalance, Maybe PoolId
+mPoolId, Maybe Lovelace
+mDeposit)
+    | StakeAddress
+addr <- forall a. Set a -> [a]
+Set.toList (forall (f :: * -> *) a. (Foldable f, Ord a) => f (Set a) -> Set a
+Set.unions [ forall k a. Map k a -> Set k
+Map.keysSet Map StakeAddress Lovelace
+stakeAccountBalances
+                                     , forall k a. Map k a -> Set k
+Map.keysSet Map StakeAddress PoolId
+stakePools
+                                     , forall k a. Map k a -> Set k
+Map.keysSet Map StakeAddress Lovelace
+stakeDelegDeposits
+                                     ])
+    , let mBalance :: Maybe Lovelace
+mBalance = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup StakeAddress
+addr Map StakeAddress Lovelace
+stakeAccountBalances
+          mPoolId :: Maybe PoolId
+mPoolId  = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup StakeAddress
+addr Map StakeAddress PoolId
+stakePools
+          mDeposit :: Maybe Lovelace
+mDeposit = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup StakeAddress
+addr Map StakeAddress Lovelace
+stakeDelegDeposits
+    ]
+
+writeLedgerState :: forall era ledgerera.
+                    ShelleyLedgerEra era ~ ledgerera
+                 => ToJSON (DebugLedgerState era)
+                 => FromCBOR (DebugLedgerState era)
+                 => Maybe (File () Out)
+                 -> SerialisedDebugLedgerState era
+                 -> ExceptT QueryCmdError IO ()
+writeLedgerState :: forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera, ToJSON (DebugLedgerState era),
+ FromCBOR (DebugLedgerState era)) =>
+Maybe (File () 'Out)
+-> SerialisedDebugLedgerState era -> ExceptT QueryCmdError IO ()
+writeLedgerState Maybe (File () 'Out)
+mOutFile qState :: SerialisedDebugLedgerState era
+qState@(SerialisedDebugLedgerState Serialised (NewEpochState (ShelleyLedgerEra era))
+serLedgerState) =
+  case Maybe (File () 'Out)
+mOutFile of
+    Maybe (File () 'Out)
+Nothing ->
+      case forall era.
+FromCBOR (DebugLedgerState era) =>
+SerialisedDebugLedgerState era
+-> Either ByteString (DebugLedgerState era)
+decodeDebugLedgerState SerialisedDebugLedgerState era
+qState of
+        Left ByteString
+bs -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> QueryCmdError
+QueryCmdHelpersError forall a b. (a -> b) -> a -> b
+$ ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+bs
+        Right DebugLedgerState era
+ledgerState -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> IO ()
+LBS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+Aeson.encode DebugLedgerState era
+ledgerState
+    Just (File String
+fpath) ->
+      forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath)
+        forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+fpath forall a b. (a -> b) -> a -> b
+$ forall {k} (a :: k). Serialised a -> ByteString
+unSerialised Serialised (NewEpochState (ShelleyLedgerEra era))
+serLedgerState
+
+writeStakeSnapshots :: forall era ledgerera. ()
+  => ShelleyLedgerEra era ~ ledgerera
+  => Core.EraCrypto ledgerera ~ StandardCrypto
+  => Maybe (File () Out)
+  -> SerialisedStakeSnapshots era
+  -> ExceptT QueryCmdError IO ()
+writeStakeSnapshots :: forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera,
+ EraCrypto ledgerera ~ StandardCrypto) =>
+Maybe (File () 'Out)
+-> SerialisedStakeSnapshots era -> ExceptT QueryCmdError IO ()
+writeStakeSnapshots Maybe (File () 'Out)
+mOutFile SerialisedStakeSnapshots era
+qState = do
+  StakeSnapshot StakeSnapshots (EraCrypto (ShelleyLedgerEra era))
+snapshot <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+FromCBOR (StakeSnapshots (EraCrypto (ShelleyLedgerEra era))) =>
+SerialisedStakeSnapshots era
+-> Either DecoderError (StakeSnapshot era)
+decodeStakeSnapshot SerialisedStakeSnapshots era
+qState)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. DecoderError -> QueryCmdError
+QueryCmdStakeSnapshotDecodeError)
+
+  -- Calculate the three pool and active stake values for the given pool
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall b a. b -> (a -> b) -> Maybe a -> b
+maybe ByteString -> IO ()
+LBS.putStrLn (String -> ByteString -> IO ()
+LBS.writeFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+File content direction -> String
+unFile) Maybe (File () 'Out)
+mOutFile forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty StakeSnapshots (EraCrypto (ShelleyLedgerEra era))
+snapshot
+
+-- | This function obtains the pool parameters, equivalent to the following jq query on the output of query ledger-state
+--   .nesEs.esLState.lsDPState.dpsPState.psStakePoolParams.<pool_id>
+writePoolState :: forall era ledgerera. ()
+  => ShelleyLedgerEra era ~ ledgerera
+  => Core.EraCrypto ledgerera ~ StandardCrypto
+  => Core.Era ledgerera
+  => SerialisedPoolState era
+  -> ExceptT QueryCmdError IO ()
+writePoolState :: forall era ledgerera.
+(ShelleyLedgerEra era ~ ledgerera,
+ EraCrypto ledgerera ~ StandardCrypto, Era ledgerera) =>
+SerialisedPoolState era -> ExceptT QueryCmdError IO ()
+writePoolState SerialisedPoolState era
+serialisedCurrentEpochState = do
+  PoolState PState (ShelleyLedgerEra era)
+poolState <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+(Era (ShelleyLedgerEra era),
+ DecCBOR (PState (ShelleyLedgerEra era))) =>
+SerialisedPoolState era -> Either DecoderError (PoolState era)
+decodePoolState SerialisedPoolState era
+serialisedCurrentEpochState)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. DecoderError -> QueryCmdError
+QueryCmdPoolStateDecodeError)
+
+  let hks :: [KeyHash 'StakePool StandardCrypto]
+hks = forall a. Set a -> [a]
+Set.toList forall a b. (a -> b) -> a -> b
+$ forall a. Ord a => [a] -> Set a
+Set.fromList forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [k]
+Map.keys (forall era.
+PState era
+-> Map
+     (KeyHash 'StakePool (EraCrypto era)) (PoolParams (EraCrypto era))
+psStakePoolParams PState (ShelleyLedgerEra era)
+poolState)
+            forall a. Semigroup a => a -> a -> a
+<> forall k a. Map k a -> [k]
+Map.keys (forall era.
+PState era
+-> Map
+     (KeyHash 'StakePool (EraCrypto era)) (PoolParams (EraCrypto era))
+psFutureStakePoolParams PState (ShelleyLedgerEra era)
+poolState) forall a. Semigroup a => a -> a -> a
+<> forall k a. Map k a -> [k]
+Map.keys (forall era.
+PState era -> Map (KeyHash 'StakePool (EraCrypto era)) EpochNo
+psRetiring PState (ShelleyLedgerEra era)
+poolState)
+
+  let poolStates :: Map (KeyHash 'StakePool StandardCrypto) (Params StandardCrypto)
+      poolStates :: Map (KeyHash 'StakePool StandardCrypto) (Params StandardCrypto)
+poolStates = forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall a b. (a -> b) -> a -> b
+$ [KeyHash 'StakePool StandardCrypto]
+hks forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        ( \KeyHash 'StakePool StandardCrypto
+hk ->
+          ( KeyHash 'StakePool StandardCrypto
+hk
+          , Params
+            { poolParameters :: Maybe (PoolParams StandardCrypto)
+poolParameters        = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup KeyHash 'StakePool StandardCrypto
+hk (forall era.
+PState era
+-> Map
+     (KeyHash 'StakePool (EraCrypto era)) (PoolParams (EraCrypto era))
+SL.psStakePoolParams  PState (ShelleyLedgerEra era)
+poolState)
+            , futurePoolParameters :: Maybe (PoolParams StandardCrypto)
+futurePoolParameters  = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup KeyHash 'StakePool StandardCrypto
+hk (forall era.
+PState era
+-> Map
+     (KeyHash 'StakePool (EraCrypto era)) (PoolParams (EraCrypto era))
+SL.psFutureStakePoolParams PState (ShelleyLedgerEra era)
+poolState)
+            , retiringEpoch :: Maybe EpochNo
+retiringEpoch         = forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup KeyHash 'StakePool StandardCrypto
+hk (forall era.
+PState era -> Map (KeyHash 'StakePool (EraCrypto era)) EpochNo
+SL.psRetiring PState (ShelleyLedgerEra era)
+poolState)
+            }
+          )
+        )
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> IO ()
+LBS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty Map (KeyHash 'StakePool StandardCrypto) (Params StandardCrypto)
+poolStates
+
+writeProtocolState ::
+  ( FromCBOR (Consensus.ChainDepState (ConsensusProtocol era))
+  , ToJSON (Consensus.ChainDepState (ConsensusProtocol era))
+  )
+  => Maybe (File () Out)
+  -> ProtocolState era
+  -> ExceptT QueryCmdError IO ()
+writeProtocolState :: forall era.
+(FromCBOR (ChainDepState (ConsensusProtocol era)),
+ ToJSON (ChainDepState (ConsensusProtocol era))) =>
+Maybe (File () 'Out)
+-> ProtocolState era -> ExceptT QueryCmdError IO ()
+writeProtocolState Maybe (File () 'Out)
+mOutFile ps :: ProtocolState era
+ps@(ProtocolState Serialised (ChainDepState (ConsensusProtocol era))
+pstate) =
+  case Maybe (File () 'Out)
+mOutFile of
+    Maybe (File () 'Out)
+Nothing -> case forall era.
+FromCBOR (ChainDepState (ConsensusProtocol era)) =>
+ProtocolState era
+-> Either
+     (ByteString, DecoderError) (ChainDepState (ConsensusProtocol era))
+decodeProtocolState ProtocolState era
+ps of
+      Left (ByteString
+bs, DecoderError
+_) -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> QueryCmdError
+QueryCmdHelpersError forall a b. (a -> b) -> a -> b
+$ ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+bs
+      Right ChainDepState (ConsensusProtocol era)
+chainDepstate -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> IO ()
+LBS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty ChainDepState (ConsensusProtocol era)
+chainDepstate
+    Just (File String
+fpath) ->
+      forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString -> IO ()
+LBS.writeFile String
+fpath forall a b. (a -> b) -> a -> b
+$ forall {k} (a :: k). Serialised a -> ByteString
+unSerialised Serialised (ChainDepState (ConsensusProtocol era))
+pstate
+
+writeFilteredUTxOs :: Api.ShelleyBasedEra era
+                   -> Maybe (File () Out)
+                   -> UTxO era
+                   -> ExceptT QueryCmdError IO ()
+writeFilteredUTxOs :: forall era.
+ShelleyBasedEra era
+-> Maybe (File () 'Out) -> UTxO era -> ExceptT QueryCmdError IO ()
+writeFilteredUTxOs ShelleyBasedEra era
+sbe Maybe (File () 'Out)
+mOutFile UTxO era
+utxo =
+  case Maybe (File () 'Out)
+mOutFile of
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall era. ShelleyBasedEra era -> UTxO era -> IO ()
+printFilteredUTxOs ShelleyBasedEra era
+sbe UTxO era
+utxo
+    Just (File String
+fpath) ->
+      case ShelleyBasedEra era
+sbe of
+        ShelleyBasedEra era
+ShelleyBasedEraShelley -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+        ShelleyBasedEra era
+ShelleyBasedEraAllegra -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+        ShelleyBasedEra era
+ShelleyBasedEraMary -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+        ShelleyBasedEra era
+ShelleyBasedEraAlonzo -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+        ShelleyBasedEra era
+ShelleyBasedEraBabbage -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+        ShelleyBasedEra era
+ShelleyBasedEraConway -> forall {m :: * -> *} {a}.
+(MonadIO m, ToJSON a) =>
+String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath UTxO era
+utxo
+ where
+   writeUTxo :: String -> a -> ExceptT QueryCmdError m ()
+writeUTxo String
+fpath a
+utxo' =
+     forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fpath)
+       forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+fpath (forall a. ToJSON a => a -> ByteString
+encodePretty a
+utxo')
+
+printFilteredUTxOs :: Api.ShelleyBasedEra era -> UTxO era -> IO ()
+printFilteredUTxOs :: forall era. ShelleyBasedEra era -> UTxO era -> IO ()
+printFilteredUTxOs ShelleyBasedEra era
+sbe (UTxO Map TxIn (TxOut CtxUTxO era)
+utxo) = do
+  Text -> IO ()
+Text.putStrLn Text
+title
+  String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. Int -> a -> [a]
+replicate (Text -> Int
+Text.length Text
+title forall a. Num a => a -> a -> a
++ Int
+2) Char
+'-'
+  case ShelleyBasedEra era
+sbe of
+    ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+    ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+    ShelleyBasedEra era
+ShelleyBasedEraMary    ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+    ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+    ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+    ShelleyBasedEra era
+ShelleyBasedEraConway ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe) forall a b. (a -> b) -> a -> b
+$ forall k a. Map k a -> [(k, a)]
+Map.toList Map TxIn (TxOut CtxUTxO era)
+utxo
+
+ where
+   title :: Text
+   title :: Text
+title =
+     Text
+"                           TxHash                                 TxIx        Amount"
+
+printUtxo
+  :: Api.ShelleyBasedEra era
+  -> (TxIn, TxOut CtxUTxO era)
+  -> IO ()
+printUtxo :: forall era.
+ShelleyBasedEra era -> (TxIn, TxOut CtxUTxO era) -> IO ()
+printUtxo ShelleyBasedEra era
+sbe (TxIn, TxOut CtxUTxO era)
+txInOutTuple =
+  case ShelleyBasedEra era
+sbe of
+    ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+_ ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value
+             ]
+
+    ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+_ ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value
+             ]
+    ShelleyBasedEra era
+ShelleyBasedEraMary ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+_ ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value
+             ]
+    ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+mDatum ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value forall a. Semigroup a => a -> a -> a
+<> Text
+" + " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show TxOutDatum CtxUTxO era
+mDatum)
+             ]
+    ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+mDatum ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value forall a. Semigroup a => a -> a -> a
+<> Text
+" + " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show TxOutDatum CtxUTxO era
+mDatum)
+             ]
+    ShelleyBasedEra era
+ShelleyBasedEraConway ->
+      let (TxIn (TxId Hash StandardCrypto EraIndependentTxBody
+txhash) (TxIx Word
+index), TxOut AddressInEra era
+_ TxOutValue era
+value TxOutDatum CtxUTxO era
+mDatum ReferenceScript era
+_) = (TxIn, TxOut CtxUTxO era)
+txInOutTuple
+      in Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ ByteString -> Text
+Text.decodeLatin1 (forall h a. Hash h a -> ByteString
+hashToBytesAsHex Hash StandardCrypto EraIndependentTxBody
+txhash)
+             , forall a. Show a => Int -> a -> Text
+textShowN Int
+6 Word
+index
+             , Text
+"        " forall a. Semigroup a => a -> a -> a
+<> forall era. TxOutValue era -> Text
+printableValue TxOutValue era
+value forall a. Semigroup a => a -> a -> a
+<> Text
+" + " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show TxOutDatum CtxUTxO era
+mDatum)
+             ]
+ where
+  textShowN :: Show a => Int -> a -> Text
+  textShowN :: forall a. Show a => Int -> a -> Text
+textShowN Int
+len a
+x =
+    let str :: String
+str = forall a. Show a => a -> String
+show a
+x
+        slen :: Int
+slen = forall (t :: * -> *) a. Foldable t => t a -> Int
+length String
+str
+    in String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Int -> a -> [a]
+replicate (forall a. Ord a => a -> a -> a
+max Int
+1 (Int
+len forall a. Num a => a -> a -> a
+- Int
+slen)) Char
+' ' forall a. [a] -> [a] -> [a]
+++ String
+str
+
+  printableValue :: TxOutValue era -> Text
+  printableValue :: forall era. TxOutValue era -> Text
+printableValue = \case
+    TxOutValueByron ByronEraOnly era
+_ (Lovelace Integer
+i) -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> String
+show Integer
+i
+    TxOutValueShelleyBased ShelleyBasedEra era
+sbe2 Value (ShelleyLedgerEra era)
+val -> Value -> Text
+renderValue forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era -> Value (ShelleyLedgerEra era) -> Value
+Api.fromLedgerValue ShelleyBasedEra era
+sbe2 Value (ShelleyLedgerEra era)
+val
+
+runQueryStakePoolsCmd :: ()
+  => Cmd.QueryStakePoolsCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryStakePoolsCmd :: QueryStakePoolsCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakePoolsCmd
+    Cmd.QueryStakePoolsCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryStakePoolsCmdArgs :: QueryStakePoolsCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryStakePoolsCmdArgs :: QueryStakePoolsCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryStakePoolsCmdArgs :: QueryStakePoolsCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryStakePoolsCmdArgs :: QueryStakePoolsCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT @QueryCmdError forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        Set PoolId
+poolIds <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError (Either EraMismatch (Set PoolId)))
+queryStakePools ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdError
+QueryCmdEraMismatch)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          Maybe (File () 'Out) -> Set PoolId -> ExceptT QueryCmdError IO ()
+writeStakePools Maybe (File () 'Out)
+mOutFile Set PoolId
+poolIds
+    ) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+writeStakePools
+  :: Maybe (File () Out)
+  -> Set PoolId
+  -> ExceptT QueryCmdError IO ()
+writeStakePools :: Maybe (File () 'Out) -> Set PoolId -> ExceptT QueryCmdError IO ()
+writeStakePools (Just (File String
+outFile)) Set PoolId
+stakePools =
+  forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+outFile) forall a b. (a -> b) -> a -> b
+$
+    String -> ByteString -> IO ()
+LBS.writeFile String
+outFile (forall a. ToJSON a => a -> ByteString
+encodePretty Set PoolId
+stakePools)
+
+writeStakePools Maybe (File () 'Out)
+Nothing Set PoolId
+stakePools =
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ (forall a. Set a -> [a]
+Set.toList Set PoolId
+stakePools) forall a b. (a -> b) -> a -> b
+$ \PoolId
+poolId ->
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ Text -> String
+Text.unpack (forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 PoolId
+poolId)
+
+runQueryStakeDistributionCmd :: ()
+  => Cmd.QueryStakeDistributionCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryStakeDistributionCmd :: QueryStakeDistributionCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryStakeDistributionCmd
+    Cmd.QueryStakeDistributionCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryStakeDistributionCmdArgs :: QueryStakeDistributionCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryStakeDistributionCmdArgs :: QueryStakeDistributionCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryStakeDistributionCmdArgs :: QueryStakeDistributionCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryStakeDistributionCmdArgs :: QueryStakeDistributionCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        Map PoolId Rational
+result <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (Map PoolId Rational)))
+queryStakeDistribution ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+          Maybe (File () 'Out)
+-> Map PoolId Rational -> ExceptT QueryCmdError IO ()
+writeStakeDistribution Maybe (File () 'Out)
+mOutFile Map PoolId Rational
+result
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
+writeStakeDistribution
+  :: Maybe (File () Out)
+  -> Map PoolId Rational
+  -> ExceptT QueryCmdError IO ()
+writeStakeDistribution :: Maybe (File () 'Out)
+-> Map PoolId Rational -> ExceptT QueryCmdError IO ()
+writeStakeDistribution (Just (File String
+outFile)) Map PoolId Rational
+stakeDistrib =
+  forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+outFile) forall a b. (a -> b) -> a -> b
+$
+    String -> ByteString -> IO ()
+LBS.writeFile String
+outFile (forall a. ToJSON a => a -> ByteString
+encodePretty Map PoolId Rational
+stakeDistrib)
+
+writeStakeDistribution Maybe (File () 'Out)
+Nothing Map PoolId Rational
+stakeDistrib =
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Map PoolId Rational -> IO ()
+printStakeDistribution Map PoolId Rational
+stakeDistrib
+
+
+printStakeDistribution :: Map PoolId Rational -> IO ()
+printStakeDistribution :: Map PoolId Rational -> IO ()
+printStakeDistribution Map PoolId Rational
+stakeDistrib = do
+  Text -> IO ()
+Text.putStrLn Text
+title
+  String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. Int -> a -> [a]
+replicate (Text -> Int
+Text.length Text
+title forall a. Num a => a -> a -> a
++ Int
+2) Char
+'-'
+  forall (t :: * -> *) (m :: * -> *) a.
+(Foldable t, Monad m) =>
+t (m a) -> m ()
+sequence_
+    [ String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ PoolId -> Rational -> String
+showStakeDistr PoolId
+poolId Rational
+stakeFraction
+    | (PoolId
+poolId, Rational
+stakeFraction) <- forall k a. Map k a -> [(k, a)]
+Map.toList Map PoolId Rational
+stakeDistrib ]
+ where
+   title :: Text
+   title :: Text
+title =
+     Text
+"                           PoolId                                 Stake frac"
+
+   showStakeDistr :: PoolId
+                  -> Rational
+                  -- ^ Stake fraction
+                  -> String
+   showStakeDistr :: PoolId -> Rational -> String
+showStakeDistr PoolId
+poolId Rational
+stakeFraction =
+     forall (t :: * -> *) a. Foldable t => t [a] -> [a]
+concat
+       [ Text -> String
+Text.unpack (forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 PoolId
+poolId)
+       , String
+"   "
+       , forall a. RealFloat a => Maybe Int -> a -> ShowS
+showEFloat (forall a. a -> Maybe a
+Just Int
+3) (forall a. Fractional a => Rational -> a
+fromRational Rational
+stakeFraction :: Double) String
+""
+       ]
+
+runQueryLeadershipScheduleCmd
+  :: Cmd.QueryLeadershipScheduleCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runQueryLeadershipScheduleCmd :: QueryLeadershipScheduleCmdArgs -> ExceptT QueryCmdError IO ()
+runQueryLeadershipScheduleCmd
+    Cmd.QueryLeadershipScheduleCmdArgs
+    { SocketPath
+$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+    , ConsensusModeParams
+$sel:consensusModeParams:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+    , NetworkId
+$sel:networkId:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+    , $sel:genesisFp:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> GenesisFile
+Cmd.genesisFp = GenesisFile String
+genFile
+    , VerificationKeyOrHashOrFile StakePoolKey
+$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs
+-> VerificationKeyOrHashOrFile StakePoolKey
+poolColdVerKeyFile :: VerificationKeyOrHashOrFile StakePoolKey
+Cmd.poolColdVerKeyFile
+    , SigningKeyFile 'In
+$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> SigningKeyFile 'In
+vrkSkeyFp :: SigningKeyFile 'In
+Cmd.vrkSkeyFp
+    , EpochLeadershipSchedule
+$sel:whichSchedule:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> EpochLeadershipSchedule
+whichSchedule :: EpochLeadershipSchedule
+Cmd.whichSchedule
+    , Maybe (File () 'Out)
+$sel:mOutFile:QueryLeadershipScheduleCmdArgs :: QueryLeadershipScheduleCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+    } = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  PoolId
+poolid <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrHashOrFile StakePoolKey
+poolColdVerKeyFile)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> QueryCmdError
+QueryCmdTextReadError)
+
+  SigningKey VrfKey
+vrkSkey <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType VrfKey
+AsVrfKey) SigningKeyFile 'In
+vrkSkeyFp)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError TextEnvelopeError -> QueryCmdError
+QueryCmdTextEnvelopeReadError)
+
+  ShelleyGenesis StandardCrypto
+shelleyGenesis <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (String
+-> IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))
+readAndDecodeShelleyGenesis String
+genFile)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. GenesisCmdError -> QueryCmdError
+QueryCmdGenesisReadError)
+
+  forall (m :: * -> *) a. Monad m => m (m a) -> m a
+join forall a b. (a -> b) -> a -> b
+$ forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        AnyCardanoEra CardanoEra era
+era <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+          forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left QueryCmdError
+QueryCmdByronEra)
+
+        PParams (ShelleyLedgerEra era)
+pparams <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (PParams (ShelleyLedgerEra era))))
+queryProtocolParameters ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        ProtocolState era
+ptclState <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (ProtocolState era)))
+queryProtocolState ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        EraHistory
+eraHistory <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError EraHistory)
+queryEraHistory
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        let eInfo :: EpochInfo (Either Text)
+eInfo = EraHistory -> EpochInfo (Either Text)
+toEpochInfo EraHistory
+eraHistory
+
+        EpochNo
+curentEpoch <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch EpochNo))
+queryEpoch ShelleyBasedEra era
+sbe)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+        case EpochLeadershipSchedule
+whichSchedule of
+          EpochLeadershipSchedule
+CurrentEpoch -> do
+            SerialisedPoolDistribution era
+serCurrentEpochState <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> Maybe (Set PoolId)
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (SerialisedPoolDistribution era)))
+queryPoolDistribution ShelleyBasedEra era
+sbe (forall a. a -> Maybe a
+Just (forall a. a -> Set a
+Set.singleton PoolId
+poolid)))
+              forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+              forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+              Set SlotNo
+schedule <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT LeadershipError -> QueryCmdError
+QueryCmdLeaderShipError forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) e a. Monad m => Either e a -> ExceptT e m a
+hoistEither
+                forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+                forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> ShelleyGenesis StandardCrypto
+-> EpochInfo (Either Text)
+-> PParams (ShelleyLedgerEra era)
+-> ProtocolState era
+-> PoolId
+-> SigningKey VrfKey
+-> SerialisedPoolDistribution era
+-> EpochNo
+-> Either LeadershipError (Set SlotNo)
+currentEpochEligibleLeadershipSlots
+                  ShelleyBasedEra era
+sbe
+                  ShelleyGenesis StandardCrypto
+shelleyGenesis
+                  EpochInfo (Either Text)
+eInfo
+                  PParams (ShelleyLedgerEra era)
+pparams
+                  ProtocolState era
+ptclState
+                  PoolId
+poolid
+                  SigningKey VrfKey
+vrkSkey
+                  SerialisedPoolDistribution era
+serCurrentEpochState
+                  EpochNo
+curentEpoch
+
+              forall {m :: * -> *} {content} {direction :: FileDirection} {c}.
+MonadIO m =>
+Maybe (File content direction)
+-> EpochInfo (Either Text)
+-> ShelleyGenesis c
+-> Set SlotNo
+-> m ()
+writeSchedule Maybe (File () 'Out)
+mOutFile EpochInfo (Either Text)
+eInfo ShelleyGenesis StandardCrypto
+shelleyGenesis Set SlotNo
+schedule
+
+          EpochLeadershipSchedule
+NextEpoch -> do
+            SerialisedCurrentEpochState era
+serCurrentEpochState <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (SerialisedCurrentEpochState era)))
+queryCurrentEpochState ShelleyBasedEra era
+sbe)
+              forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+              forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryCmdLocalStateQueryError -> QueryCmdError
+QueryCmdLocalStateQueryError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdLocalStateQueryError
+EraMismatchError)
+
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ do
+              ChainTip
+tip <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo -> IO ChainTip
+getLocalChainTip LocalNodeConnectInfo
+localNodeConnInfo
+
+              Set SlotNo
+schedule <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT LeadershipError -> QueryCmdError
+QueryCmdLeaderShipError forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) e a. Monad m => Either e a -> ExceptT e m a
+hoistEither
+                forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+                forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> ShelleyGenesis StandardCrypto
+-> SerialisedCurrentEpochState era
+-> ProtocolState era
+-> PoolId
+-> SigningKey VrfKey
+-> PParams (ShelleyLedgerEra era)
+-> EpochInfo (Either Text)
+-> (ChainTip, EpochNo)
+-> Either LeadershipError (Set SlotNo)
+nextEpochEligibleLeadershipSlots ShelleyBasedEra era
+sbe ShelleyGenesis StandardCrypto
+shelleyGenesis
+                  SerialisedCurrentEpochState era
+serCurrentEpochState ProtocolState era
+ptclState PoolId
+poolid SigningKey VrfKey
+vrkSkey PParams (ShelleyLedgerEra era)
+pparams
+                  EpochInfo (Either Text)
+eInfo (ChainTip
+tip, EpochNo
+curentEpoch)
+
+              forall {m :: * -> *} {content} {direction :: FileDirection} {c}.
+MonadIO m =>
+Maybe (File content direction)
+-> EpochInfo (Either Text)
+-> ShelleyGenesis c
+-> Set SlotNo
+-> m ()
+writeSchedule Maybe (File () 'Out)
+mOutFile EpochInfo (Either Text)
+eInfo ShelleyGenesis StandardCrypto
+shelleyGenesis Set SlotNo
+schedule
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+  where
+    writeSchedule :: Maybe (File content direction)
+-> EpochInfo (Either Text)
+-> ShelleyGenesis c
+-> Set SlotNo
+-> m ()
+writeSchedule Maybe (File content direction)
+mOutFile' EpochInfo (Either Text)
+eInfo ShelleyGenesis c
+shelleyGenesis Set SlotNo
+schedule =
+      case Maybe (File content direction)
+mOutFile' of
+        Maybe (File content direction)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Set SlotNo -> EpochInfo (Either Text) -> SystemStart -> IO ()
+printLeadershipScheduleAsText Set SlotNo
+schedule EpochInfo (Either Text)
+eInfo (UTCTime -> SystemStart
+SystemStart forall a b. (a -> b) -> a -> b
+$ forall c. ShelleyGenesis c -> UTCTime
+sgSystemStart ShelleyGenesis c
+shelleyGenesis)
+        Just (File String
+jsonOutputFile) ->
+          forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+jsonOutputFile forall a b. (a -> b) -> a -> b
+$
+            Set SlotNo -> EpochInfo (Either Text) -> SystemStart -> ByteString
+printLeadershipScheduleAsJson Set SlotNo
+schedule EpochInfo (Either Text)
+eInfo (UTCTime -> SystemStart
+SystemStart forall a b. (a -> b) -> a -> b
+$ forall c. ShelleyGenesis c -> UTCTime
+sgSystemStart ShelleyGenesis c
+shelleyGenesis)
+
+    printLeadershipScheduleAsText
+      :: Set SlotNo
+      -> EpochInfo (Either Text)
+      -> SystemStart
+      -> IO ()
+    printLeadershipScheduleAsText :: Set SlotNo -> EpochInfo (Either Text) -> SystemStart -> IO ()
+printLeadershipScheduleAsText Set SlotNo
+leadershipSlots EpochInfo (Either Text)
+eInfo SystemStart
+sStart = do
+      Text -> IO ()
+Text.putStrLn Text
+title
+      String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. Int -> a -> [a]
+replicate (Text -> Int
+Text.length Text
+title forall a. Num a => a -> a -> a
++ Int
+2) Char
+'-'
+      forall (t :: * -> *) (m :: * -> *) a.
+(Foldable t, Monad m) =>
+t (m a) -> m ()
+sequence_
+        [ String -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ SlotNo -> EpochInfo (Either Text) -> SystemStart -> String
+showLeadershipSlot SlotNo
+slot EpochInfo (Either Text)
+eInfo SystemStart
+sStart
+        | SlotNo
+slot <- forall a. Set a -> [a]
+Set.toList Set SlotNo
+leadershipSlots ]
+      where
+        title :: Text
+        title :: Text
+title =
+          Text
+"     SlotNo                          UTC Time              "
+
+        showLeadershipSlot
+          :: SlotNo
+          -> EpochInfo (Either Text)
+          -> SystemStart
+          -> String
+        showLeadershipSlot :: SlotNo -> EpochInfo (Either Text) -> SystemStart -> String
+showLeadershipSlot lSlot :: SlotNo
+lSlot@(SlotNo Word64
+sn) EpochInfo (Either Text)
+eInfo' SystemStart
+sStart' =
+          case forall (m :: * -> *).
+(HasCallStack, Monad m) =>
+EpochInfo m -> SystemStart -> SlotNo -> m UTCTime
+epochInfoSlotToUTCTime EpochInfo (Either Text)
+eInfo' SystemStart
+sStart' SlotNo
+lSlot of
+            Right UTCTime
+slotTime ->
+              forall (t :: * -> *) a. Foldable t => t [a] -> [a]
+concat
+              [ String
+"     "
+              , forall a. Show a => a -> String
+show Word64
+sn
+              , String
+"                   "
+              , forall a. Show a => a -> String
+show UTCTime
+slotTime
+              ]
+            Left Text
+err ->
+              forall (t :: * -> *) a. Foldable t => t [a] -> [a]
+concat
+              [ String
+"     "
+              , forall a. Show a => a -> String
+show Word64
+sn
+              , String
+"                   "
+              , Text -> String
+Text.unpack Text
+err
+              ]
+    printLeadershipScheduleAsJson
+      :: Set SlotNo
+      -> EpochInfo (Either Text)
+      -> SystemStart
+      -> LBS.ByteString
+    printLeadershipScheduleAsJson :: Set SlotNo -> EpochInfo (Either Text) -> SystemStart -> ByteString
+printLeadershipScheduleAsJson Set SlotNo
+leadershipSlots EpochInfo (Either Text)
+eInfo SystemStart
+sStart =
+      forall a. ToJSON a => a -> ByteString
+encodePretty forall a b. (a -> b) -> a -> b
+$ SlotNo -> Value
+showLeadershipSlot forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Ord a => [a] -> [a]
+List.sort (forall a. Set a -> [a]
+Set.toList Set SlotNo
+leadershipSlots)
+      where
+        showLeadershipSlot :: SlotNo -> Aeson.Value
+        showLeadershipSlot :: SlotNo -> Value
+showLeadershipSlot lSlot :: SlotNo
+lSlot@(SlotNo Word64
+sn) =
+          case forall (m :: * -> *).
+(HasCallStack, Monad m) =>
+EpochInfo m -> SystemStart -> SlotNo -> m UTCTime
+epochInfoSlotToUTCTime EpochInfo (Either Text)
+eInfo SystemStart
+sStart SlotNo
+lSlot of
+            Right UTCTime
+slotTime ->
+              [Pair] -> Value
+Aeson.object
+                [ Key
+"slotNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+Aeson..= Word64
+sn
+                , Key
+"slotTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+Aeson..= UTCTime
+slotTime
+                ]
+            Left Text
+err ->
+              [Pair] -> Value
+Aeson.object
+                [ Key
+"slotNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+Aeson..= Word64
+sn
+                , Key
+"error" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+Aeson..= Text -> String
+Text.unpack Text
+err
+                ]
+
+runQueryConstitution
+  :: Cmd.QueryNoArgCmdArgs era
+  -> ExceptT QueryCmdError IO ()
+runQueryConstitution :: forall era. QueryNoArgCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryConstitution
+    Cmd.QueryNoArgCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , SocketPath
+$sel:nodeSocketPath:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+      , NetworkId
+$sel:networkId:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+      , Maybe (File () 'Out)
+$sel:mOutFile:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+      } = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  Maybe (Constitution (ShelleyLedgerEra era))
+constitution <- forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo forall a b. (a -> b) -> a -> b
+$ forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (Maybe (Constitution (ShelleyLedgerEra era)))))
+queryConstitution ShelleyBasedEra era
+sbe
+  forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile Maybe (Constitution (ShelleyLedgerEra era))
+constitution
+
+runQueryGovState
+  :: Cmd.QueryNoArgCmdArgs era
+  -> ExceptT QueryCmdError IO ()
+runQueryGovState :: forall era. QueryNoArgCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryGovState
+    Cmd.QueryNoArgCmdArgs
+      { ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+$sel:eon:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> ConwayEraOnwards era
+Cmd.eon
+      , SocketPath
+nodeSocketPath :: SocketPath
+$sel:nodeSocketPath:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> SocketPath
+Cmd.nodeSocketPath
+      , ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+$sel:consensusModeParams:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> ConsensusModeParams
+Cmd.consensusModeParams
+      , NetworkId
+networkId :: NetworkId
+$sel:networkId:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> NetworkId
+Cmd.networkId
+      , Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+$sel:mOutFile:QueryNoArgCmdArgs :: forall era. QueryNoArgCmdArgs era -> Maybe (File () 'Out)
+Cmd.mOutFile
+      } = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  GovState (ShelleyLedgerEra era)
+govState <- forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo forall a b. (a -> b) -> a -> b
+$ forall era block point r.
+ShelleyBasedEra era
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (GovState (ShelleyLedgerEra era))))
+queryGovState ShelleyBasedEra era
+sbe
+  forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile GovState (ShelleyLedgerEra era)
+govState
+
+runQueryDRepState
+  :: Cmd.QueryDRepStateCmdArgs era
+  -> ExceptT QueryCmdError IO ()
+runQueryDRepState :: forall era.
+QueryDRepStateCmdArgs era -> ExceptT QueryCmdError IO ()
+runQueryDRepState
+    Cmd.QueryDRepStateCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:QueryDRepStateCmdArgs :: forall era. QueryDRepStateCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , SocketPath
+$sel:nodeSocketPath:QueryDRepStateCmdArgs :: forall era. QueryDRepStateCmdArgs era -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:QueryDRepStateCmdArgs :: forall era. QueryDRepStateCmdArgs era -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+      , NetworkId
+$sel:networkId:QueryDRepStateCmdArgs :: forall era. QueryDRepStateCmdArgs era -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+      , $sel:drepKeys:QueryDRepStateCmdArgs :: forall era.
+QueryDRepStateCmdArgs era -> [VerificationKeyOrHashOrFile DRepKey]
+Cmd.drepKeys = [VerificationKeyOrHashOrFile DRepKey]
+drepKeys
+      , Maybe (File () 'Out)
+$sel:mOutFile:QueryDRepStateCmdArgs :: forall era. QueryDRepStateCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+      } = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  Set (Credential 'DRepRole StandardCrypto)
+drepCreds <- forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> QueryCmdError
+QueryCmdDRepKeyError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKeyOrHashOrFile DRepKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'DRepRole StandardCrypto)
+getDRepCredentialFromVerKeyHashOrFile) [VerificationKeyOrHashOrFile DRepKey]
+drepKeys
+
+  Map
+  (Credential 'DRepRole StandardCrypto) (DRepState StandardCrypto)
+drepState <- forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo forall a b. (a -> b) -> a -> b
+$ forall era block point r.
+ShelleyBasedEra era
+-> Set (Credential 'DRepRole StandardCrypto)
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either
+           EraMismatch
+           (Map
+              (Credential 'DRepRole StandardCrypto) (DRepState StandardCrypto))))
+queryDRepState ShelleyBasedEra era
+sbe Set (Credential 'DRepRole StandardCrypto)
+drepCreds
+  forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile forall a b. (a -> b) -> a -> b
+$
+    forall (p :: * -> * -> *) b c a.
+Bifunctor p =>
+(b -> c) -> p a b -> p a c
+second forall {c}. Crypto c => DRepState c -> Value
+drepStateToJson forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall k a. Map k a -> [(k, a)]
+Map.assocs Map
+  (Credential 'DRepRole StandardCrypto) (DRepState StandardCrypto)
+drepState
+  where
+    drepStateToJson :: DRepState c -> Value
+drepStateToJson DRepState c
+ds = [Pair] -> Value
+A.object
+      [ Key
+"expiry" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= (DRepState c
+ds forall s a. s -> Getting a s a -> a
+^. forall c. Lens' (DRepState c) EpochNo
+Ledger.drepExpiryL)
+      , Key
+"anchor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= (DRepState c
+ds forall s a. s -> Getting a s a -> a
+^. forall c. Lens' (DRepState c) (StrictMaybe (Anchor c))
+Ledger.drepAnchorL)
+      , Key
+"deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= (DRepState c
+ds forall s a. s -> Getting a s a -> a
+^. forall c. Lens' (DRepState c) Coin
+Ledger.drepDepositL)
+      ]
+
+runQueryDRepStakeDistribution
+  :: Cmd.QueryDRepStakeDistributionCmdArgs era
+  -> ExceptT QueryCmdError IO ()
+runQueryDRepStakeDistribution :: forall era.
+QueryDRepStakeDistributionCmdArgs era
+-> ExceptT QueryCmdError IO ()
+runQueryDRepStakeDistribution
+    Cmd.QueryDRepStakeDistributionCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:QueryDRepStakeDistributionCmdArgs :: forall era.
+QueryDRepStakeDistributionCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , SocketPath
+$sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgs :: forall era. QueryDRepStakeDistributionCmdArgs era -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:QueryDRepStakeDistributionCmdArgs :: forall era.
+QueryDRepStakeDistributionCmdArgs era -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+      , NetworkId
+$sel:networkId:QueryDRepStakeDistributionCmdArgs :: forall era. QueryDRepStakeDistributionCmdArgs era -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+      , $sel:drepKeys:QueryDRepStakeDistributionCmdArgs :: forall era.
+QueryDRepStakeDistributionCmdArgs era
+-> [VerificationKeyOrHashOrFile DRepKey]
+Cmd.drepKeys = [VerificationKeyOrHashOrFile DRepKey]
+drepKeys
+      , Maybe (File () 'Out)
+$sel:mOutFile:QueryDRepStakeDistributionCmdArgs :: forall era.
+QueryDRepStakeDistributionCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+      } = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  let drepFromVrfKey :: VerificationKeyOrHashOrFile DRepKey
+-> ExceptT QueryCmdError IO (DRep StandardCrypto)
+drepFromVrfKey = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall c. Credential 'DRepRole c -> DRep c
+Ledger.DRepCredential
+                     forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> QueryCmdError
+QueryCmdDRepKeyError
+                     forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKeyOrHashOrFile DRepKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'DRepRole StandardCrypto)
+getDRepCredentialFromVerKeyHashOrFile
+  Set (DRep StandardCrypto)
+dreps <- forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM VerificationKeyOrHashOrFile DRepKey
+-> ExceptT QueryCmdError IO (DRep StandardCrypto)
+drepFromVrfKey [VerificationKeyOrHashOrFile DRepKey]
+drepKeys
+
+  Map (DRep StandardCrypto) Lovelace
+drepStakeDistribution <- forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo forall a b. (a -> b) -> a -> b
+$ forall era block point r.
+ShelleyBasedEra era
+-> Set (DRep StandardCrypto)
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either EraMismatch (Map (DRep StandardCrypto) Lovelace)))
+queryDRepStakeDistribution ShelleyBasedEra era
+sbe Set (DRep StandardCrypto)
+dreps
+  forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile forall a b. (a -> b) -> a -> b
+$
+    forall k a. Map k a -> [(k, a)]
+Map.assocs Map (DRep StandardCrypto) Lovelace
+drepStakeDistribution
+
+runQueryCommitteeMembersState
+  :: Cmd.QueryCommitteeMembersStateCmdArgs era
+  -> ExceptT QueryCmdError IO ()
+runQueryCommitteeMembersState :: forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> ExceptT QueryCmdError IO ()
+runQueryCommitteeMembersState
+    Cmd.QueryCommitteeMembersStateCmdArgs
+      { ConwayEraOnwards era
+$sel:eon:QueryCommitteeMembersStateCmdArgs :: forall era.
+QueryCommitteeMembersStateCmdArgs era -> ConwayEraOnwards era
+eon :: ConwayEraOnwards era
+Cmd.eon
+      , SocketPath
+$sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgs :: forall era. QueryCommitteeMembersStateCmdArgs era -> SocketPath
+nodeSocketPath :: SocketPath
+Cmd.nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:QueryCommitteeMembersStateCmdArgs :: forall era.
+QueryCommitteeMembersStateCmdArgs era -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+Cmd.consensusModeParams
+      , NetworkId
+$sel:networkId:QueryCommitteeMembersStateCmdArgs :: forall era. QueryCommitteeMembersStateCmdArgs era -> NetworkId
+networkId :: NetworkId
+Cmd.networkId
+      , Maybe (File () 'Out)
+$sel:mOutFile:QueryCommitteeMembersStateCmdArgs :: forall era.
+QueryCommitteeMembersStateCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+Cmd.mOutFile
+      , $sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgs :: forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeColdKey]
+Cmd.committeeColdKeys  = [VerificationKeyOrHashOrFile CommitteeColdKey]
+coldCredKeys
+      , $sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgs :: forall era.
+QueryCommitteeMembersStateCmdArgs era
+-> [VerificationKeyOrHashOrFile CommitteeHotKey]
+Cmd.committeeHotKeys = [VerificationKeyOrHashOrFile CommitteeHotKey]
+hotCredKeys
+      , $sel:memberStatuses:QueryCommitteeMembersStateCmdArgs :: forall era. QueryCommitteeMembersStateCmdArgs era -> [MemberStatus]
+Cmd.memberStatuses = [MemberStatus]
+memberStatuses
+      } = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+      sbe :: ShelleyBasedEra era
+sbe = forall era. ConwayEraOnwards era -> ShelleyBasedEra era
+conwayEraOnwardsToShelleyBasedEra ConwayEraOnwards era
+eon
+
+  let coldKeysFromVerKeyHashOrFile :: VerificationKeyOrHashOrFile CommitteeColdKey
+-> ExceptT
+     QueryCmdError IO (Credential 'ColdCommitteeRole StandardCrypto)
+coldKeysFromVerKeyHashOrFile =
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> QueryCmdError
+QueryCmdCommitteeColdKeyError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKeyOrHashOrFile CommitteeColdKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'ColdCommitteeRole StandardCrypto)
+getCommitteeColdCredentialFromVerKeyHashOrFile
+  Set (Credential 'ColdCommitteeRole StandardCrypto)
+coldKeys <- forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM VerificationKeyOrHashOrFile CommitteeColdKey
+-> ExceptT
+     QueryCmdError IO (Credential 'ColdCommitteeRole StandardCrypto)
+coldKeysFromVerKeyHashOrFile [VerificationKeyOrHashOrFile CommitteeColdKey]
+coldCredKeys
+
+  let hotKeysFromVerKeyHashOrFile :: VerificationKeyOrHashOrFile CommitteeHotKey
+-> ExceptT
+     QueryCmdError IO (Credential 'HotCommitteeRole StandardCrypto)
+hotKeysFromVerKeyHashOrFile =
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> QueryCmdError
+QueryCmdCommitteeHotKeyError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. VerificationKeyOrHashOrFile CommitteeHotKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'HotCommitteeRole StandardCrypto)
+getCommitteeHotCredentialFromVerKeyHashOrFile
+  Set (Credential 'HotCommitteeRole StandardCrypto)
+hotKeys <- forall a. Ord a => [a] -> Set a
+Set.fromList forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM VerificationKeyOrHashOrFile CommitteeHotKey
+-> ExceptT
+     QueryCmdError IO (Credential 'HotCommitteeRole StandardCrypto)
+hotKeysFromVerKeyHashOrFile [VerificationKeyOrHashOrFile CommitteeHotKey]
+hotCredKeys
+
+  Maybe (CommitteeMembersState StandardCrypto)
+committeeState <- forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo forall a b. (a -> b) -> a -> b
+$
+    forall era block point r.
+ShelleyBasedEra era
+-> Set (Credential 'ColdCommitteeRole StandardCrypto)
+-> Set (Credential 'HotCommitteeRole StandardCrypto)
+-> Set MemberStatus
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        UnsupportedNtcVersionError
+        (Either
+           EraMismatch (Maybe (CommitteeMembersState StandardCrypto))))
+queryCommitteeMembersState ShelleyBasedEra era
+sbe Set (Credential 'ColdCommitteeRole StandardCrypto)
+coldKeys Set (Credential 'HotCommitteeRole StandardCrypto)
+hotKeys (forall a. Ord a => [a] -> Set a
+Set.fromList [MemberStatus]
+memberStatuses)
+  forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File () 'Out)
+mOutFile forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> Value
+A.toJSON Maybe (CommitteeMembersState StandardCrypto)
+committeeState
+
+runQuery :: LocalNodeConnectInfo
+         -> LocalStateQueryExpr
+             BlockInMode
+             ChainPoint
+             QueryInMode
+             ()
+             IO
+             (Either
+                UnsupportedNtcVersionError
+                (Either Consensus.EraMismatch a))
+         -> ExceptT QueryCmdError IO a
+runQuery :: forall a.
+LocalNodeConnectInfo
+-> LocalStateQueryExpr
+     BlockInMode
+     ChainPoint
+     QueryInMode
+     ()
+     IO
+     (Either UnsupportedNtcVersionError (Either EraMismatch a))
+-> ExceptT QueryCmdError IO a
+runQuery LocalNodeConnectInfo
+localNodeConnInfo LocalStateQueryExpr
+  BlockInMode
+  ChainPoint
+  QueryInMode
+  ()
+  IO
+  (Either UnsupportedNtcVersionError (Either EraMismatch a))
+query =
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure
+    ( forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing LocalStateQueryExpr
+  BlockInMode
+  ChainPoint
+  QueryInMode
+  ()
+  IO
+  (Either UnsupportedNtcVersionError (Either EraMismatch a))
+query)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. EraMismatch -> QueryCmdError
+QueryCmdEraMismatch)
+
+writeOutput :: ToJSON b
+            => Maybe (File a Out)
+            -> b
+            -> ExceptT QueryCmdError IO ()
+writeOutput :: forall b a.
+ToJSON b =>
+Maybe (File a 'Out) -> b -> ExceptT QueryCmdError IO ()
+writeOutput Maybe (File a 'Out)
+mOutFile b
+content = case Maybe (File a 'Out)
+mOutFile of
+  Maybe (File a 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ByteString -> IO ()
+LBS.putStrLn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON a => a -> ByteString
+encodePretty forall a b. (a -> b) -> a -> b
+$ b
+content
+  Just (File String
+f) ->
+    forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> QueryCmdError
+QueryCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+f) forall a b. (a -> b) -> a -> b
+$
+      String -> ByteString -> IO ()
+LBS.writeFile String
+f (forall a. ToJSON a => a -> ByteString
+encodePretty b
+content)
+
+
+-- Helpers
+
+toEpochInfo :: EraHistory -> EpochInfo (Either Text)
+toEpochInfo :: EraHistory -> EpochInfo (Either Text)
+toEpochInfo (EraHistory Interpreter xs
+interpreter) =
+  forall (m :: * -> *) (n :: * -> *).
+(forall a. m a -> n a) -> EpochInfo m -> EpochInfo n
+hoistEpochInfo (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> String
+show) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e a. Except e a -> Either e a
+runExcept)
+    forall a b. (a -> b) -> a -> b
+$ forall (xs :: [*]).
+Interpreter xs -> EpochInfo (Except PastHorizonException)
+Consensus.interpreterToEpochInfo Interpreter xs
+interpreter
+
+-- | A value that is tentative or produces a tentative value if used.  These values
+-- are considered accurate only if some future event such as a hard fork does not
+-- render them invalid.
+newtype Tentative a = Tentative { forall a. Tentative a -> a
+tentative :: a } deriving (Tentative a -> Tentative a -> Bool
+forall a. Eq a => Tentative a -> Tentative a -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: Tentative a -> Tentative a -> Bool
+$c/= :: forall a. Eq a => Tentative a -> Tentative a -> Bool
+== :: Tentative a -> Tentative a -> Bool
+$c== :: forall a. Eq a => Tentative a -> Tentative a -> Bool
+Eq, Int -> Tentative a -> ShowS
+forall a. Show a => Int -> Tentative a -> ShowS
+forall a. Show a => [Tentative a] -> ShowS
+forall a. Show a => Tentative a -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [Tentative a] -> ShowS
+$cshowList :: forall a. Show a => [Tentative a] -> ShowS
+show :: Tentative a -> String
+$cshow :: forall a. Show a => Tentative a -> String
+showsPrec :: Int -> Tentative a -> ShowS
+$cshowsPrec :: forall a. Show a => Int -> Tentative a -> ShowS
+Show)
+
+-- | Get an Epoch Info that computes tentative values.  The values computed are
+-- tentative because it uses an interpreter that is extended past the horizon.
+-- This interpreter will compute accurate values into the future as long as a
+-- a hard fork does not happen in the intervening time.  Those values are thus
+-- "tentative" because they can change in the event of a hard fork.
+toTentativeEpochInfo :: EraHistory -> Tentative (EpochInfo (Either Text))
+toTentativeEpochInfo :: EraHistory -> Tentative (EpochInfo (Either Text))
+toTentativeEpochInfo (EraHistory Interpreter xs
+interpreter) =
+  forall a. a -> Tentative a
+Tentative
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) (n :: * -> *).
+(forall a. m a -> n a) -> EpochInfo m -> EpochInfo n
+hoistEpochInfo (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> String
+show) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e a. Except e a -> Either e a
+runExcept)
+    forall a b. (a -> b) -> a -> b
+$ forall (xs :: [*]).
+Interpreter xs -> EpochInfo (Except PastHorizonException)
+Consensus.interpreterToEpochInfo (forall (xs :: [*]). Interpreter xs -> Interpreter xs
+Consensus.unsafeExtendSafeZone Interpreter xs
+interpreter)
+
+
+-- | Get slot number for timestamp, or an error if the UTC timestamp is before 'SystemStart' or after N+1 era
+utcTimeToSlotNo
+  :: SocketPath
+  -> ConsensusModeParams
+  -> NetworkId
+  -> UTCTime
+  -> ExceptT QueryCmdError IO SlotNo
+utcTimeToSlotNo :: SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> UTCTime
+-> ExceptT QueryCmdError IO SlotNo
+utcTimeToSlotNo SocketPath
+nodeSocketPath ConsensusModeParams
+consensusModeParams NetworkId
+networkId UTCTime
+utcTime = do
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = ConsensusModeParams
+-> NetworkId -> SocketPath -> LocalNodeConnectInfo
+LocalNodeConnectInfo ConsensusModeParams
+consensusModeParams NetworkId
+networkId SocketPath
+nodeSocketPath
+
+  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    ( forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+        SystemStart
+systemStart <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError SystemStart)
+querySystemStart
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        EraHistory
+eraHistory <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError EraHistory)
+queryEraHistory
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryCmdError
+QueryCmdUnsupportedNtcVersion)
+
+        let relTime :: RelativeTime
+relTime = SystemStart -> UTCTime -> RelativeTime
+toRelativeTime SystemStart
+systemStart UTCTime
+utcTime
+
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure (RelativeTime -> EraHistory -> Either PastHorizonException SlotNo
+Api.getSlotForRelativeTime RelativeTime
+relTime EraHistory
+eraHistory)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. PastHorizonException -> QueryCmdError
+QueryCmdPastHorizon)
+    )
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryCmdError
+QueryCmdAcquireFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakeAddress.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakeAddress.html new file mode 100644 index 0000000000..5e38166fe7 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakeAddress.html @@ -0,0 +1,1004 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+
+{- HLINT ignore "Monad law, left identity" -}
+
+module Cardano.CLI.EraBased.Run.StakeAddress
+  ( runStakeAddressCmds
+
+  , runStakeAddressBuildCmd
+  , runStakeAddressKeyGenCmd
+  , runStakeAddressKeyHashCmd
+  , runStakeAddressStakeDelegationCertificateCmd
+  , runStakeAddressDeregistrationCertificateCmd
+  , runStakeAddressRegistrationCertificateCmd
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Commands.StakeAddress
+import qualified Cardano.CLI.EraBased.Run.Key as Key
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.StakeAddressCmdError
+import           Cardano.CLI.Types.Errors.StakeAddressRegistrationError
+import           Cardano.CLI.Types.Governance
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans (lift)
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left, newExceptT,
+                   onLeft)
+import qualified Data.ByteString.Char8 as BS
+import           Data.Function ((&))
+import qualified Data.Text.IO as Text
+
+runStakeAddressCmds :: ()
+  => StakeAddressCmds era
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressCmds :: forall era.
+StakeAddressCmds era -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressCmds = \case
+  StakeAddressKeyGenCmd ShelleyBasedEra era
+_ KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk ->
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyGenCmd KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk
+  StakeAddressKeyHashCmd ShelleyBasedEra era
+_ VerificationKeyOrFile StakeKey
+vk Maybe (File () 'Out)
+mOutputFp ->
+    VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyHashCmd VerificationKeyOrFile StakeKey
+vk Maybe (File () 'Out)
+mOutputFp
+  StakeAddressBuildCmd ShelleyBasedEra era
+_ StakeVerifier
+stakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutputFp ->
+    StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressBuildCmd StakeVerifier
+stakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutputFp
+  StakeAddressRegistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp ->
+    forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressRegistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp
+  StakeAddressStakeDelegationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stkPoolVerKeyHashOrFp File () 'Out
+outputFp ->
+    forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeDelegationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stkPoolVerKeyHashOrFp File () 'Out
+outputFp
+  StakeAddressStakeAndVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stakePoolVerificationKeyHashSource VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outputFp ->
+    forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> VoteDelegationTarget
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeAndVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stakePoolVerificationKeyHashSource VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outputFp
+  StakeAddressVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeIdentifier VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outputFp ->
+    forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VoteDelegationTarget
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeIdentifier VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outputFp
+  StakeAddressDeregistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp ->
+    forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressDeregistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp
+
+runStakeAddressKeyGenCmd :: ()
+  => KeyOutputFormat
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyGenCmd :: KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyGenCmd KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vkFp SigningKeyFile 'Out
+skFp = do
+  let skeyDesc :: TextEnvelopeDescr
+skeyDesc = TextEnvelopeDescr
+"Stake Signing Key"
+
+  SigningKey StakeKey
+skey <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType StakeKey
+AsStakeKey
+
+  let vkey :: VerificationKey StakeKey
+vkey = forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey StakeKey
+skey
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError forall a b. (a -> b) -> a -> b
+$ do
+    case KeyOutputFormat
+fmt of
+      KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile SigningKeyFile 'Out
+skFp forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+skeyDesc) SigningKey StakeKey
+skey
+      KeyOutputFormat
+KeyOutputFormatBech32 ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile SigningKeyFile 'Out
+skFp forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 SigningKey StakeKey
+skey
+
+    case KeyOutputFormat
+fmt of
+      KeyOutputFormat
+KeyOutputFormatTextEnvelope ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile VerificationKeyFile 'Out
+vkFp forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+Key.stakeVkeyDesc) VerificationKey StakeKey
+vkey
+      KeyOutputFormat
+KeyOutputFormatBech32 ->
+        forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> Text -> m (Either (FileError e) ())
+writeTextFile VerificationKeyFile 'Out
+vkFp forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 VerificationKey StakeKey
+vkey
+
+runStakeAddressKeyHashCmd :: ()
+  => VerificationKeyOrFile StakeKey
+  -> Maybe (File () Out)
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyHashCmd :: VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyHashCmd VerificationKeyOrFile StakeKey
+stakeVerKeyOrFile Maybe (File () 'Out)
+mOutputFp = do
+  VerificationKey StakeKey
+vkey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakeAddressCmdError
+StakeAddressCmdReadKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakeKey
+AsStakeKey VerificationKeyOrFile StakeKey
+stakeVerKeyOrFile
+
+  let hexKeyHash :: ByteString
+hexKeyHash = forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakeKey
+vkey)
+
+  case Maybe (File () 'Out)
+mOutputFp of
+    Just (File FilePath
+fpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+BS.writeFile FilePath
+fpath ByteString
+hexKeyHash
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn ByteString
+hexKeyHash
+
+runStakeAddressBuildCmd :: ()
+  => StakeVerifier
+  -> NetworkId
+  -> Maybe (File () Out)
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressBuildCmd :: StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressBuildCmd StakeVerifier
+stakeVerifier NetworkId
+network Maybe (File () 'Out)
+mOutputFp = do
+  StakeAddress
+stakeAddr <-
+    NetworkId
+-> StakeVerifier -> ExceptT StakeCredentialError IO StakeAddress
+getStakeAddressFromVerifier NetworkId
+network StakeVerifier
+stakeVerifier
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+  let stakeAddrText :: Text
+stakeAddrText = forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress StakeAddress
+stakeAddr
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$
+    case Maybe (File () 'Out)
+mOutputFp of
+      Just (File FilePath
+fpath) -> FilePath -> Text -> IO ()
+Text.writeFile FilePath
+fpath Text
+stakeAddrText
+      Maybe (File () 'Out)
+Nothing -> Text -> IO ()
+Text.putStrLn Text
+stakeAddrText
+
+
+runStakeAddressRegistrationCertificateCmd :: ()
+  => ShelleyBasedEra era
+  -> StakeIdentifier
+  -> Maybe Lovelace -- ^ Deposit required in conway era
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressRegistrationCertificateCmd :: forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressRegistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+oFp = do
+  StakeCredential
+stakeCred <-
+    StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier StakeIdentifier
+stakeIdentifier
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+
+  StakeAddressRequirements era
+req <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeAddressRegistrationError -> StakeAddressCmdError
+StakeAddressCmdRegistrationError
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> StakeCredential
+-> Maybe Lovelace
+-> Either
+     StakeAddressRegistrationError (StakeAddressRequirements era)
+createRegistrationCertRequirements ShelleyBasedEra era
+sbe StakeCredential
+stakeCred Maybe Lovelace
+mDeposit
+
+  let regCert :: Certificate era
+regCert = forall era. StakeAddressRequirements era -> Certificate era
+makeStakeAddressRegistrationCertificate StakeAddressRequirements era
+req
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+regCertDesc) Certificate era
+regCert
+
+  where
+    regCertDesc :: TextEnvelopeDescr
+    regCertDesc :: TextEnvelopeDescr
+regCertDesc = TextEnvelopeDescr
+"Stake Address Registration Certificate"
+
+createRegistrationCertRequirements :: ()
+  => ShelleyBasedEra era
+  -> StakeCredential
+  -> Maybe Lovelace -- ^ Deposit required in conway era
+  -> Either StakeAddressRegistrationError (StakeAddressRequirements era)
+createRegistrationCertRequirements :: forall era.
+ShelleyBasedEra era
+-> StakeCredential
+-> Maybe Lovelace
+-> Either
+     StakeAddressRegistrationError (StakeAddressRequirements era)
+createRegistrationCertRequirements ShelleyBasedEra era
+sbe StakeCredential
+stakeCred Maybe Lovelace
+mdeposit =
+  case ShelleyBasedEra era
+sbe of
+    ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationPreConway ShelleyToBabbageEra ShelleyEra
+ShelleyToBabbageEraShelley StakeCredential
+stakeCred
+    ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationPreConway ShelleyToBabbageEra AllegraEra
+ShelleyToBabbageEraAllegra StakeCredential
+stakeCred
+    ShelleyBasedEra era
+ShelleyBasedEraMary ->
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationPreConway ShelleyToBabbageEra MaryEra
+ShelleyToBabbageEraMary StakeCredential
+stakeCred
+    ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationPreConway ShelleyToBabbageEra AlonzoEra
+ShelleyToBabbageEraAlonzo StakeCredential
+stakeCred
+    ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationPreConway ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage StakeCredential
+stakeCred
+    ShelleyBasedEra era
+ShelleyBasedEraConway ->
+      case Maybe Lovelace
+mdeposit of
+        Maybe Lovelace
+Nothing ->
+          -- This case is made impossible by the parser, that distinguishes between Conway
+          -- and pre-Conway.
+          forall a b. a -> Either a b
+Left StakeAddressRegistrationError
+StakeAddressRegistrationDepositRequired
+        Just Lovelace
+dep ->
+          forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraOnwards era
+-> Lovelace -> StakeCredential -> StakeAddressRequirements era
+StakeAddrRegistrationConway ConwayEraOnwards ConwayEra
+ConwayEraOnwardsConway Lovelace
+dep StakeCredential
+stakeCred
+
+runStakeAddressStakeDelegationCertificateCmd :: ()
+  => ShelleyBasedEra era
+  -> StakeIdentifier
+  -- ^ Delegator stake verification key, verification key file or script file.
+  -> VerificationKeyOrHashOrFile StakePoolKey
+  -- ^ Delegatee stake pool verification key or verification key file or
+  -- verification key hash.
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeDelegationCertificateCmd :: forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeDelegationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeVerifier VerificationKeyOrHashOrFile StakePoolKey
+poolVKeyOrHashOrFile File () 'Out
+outFp =
+  forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+    Hash StakePoolKey
+poolStakeVKeyHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrHashOrFile StakePoolKey
+poolVKeyOrHashOrFile)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> StakeAddressCmdError
+StakeAddressCmdReadKeyFileError)
+
+    StakeCredential
+stakeCred <-
+      StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier StakeIdentifier
+stakeVerifier
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+
+    let certificate :: Certificate era
+certificate = forall era.
+StakeCredential
+-> Hash StakePoolKey -> ShelleyBasedEra era -> Certificate era
+createStakeDelegationCertificate StakeCredential
+stakeCred Hash StakePoolKey
+poolStakeVKeyHash ShelleyBasedEra era
+sbe
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFp
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just @TextEnvelopeDescr TextEnvelopeDescr
+"Stake Delegation Certificate") Certificate era
+certificate
+
+runStakeAddressStakeAndVoteDelegationCertificateCmd :: ()
+  => ConwayEraOnwards era
+  -> StakeIdentifier
+  -- ^ Delegator stake verification key, verification key file or script file.
+  -> VerificationKeyOrHashOrFile StakePoolKey
+  -- ^ Delegatee stake pool verification key or verification key file or
+  -> VoteDelegationTarget
+  -- verification key hash.
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeAndVoteDelegationCertificateCmd :: forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> VoteDelegationTarget
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeAndVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeVerifier VerificationKeyOrHashOrFile StakePoolKey
+poolVKeyOrHashOrFile VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outFp =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ do
+    StakePoolKeyHash KeyHash 'StakePool StandardCrypto
+poolStakeVKeyHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrHashOrFile StakePoolKey
+poolVKeyOrHashOrFile)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> StakeAddressCmdError
+StakeAddressCmdReadKeyFileError)
+
+    StakeCredential
+stakeCredential <-
+      StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier StakeIdentifier
+stakeVerifier
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+
+    DRep StandardCrypto
+drep <-
+      VoteDelegationTarget
+-> ExceptT DelegationError IO (DRep StandardCrypto)
+readVoteDelegationTarget VoteDelegationTarget
+voteDelegationTarget
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT DelegationError -> StakeAddressCmdError
+StakeAddressCmdDelegationError
+
+    let delegatee :: Delegatee StandardCrypto
+delegatee = forall c. KeyHash 'StakePool c -> DRep c -> Delegatee c
+Ledger.DelegStakeVote KeyHash 'StakePool StandardCrypto
+poolStakeVKeyHash DRep StandardCrypto
+drep
+
+    let certificate :: Certificate era
+certificate =
+          forall era.
+ConwayEraOnwards era
+-> ConwayTxCert (ShelleyLedgerEra era) -> Certificate era
+ConwayCertificate ConwayEraOnwards era
+w
+            forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraTxCert era =>
+StakeCredential (EraCrypto era)
+-> Delegatee (EraCrypto era) -> TxCert era
+Ledger.mkDelegTxCert (StakeCredential -> StakeCredential StandardCrypto
+toShelleyStakeCredential StakeCredential
+stakeCredential) Delegatee StandardCrypto
+delegatee
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFp
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just @TextEnvelopeDescr TextEnvelopeDescr
+"Stake and Vote Delegation Certificate") Certificate era
+certificate
+
+runStakeAddressVoteDelegationCertificateCmd :: ()
+  => ConwayEraOnwards era
+  -> StakeIdentifier
+  -- ^ Delegatee stake pool verification key or verification key file or
+  -> VoteDelegationTarget
+  -- ^ Delegatee stake pool verification key or verification key file or verification key hash.
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressVoteDelegationCertificateCmd :: forall era.
+ConwayEraOnwards era
+-> StakeIdentifier
+-> VoteDelegationTarget
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressVoteDelegationCertificateCmd ConwayEraOnwards era
+w StakeIdentifier
+stakeVerifier VoteDelegationTarget
+voteDelegationTarget File () 'Out
+outFp =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$ do
+    StakeCredential
+stakeCredential <-
+      StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier StakeIdentifier
+stakeVerifier
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+
+    DRep StandardCrypto
+drep <-
+      VoteDelegationTarget
+-> ExceptT DelegationError IO (DRep StandardCrypto)
+readVoteDelegationTarget VoteDelegationTarget
+voteDelegationTarget
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT DelegationError -> StakeAddressCmdError
+StakeAddressCmdDelegationError
+
+    let delegatee :: Delegatee StandardCrypto
+delegatee = forall c. DRep c -> Delegatee c
+Ledger.DelegVote DRep StandardCrypto
+drep
+
+    let certificate :: Certificate era
+certificate =
+          forall era.
+ConwayEraOnwards era
+-> ConwayTxCert (ShelleyLedgerEra era) -> Certificate era
+ConwayCertificate ConwayEraOnwards era
+w
+            forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraTxCert era =>
+StakeCredential (EraCrypto era)
+-> Delegatee (EraCrypto era) -> TxCert era
+Ledger.mkDelegTxCert (StakeCredential -> StakeCredential StandardCrypto
+toShelleyStakeCredential StakeCredential
+stakeCredential) Delegatee StandardCrypto
+delegatee
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFp
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just @TextEnvelopeDescr TextEnvelopeDescr
+"Vote Delegation Certificate") Certificate era
+certificate
+
+createStakeDelegationCertificate :: forall era. ()
+  => StakeCredential
+  -> Hash StakePoolKey
+  -> ShelleyBasedEra era
+  -> Certificate era
+createStakeDelegationCertificate :: forall era.
+StakeCredential
+-> Hash StakePoolKey -> ShelleyBasedEra era -> Certificate era
+createStakeDelegationCertificate StakeCredential
+stakeCredential (StakePoolKeyHash KeyHash 'StakePool StandardCrypto
+poolStakeVKeyHash) = do
+  forall era a.
+(ShelleyToBabbageEraConstraints era =>
+ ShelleyToBabbageEra era -> a)
+-> (ConwayEraOnwardsConstraints era => ConwayEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToBabbageOrConwayEraOnwards
+    (\ShelleyToBabbageEra era
+w ->
+      forall era a.
+ShelleyToBabbageEra era
+-> (ShelleyToBabbageEraConstraints era => a) -> a
+shelleyToBabbageEraConstraints ShelleyToBabbageEra era
+w
+        forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyToBabbageEra era
+-> ShelleyTxCert (ShelleyLedgerEra era) -> Certificate era
+ShelleyRelatedCertificate ShelleyToBabbageEra era
+w
+        forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyEraTxCert era =>
+StakeCredential (EraCrypto era)
+-> KeyHash 'StakePool (EraCrypto era) -> TxCert era
+Ledger.mkDelegStakeTxCert (StakeCredential -> StakeCredential StandardCrypto
+toShelleyStakeCredential StakeCredential
+stakeCredential) KeyHash 'StakePool StandardCrypto
+poolStakeVKeyHash)
+    (\ConwayEraOnwards era
+w ->
+      forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w
+        forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraOnwards era
+-> ConwayTxCert (ShelleyLedgerEra era) -> Certificate era
+ConwayCertificate ConwayEraOnwards era
+w
+        forall a b. (a -> b) -> a -> b
+$ forall era.
+ConwayEraTxCert era =>
+StakeCredential (EraCrypto era)
+-> Delegatee (EraCrypto era) -> TxCert era
+Ledger.mkDelegTxCert (StakeCredential -> StakeCredential StandardCrypto
+toShelleyStakeCredential StakeCredential
+stakeCredential) (forall c. KeyHash 'StakePool c -> Delegatee c
+Ledger.DelegStake KeyHash 'StakePool StandardCrypto
+poolStakeVKeyHash)
+    )
+
+runStakeAddressDeregistrationCertificateCmd :: ()
+  => ShelleyBasedEra era
+  -> StakeIdentifier
+  -> Maybe Lovelace -- ^ Deposit required in conway era
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressDeregistrationCertificateCmd :: forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressDeregistrationCertificateCmd ShelleyBasedEra era
+sbe StakeIdentifier
+stakeVerifier Maybe Lovelace
+mDeposit File () 'Out
+oFp = do
+  StakeCredential
+stakeCred <-
+    StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier StakeIdentifier
+stakeVerifier
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeCredentialError -> StakeAddressCmdError
+StakeAddressCmdStakeCredentialError
+
+  StakeAddressRequirements era
+req <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeAddressRegistrationError -> StakeAddressCmdError
+StakeAddressCmdRegistrationError
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> StakeCredential
+-> Maybe Lovelace
+-> Either
+     StakeAddressRegistrationError (StakeAddressRequirements era)
+createRegistrationCertRequirements ShelleyBasedEra era
+sbe StakeCredential
+stakeCred Maybe Lovelace
+mDeposit
+
+  let deRegCert :: Certificate era
+deRegCert = forall era. StakeAddressRequirements era -> Certificate era
+makeStakeAddressUnregistrationCertificate StakeAddressRequirements era
+req
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakeAddressCmdError
+StakeAddressCmdWriteFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+oFp
+    forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+    forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+deregCertDesc) Certificate era
+deRegCert
+
+  where
+    deregCertDesc :: TextEnvelopeDescr
+    deregCertDesc :: TextEnvelopeDescr
+deregCertDesc = TextEnvelopeDescr
+"Stake Address Deregistration Certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakePool.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakePool.html new file mode 100644 index 0000000000..faf4d239f9 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.StakePool.html @@ -0,0 +1,785 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+
+module Cardano.CLI.EraBased.Run.StakePool
+  ( runStakePoolCmds
+
+  , runStakePoolIdCmd
+  , runStakePoolMetadataHashCmd
+  , runStakePoolRegistrationCertificateCmd
+  , runStakePoolDeregistrationCertificateCmd
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Commands.StakePool
+import qualified Cardano.CLI.EraBased.Commands.StakePool as Cmd
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.StakePoolCmdError
+import           Cardano.CLI.Types.Key (readVerificationKeyOrFile)
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans (lift)
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left,
+                   newExceptT, onLeft)
+import qualified Data.ByteString.Char8 as BS
+import           Data.Function ((&))
+
+runStakePoolCmds :: ()
+  => StakePoolCmds era
+  -> ExceptT StakePoolCmdError IO ()
+runStakePoolCmds :: forall era. StakePoolCmds era -> ExceptT StakePoolCmdError IO ()
+runStakePoolCmds = \case
+  StakePoolDeregistrationCertificateCmd StakePoolDeregistrationCertificateCmdArgs era
+args  -> forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolDeregistrationCertificateCmd StakePoolDeregistrationCertificateCmdArgs era
+args
+  StakePoolIdCmd StakePoolIdCmdArgs era
+args                         -> forall era.
+StakePoolIdCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolIdCmd StakePoolIdCmdArgs era
+args
+  StakePoolMetadataHashCmd StakePoolMetadataHashCmdArgs era
+args               -> forall era.
+StakePoolMetadataHashCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolMetadataHashCmd StakePoolMetadataHashCmdArgs era
+args
+  StakePoolRegistrationCertificateCmd StakePoolRegistrationCertificateCmdArgs era
+args    -> forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolRegistrationCertificateCmd StakePoolRegistrationCertificateCmdArgs era
+args
+
+--
+-- Stake pool command implementations
+--
+
+-- | Create a stake pool registration cert.
+-- TODO: Metadata and more stake pool relay support to be
+-- added in the future.
+runStakePoolRegistrationCertificateCmd :: ()
+  => StakePoolRegistrationCertificateCmdArgs era
+  -> ExceptT StakePoolCmdError IO ()
+runStakePoolRegistrationCertificateCmd :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolRegistrationCertificateCmd
+    Cmd.StakePoolRegistrationCertificateCmdArgs
+      { ShelleyBasedEra era
+$sel:sbe:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era -> ShelleyBasedEra era
+sbe :: ShelleyBasedEra era
+sbe
+      , VerificationKeyOrFile StakePoolKey
+$sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile :: VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+      , VerificationKeyOrFile VrfKey
+$sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile :: VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile
+      , Lovelace
+$sel:poolPledge:StakePoolRegistrationCertificateCmdArgs :: forall era. StakePoolRegistrationCertificateCmdArgs era -> Lovelace
+poolPledge :: Lovelace
+poolPledge
+      , Lovelace
+$sel:poolCost:StakePoolRegistrationCertificateCmdArgs :: forall era. StakePoolRegistrationCertificateCmdArgs era -> Lovelace
+poolCost :: Lovelace
+poolCost
+      , Rational
+$sel:poolMargin:StakePoolRegistrationCertificateCmdArgs :: forall era. StakePoolRegistrationCertificateCmdArgs era -> Rational
+poolMargin :: Rational
+poolMargin
+      , VerificationKeyOrFile StakeKey
+$sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile :: VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile
+      , [VerificationKeyOrFile StakeKey]
+$sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles :: [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles
+      , [StakePoolRelay]
+$sel:relays:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era -> [StakePoolRelay]
+relays :: [StakePoolRelay]
+relays
+      , Maybe StakePoolMetadataReference
+$sel:mMetadata:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> Maybe StakePoolMetadataReference
+mMetadata :: Maybe StakePoolMetadataReference
+mMetadata
+      , NetworkId
+$sel:network:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era -> NetworkId
+network :: NetworkId
+network
+      , File () 'Out
+$sel:outFile:StakePoolRegistrationCertificateCmdArgs :: forall era.
+StakePoolRegistrationCertificateCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+outFile
+      }
+    = forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+    -- Pool verification key
+    VerificationKey StakePoolKey
+stakePoolVerKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+    let stakePoolId' :: Hash StakePoolKey
+stakePoolId' = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakePoolKey
+stakePoolVerKey
+
+    -- VRF verification key
+    VerificationKey VrfKey
+vrfVerKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType VrfKey
+AsVrfKey VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile
+    let vrfKeyHash' :: Hash VrfKey
+vrfKeyHash' = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey VrfKey
+vrfVerKey
+
+    -- Pool reward account
+    VerificationKey StakeKey
+rwdStakeVerKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakeKey
+AsStakeKey VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile
+    let stakeCred :: StakeCredential
+stakeCred = Hash StakeKey -> StakeCredential
+StakeCredentialByKey (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakeKey
+rwdStakeVerKey)
+        rewardAccountAddr :: StakeAddress
+rewardAccountAddr = NetworkId -> StakeCredential -> StakeAddress
+makeStakeAddress NetworkId
+network StakeCredential
+stakeCred
+
+    -- Pool owner(s)
+    [VerificationKey StakeKey]
+sPoolOwnerVkeys <-
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM
+        (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+          forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakeKey
+AsStakeKey
+        )
+        [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles
+    let stakePoolOwners' :: [Hash StakeKey]
+stakePoolOwners' = forall a b. (a -> b) -> [a] -> [b]
+map forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash [VerificationKey StakeKey]
+sPoolOwnerVkeys
+
+    let stakePoolParams :: StakePoolParameters
+stakePoolParams =
+          StakePoolParameters
+            { stakePoolId :: Hash StakePoolKey
+stakePoolId = Hash StakePoolKey
+stakePoolId'
+            , stakePoolVRF :: Hash VrfKey
+stakePoolVRF = Hash VrfKey
+vrfKeyHash'
+            , stakePoolCost :: Lovelace
+stakePoolCost = Lovelace
+poolCost
+            , stakePoolMargin :: Rational
+stakePoolMargin = Rational
+poolMargin
+            , stakePoolRewardAccount :: StakeAddress
+stakePoolRewardAccount = StakeAddress
+rewardAccountAddr
+            , stakePoolPledge :: Lovelace
+stakePoolPledge = Lovelace
+poolPledge
+            , stakePoolOwners :: [Hash StakeKey]
+stakePoolOwners = [Hash StakeKey]
+stakePoolOwners'
+            , stakePoolRelays :: [StakePoolRelay]
+stakePoolRelays = [StakePoolRelay]
+relays
+            , stakePoolMetadata :: Maybe StakePoolMetadataReference
+stakePoolMetadata = Maybe StakePoolMetadataReference
+mMetadata
+            }
+
+    let ledgerStakePoolParams :: PoolParams StandardCrypto
+ledgerStakePoolParams = StakePoolParameters -> PoolParams StandardCrypto
+toShelleyPoolParams StakePoolParameters
+stakePoolParams
+        req :: StakePoolRegistrationRequirements era
+req = forall era.
+ShelleyBasedEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+createStakePoolRegistrationRequirements ShelleyBasedEra era
+sbe
+          forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe PoolParams StandardCrypto
+ledgerStakePoolParams
+        registrationCert :: Certificate era
+registrationCert = forall era.
+StakePoolRegistrationRequirements era -> Certificate era
+makeStakePoolRegistrationCertificate StakePoolRegistrationRequirements era
+req
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakePoolCmdError
+StakePoolCmdWriteFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+registrationCertDesc) Certificate era
+registrationCert
+  where
+    registrationCertDesc :: TextEnvelopeDescr
+    registrationCertDesc :: TextEnvelopeDescr
+registrationCertDesc = TextEnvelopeDescr
+"Stake Pool Registration Certificate"
+
+createStakePoolRegistrationRequirements :: ()
+  => ShelleyBasedEra era
+  -> Ledger.PoolParams (Ledger.EraCrypto (ShelleyLedgerEra era))
+  -> StakePoolRegistrationRequirements era
+createStakePoolRegistrationRequirements :: forall era.
+ShelleyBasedEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+createStakePoolRegistrationRequirements ShelleyBasedEra era
+sbe PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams =
+ case ShelleyBasedEra era
+sbe of
+   ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+     forall era.
+ShelleyToBabbageEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsPreConway ShelleyToBabbageEra ShelleyEra
+ShelleyToBabbageEraShelley PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+   ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+     forall era.
+ShelleyToBabbageEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsPreConway ShelleyToBabbageEra AllegraEra
+ShelleyToBabbageEraAllegra PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+   ShelleyBasedEra era
+ShelleyBasedEraMary ->
+     forall era.
+ShelleyToBabbageEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsPreConway ShelleyToBabbageEra MaryEra
+ShelleyToBabbageEraMary PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+   ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+     forall era.
+ShelleyToBabbageEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsPreConway ShelleyToBabbageEra AlonzoEra
+ShelleyToBabbageEraAlonzo PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+   ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+     forall era.
+ShelleyToBabbageEra era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsPreConway ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+   ShelleyBasedEra era
+ShelleyBasedEraConway ->
+     forall era.
+ConwayEraOnwards era
+-> PoolParams (EraCrypto (ShelleyLedgerEra era))
+-> StakePoolRegistrationRequirements era
+StakePoolRegistrationRequirementsConwayOnwards ConwayEraOnwards ConwayEra
+ConwayEraOnwardsConway PoolParams (EraCrypto (ShelleyLedgerEra era))
+pparams
+
+
+runStakePoolDeregistrationCertificateCmd :: ()
+  => StakePoolDeregistrationCertificateCmdArgs era
+  -> ExceptT StakePoolCmdError IO ()
+runStakePoolDeregistrationCertificateCmd :: forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolDeregistrationCertificateCmd
+    Cmd.StakePoolDeregistrationCertificateCmdArgs
+      { ShelleyBasedEra era
+$sel:sbe:StakePoolDeregistrationCertificateCmdArgs :: forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> ShelleyBasedEra era
+sbe :: ShelleyBasedEra era
+sbe
+      , VerificationKeyOrFile StakePoolKey
+$sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgs :: forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile :: VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+      , EpochNo
+$sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgs :: forall era.
+StakePoolDeregistrationCertificateCmdArgs era -> EpochNo
+retireEpoch :: EpochNo
+retireEpoch
+      , File () 'Out
+$sel:outFile:StakePoolDeregistrationCertificateCmdArgs :: forall era.
+StakePoolDeregistrationCertificateCmdArgs era -> File () 'Out
+outFile :: File () 'Out
+outFile
+      } =
+  forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+    -- Pool verification key
+    VerificationKey StakePoolKey
+stakePoolVerKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+
+    let stakePoolId' :: Hash StakePoolKey
+stakePoolId' = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakePoolKey
+stakePoolVerKey
+        req :: StakePoolRetirementRequirements era
+req = forall era.
+ShelleyBasedEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+createStakePoolRetirementRequirements ShelleyBasedEra era
+sbe Hash StakePoolKey
+stakePoolId' EpochNo
+retireEpoch
+        retireCert :: Certificate era
+retireCert = forall era. StakePoolRetirementRequirements era -> Certificate era
+makeStakePoolRetirementCertificate StakePoolRetirementRequirements era
+req
+
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakePoolCmdError
+StakePoolCmdWriteFileError
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+      forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+      forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON (forall a. a -> Maybe a
+Just TextEnvelopeDescr
+retireCertDesc) Certificate era
+retireCert
+  where
+    retireCertDesc :: TextEnvelopeDescr
+    retireCertDesc :: TextEnvelopeDescr
+retireCertDesc = TextEnvelopeDescr
+"Stake Pool Retirement Certificate"
+
+createStakePoolRetirementRequirements :: ()
+  => ShelleyBasedEra era
+  -> PoolId
+  -> Ledger.EpochNo
+  -> StakePoolRetirementRequirements era
+createStakePoolRetirementRequirements :: forall era.
+ShelleyBasedEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+createStakePoolRetirementRequirements ShelleyBasedEra era
+sbe Hash StakePoolKey
+pid EpochNo
+epoch =
+  case ShelleyBasedEra era
+sbe of
+    ShelleyBasedEra era
+ShelleyBasedEraShelley ->
+      forall era.
+ShelleyToBabbageEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsPreConway ShelleyToBabbageEra ShelleyEra
+ShelleyToBabbageEraShelley Hash StakePoolKey
+pid EpochNo
+epoch
+    ShelleyBasedEra era
+ShelleyBasedEraAllegra ->
+      forall era.
+ShelleyToBabbageEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsPreConway ShelleyToBabbageEra AllegraEra
+ShelleyToBabbageEraAllegra Hash StakePoolKey
+pid EpochNo
+epoch
+    ShelleyBasedEra era
+ShelleyBasedEraMary ->
+      forall era.
+ShelleyToBabbageEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsPreConway ShelleyToBabbageEra MaryEra
+ShelleyToBabbageEraMary Hash StakePoolKey
+pid EpochNo
+epoch
+    ShelleyBasedEra era
+ShelleyBasedEraAlonzo ->
+      forall era.
+ShelleyToBabbageEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsPreConway ShelleyToBabbageEra AlonzoEra
+ShelleyToBabbageEraAlonzo Hash StakePoolKey
+pid EpochNo
+epoch
+    ShelleyBasedEra era
+ShelleyBasedEraBabbage ->
+      forall era.
+ShelleyToBabbageEra era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsPreConway ShelleyToBabbageEra BabbageEra
+ShelleyToBabbageEraBabbage Hash StakePoolKey
+pid EpochNo
+epoch
+    ShelleyBasedEra era
+ShelleyBasedEraConway ->
+      forall era.
+ConwayEraOnwards era
+-> Hash StakePoolKey
+-> EpochNo
+-> StakePoolRetirementRequirements era
+StakePoolRetirementRequirementsConwayOnwards ConwayEraOnwards ConwayEra
+ConwayEraOnwardsConway Hash StakePoolKey
+pid EpochNo
+epoch
+
+runStakePoolIdCmd :: ()
+  => StakePoolIdCmdArgs era
+  -> ExceptT StakePoolCmdError IO ()
+runStakePoolIdCmd :: forall era.
+StakePoolIdCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolIdCmd
+    Cmd.StakePoolIdCmdArgs
+      { VerificationKeyOrFile StakePoolKey
+$sel:poolVerificationKeyOrFile:StakePoolIdCmdArgs :: forall era.
+StakePoolIdCmdArgs era -> VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile :: VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+      , IdOutputFormat
+$sel:outputFormat:StakePoolIdCmdArgs :: forall era. StakePoolIdCmdArgs era -> IdOutputFormat
+outputFormat :: IdOutputFormat
+outputFormat
+      , Maybe (File () 'Out)
+$sel:mOutFile:StakePoolIdCmdArgs :: forall era. StakePoolIdCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  VerificationKey StakePoolKey
+stakePoolVerKey <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakePoolCmdError
+StakePoolCmdReadKeyFileError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakePoolKey
+AsStakePoolKey VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+
+  case IdOutputFormat
+outputFormat of
+    IdOutputFormat
+IdOutputFormatHex ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakePoolCmdError
+StakePoolCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakePoolKey
+stakePoolVerKey)
+    IdOutputFormat
+IdOutputFormatBech32 ->
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> StakePoolCmdError
+StakePoolCmdWriteFileError
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out) -> Text -> m (Either (FileError e) ())
+writeTextOutput Maybe (File () 'Out)
+mOutFile
+        forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsBech32 a => a -> Text
+serialiseToBech32 (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakePoolKey
+stakePoolVerKey)
+
+runStakePoolMetadataHashCmd :: ()
+  => StakePoolMetadataHashCmdArgs era
+  -> ExceptT StakePoolCmdError IO ()
+runStakePoolMetadataHashCmd :: forall era.
+StakePoolMetadataHashCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolMetadataHashCmd
+    Cmd.StakePoolMetadataHashCmdArgs
+      { StakePoolMetadataFile 'In
+$sel:poolMetadataFile:StakePoolMetadataHashCmdArgs :: forall era.
+StakePoolMetadataHashCmdArgs era -> StakePoolMetadataFile 'In
+poolMetadataFile :: StakePoolMetadataFile 'In
+poolMetadataFile
+      , Maybe (File () 'Out)
+$sel:mOutFile:StakePoolMetadataHashCmdArgs :: forall era.
+StakePoolMetadataHashCmdArgs era -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      } = do
+  ByteString
+metadataBytes <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'In -> m (Either (FileError e) ByteString)
+readByteStringFile StakePoolMetadataFile 'In
+poolMetadataFile)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError TextEnvelopeError -> StakePoolCmdError
+StakePoolCmdReadFileError)
+
+  (StakePoolMetadata
+_metadata, Hash StakePoolMetadata
+metadataHash) <-
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakePoolMetadataValidationError -> StakePoolCmdError
+StakePoolCmdMetadataValidationError
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+    forall a b. (a -> b) -> a -> b
+$ ByteString
+-> Either
+     StakePoolMetadataValidationError
+     (StakePoolMetadata, Hash StakePoolMetadata)
+validateAndHashStakePoolMetadata ByteString
+metadataBytes
+  case Maybe (File () 'Out)
+mOutFile of
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn (forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex Hash StakePoolMetadata
+metadataHash)
+    Just (File FilePath
+fpath) ->
+      forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> StakePoolCmdError
+StakePoolCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. FilePath -> IOException -> FileError e
+FileIOError FilePath
+fpath)
+        forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+BS.writeFile FilePath
+fpath (forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex Hash StakePoolMetadata
+metadataHash)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.TextView.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.TextView.html new file mode 100644 index 0000000000..ee4d527ce0 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.TextView.html @@ -0,0 +1,72 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Run.TextView
+  ( runTextViewCmds
+
+  , runTextViewInfoCmd
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands.TextView
+import           Cardano.CLI.Helpers (pPrintCBOR)
+import           Cardano.CLI.Types.Errors.TextViewFileError
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT, newExceptT)
+import qualified Data.ByteString.Lazy.Char8 as LBS
+
+runTextViewCmds :: TextViewCmds era -> ExceptT TextViewFileError IO ()
+runTextViewCmds :: forall era. TextViewCmds era -> ExceptT TextViewFileError IO ()
+runTextViewCmds = \case
+  TextViewInfo FilePath
+fpath Maybe (File () 'Out)
+mOutfile -> FilePath -> Maybe (File () 'Out) -> ExceptT TextViewFileError IO ()
+runTextViewInfoCmd FilePath
+fpath Maybe (File () 'Out)
+mOutfile
+
+runTextViewInfoCmd :: ()
+  => FilePath
+  -> Maybe (File () Out)
+  -> ExceptT TextViewFileError IO ()
+runTextViewInfoCmd :: FilePath -> Maybe (File () 'Out) -> ExceptT TextViewFileError IO ()
+runTextViewInfoCmd FilePath
+fpath Maybe (File () 'Out)
+mOutFile = do
+  TextEnvelope
+tv <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> TextViewFileError
+TextViewReadFileError forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT (FilePath -> IO (Either (FileError TextEnvelopeError) TextEnvelope)
+readTextEnvelopeFromFile FilePath
+fpath)
+  let lbCBOR :: ByteString
+lbCBOR = ByteString -> ByteString
+LBS.fromStrict (TextEnvelope -> ByteString
+textEnvelopeRawCBOR TextEnvelope
+tv)
+  case Maybe (File () 'Out)
+mOutFile of
+    Just (File FilePath
+oFpath) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+LBS.writeFile FilePath
+oFpath ByteString
+lbCBOR
+    Maybe (File () 'Out)
+Nothing -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT HelpersError -> TextViewFileError
+TextViewCBORPrettyPrintError forall a b. (a -> b) -> a -> b
+$ ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+lbCBOR
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Transaction.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Transaction.html new file mode 100644 index 0000000000..3c4f03cf30 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.Transaction.html @@ -0,0 +1,4988 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TypeApplications #-}
+
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+{- HLINT ignore "Unused LANGUAGE pragma" -}
+{- HLINT ignore "Avoid lambda using `infix`" -}
+
+module Cardano.CLI.EraBased.Run.Transaction
+  ( runTransactionCmds
+  , runTransactionBuildCmd
+  , runTransactionBuildRawCmd
+  , runTransactionSignCmd
+  , runTransactionSubmitCmd
+  , runTransactionCalculateMinFeeCmd
+  , runTransactionCalculateMinValueCmd
+  , runTransactionPolicyIdCmd
+  , runTransactionHashScriptDataCmd
+  , runTransactionTxIdCmd
+  , runTransactionViewCmd
+  , runTransactionWitnessCmd
+  , runTransactionSignWitnessCmd
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Byron hiding (SomeByronSigningKey (..))
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Transaction as Cmd
+import           Cardano.CLI.EraBased.Run.Genesis
+import           Cardano.CLI.Json.Friendly (FriendlyFormat (..), friendlyTx, friendlyTxBody)
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.BootstrapWitnessError
+import           Cardano.CLI.Types.Errors.NodeEraMismatchError
+import           Cardano.CLI.Types.Errors.TxCmdError
+import           Cardano.CLI.Types.Errors.TxValidationError
+import           Cardano.CLI.Types.Output (renderScriptCosts)
+import           Cardano.CLI.Types.TxFeature
+import qualified Cardano.Ledger.Alonzo.Core as Ledger
+import qualified Ouroboros.Network.Protocol.LocalTxSubmission.Client as Net.Tx
+
+import           Control.Monad (forM)
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans (MonadTrans (..))
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, hoistMaybe, left,
+                   newExceptT, onLeft, onNothing)
+import           Data.Aeson.Encode.Pretty (encodePretty)
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Data ((:~:) (..))
+import           Data.Foldable (Foldable (..))
+import           Data.Function ((&))
+import qualified Data.List as List
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.Maybe (catMaybes, fromMaybe)
+import           Data.Set (Set)
+import qualified Data.Set as Set
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
+import           Data.Type.Equality (TestEquality (..))
+import           Lens.Micro ((^.))
+import qualified System.IO as IO
+
+
+runTransactionCmds :: Cmd.TransactionCmds era -> ExceptT TxCmdError IO ()
+runTransactionCmds :: forall era. TransactionCmds era -> ExceptT TxCmdError IO ()
+runTransactionCmds = \case
+  Cmd.TransactionBuildCmd             TransactionBuildCmdArgs era
+args -> forall era. TransactionBuildCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildCmd TransactionBuildCmdArgs era
+args
+  Cmd.TransactionBuildRawCmd          TransactionBuildRawCmdArgs era
+args -> forall era.
+TransactionBuildRawCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildRawCmd TransactionBuildRawCmdArgs era
+args
+  Cmd.TransactionSignCmd              TransactionSignCmdArgs
+args -> TransactionSignCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignCmd TransactionSignCmdArgs
+args
+  Cmd.TransactionSubmitCmd            TransactionSubmitCmdArgs
+args -> TransactionSubmitCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSubmitCmd TransactionSubmitCmdArgs
+args
+  Cmd.TransactionCalculateMinFeeCmd   TransactionCalculateMinFeeCmdArgs
+args -> TransactionCalculateMinFeeCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinFeeCmd TransactionCalculateMinFeeCmdArgs
+args
+  Cmd.TransactionCalculateMinValueCmd TransactionCalculateMinValueCmdArgs era
+args -> forall era.
+TransactionCalculateMinValueCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinValueCmd TransactionCalculateMinValueCmdArgs era
+args
+  Cmd.TransactionHashScriptDataCmd    TransactionHashScriptDataCmdArgs
+args -> TransactionHashScriptDataCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionHashScriptDataCmd TransactionHashScriptDataCmdArgs
+args
+  Cmd.TransactionTxIdCmd              TransactionTxIdCmdArgs
+args -> TransactionTxIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionTxIdCmd TransactionTxIdCmdArgs
+args
+  Cmd.TransactionViewCmd              TransactionViewCmdArgs
+args -> TransactionViewCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionViewCmd TransactionViewCmdArgs
+args
+  Cmd.TransactionPolicyIdCmd          TransactionPolicyIdCmdArgs
+args -> TransactionPolicyIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionPolicyIdCmd TransactionPolicyIdCmdArgs
+args
+  Cmd.TransactionWitnessCmd           TransactionWitnessCmdArgs
+args -> TransactionWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionWitnessCmd TransactionWitnessCmdArgs
+args
+  Cmd.TransactionSignWitnessCmd       TransactionSignWitnessCmdArgs
+args -> TransactionSignWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignWitnessCmd TransactionSignWitnessCmdArgs
+args
+
+-- ----------------------------------------------------------------------------
+-- Building transactions
+--
+
+runTransactionBuildCmd :: ()
+  => Cmd.TransactionBuildCmdArgs era
+  -> ExceptT TxCmdError IO ()
+runTransactionBuildCmd :: forall era. TransactionBuildCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildCmd
+    Cmd.TransactionBuildCmdArgs
+      { ShelleyBasedEra era
+$sel:eon:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> ShelleyBasedEra era
+eon :: ShelleyBasedEra era
+eon
+      , SocketPath
+$sel:nodeSocketPath:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> SocketPath
+nodeSocketPath :: SocketPath
+nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+consensusModeParams
+      , $sel:networkId:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> NetworkId
+networkId = NetworkId
+networkId
+      , $sel:mScriptValidity:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> Maybe ScriptValidity
+mScriptValidity = Maybe ScriptValidity
+mScriptValidity
+      , $sel:mOverrideWitnesses:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> Maybe Word
+mOverrideWitnesses = Maybe Word
+mOverrideWitnesses
+      , [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+$sel:txins:TransactionBuildCmdArgs :: forall era.
+TransactionBuildCmdArgs era
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins :: [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins
+      , [TxIn]
+$sel:readOnlyReferenceInputs:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [TxIn]
+readOnlyReferenceInputs :: [TxIn]
+readOnlyReferenceInputs
+      , $sel:requiredSigners:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [RequiredSigner]
+requiredSigners = [RequiredSigner]
+reqSigners
+      , [TxIn]
+$sel:txinsc:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [TxIn]
+txinsc :: [TxIn]
+txinsc
+      , $sel:mReturnCollateral:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> Maybe TxOutAnyEra
+mReturnCollateral = Maybe TxOutAnyEra
+mReturnColl
+      , Maybe Lovelace
+$sel:mTotalCollateral:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> Maybe Lovelace
+mTotalCollateral :: Maybe Lovelace
+mTotalCollateral
+      , [TxOutAnyEra]
+$sel:txouts:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [TxOutAnyEra]
+txouts :: [TxOutAnyEra]
+txouts
+      , TxOutChangeAddress
+$sel:changeAddresses:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> TxOutChangeAddress
+changeAddresses :: TxOutChangeAddress
+changeAddresses
+      , Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+$sel:mValue:TransactionBuildCmdArgs :: forall era.
+TransactionBuildCmdArgs era
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue :: Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue
+      , Maybe SlotNo
+$sel:mValidityLowerBound:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> Maybe SlotNo
+mValidityLowerBound :: Maybe SlotNo
+mValidityLowerBound
+      , TxValidityUpperBound era
+$sel:mValidityUpperBound:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> TxValidityUpperBound era
+mValidityUpperBound :: TxValidityUpperBound era
+mValidityUpperBound
+      , [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+$sel:certificates:TransactionBuildCmdArgs :: forall era.
+TransactionBuildCmdArgs era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates :: [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates
+      , [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+$sel:withdrawals:TransactionBuildCmdArgs :: forall era.
+TransactionBuildCmdArgs era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals :: [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals
+      , TxMetadataJsonSchema
+$sel:metadataSchema:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> TxMetadataJsonSchema
+metadataSchema :: TxMetadataJsonSchema
+metadataSchema
+      , [ScriptFile]
+$sel:scriptFiles:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [ScriptFile]
+scriptFiles :: [ScriptFile]
+scriptFiles
+      , [MetadataFile]
+$sel:metadataFiles:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [MetadataFile]
+metadataFiles :: [MetadataFile]
+metadataFiles
+      , Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+$sel:mfUpdateProposalFile:TransactionBuildCmdArgs :: forall era.
+TransactionBuildCmdArgs era
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile :: Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile
+      , [VoteFile 'In]
+$sel:voteFiles:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [VoteFile 'In]
+voteFiles :: [VoteFile 'In]
+voteFiles
+      , [ProposalFile 'In]
+$sel:proposalFiles:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> [ProposalFile 'In]
+proposalFiles :: [ProposalFile 'In]
+proposalFiles
+      , TxBuildOutputOptions
+$sel:buildOutputOptions:TransactionBuildCmdArgs :: forall era. TransactionBuildCmdArgs era -> TxBuildOutputOptions
+buildOutputOptions :: TxBuildOutputOptions
+buildOutputOptions
+      } = forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+eon forall a b. (a -> b) -> a -> b
+$ do
+  let era :: CardanoEra era
+era = forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+eon
+
+  -- The user can specify an era prior to the era that the node is currently in.
+  -- We cannot use the user specified era to construct a query against a node because it may differ
+  -- from the node's era and this will result in the 'QueryEraMismatch' failure.
+
+  let localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = LocalNodeConnectInfo
+                            { localConsensusModeParams :: ConsensusModeParams
+localConsensusModeParams = ConsensusModeParams
+consensusModeParams
+                            , localNodeNetworkId :: NetworkId
+localNodeNetworkId = NetworkId
+networkId
+                            , localNodeSocketPath :: SocketPath
+localNodeSocketPath = SocketPath
+nodeSocketPath
+                            }
+
+  [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError forall a b. (a -> b) -> a -> b
+$ forall era a ctx.
+CardanoEra era
+-> [(a, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles CardanoEra era
+era [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins
+  [(CertificateFile, Maybe (ScriptWitness WitCtxStake era))]
+certFilesAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError forall a b. (a -> b) -> a -> b
+$ forall era a ctx.
+CardanoEra era
+-> [(a, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles CardanoEra era
+era [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates
+
+  -- TODO: Conway Era - How can we make this more composable?
+  [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits <-
+      forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+        [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (,Maybe (ScriptWitness WitCtxStake era)
+mSwit) (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> TxCmdError
+TxCmdReadTextViewFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+            forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope forall era. AsType (Certificate era)
+AsCertificate (forall content (direction :: FileDirection).
+FilePath -> File content direction
+File FilePath
+certFile))
+        | (CertificateFile FilePath
+certFile, Maybe (ScriptWitness WitCtxStake era)
+mSwit) <- [(CertificateFile, Maybe (ScriptWitness WitCtxStake era))]
+certFilesAndMaybeScriptWits
+        ]
+  [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawalsAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError forall a b. (a -> b) -> a -> b
+$
+    forall era a b ctx.
+CardanoEra era
+-> [(a, b, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFilesThruple CardanoEra era
+era [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals
+  TxMetadataInEra era
+txMetadata <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT MetadataError -> TxCmdError
+TxCmdMetadataError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+    forall era.
+CardanoEra era
+-> TxMetadataJsonSchema
+-> [MetadataFile]
+-> IO (Either MetadataError (TxMetadataInEra era))
+readTxMetadata CardanoEra era
+era TxMetadataJsonSchema
+metadataSchema [MetadataFile]
+metadataFiles
+  (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits <- forall era.
+CardanoEra era
+-> (Value, [ScriptWitnessFiles WitCtxMint])
+-> ExceptT TxCmdError IO (Value, [ScriptWitness WitCtxMint era])
+readValueScriptWitnesses CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a -> a
+fromMaybe forall a. Monoid a => a
+mempty Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue
+  [ScriptInAnyLang]
+scripts <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> TxCmdError
+TxCmdScriptFileError forall a b. (a -> b) -> a -> b
+$
+    forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ScriptFile -> FilePath
+unScriptFile) [ScriptFile]
+scriptFiles
+  TxAuxScripts era
+txAuxScripts <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxAuxScriptsValidationError -> TxCmdError
+TxCmdAuxScriptsValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [ScriptInAnyLang]
+-> Either TxAuxScriptsValidationError (TxAuxScripts era)
+validateTxAuxScripts CardanoEra era
+era [ScriptInAnyLang]
+scripts
+
+  TxUpdateProposal era
+mProp <- case Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile of
+    Just (Featured ShelleyToBabbageEra era
+w (Just UpdateProposalFile
+updateProposalFile)) ->
+      forall era.
+ShelleyToBabbageEra era
+-> UpdateProposalFile
+-> ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)
+readTxUpdateProposal ShelleyToBabbageEra era
+w UpdateProposalFile
+updateProposalFile forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> TxCmdError
+TxCmdReadTextViewFileError
+    Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+_ -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. TxUpdateProposal era
+TxUpdateProposalNone
+
+  [Hash PaymentKey]
+requiredSigners  <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT RequiredSignerError -> TxCmdError
+TxCmdRequiredSignerError forall b c a. (b -> c) -> (a -> b) -> a -> c
+.  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. RequiredSigner -> IO (Either RequiredSignerError (Hash PaymentKey))
+readRequiredSigner) [RequiredSigner]
+reqSigners
+  Maybe (TxOut CtxTx era)
+mReturnCollateral <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe TxOutAnyEra
+mReturnColl forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+era
+
+  [TxOut CtxTx era]
+txOuts <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+era) [TxOutAnyEra]
+txouts
+
+  -- Conway related
+  VotingProcedures era
+votingProcedures <-
+    forall (eon :: * -> *) a era.
+Eon eon =>
+a -> (eon era -> a) -> CardanoEra era -> a
+inEonForEra
+      (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. VotingProcedures era
+emptyVotingProcedures)
+      (\ConwayEraOnwards era
+w -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VoteError -> TxCmdError
+TxCmdVoteError forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall era.
+ConwayEraOnwards era
+-> [VoteFile 'In] -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFiles ConwayEraOnwards era
+w [VoteFile 'In]
+voteFiles))
+      CardanoEra era
+era
+
+  [Proposal era]
+proposals <- forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ConstitutionError -> TxCmdError
+TxCmdConstitutionError
+                  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era.
+CardanoEra era
+-> [ProposalFile 'In]
+-> IO (Either ConstitutionError [Proposal era])
+readTxGovernanceActions CardanoEra era
+era [ProposalFile 'In]
+proposalFiles
+
+  -- the same collateral input can be used for several plutus scripts
+  let filteredTxinsc :: [TxIn]
+filteredTxinsc = forall a. Set a -> [a]
+Set.toList forall a b. (a -> b) -> a -> b
+$ forall a. Ord a => [a] -> Set a
+Set.fromList [TxIn]
+txinsc
+
+  -- We need to construct the txBodycontent outside of runTxBuild
+  BalancedTxBody TxBodyContent BuildTx era
+txBodyContent TxBody era
+balancedTxBody TxOut CtxTx era
+_ Lovelace
+_ <-
+    forall era.
+ShelleyBasedEra era
+-> SocketPath
+-> NetworkId
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe (TxOut CtxTx era)
+-> Maybe Lovelace
+-> [TxOut CtxTx era]
+-> TxOutChangeAddress
+-> (Value, [ScriptWitness WitCtxMint era])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [Hash PaymentKey]
+-> TxAuxScripts era
+-> TxMetadataInEra era
+-> TxUpdateProposal era
+-> Maybe Word
+-> VotingProcedures era
+-> [Proposal era]
+-> TxBuildOutputOptions
+-> ExceptT TxCmdError IO (BalancedTxBody era)
+runTxBuild
+      ShelleyBasedEra era
+eon SocketPath
+nodeSocketPath NetworkId
+networkId Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits [TxIn]
+readOnlyReferenceInputs
+      [TxIn]
+filteredTxinsc Maybe (TxOut CtxTx era)
+mReturnCollateral Maybe Lovelace
+mTotalCollateral [TxOut CtxTx era]
+txOuts TxOutChangeAddress
+changeAddresses (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits
+      Maybe SlotNo
+mValidityLowerBound TxValidityUpperBound era
+mValidityUpperBound [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawalsAndMaybeScriptWits
+      [Hash PaymentKey]
+requiredSigners TxAuxScripts era
+txAuxScripts TxMetadataInEra era
+txMetadata TxUpdateProposal era
+mProp Maybe Word
+mOverrideWitnesses VotingProcedures era
+votingProcedures [Proposal era]
+proposals TxBuildOutputOptions
+buildOutputOptions
+
+  let mScriptWits :: [(ScriptWitnessIndex, AnyScriptWitness era)]
+mScriptWits =
+        forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+era [] forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe -> forall era.
+ShelleyBasedEra era
+-> TxBodyContent BuildTx era
+-> [(ScriptWitnessIndex, AnyScriptWitness era)]
+collectTxBodyScriptWitnesses ShelleyBasedEra era
+sbe TxBodyContent BuildTx era
+txBodyContent
+
+  let allReferenceInputs :: [TxIn]
+allReferenceInputs = forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [ScriptWitness WitCtxMint era]
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [TxIn]
+-> [TxIn]
+getAllReferenceInputs
+                             [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+                             (forall a b. (a, b) -> b
+snd (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits)
+                             [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits
+                             [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawalsAndMaybeScriptWits
+                             [TxIn]
+readOnlyReferenceInputs
+
+  let inputsThatRequireWitnessing :: [TxIn]
+inputsThatRequireWitnessing = [TxIn
+input | (TxIn
+input,Maybe (ScriptWitness WitCtxTxIn era)
+_) <- [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits]
+      allTxInputs :: [TxIn]
+allTxInputs = [TxIn]
+inputsThatRequireWitnessing forall a. [a] -> [a] -> [a]
+++ [TxIn]
+allReferenceInputs forall a. [a] -> [a] -> [a]
+++ [TxIn]
+filteredTxinsc
+
+  -- TODO: Calculating the script cost should live as a different command.
+  -- Why? Because then we can simply read a txbody and figure out
+  -- the script cost vs having to build the tx body each time
+  case TxBuildOutputOptions
+buildOutputOptions of
+    OutputScriptCostOnly File () 'Out
+fp -> do
+      let BuildTxWith Maybe (LedgerProtocolParameters era)
+mTxProtocolParams = forall build era.
+TxBodyContent build era
+-> BuildTxWith build (Maybe (LedgerProtocolParameters era))
+txProtocolParams TxBodyContent BuildTx era
+txBodyContent
+
+      LedgerProtocolParameters era
+pparams <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure Maybe (LedgerProtocolParameters era)
+mTxProtocolParams forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left TxCmdError
+TxCmdProtocolParametersNotPresentInTxBody)
+      Prices
+executionUnitPrices <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+CardanoEra era -> LedgerProtocolParameters era -> Maybe Prices
+getExecutionUnitPrices CardanoEra era
+era LedgerProtocolParameters era
+pparams) forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left TxCmdError
+TxCmdPParamExecutionUnitsNotAvailable)
+
+      AnyCardanoEra CardanoEra era
+nodeEra <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryConvenienceError
+AcqFailure)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryConvenienceError
+QceUnsupportedNtcVersion)
+
+      (UTxO era
+txEraUtxo, LedgerProtocolParameters era
+_, EraHistory
+eraHistory, SystemStart
+systemStart, Set PoolId
+_, Map StakeCredential Lovelace
+_, Map (Credential 'DRepRole StandardCrypto) Lovelace
+_) <-
+        forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing (forall era block point r.
+CardanoEra era
+-> [TxIn]
+-> [Certificate era]
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        QueryConvenienceError
+        (UTxO era, LedgerProtocolParameters era, EraHistory, SystemStart,
+         Set PoolId, Map StakeCredential Lovelace,
+         Map (Credential 'DRepRole StandardCrypto) Lovelace))
+queryStateForBalancedTx CardanoEra era
+nodeEra [TxIn]
+allTxInputs []))
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryConvenienceError
+AcqFailure)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError)
+
+      era :~: era
+Refl <- forall {k} (f :: k -> *) (a :: k) (b :: k).
+TestEquality f =>
+f a -> f b -> Maybe (a :~: b)
+testEquality CardanoEra era
+era CardanoEra era
+nodeEra
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (NodeEraMismatchError -> TxCmdError
+TxCmdTxNodeEraMismatchError forall a b. (a -> b) -> a -> b
+$ forall era nodeEra.
+CardanoEra era -> CardanoEra nodeEra -> NodeEraMismatchError
+NodeEraMismatchError CardanoEra era
+era CardanoEra era
+nodeEra)
+
+      Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+scriptExecUnitsMap <-
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TransactionValidityError -> TxCmdError
+TxCmdTxExecUnitsErr forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+          forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> SystemStart
+-> LedgerEpochInfo
+-> LedgerProtocolParameters era
+-> UTxO era
+-> TxBody era
+-> Either
+     TransactionValidityError
+     (Map
+        ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits))
+evaluateTransactionExecutionUnits CardanoEra era
+era
+              SystemStart
+systemStart (EraHistory -> LedgerEpochInfo
+toLedgerEpochInfo EraHistory
+eraHistory)
+              LedgerProtocolParameters era
+pparams UTxO era
+txEraUtxo TxBody era
+balancedTxBody
+
+      [ScriptCostOutput]
+scriptCostOutput <-
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT PlutusScriptCostError -> TxCmdError
+TxCmdPlutusScriptCostErr forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+          forall a b. (a -> b) -> a -> b
+$ forall era.
+UTxO era
+-> Prices
+-> [(ScriptWitnessIndex, AnyScriptWitness era)]
+-> Map
+     ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+-> Either PlutusScriptCostError [ScriptCostOutput]
+renderScriptCosts
+              UTxO era
+txEraUtxo
+              Prices
+executionUnitPrices
+              [(ScriptWitnessIndex, AnyScriptWitness era)]
+mScriptWits
+              Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+scriptExecUnitsMap
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> ByteString -> IO ()
+LBS.writeFile (forall content (direction :: FileDirection).
+File content direction -> FilePath
+unFile File () 'Out
+fp) forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> ByteString
+encodePretty [ScriptCostOutput]
+scriptCostOutput
+
+    OutputTxBodyOnly TxBodyFile 'Out
+fpath ->
+      let noWitTx :: Tx era
+noWitTx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [] TxBody era
+balancedTxBody
+      in  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era content.
+CardanoEra era
+-> File content 'Out -> Tx era -> IO (Either (FileError ()) ())
+writeTxFileTextEnvelopeCddl CardanoEra era
+era TxBodyFile 'Out
+fpath Tx era
+noWitTx)
+            forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+getExecutionUnitPrices :: CardanoEra era -> LedgerProtocolParameters era -> Maybe Ledger.Prices
+getExecutionUnitPrices :: forall era.
+CardanoEra era -> LedgerProtocolParameters era -> Maybe Prices
+getExecutionUnitPrices CardanoEra era
+cEra (LedgerProtocolParameters PParams (ShelleyLedgerEra era)
+pp) =
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+cEra forall a b. (a -> b) -> a -> b
+$ \AlonzoEraOnwards era
+aeo ->
+    forall era a.
+AlonzoEraOnwards era -> (AlonzoEraOnwardsConstraints era => a) -> a
+alonzoEraOnwardsConstraints AlonzoEraOnwards era
+aeo forall a b. (a -> b) -> a -> b
+$
+      PParams (ShelleyLedgerEra era)
+pp forall s a. s -> Getting a s a -> a
+^. forall era. AlonzoEraPParams era => Lens' (PParams era) Prices
+Ledger.ppPricesL
+
+runTransactionBuildRawCmd :: ()
+  => Cmd.TransactionBuildRawCmdArgs era
+  -> ExceptT TxCmdError IO ()
+runTransactionBuildRawCmd :: forall era.
+TransactionBuildRawCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildRawCmd
+    Cmd.TransactionBuildRawCmdArgs
+      { CardanoEra era
+$sel:eon:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> CardanoEra era
+eon :: CardanoEra era
+eon
+      , Maybe ScriptValidity
+$sel:mScriptValidity:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> Maybe ScriptValidity
+mScriptValidity :: Maybe ScriptValidity
+mScriptValidity
+      , [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+$sel:txIns:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txIns :: [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txIns
+      , [TxIn]
+$sel:readOnlyRefIns:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [TxIn]
+readOnlyRefIns :: [TxIn]
+readOnlyRefIns
+      , [TxIn]
+$sel:txInsCollateral:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [TxIn]
+txInsCollateral :: [TxIn]
+txInsCollateral
+      , $sel:mReturnCollateral:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> Maybe TxOutAnyEra
+mReturnCollateral = Maybe TxOutAnyEra
+mReturnColl
+      , Maybe Lovelace
+$sel:mTotalCollateral:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> Maybe Lovelace
+mTotalCollateral :: Maybe Lovelace
+mTotalCollateral
+      , $sel:requiredSigners:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [RequiredSigner]
+requiredSigners = [RequiredSigner]
+reqSigners
+      , [TxOutAnyEra]
+$sel:txouts:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [TxOutAnyEra]
+txouts :: [TxOutAnyEra]
+txouts
+      , Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+$sel:mValue:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue :: Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue
+      , Maybe SlotNo
+$sel:mValidityLowerBound:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> Maybe SlotNo
+mValidityLowerBound :: Maybe SlotNo
+mValidityLowerBound
+      , TxValidityUpperBound era
+$sel:mValidityUpperBound:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era -> TxValidityUpperBound era
+mValidityUpperBound :: TxValidityUpperBound era
+mValidityUpperBound
+      , Maybe Lovelace
+$sel:fee:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> Maybe Lovelace
+fee :: Maybe Lovelace
+fee
+      , [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+$sel:certificates:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates :: [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates
+      , [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+$sel:withdrawals:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals :: [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals
+      , TxMetadataJsonSchema
+$sel:metadataSchema:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> TxMetadataJsonSchema
+metadataSchema :: TxMetadataJsonSchema
+metadataSchema
+      , [ScriptFile]
+$sel:scriptFiles:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [ScriptFile]
+scriptFiles :: [ScriptFile]
+scriptFiles
+      , [MetadataFile]
+$sel:metadataFiles:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [MetadataFile]
+metadataFiles :: [MetadataFile]
+metadataFiles
+      , Maybe ProtocolParamsFile
+$sel:mProtocolParamsFile:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era -> Maybe ProtocolParamsFile
+mProtocolParamsFile :: Maybe ProtocolParamsFile
+mProtocolParamsFile
+      , Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+$sel:mUpdateProprosalFile:TransactionBuildRawCmdArgs :: forall era.
+TransactionBuildRawCmdArgs era
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mUpdateProprosalFile :: Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mUpdateProprosalFile
+      , [VoteFile 'In]
+$sel:voteFiles:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [VoteFile 'In]
+voteFiles :: [VoteFile 'In]
+voteFiles
+      , [ProposalFile 'In]
+$sel:proposalFiles:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> [ProposalFile 'In]
+proposalFiles :: [ProposalFile 'In]
+proposalFiles
+      , TxBodyFile 'Out
+$sel:txBodyOutFile:TransactionBuildRawCmdArgs :: forall era. TransactionBuildRawCmdArgs era -> TxBodyFile 'Out
+txBodyOutFile :: TxBodyFile 'Out
+txBodyOutFile
+      } = do
+  [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError
+                                forall a b. (a -> b) -> a -> b
+$ forall era a ctx.
+CardanoEra era
+-> [(a, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles CardanoEra era
+eon [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txIns
+  [(CertificateFile, Maybe (ScriptWitness WitCtxStake era))]
+certFilesAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError
+                                   forall a b. (a -> b) -> a -> b
+$ forall era a ctx.
+CardanoEra era
+-> [(a, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles CardanoEra era
+eon [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certificates
+
+  -- TODO: Conway era - How can we make this more composable?
+  [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits <-
+    forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+eon  (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Monoid a => a
+mempty) forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe ->
+      forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$
+        forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+          [ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (,Maybe (ScriptWitness WitCtxStake era)
+mSwit) (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> TxCmdError
+TxCmdReadTextViewFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+              forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope forall era. AsType (Certificate era)
+AsCertificate (forall content (direction :: FileDirection).
+FilePath -> File content direction
+File FilePath
+certFile))
+          | (CertificateFile FilePath
+certFile, Maybe (ScriptWitness WitCtxStake era)
+mSwit) <- [(CertificateFile, Maybe (ScriptWitness WitCtxStake era))]
+certFilesAndMaybeScriptWits
+          ]
+
+  [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawalsAndMaybeScriptWits <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError
+                                     forall a b. (a -> b) -> a -> b
+$ forall era a b ctx.
+CardanoEra era
+-> [(a, b, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFilesThruple CardanoEra era
+eon [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+withdrawals
+  TxMetadataInEra era
+txMetadata <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT MetadataError -> TxCmdError
+TxCmdMetadataError
+                  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> TxMetadataJsonSchema
+-> [MetadataFile]
+-> IO (Either MetadataError (TxMetadataInEra era))
+readTxMetadata CardanoEra era
+eon TxMetadataJsonSchema
+metadataSchema [MetadataFile]
+metadataFiles
+  (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits <- forall era.
+CardanoEra era
+-> (Value, [ScriptWitnessFiles WitCtxMint])
+-> ExceptT TxCmdError IO (Value, [ScriptWitness WitCtxMint era])
+readValueScriptWitnesses CardanoEra era
+eon forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a -> a
+fromMaybe forall a. Monoid a => a
+mempty Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue
+  [ScriptInAnyLang]
+scripts <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> TxCmdError
+TxCmdScriptFileError forall a b. (a -> b) -> a -> b
+$
+                     forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ScriptFile -> FilePath
+unScriptFile) [ScriptFile]
+scriptFiles
+  TxAuxScripts era
+txAuxScripts <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxAuxScriptsValidationError -> TxCmdError
+TxCmdAuxScriptsValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [ScriptInAnyLang]
+-> Either TxAuxScriptsValidationError (TxAuxScripts era)
+validateTxAuxScripts CardanoEra era
+eon [ScriptInAnyLang]
+scripts
+
+  -- TODO: Conway era - update readProtocolParameters to rely on Ledger.PParams JSON instances
+  Maybe ProtocolParameters
+pparams <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe ProtocolParamsFile
+mProtocolParamsFile forall a b. (a -> b) -> a -> b
+$ \ProtocolParamsFile
+ppf ->
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ProtocolParamsError -> TxCmdError
+TxCmdProtocolParamsError (ProtocolParamsFile
+-> ExceptT ProtocolParamsError IO ProtocolParameters
+readProtocolParameters ProtocolParamsFile
+ppf)
+
+  Maybe (LedgerProtocolParameters era)
+mLedgerPParams <-
+    forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+eon (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing) forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe ->
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe ProtocolParameters
+pparams forall a b. (a -> b) -> a -> b
+$ \ProtocolParameters
+pp ->
+        forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ProtocolParametersConversionError -> TxCmdError
+TxCmdProtocolParamsConverstionError
+         forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> ProtocolParameters
+-> Either
+     ProtocolParametersConversionError (LedgerProtocolParameters era)
+convertToLedgerProtocolParameters ShelleyBasedEra era
+sbe ProtocolParameters
+pp
+
+  TxUpdateProposal era
+txUpdateProposal <- case Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mUpdateProprosalFile of
+    Just (Featured ShelleyToBabbageEra era
+w (Just UpdateProposalFile
+updateProposalFile)) ->
+      forall era.
+ShelleyToBabbageEra era
+-> UpdateProposalFile
+-> ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)
+readTxUpdateProposal ShelleyToBabbageEra era
+w UpdateProposalFile
+updateProposalFile forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> TxCmdError
+TxCmdReadTextViewFileError
+    Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+_ -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. TxUpdateProposal era
+TxUpdateProposalNone
+
+  [Hash PaymentKey]
+requiredSigners  <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT RequiredSignerError -> TxCmdError
+TxCmdRequiredSignerError forall b c a. (b -> c) -> (a -> b) -> a -> c
+.  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. RequiredSigner -> IO (Either RequiredSignerError (Hash PaymentKey))
+readRequiredSigner) [RequiredSigner]
+reqSigners
+  Maybe (TxOut CtxTx era)
+mReturnCollateral <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM Maybe TxOutAnyEra
+mReturnColl forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+eon
+  [TxOut CtxTx era]
+txOuts <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+eon) [TxOutAnyEra]
+txouts
+
+    -- the same collateral input can be used for several plutus scripts
+  let filteredTxinsc :: [TxIn]
+filteredTxinsc = forall a. Set a -> [a]
+Set.toList forall a b. (a -> b) -> a -> b
+$ forall a. Ord a => [a] -> Set a
+Set.fromList [TxIn]
+txInsCollateral
+
+  -- Conway related
+  VotingProcedures era
+votingProcedures <-
+    forall (eon :: * -> *) a era.
+Eon eon =>
+a -> (eon era -> a) -> CardanoEra era -> a
+inEonForEra
+      (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. VotingProcedures era
+emptyVotingProcedures)
+      (\ConwayEraOnwards era
+w -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT VoteError -> TxCmdError
+TxCmdVoteError forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall era.
+ConwayEraOnwards era
+-> [VoteFile 'In] -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFiles ConwayEraOnwards era
+w [VoteFile 'In]
+voteFiles))
+      CardanoEra era
+eon
+
+  [Proposal era]
+proposals <-
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era.
+CardanoEra era
+-> [ProposalFile 'In]
+-> IO (Either ConstitutionError [Proposal era])
+readTxGovernanceActions CardanoEra era
+eon [ProposalFile 'In]
+proposalFiles)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ConstitutionError -> TxCmdError
+TxCmdConstitutionError)
+
+  TxBody era
+txBody <-
+    forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe (TxOut CtxTx era)
+-> Maybe Lovelace
+-> [TxOut CtxTx era]
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> Maybe Lovelace
+-> (Value, [ScriptWitness WitCtxMint era])
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [Hash PaymentKey]
+-> TxAuxScripts era
+-> TxMetadataInEra era
+-> Maybe (LedgerProtocolParameters era)
+-> TxUpdateProposal era
+-> VotingProcedures era
+-> [Proposal era]
+-> Either TxCmdError (TxBody era)
+runTxBuildRaw
+      CardanoEra era
+eon Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits [TxIn]
+readOnlyRefIns [TxIn]
+filteredTxinsc
+      Maybe (TxOut CtxTx era)
+mReturnCollateral Maybe Lovelace
+mTotalCollateral [TxOut CtxTx era]
+txOuts Maybe SlotNo
+mValidityLowerBound TxValidityUpperBound era
+mValidityUpperBound Maybe Lovelace
+fee (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits
+      [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawalsAndMaybeScriptWits [Hash PaymentKey]
+requiredSigners TxAuxScripts era
+txAuxScripts
+      TxMetadataInEra era
+txMetadata Maybe (LedgerProtocolParameters era)
+mLedgerPParams TxUpdateProposal era
+txUpdateProposal VotingProcedures era
+votingProcedures [Proposal era]
+proposals
+
+  let noWitTx :: Tx era
+noWitTx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [] TxBody era
+txBody
+  forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+eon forall a b. (a -> b) -> a -> b
+$ forall era content.
+CardanoEra era
+-> File content 'Out -> Tx era -> IO (Either (FileError ()) ())
+writeTxFileTextEnvelopeCddl CardanoEra era
+eon TxBodyFile 'Out
+txBodyOutFile Tx era
+noWitTx)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+
+runTxBuildRaw :: ()
+  => CardanoEra era
+  -> Maybe ScriptValidity
+  -- ^ Mark script as expected to pass or fail validation
+  -> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+  -- ^ TxIn with potential script witness
+  -> [TxIn]
+  -- ^ Read only reference inputs
+  -> [TxIn]
+  -- ^ TxIn for collateral
+  -> Maybe (TxOut CtxTx era)
+  -- ^ Return collateral
+  -> Maybe Lovelace
+  -- ^ Total collateral
+  -> [TxOut CtxTx era]
+  -> Maybe SlotNo
+  -- ^ Tx lower bound
+  -> TxValidityUpperBound era
+  -- ^ Tx upper bound
+  -> Maybe Lovelace
+  -- ^ Tx fee
+  -> (Value, [ScriptWitness WitCtxMint era])
+  -- ^ Multi-Asset value(s)
+  -> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+  -- ^ Certificate with potential script witness
+  -> [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+  -> [Hash PaymentKey]
+  -- ^ Required signers
+  -> TxAuxScripts era
+  -> TxMetadataInEra era
+  -> Maybe (LedgerProtocolParameters era)
+  -> TxUpdateProposal era
+  -> VotingProcedures era
+  -> [Proposal era]
+  -> Either TxCmdError (TxBody era)
+runTxBuildRaw :: forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe (TxOut CtxTx era)
+-> Maybe Lovelace
+-> [TxOut CtxTx era]
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> Maybe Lovelace
+-> (Value, [ScriptWitness WitCtxMint era])
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [Hash PaymentKey]
+-> TxAuxScripts era
+-> TxMetadataInEra era
+-> Maybe (LedgerProtocolParameters era)
+-> TxUpdateProposal era
+-> VotingProcedures era
+-> [Proposal era]
+-> Either TxCmdError (TxBody era)
+runTxBuildRaw CardanoEra era
+era
+              Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+              [TxIn]
+readOnlyRefIns [TxIn]
+txinsc
+              Maybe (TxOut CtxTx era)
+mReturnCollateral Maybe Lovelace
+mTotCollateral [TxOut CtxTx era]
+txouts
+              Maybe SlotNo
+mLowerBound TxValidityUpperBound era
+mUpperBound
+              Maybe Lovelace
+mFee (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits
+              [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeSriptWits [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals [Hash PaymentKey]
+reqSigners
+              TxAuxScripts era
+txAuxScripts TxMetadataInEra era
+txMetadata Maybe (LedgerProtocolParameters era)
+mpparams TxUpdateProposal era
+txUpdateProposal VotingProcedures era
+votingProcedures [Proposal era]
+proposals = do
+
+    let allReferenceInputs :: [TxIn]
+allReferenceInputs = forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [ScriptWitness WitCtxMint era]
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [TxIn]
+-> [TxIn]
+getAllReferenceInputs
+                               [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+                               (forall a b. (a, b) -> b
+snd (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits)
+                               [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeSriptWits
+                               [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals
+                               [TxIn]
+readOnlyRefIns
+
+    TxInsCollateral era
+validatedCollateralTxIns <- forall era.
+CardanoEra era -> [TxIn] -> Either TxCmdError (TxInsCollateral era)
+validateTxInsCollateral CardanoEra era
+era [TxIn]
+txinsc
+    TxInsReference BuildTx era
+validatedRefInputs <- forall era.
+CardanoEra era
+-> [TxIn] -> Either TxCmdError (TxInsReference BuildTx era)
+validateTxInsReference CardanoEra era
+era [TxIn]
+allReferenceInputs
+    TxTotalCollateral era
+validatedTotCollateral
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxTotalCollateralValidationError -> TxCmdError
+TxCmdTotalCollateralValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe Lovelace
+-> Either TxTotalCollateralValidationError (TxTotalCollateral era)
+validateTxTotalCollateral CardanoEra era
+era Maybe Lovelace
+mTotCollateral
+    TxReturnCollateral CtxTx era
+validatedRetCol
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxReturnCollateralValidationError -> TxCmdError
+TxCmdReturnCollateralValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe (TxOut CtxTx era)
+-> Either
+     TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)
+validateTxReturnCollateral CardanoEra era
+era Maybe (TxOut CtxTx era)
+mReturnCollateral
+    TxFee era
+validatedFee
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxFeeValidationError -> TxCmdError
+TxCmdTxFeeValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe Lovelace -> Either TxFeeValidationError (TxFee era)
+validateTxFee CardanoEra era
+era Maybe Lovelace
+mFee
+    TxValidityLowerBound era
+validatedLowerBound
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxValidityLowerBoundValidationError -> TxCmdError
+TxCmdTxValidityLowerBoundValidationError (forall era.
+CardanoEra era
+-> Maybe SlotNo
+-> Either
+     TxValidityLowerBoundValidationError (TxValidityLowerBound era)
+validateTxValidityLowerBound CardanoEra era
+era Maybe SlotNo
+mLowerBound)
+    TxExtraKeyWitnesses era
+validatedReqSigners
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxRequiredSignersValidationError -> TxCmdError
+TxCmdRequiredSignersValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [Hash PaymentKey]
+-> Either
+     TxRequiredSignersValidationError (TxExtraKeyWitnesses era)
+validateRequiredSigners CardanoEra era
+era [Hash PaymentKey]
+reqSigners
+    BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+validatedPParams
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxProtocolParametersValidationError -> TxCmdError
+TxCmdProtocolParametersValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe (LedgerProtocolParameters era)
+-> Either
+     TxProtocolParametersValidationError
+     (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))
+validateProtocolParameters CardanoEra era
+era Maybe (LedgerProtocolParameters era)
+mpparams
+    TxWithdrawals BuildTx era
+validatedTxWtdrwls
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxWithdrawalsValidationError -> TxCmdError
+TxCmdTxWithdrawalsValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)
+validateTxWithdrawals CardanoEra era
+era [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals
+    TxCertificates BuildTx era
+validatedTxCerts
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxCertificatesValidationError -> TxCmdError
+TxCmdTxCertificatesValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> Either
+     TxCertificatesValidationError (TxCertificates BuildTx era)
+validateTxCertificates CardanoEra era
+era [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeSriptWits
+    TxMintValue BuildTx era
+validatedMintValue
+      <- forall era.
+CardanoEra era
+-> (Value, [ScriptWitness WitCtxMint era])
+-> Either TxCmdError (TxMintValue BuildTx era)
+createTxMintValue CardanoEra era
+era (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits
+    TxScriptValidity era
+validatedTxScriptValidity
+      <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxScriptValidityValidationError -> TxCmdError
+TxCmdScriptValidityValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> Either TxScriptValidityValidationError (TxScriptValidity era)
+validateTxScriptValidity CardanoEra era
+era Maybe ScriptValidity
+mScriptValidity
+    let validatedTxProposal :: [Proposal era]
+validatedTxProposal = [Proposal era]
+proposals
+        validatedTxVotes :: VotingProcedures era
+validatedTxVotes = VotingProcedures era
+votingProcedures
+    let txBodyContent :: TxBodyContent BuildTx era
+txBodyContent =
+          TxBodyContent
+            { txIns :: TxIns BuildTx era
+txIns = forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [(TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))]
+validateTxIns [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+            , txInsCollateral :: TxInsCollateral era
+txInsCollateral = TxInsCollateral era
+validatedCollateralTxIns
+            , txInsReference :: TxInsReference BuildTx era
+txInsReference = TxInsReference BuildTx era
+validatedRefInputs
+            , txOuts :: [TxOut CtxTx era]
+txOuts = [TxOut CtxTx era]
+txouts
+            , txTotalCollateral :: TxTotalCollateral era
+txTotalCollateral = TxTotalCollateral era
+validatedTotCollateral
+            , txReturnCollateral :: TxReturnCollateral CtxTx era
+txReturnCollateral = TxReturnCollateral CtxTx era
+validatedRetCol
+            , txFee :: TxFee era
+txFee = TxFee era
+validatedFee
+            , txValidityLowerBound :: TxValidityLowerBound era
+txValidityLowerBound = TxValidityLowerBound era
+validatedLowerBound
+            , txValidityUpperBound :: TxValidityUpperBound era
+txValidityUpperBound = TxValidityUpperBound era
+mUpperBound
+            , txMetadata :: TxMetadataInEra era
+txMetadata = TxMetadataInEra era
+txMetadata
+            , txAuxScripts :: TxAuxScripts era
+txAuxScripts = TxAuxScripts era
+txAuxScripts
+            , txExtraKeyWits :: TxExtraKeyWitnesses era
+txExtraKeyWits = TxExtraKeyWitnesses era
+validatedReqSigners
+            , txProtocolParams :: BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+txProtocolParams = BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+validatedPParams
+            , txWithdrawals :: TxWithdrawals BuildTx era
+txWithdrawals = TxWithdrawals BuildTx era
+validatedTxWtdrwls
+            , txCertificates :: TxCertificates BuildTx era
+txCertificates = TxCertificates BuildTx era
+validatedTxCerts
+            , txUpdateProposal :: TxUpdateProposal era
+txUpdateProposal = TxUpdateProposal era
+txUpdateProposal
+            , txMintValue :: TxMintValue BuildTx era
+txMintValue = TxMintValue BuildTx era
+validatedMintValue
+            , txScriptValidity :: TxScriptValidity era
+txScriptValidity = TxScriptValidity era
+validatedTxScriptValidity
+            , txProposalProcedures :: Maybe (Featured ConwayEraOnwards era [Proposal era])
+txProposalProcedures = forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era (forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+`Featured` [Proposal era]
+validatedTxProposal)
+            , txVotingProcedures :: Maybe (Featured ConwayEraOnwards era (VotingProcedures era))
+txVotingProcedures = forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era (forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+`Featured` VotingProcedures era
+validatedTxVotes)
+            }
+
+    forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxBodyError -> TxCmdError
+TxCmdTxBodyError forall a b. (a -> b) -> a -> b
+$
+      forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> TxBodyContent BuildTx era -> Either TxBodyError (TxBody era)
+createAndValidateTransactionBody CardanoEra era
+era TxBodyContent BuildTx era
+txBodyContent
+
+runTxBuild :: ()
+  => ShelleyBasedEra era
+  -> SocketPath
+  -> NetworkId
+  -> Maybe ScriptValidity
+  -- ^ Mark script as expected to pass or fail validation
+  -> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+  -- ^ Read only reference inputs
+  -> [TxIn]
+  -- ^ TxIn with potential script witness
+  -> [TxIn]
+  -- ^ TxIn for collateral
+  -> Maybe (TxOut CtxTx era)
+  -- ^ Return collateral
+  -> Maybe Lovelace
+  -- ^ Total collateral
+  -> [TxOut CtxTx era]
+  -- ^ Normal outputs
+  -> TxOutChangeAddress
+  -- ^ A change output
+  -> (Value, [ScriptWitness WitCtxMint era])
+  -- ^ Multi-Asset value(s)
+  -> Maybe SlotNo
+  -- ^ Tx lower bound
+  -> TxValidityUpperBound era
+  -- ^ Tx upper bound
+  -> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+  -- ^ Certificate with potential script witness
+  -> [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+  -> [Hash PaymentKey]
+  -- ^ Required signers
+  -> TxAuxScripts era
+  -> TxMetadataInEra era
+  -> TxUpdateProposal era
+  -> Maybe Word
+  -> VotingProcedures era
+  -> [Proposal era]
+  -> TxBuildOutputOptions
+  -> ExceptT TxCmdError IO (BalancedTxBody era)
+runTxBuild :: forall era.
+ShelleyBasedEra era
+-> SocketPath
+-> NetworkId
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe (TxOut CtxTx era)
+-> Maybe Lovelace
+-> [TxOut CtxTx era]
+-> TxOutChangeAddress
+-> (Value, [ScriptWitness WitCtxMint era])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [Hash PaymentKey]
+-> TxAuxScripts era
+-> TxMetadataInEra era
+-> TxUpdateProposal era
+-> Maybe Word
+-> VotingProcedures era
+-> [Proposal era]
+-> TxBuildOutputOptions
+-> ExceptT TxCmdError IO (BalancedTxBody era)
+runTxBuild
+    ShelleyBasedEra era
+sbe SocketPath
+socketPath NetworkId
+networkId Maybe ScriptValidity
+mScriptValidity
+    [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits [TxIn]
+readOnlyRefIns [TxIn]
+txinsc Maybe (TxOut CtxTx era)
+mReturnCollateral Maybe Lovelace
+mTotCollateral [TxOut CtxTx era]
+txouts
+    (TxOutChangeAddress AddressAny
+changeAddr) (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits Maybe SlotNo
+mLowerBound TxValidityUpperBound era
+mUpperBound
+    [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals [Hash PaymentKey]
+reqSigners TxAuxScripts era
+txAuxScripts TxMetadataInEra era
+txMetadata
+    TxUpdateProposal era
+txUpdateProposal Maybe Word
+mOverrideWits VotingProcedures era
+votingProcedures [Proposal era]
+proposals TxBuildOutputOptions
+_outputOptions = forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ do
+
+  let era :: CardanoEra era
+era = forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe
+      dummyFee :: Maybe Lovelace
+dummyFee = forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ Integer -> Lovelace
+Lovelace Integer
+0
+      inputsThatRequireWitnessing :: [TxIn]
+inputsThatRequireWitnessing = [TxIn
+input | (TxIn
+input,Maybe (ScriptWitness WitCtxTxIn era)
+_) <- [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits]
+
+  let allReferenceInputs :: [TxIn]
+allReferenceInputs = forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [ScriptWitness WitCtxMint era]
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [TxIn]
+-> [TxIn]
+getAllReferenceInputs
+                             [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+                             (forall a b. (a, b) -> b
+snd (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits)
+                             [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits
+                             [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals
+                             [TxIn]
+readOnlyRefIns
+
+  TxInsCollateral era
+validatedCollateralTxIns <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era -> [TxIn] -> Either TxCmdError (TxInsCollateral era)
+validateTxInsCollateral CardanoEra era
+era [TxIn]
+txinsc
+  TxInsReference BuildTx era
+validatedRefInputs <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [TxIn] -> Either TxCmdError (TxInsReference BuildTx era)
+validateTxInsReference CardanoEra era
+era [TxIn]
+allReferenceInputs
+  TxTotalCollateral era
+validatedTotCollateral
+    <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxTotalCollateralValidationError -> TxCmdError
+TxCmdTotalCollateralValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe Lovelace
+-> Either TxTotalCollateralValidationError (TxTotalCollateral era)
+validateTxTotalCollateral CardanoEra era
+era Maybe Lovelace
+mTotCollateral
+  TxReturnCollateral CtxTx era
+validatedRetCol
+    <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxReturnCollateralValidationError -> TxCmdError
+TxCmdReturnCollateralValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe (TxOut CtxTx era)
+-> Either
+     TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)
+validateTxReturnCollateral CardanoEra era
+era Maybe (TxOut CtxTx era)
+mReturnCollateral
+  TxFee era
+dFee <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxFeeValidationError -> TxCmdError
+TxCmdTxFeeValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe Lovelace -> Either TxFeeValidationError (TxFee era)
+validateTxFee CardanoEra era
+era Maybe Lovelace
+dummyFee
+  TxValidityLowerBound era
+validatedLowerBound <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxValidityLowerBoundValidationError -> TxCmdError
+TxCmdTxValidityLowerBoundValidationError (forall era.
+CardanoEra era
+-> Maybe SlotNo
+-> Either
+     TxValidityLowerBoundValidationError (TxValidityLowerBound era)
+validateTxValidityLowerBound CardanoEra era
+era Maybe SlotNo
+mLowerBound))
+  TxExtraKeyWitnesses era
+validatedReqSigners <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxRequiredSignersValidationError -> TxCmdError
+TxCmdRequiredSignersValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [Hash PaymentKey]
+-> Either
+     TxRequiredSignersValidationError (TxExtraKeyWitnesses era)
+validateRequiredSigners CardanoEra era
+era [Hash PaymentKey]
+reqSigners)
+  TxWithdrawals BuildTx era
+validatedTxWtdrwls <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxWithdrawalsValidationError -> TxCmdError
+TxCmdTxWithdrawalsValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)
+validateTxWithdrawals CardanoEra era
+era [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals)
+  TxCertificates BuildTx era
+validatedTxCerts <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxCertificatesValidationError -> TxCmdError
+TxCmdTxCertificatesValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> Either
+     TxCertificatesValidationError (TxCertificates BuildTx era)
+validateTxCertificates CardanoEra era
+era [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndMaybeScriptWits)
+  TxMintValue BuildTx era
+validatedMintValue <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> (Value, [ScriptWitness WitCtxMint era])
+-> Either TxCmdError (TxMintValue BuildTx era)
+createTxMintValue CardanoEra era
+era (Value, [ScriptWitness WitCtxMint era])
+valuesWithScriptWits
+  TxScriptValidity era
+validatedTxScriptValidity <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxScriptValidityValidationError -> TxCmdError
+TxCmdScriptValidityValidationError forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> Either TxScriptValidityValidationError (TxScriptValidity era)
+validateTxScriptValidity CardanoEra era
+era Maybe ScriptValidity
+mScriptValidity)
+
+  let allTxInputs :: [TxIn]
+allTxInputs = [TxIn]
+inputsThatRequireWitnessing forall a. [a] -> [a] -> [a]
+++ [TxIn]
+allReferenceInputs forall a. [a] -> [a] -> [a]
+++ [TxIn]
+txinsc
+      localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = LocalNodeConnectInfo
+                                  { localConsensusModeParams :: ConsensusModeParams
+localConsensusModeParams = EpochSlots -> ConsensusModeParams
+CardanoModeParams forall a b. (a -> b) -> a -> b
+$ Word64 -> EpochSlots
+EpochSlots Word64
+21600
+                                  , localNodeNetworkId :: NetworkId
+localNodeNetworkId = NetworkId
+networkId
+                                  , localNodeSocketPath :: SocketPath
+localNodeSocketPath = SocketPath
+socketPath
+                                  }
+
+  AnyCardanoEra CardanoEra era
+nodeEra <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall block point r.
+LocalStateQueryExpr
+  block
+  point
+  QueryInMode
+  r
+  IO
+  (Either UnsupportedNtcVersionError AnyCardanoEra)
+queryCurrentEra)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryConvenienceError
+AcqFailure)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. UnsupportedNtcVersionError -> QueryConvenienceError
+QceUnsupportedNtcVersion)
+
+  era :~: era
+Refl <- forall {k} (f :: k -> *) (a :: k) (b :: k).
+TestEquality f =>
+f a -> f b -> Maybe (a :~: b)
+testEquality CardanoEra era
+era CardanoEra era
+nodeEra
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (NodeEraMismatchError -> TxCmdError
+TxCmdTxNodeEraMismatchError forall a b. (a -> b) -> a -> b
+$ forall era nodeEra.
+CardanoEra era -> CardanoEra nodeEra -> NodeEraMismatchError
+NodeEraMismatchError CardanoEra era
+era CardanoEra era
+nodeEra)
+
+  let certs :: [Certificate era]
+certs =
+        case TxCertificates BuildTx era
+validatedTxCerts of
+          TxCertificates ShelleyBasedEra era
+_ [Certificate era]
+cs BuildTxWith BuildTx (Map StakeCredential (Witness WitCtxStake era))
+_ -> [Certificate era]
+cs
+          TxCertificates BuildTx era
+_ -> []
+
+  (UTxO era
+txEraUtxo, LedgerProtocolParameters era
+pparams, EraHistory
+eraHistory, SystemStart
+systemStart, Set PoolId
+stakePools, Map StakeCredential Lovelace
+stakeDelegDeposits, Map (Credential 'DRepRole StandardCrypto) Lovelace
+drepDelegDeposits) <-
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall a.
+LocalNodeConnectInfo
+-> Maybe ChainPoint
+-> LocalStateQueryExpr BlockInMode ChainPoint QueryInMode () IO a
+-> IO (Either AcquiringFailure a)
+executeLocalStateQueryExpr LocalNodeConnectInfo
+localNodeConnInfo forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$ forall era block point r.
+CardanoEra era
+-> [TxIn]
+-> [Certificate era]
+-> LocalStateQueryExpr
+     block
+     point
+     QueryInMode
+     r
+     IO
+     (Either
+        QueryConvenienceError
+        (UTxO era, LedgerProtocolParameters era, EraHistory, SystemStart,
+         Set PoolId, Map StakeCredential Lovelace,
+         Map (Credential 'DRepRole StandardCrypto) Lovelace))
+queryStateForBalancedTx CardanoEra era
+nodeEra [TxIn]
+allTxInputs [Certificate era]
+certs)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AcquiringFailure -> QueryConvenienceError
+AcqFailure)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. QueryConvenienceError -> TxCmdError
+TxCmdQueryConvenienceError)
+
+  BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+validatedPParams <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first TxProtocolParametersValidationError -> TxCmdError
+TxCmdProtocolParametersValidationError
+                                  forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> Maybe (LedgerProtocolParameters era)
+-> Either
+     TxProtocolParametersValidationError
+     (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))
+validateProtocolParameters CardanoEra era
+era (forall a. a -> Maybe a
+Just LedgerProtocolParameters era
+pparams)
+
+  let validatedTxProposalProcedures :: [Proposal era]
+validatedTxProposalProcedures = [Proposal era]
+proposals
+      validatedTxVotes :: VotingProcedures era
+validatedTxVotes = VotingProcedures era
+votingProcedures
+      txBodyContent :: TxBodyContent BuildTx era
+txBodyContent =
+        TxBodyContent
+          { txIns :: TxIns BuildTx era
+txIns = forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [(TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))]
+validateTxIns [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+inputsAndMaybeScriptWits
+          , txInsCollateral :: TxInsCollateral era
+txInsCollateral = TxInsCollateral era
+validatedCollateralTxIns
+          , txInsReference :: TxInsReference BuildTx era
+txInsReference = TxInsReference BuildTx era
+validatedRefInputs
+          , txOuts :: [TxOut CtxTx era]
+txOuts = [TxOut CtxTx era]
+txouts
+          , txTotalCollateral :: TxTotalCollateral era
+txTotalCollateral = TxTotalCollateral era
+validatedTotCollateral
+          , txReturnCollateral :: TxReturnCollateral CtxTx era
+txReturnCollateral = TxReturnCollateral CtxTx era
+validatedRetCol
+          , txFee :: TxFee era
+txFee = TxFee era
+dFee
+          , txValidityLowerBound :: TxValidityLowerBound era
+txValidityLowerBound = TxValidityLowerBound era
+validatedLowerBound
+          , txValidityUpperBound :: TxValidityUpperBound era
+txValidityUpperBound = TxValidityUpperBound era
+mUpperBound
+          , txMetadata :: TxMetadataInEra era
+txMetadata = TxMetadataInEra era
+txMetadata
+          , txAuxScripts :: TxAuxScripts era
+txAuxScripts = TxAuxScripts era
+txAuxScripts
+          , txExtraKeyWits :: TxExtraKeyWitnesses era
+txExtraKeyWits = TxExtraKeyWitnesses era
+validatedReqSigners
+          , txProtocolParams :: BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+txProtocolParams = BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era))
+validatedPParams
+          , txWithdrawals :: TxWithdrawals BuildTx era
+txWithdrawals = TxWithdrawals BuildTx era
+validatedTxWtdrwls
+          , txCertificates :: TxCertificates BuildTx era
+txCertificates = TxCertificates BuildTx era
+validatedTxCerts
+          , txUpdateProposal :: TxUpdateProposal era
+txUpdateProposal = TxUpdateProposal era
+txUpdateProposal
+          , txMintValue :: TxMintValue BuildTx era
+txMintValue = TxMintValue BuildTx era
+validatedMintValue
+          , txScriptValidity :: TxScriptValidity era
+txScriptValidity = TxScriptValidity era
+validatedTxScriptValidity
+          , txProposalProcedures :: Maybe (Featured ConwayEraOnwards era [Proposal era])
+txProposalProcedures = forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era (forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+`Featured` [Proposal era]
+validatedTxProposalProcedures)
+          , txVotingProcedures :: Maybe (Featured ConwayEraOnwards era (VotingProcedures era))
+txVotingProcedures = forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> (eon era -> a) -> Maybe a
+forEraInEonMaybe CardanoEra era
+era (forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+`Featured` VotingProcedures era
+validatedTxVotes)
+          }
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxInsExistError -> TxCmdError
+TxCmdTxInsDoNotExist
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era. [TxIn] -> UTxO era -> Either TxInsExistError ()
+txInsExistInUTxO [TxIn]
+allTxInputs UTxO era
+txEraUtxo
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptLockedTxInsError -> TxCmdError
+TxCmdQueryNotScriptLocked
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era. [TxIn] -> UTxO era -> Either ScriptLockedTxInsError ()
+notScriptLockedTxIns [TxIn]
+txinsc UTxO era
+txEraUtxo
+
+  AddressInEra era
+cAddr <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+CardanoEra era -> AddressAny -> Either FilePath (AddressInEra era)
+anyAddressInEra CardanoEra era
+era AddressAny
+changeAddr)
+    forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall a. HasCallStack => FilePath -> a
+error forall a b. (a -> b) -> a -> b
+$ FilePath
+"runTxBuild: Byron address used: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> FilePath
+show AddressAny
+changeAddr) -- should this throw instead?
+
+  balancedTxBody :: BalancedTxBody era
+balancedTxBody@(BalancedTxBody TxBodyContent BuildTx era
+_ TxBody era
+_ TxOut CtxTx era
+_ Lovelace
+fee) <-
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxBodyErrorAutoBalance -> TxCmdError
+TxCmdBalanceTxBody
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> SystemStart
+-> LedgerEpochInfo
+-> LedgerProtocolParameters era
+-> Set PoolId
+-> Map StakeCredential Lovelace
+-> Map (Credential 'DRepRole StandardCrypto) Lovelace
+-> UTxO era
+-> TxBodyContent BuildTx era
+-> AddressInEra era
+-> Maybe Word
+-> Either TxBodyErrorAutoBalance (BalancedTxBody era)
+makeTransactionBodyAutoBalance ShelleyBasedEra era
+sbe SystemStart
+systemStart (EraHistory -> LedgerEpochInfo
+toLedgerEpochInfo EraHistory
+eraHistory)
+                                        LedgerProtocolParameters era
+pparams Set PoolId
+stakePools Map StakeCredential Lovelace
+stakeDelegDeposits Map (Credential 'DRepRole StandardCrypto) Lovelace
+drepDelegDeposits
+                                        UTxO era
+txEraUtxo TxBodyContent BuildTx era
+txBodyContent AddressInEra era
+cAddr Maybe Word
+mOverrideWits
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ FilePath
+"Estimated transaction fee: " forall a. Semigroup a => a -> a -> a
+<> (forall a. Show a => a -> FilePath
+show Lovelace
+fee :: String)
+
+  forall (m :: * -> *) a. Monad m => a -> m a
+return BalancedTxBody era
+balancedTxBody
+
+-- ----------------------------------------------------------------------------
+-- Transaction body validation and conversion
+--
+
+txFeatureMismatch :: ()
+  => Monad m
+  => CardanoEra era
+  -> TxFeature
+  -> ExceptT TxCmdError m a
+txFeatureMismatch :: forall (m :: * -> *) era a.
+Monad m =>
+CardanoEra era -> TxFeature -> ExceptT TxCmdError m a
+txFeatureMismatch CardanoEra era
+era TxFeature
+feature =
+    forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> TxFeature -> TxCmdError
+TxCmdTxFeatureMismatch (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era) TxFeature
+feature
+
+txFeatureMismatchPure :: CardanoEra era
+                      -> TxFeature
+                      -> Either TxCmdError a
+txFeatureMismatchPure :: forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+feature =
+    forall a b. a -> Either a b
+Left (AnyCardanoEra -> TxFeature -> TxCmdError
+TxCmdTxFeatureMismatch (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era) TxFeature
+feature)
+
+
+validateTxIns
+  :: [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+  -> [(TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))]
+validateTxIns :: forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [(TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))]
+validateTxIns = forall a b. (a -> b) -> [a] -> [b]
+map forall era.
+(TxIn, Maybe (ScriptWitness WitCtxTxIn era))
+-> (TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))
+convert
+ where
+   convert
+     :: (TxIn, Maybe (ScriptWitness WitCtxTxIn era))
+     -> (TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))
+   convert :: forall era.
+(TxIn, Maybe (ScriptWitness WitCtxTxIn era))
+-> (TxIn, BuildTxWith BuildTx (Witness WitCtxTxIn era))
+convert (TxIn
+txin, Maybe (ScriptWitness WitCtxTxIn era)
+mScriptWitness) =
+     case Maybe (ScriptWitness WitCtxTxIn era)
+mScriptWitness of
+       Just ScriptWitness WitCtxTxIn era
+sWit ->
+         (TxIn
+txin , forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a b. (a -> b) -> a -> b
+$ forall witctx era.
+ScriptWitnessInCtx witctx
+-> ScriptWitness witctx era -> Witness witctx era
+ScriptWitness ScriptWitnessInCtx WitCtxTxIn
+ScriptWitnessForSpending ScriptWitness WitCtxTxIn era
+sWit)
+       Maybe (ScriptWitness WitCtxTxIn era)
+Nothing ->
+         (TxIn
+txin, forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a b. (a -> b) -> a -> b
+$ forall witctx era. KeyWitnessInCtx witctx -> Witness witctx era
+KeyWitness KeyWitnessInCtx WitCtxTxIn
+KeyWitnessForSpending)
+
+
+validateTxInsCollateral :: CardanoEra era
+                        -> [TxIn]
+                        -> Either TxCmdError (TxInsCollateral era)
+validateTxInsCollateral :: forall era.
+CardanoEra era -> [TxIn] -> Either TxCmdError (TxInsCollateral era)
+validateTxInsCollateral CardanoEra era
+_   []    = forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. TxInsCollateral era
+TxInsCollateralNone
+validateTxInsCollateral CardanoEra era
+era [TxIn]
+txins = do
+  AlonzoEraOnwards era
+supported <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+    forall a b. a -> (a -> b) -> b
+& forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureCollateral) forall a b. b -> Either a b
+Right
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era. AlonzoEraOnwards era -> [TxIn] -> TxInsCollateral era
+TxInsCollateral AlonzoEraOnwards era
+supported [TxIn]
+txins
+
+validateTxInsReference
+  :: CardanoEra era
+  -> [TxIn]
+  -> Either TxCmdError (TxInsReference BuildTx era)
+validateTxInsReference :: forall era.
+CardanoEra era
+-> [TxIn] -> Either TxCmdError (TxInsReference BuildTx era)
+validateTxInsReference CardanoEra era
+_ []  = forall (m :: * -> *) a. Monad m => a -> m a
+return forall build era. TxInsReference build era
+TxInsReferenceNone
+validateTxInsReference CardanoEra era
+era [TxIn]
+allRefIns = do
+  BabbageEraOnwards era
+supported <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+    forall a b. a -> (a -> b) -> b
+& forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureReferenceInputs) forall a b. b -> Either a b
+Right
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era build.
+BabbageEraOnwards era -> [TxIn] -> TxInsReference build era
+TxInsReference BabbageEraOnwards era
+supported [TxIn]
+allRefIns
+
+getAllReferenceInputs
+ :: [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+ -> [ScriptWitness WitCtxMint era]
+ -> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+ -> [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+ -> [TxIn] -- ^ Read only reference inputs
+ -> [TxIn]
+getAllReferenceInputs :: forall era.
+[(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+-> [ScriptWitness WitCtxMint era]
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> [TxIn]
+-> [TxIn]
+getAllReferenceInputs [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+txins [ScriptWitness WitCtxMint era]
+mintWitnesses [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certFiles [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals [TxIn]
+readOnlyRefIns = do
+  let txinsWitByRefInputs :: [Maybe TxIn]
+txinsWitByRefInputs = [forall witctx era. ScriptWitness witctx era -> Maybe TxIn
+getReferenceInput ScriptWitness WitCtxTxIn era
+sWit | (TxIn
+_, Just ScriptWitness WitCtxTxIn era
+sWit) <- [(TxIn, Maybe (ScriptWitness WitCtxTxIn era))]
+txins]
+      mintingRefInputs :: [Maybe TxIn]
+mintingRefInputs = forall a b. (a -> b) -> [a] -> [b]
+map forall witctx era. ScriptWitness witctx era -> Maybe TxIn
+getReferenceInput [ScriptWitness WitCtxMint era]
+mintWitnesses
+      certsWitByRefInputs :: [Maybe TxIn]
+certsWitByRefInputs = [forall witctx era. ScriptWitness witctx era -> Maybe TxIn
+getReferenceInput ScriptWitness WitCtxStake era
+sWit | (Certificate era
+_, Just ScriptWitness WitCtxStake era
+sWit) <- [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certFiles]
+      withdrawalsWitByRefInputs :: [Maybe TxIn]
+withdrawalsWitByRefInputs = [forall witctx era. ScriptWitness witctx era -> Maybe TxIn
+getReferenceInput ScriptWitness WitCtxStake era
+sWit | (StakeAddress
+_, Lovelace
+_, Just ScriptWitness WitCtxStake era
+sWit) <- [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals]
+
+  forall a. [Maybe a] -> [a]
+catMaybes forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) a. Foldable t => t [a] -> [a]
+concat [ [Maybe TxIn]
+txinsWitByRefInputs
+                     , [Maybe TxIn]
+mintingRefInputs
+                     , [Maybe TxIn]
+certsWitByRefInputs
+                     , [Maybe TxIn]
+withdrawalsWitByRefInputs
+                     , forall a b. (a -> b) -> [a] -> [b]
+map forall a. a -> Maybe a
+Just [TxIn]
+readOnlyRefIns
+                     ]
+ where
+  getReferenceInput
+    :: ScriptWitness witctx era -> Maybe TxIn
+  getReferenceInput :: forall witctx era. ScriptWitness witctx era -> Maybe TxIn
+getReferenceInput ScriptWitness witctx era
+sWit =
+    case ScriptWitness witctx era
+sWit of
+      PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+_ (PReferenceScript TxIn
+refIn Maybe ScriptHash
+_) ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_ -> forall a. a -> Maybe a
+Just TxIn
+refIn
+      PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+_ PScript{} ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_ -> forall a. Maybe a
+Nothing
+      SimpleScriptWitness ScriptLanguageInEra SimpleScript' era
+_ (SReferenceScript TxIn
+refIn Maybe ScriptHash
+_)  -> forall a. a -> Maybe a
+Just TxIn
+refIn
+      SimpleScriptWitness ScriptLanguageInEra SimpleScript' era
+_ SScript{}  -> forall a. Maybe a
+Nothing
+
+toAddressInAnyEra
+  :: CardanoEra era
+  -> AddressAny
+  -> Either TxCmdError (AddressInEra era)
+toAddressInAnyEra :: forall era.
+CardanoEra era
+-> AddressAny -> Either TxCmdError (AddressInEra era)
+toAddressInAnyEra CardanoEra era
+era AddressAny
+addrAny = forall e a. Except e a -> Either e a
+runExcept forall a b. (a -> b) -> a -> b
+$ do
+  case AddressAny
+addrAny of
+    AddressByron   Address ByronAddr
+bAddr -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall addrtype era.
+AddressTypeInEra addrtype era
+-> Address addrtype -> AddressInEra era
+AddressInEra forall era. AddressTypeInEra ByronAddr era
+ByronAddressInAnyEra Address ByronAddr
+bAddr)
+    AddressShelley Address ShelleyAddr
+sAddr -> do
+      ShelleyBasedEra era
+sbe <- forall (m :: * -> *) era.
+Applicative m =>
+CardanoEra era -> m (Maybe (ShelleyBasedEra era))
+requireShelleyBasedEra CardanoEra era
+era
+        forall a b. a -> (a -> b) -> b
+& forall x (m :: * -> *) a.
+Monad m =>
+ExceptT x m a -> ExceptT x m (Maybe a) -> ExceptT x m a
+onNothing (forall (m :: * -> *) era a.
+Monad m =>
+CardanoEra era -> TxFeature -> ExceptT TxCmdError m a
+txFeatureMismatch CardanoEra era
+era TxFeature
+TxFeatureShelleyAddresses)
+
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall addrtype era.
+AddressTypeInEra addrtype era
+-> Address addrtype -> AddressInEra era
+AddressInEra (forall era. ShelleyBasedEra era -> AddressTypeInEra ShelleyAddr era
+ShelleyAddressInEra ShelleyBasedEra era
+sbe) Address ShelleyAddr
+sAddr)
+
+
+lovelaceToCoin :: Lovelace -> Ledger.Coin
+lovelaceToCoin :: Lovelace -> Coin
+lovelaceToCoin (Lovelace Integer
+ll) = Integer -> Coin
+Ledger.Coin Integer
+ll
+
+toTxOutValueInAnyEra
+  :: CardanoEra era
+  -> Value
+  -> Either TxCmdError (TxOutValue era)
+toTxOutValueInAnyEra :: forall era.
+CardanoEra era -> Value -> Either TxCmdError (TxOutValue era)
+toTxOutValueInAnyEra CardanoEra era
+era Value
+val =
+  forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+    (\ByronEraOnly era
+w ->
+      case Value -> Maybe Lovelace
+valueToLovelace Value
+val of
+        Just Lovelace
+l  -> forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era. ByronEraOnly era -> Lovelace -> TxOutValue era
+TxOutValueByron ByronEraOnly era
+w Lovelace
+l)
+        Maybe Lovelace
+Nothing -> forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureMultiAssetOutputs
+    )
+    (\ShelleyBasedEra era
+sbe ->
+      forall era a.
+(ShelleyToAllegraEraConstraints era =>
+ ShelleyToAllegraEra era -> a)
+-> (MaryEraOnwardsConstraints era => MaryEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToAllegraOrMaryEraOnwards
+        (\ShelleyToAllegraEra era
+_ -> case Value -> Maybe Lovelace
+valueToLovelace Value
+val of
+          Just Lovelace
+l  -> forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era.
+(Eq (Value (ShelleyLedgerEra era)),
+ Show (Value (ShelleyLedgerEra era))) =>
+ShelleyBasedEra era
+-> Value (ShelleyLedgerEra era) -> TxOutValue era
+TxOutValueShelleyBased ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ Lovelace -> Coin
+lovelaceToCoin Lovelace
+l)
+          Maybe Lovelace
+Nothing -> forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureMultiAssetOutputs
+        )
+        (\MaryEraOnwards era
+w -> forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era.
+(Eq (Value (ShelleyLedgerEra era)),
+ Show (Value (ShelleyLedgerEra era))) =>
+ShelleyBasedEra era
+-> Value (ShelleyLedgerEra era) -> TxOutValue era
+TxOutValueShelleyBased ShelleyBasedEra era
+sbe (forall era.
+MaryEraOnwards era -> Value -> Value (ShelleyLedgerEra era)
+toLedgerValue MaryEraOnwards era
+w Value
+val))
+        )
+        ShelleyBasedEra era
+sbe
+    )
+    CardanoEra era
+era
+
+toTxOutInAnyEra :: CardanoEra era
+                -> TxOutAnyEra
+                -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra :: forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+era (TxOutAnyEra AddressAny
+addr' Value
+val' TxOutDatumAnyEra
+mDatumHash ReferenceScriptAnyEra
+refScriptFp) = do
+  AddressInEra era
+addr <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era
+-> AddressAny -> Either TxCmdError (AddressInEra era)
+toAddressInAnyEra CardanoEra era
+era AddressAny
+addr'
+  TxOutValue era
+val <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall era.
+CardanoEra era -> Value -> Either TxCmdError (TxOutValue era)
+toTxOutValueInAnyEra CardanoEra era
+era Value
+val'
+
+  TxOutDatum CtxTx era
+datum <- forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+    (forall a b. a -> b -> a
+const (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall ctx era. TxOutDatum ctx era
+TxOutDatumNone))
+    (forall era a.
+(ShelleyToMaryEraConstraints era => ShelleyToMaryEra era -> a)
+-> (AlonzoEraOnwardsConstraints era => AlonzoEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToMaryOrAlonzoEraOnwards
+      (forall a b. a -> b -> a
+const (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall ctx era. TxOutDatum ctx era
+TxOutDatumNone))
+      (\AlonzoEraOnwards era
+wa -> forall era.
+AlonzoEraOnwards era
+-> TxOutDatumAnyEra -> ExceptT TxCmdError IO (TxOutDatum CtxTx era)
+toTxAlonzoDatum AlonzoEraOnwards era
+wa TxOutDatumAnyEra
+mDatumHash)
+    )
+    CardanoEra era
+era
+
+  ReferenceScript era
+refScript <- forall era a.
+(ByronToAlonzoEraConstraints era => ByronToAlonzoEra era -> a)
+-> (BabbageEraOnwardsConstraints era => BabbageEraOnwards era -> a)
+-> CardanoEra era
+-> a
+caseByronToAlonzoOrBabbageEraOnwards
+    (forall a b. a -> b -> a
+const (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. ReferenceScript era
+ReferenceScriptNone))
+    (\BabbageEraOnwards era
+wb -> forall era.
+BabbageEraOnwards era
+-> ReferenceScriptAnyEra
+-> ExceptT TxCmdError IO (ReferenceScript era)
+getReferenceScript BabbageEraOnwards era
+wb ReferenceScriptAnyEra
+refScriptFp)
+    CardanoEra era
+era
+
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall ctx era.
+AddressInEra era
+-> TxOutValue era
+-> TxOutDatum ctx era
+-> ReferenceScript era
+-> TxOut ctx era
+TxOut AddressInEra era
+addr TxOutValue era
+val TxOutDatum CtxTx era
+datum ReferenceScript era
+refScript
+
+  where
+    getReferenceScript :: ()
+      => BabbageEraOnwards era
+      -> ReferenceScriptAnyEra
+      -> ExceptT TxCmdError IO (ReferenceScript era)
+    getReferenceScript :: forall era.
+BabbageEraOnwards era
+-> ReferenceScriptAnyEra
+-> ExceptT TxCmdError IO (ReferenceScript era)
+getReferenceScript BabbageEraOnwards era
+w = \case
+      ReferenceScriptAnyEra
+ReferenceScriptAnyEraNone -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. ReferenceScript era
+ReferenceScriptNone
+      ReferenceScriptAnyEra FilePath
+fp -> forall era.
+BabbageEraOnwards era -> ScriptInAnyLang -> ReferenceScript era
+ReferenceScript BabbageEraOnwards era
+w forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> TxCmdError
+TxCmdScriptFileError (FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang FilePath
+fp)
+
+    toTxAlonzoDatum :: ()
+      => AlonzoEraOnwards era
+      -> TxOutDatumAnyEra
+      -> ExceptT TxCmdError IO (TxOutDatum CtxTx era)
+    toTxAlonzoDatum :: forall era.
+AlonzoEraOnwards era
+-> TxOutDatumAnyEra -> ExceptT TxCmdError IO (TxOutDatum CtxTx era)
+toTxAlonzoDatum AlonzoEraOnwards era
+supp TxOutDatumAnyEra
+cliDatum =
+      case TxOutDatumAnyEra
+cliDatum of
+        TxOutDatumAnyEra
+TxOutDatumByNone -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall ctx era. TxOutDatum ctx era
+TxOutDatumNone
+        TxOutDatumByHashOnly Hash ScriptData
+h -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era ctx.
+AlonzoEraOnwards era -> Hash ScriptData -> TxOutDatum ctx era
+TxOutDatumHash AlonzoEraOnwards era
+supp Hash ScriptData
+h)
+        TxOutDatumByHashOf ScriptDataOrFile
+sDataOrFile -> do
+          ScriptRedeemer
+sData <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> TxCmdError
+TxCmdScriptDataError forall a b. (a -> b) -> a -> b
+$ ScriptDataOrFile -> ExceptT ScriptDataError IO ScriptRedeemer
+readScriptDataOrFile ScriptDataOrFile
+sDataOrFile
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era ctx.
+AlonzoEraOnwards era -> Hash ScriptData -> TxOutDatum ctx era
+TxOutDatumHash AlonzoEraOnwards era
+supp forall a b. (a -> b) -> a -> b
+$ ScriptRedeemer -> Hash ScriptData
+hashScriptDataBytes ScriptRedeemer
+sData)
+        TxOutDatumByValue ScriptDataOrFile
+sDataOrFile -> do
+          ScriptRedeemer
+sData <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> TxCmdError
+TxCmdScriptDataError forall a b. (a -> b) -> a -> b
+$ ScriptDataOrFile -> ExceptT ScriptDataError IO ScriptRedeemer
+readScriptDataOrFile ScriptDataOrFile
+sDataOrFile
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+AlonzoEraOnwards era -> ScriptRedeemer -> TxOutDatum CtxTx era
+TxOutDatumInTx AlonzoEraOnwards era
+supp ScriptRedeemer
+sData)
+        TxOutInlineDatumByValue ScriptDataOrFile
+sDataOrFile -> do
+          let cEra :: CardanoEra era
+cEra = forall era. AlonzoEraOnwards era -> CardanoEra era
+alonzoEraOnwardsToCardanoEra AlonzoEraOnwards era
+supp
+          forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+cEra (forall (m :: * -> *) era a.
+Monad m =>
+CardanoEra era -> TxFeature -> ExceptT TxCmdError m a
+txFeatureMismatch CardanoEra era
+cEra TxFeature
+TxFeatureInlineDatums) forall a b. (a -> b) -> a -> b
+$ \BabbageEraOnwards era
+babbageOnwards -> do
+            ScriptRedeemer
+sData <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> TxCmdError
+TxCmdScriptDataError forall a b. (a -> b) -> a -> b
+$ ScriptDataOrFile -> ExceptT ScriptDataError IO ScriptRedeemer
+readScriptDataOrFile ScriptDataOrFile
+sDataOrFile
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era ctx.
+BabbageEraOnwards era -> ScriptRedeemer -> TxOutDatum ctx era
+TxOutDatumInline BabbageEraOnwards era
+babbageOnwards ScriptRedeemer
+sData
+
+-- TODO: Currently we specify the policyId with the '--mint' option on the cli
+-- and we added a separate '--policy-id' parser that parses the policy id for the
+-- given reference input (since we don't have the script in this case). To avoid asking
+-- for the policy id twice (in the build command) we can potentially query the UTxO and
+-- access the script (and therefore the policy id).
+createTxMintValue :: forall era. CardanoEra era
+                  -> (Value, [ScriptWitness WitCtxMint era])
+                  -> Either TxCmdError (TxMintValue BuildTx era)
+createTxMintValue :: forall era.
+CardanoEra era
+-> (Value, [ScriptWitness WitCtxMint era])
+-> Either TxCmdError (TxMintValue BuildTx era)
+createTxMintValue CardanoEra era
+era (Value
+val, [ScriptWitness WitCtxMint era]
+scriptWitnesses) =
+  if forall (t :: * -> *) a. Foldable t => t a -> Bool
+List.null (Value -> [(AssetId, Quantity)]
+valueToList Value
+val) Bool -> Bool -> Bool
+&& forall (t :: * -> *) a. Foldable t => t a -> Bool
+List.null [ScriptWitness WitCtxMint era]
+scriptWitnesses
+  then forall (m :: * -> *) a. Monad m => a -> m a
+return forall build era. TxMintValue build era
+TxMintNone
+  else do
+    forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+      (forall a b. a -> b -> a
+const (forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureMintValue))
+      (forall era a.
+(ShelleyToAllegraEraConstraints era =>
+ ShelleyToAllegraEra era -> a)
+-> (MaryEraOnwardsConstraints era => MaryEraOnwards era -> a)
+-> ShelleyBasedEra era
+-> a
+caseShelleyToAllegraOrMaryEraOnwards
+        (forall a b. a -> b -> a
+const (forall era a. CardanoEra era -> TxFeature -> Either TxCmdError a
+txFeatureMismatchPure CardanoEra era
+era TxFeature
+TxFeatureMintValue))
+        (\MaryEraOnwards era
+w -> do
+          -- The set of policy ids for which we need witnesses:
+          let witnessesNeededSet :: Set PolicyId
+              witnessesNeededSet :: Set PolicyId
+witnessesNeededSet =
+                forall a. Ord a => [a] -> Set a
+Set.fromList [ PolicyId
+pid | (AssetId PolicyId
+pid AssetName
+_, Quantity
+_) <- Value -> [(AssetId, Quantity)]
+valueToList Value
+val ]
+
+          let witnessesProvidedMap :: Map PolicyId (ScriptWitness WitCtxMint era)
+              witnessesProvidedMap :: Map PolicyId (ScriptWitness WitCtxMint era)
+witnessesProvidedMap = forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall a b. (a -> b) -> a -> b
+$ [ScriptWitness WitCtxMint era]
+-> [(PolicyId, ScriptWitness WitCtxMint era)]
+gatherMintingWitnesses [ScriptWitness WitCtxMint era]
+scriptWitnesses
+
+              witnessesProvidedSet :: Set PolicyId
+witnessesProvidedSet = forall k a. Map k a -> Set k
+Map.keysSet Map PolicyId (ScriptWitness WitCtxMint era)
+witnessesProvidedMap
+
+          -- Check not too many, nor too few:
+          Set PolicyId -> Set PolicyId -> Either TxCmdError ()
+validateAllWitnessesProvided   Set PolicyId
+witnessesNeededSet Set PolicyId
+witnessesProvidedSet
+          Set PolicyId -> Set PolicyId -> Either TxCmdError ()
+validateNoUnnecessaryWitnesses Set PolicyId
+witnessesNeededSet Set PolicyId
+witnessesProvidedSet
+
+          forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era build.
+MaryEraOnwards era
+-> Value
+-> BuildTxWith build (Map PolicyId (ScriptWitness WitCtxMint era))
+-> TxMintValue build era
+TxMintValue MaryEraOnwards era
+w Value
+val (forall a. a -> BuildTxWith BuildTx a
+BuildTxWith Map PolicyId (ScriptWitness WitCtxMint era)
+witnessesProvidedMap))
+        )
+      )
+      CardanoEra era
+era
+ where
+  gatherMintingWitnesses
+    :: [ScriptWitness WitCtxMint era]
+    -> [(PolicyId, ScriptWitness WitCtxMint era)]
+  gatherMintingWitnesses :: [ScriptWitness WitCtxMint era]
+-> [(PolicyId, ScriptWitness WitCtxMint era)]
+gatherMintingWitnesses [] = []
+  gatherMintingWitnesses (ScriptWitness WitCtxMint era
+sWit : [ScriptWitness WitCtxMint era]
+rest) =
+    case forall witctx era. ScriptWitness witctx era -> Maybe PolicyId
+scriptWitnessPolicyId ScriptWitness WitCtxMint era
+sWit of
+      Maybe PolicyId
+Nothing -> [ScriptWitness WitCtxMint era]
+-> [(PolicyId, ScriptWitness WitCtxMint era)]
+gatherMintingWitnesses [ScriptWitness WitCtxMint era]
+rest
+      Just PolicyId
+pid -> (PolicyId
+pid, ScriptWitness WitCtxMint era
+sWit) forall a. a -> [a] -> [a]
+: [ScriptWitness WitCtxMint era]
+-> [(PolicyId, ScriptWitness WitCtxMint era)]
+gatherMintingWitnesses [ScriptWitness WitCtxMint era]
+rest
+
+  validateAllWitnessesProvided :: Set PolicyId -> Set PolicyId -> Either TxCmdError ()
+validateAllWitnessesProvided Set PolicyId
+witnessesNeeded Set PolicyId
+witnessesProvided
+    | forall (t :: * -> *) a. Foldable t => t a -> Bool
+null [PolicyId]
+witnessesMissing = forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+    | Bool
+otherwise = forall a b. a -> Either a b
+Left ([PolicyId] -> TxCmdError
+TxCmdPolicyIdsMissing [PolicyId]
+witnessesMissing)
+    where
+      witnessesMissing :: [PolicyId]
+witnessesMissing = forall a. Set a -> [a]
+Set.elems (Set PolicyId
+witnessesNeeded forall a. Ord a => Set a -> Set a -> Set a
+Set.\\ Set PolicyId
+witnessesProvided)
+
+  validateNoUnnecessaryWitnesses :: Set PolicyId -> Set PolicyId -> Either TxCmdError ()
+validateNoUnnecessaryWitnesses Set PolicyId
+witnessesNeeded Set PolicyId
+witnessesProvided
+    | forall (t :: * -> *) a. Foldable t => t a -> Bool
+null [PolicyId]
+witnessesExtra = forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+    | Bool
+otherwise = forall a b. a -> Either a b
+Left ([PolicyId] -> TxCmdError
+TxCmdPolicyIdsExcess [PolicyId]
+witnessesExtra)
+    where
+      witnessesExtra :: [PolicyId]
+witnessesExtra = forall a. Set a -> [a]
+Set.elems (Set PolicyId
+witnessesProvided forall a. Ord a => Set a -> Set a -> Set a
+Set.\\ Set PolicyId
+witnessesNeeded)
+
+scriptWitnessPolicyId :: ScriptWitness witctx era -> Maybe PolicyId
+scriptWitnessPolicyId :: forall witctx era. ScriptWitness witctx era -> Maybe PolicyId
+scriptWitnessPolicyId (SimpleScriptWitness ScriptLanguageInEra SimpleScript' era
+_ (SScript SimpleScript
+script)) =
+   forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall lang. Script lang -> PolicyId
+scriptPolicyId forall a b. (a -> b) -> a -> b
+$ SimpleScript -> Script SimpleScript'
+SimpleScript SimpleScript
+script
+scriptWitnessPolicyId (SimpleScriptWitness ScriptLanguageInEra SimpleScript' era
+_ (SReferenceScript TxIn
+_ Maybe ScriptHash
+mPid)) =
+   ScriptHash -> PolicyId
+PolicyId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe ScriptHash
+mPid
+scriptWitnessPolicyId (PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+version (PScript PlutusScript lang
+script) ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_) =
+   forall a. a -> Maybe a
+Just forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall lang. Script lang -> PolicyId
+scriptPolicyId forall a b. (a -> b) -> a -> b
+$ forall lang.
+PlutusScriptVersion lang -> PlutusScript lang -> Script lang
+PlutusScript PlutusScriptVersion lang
+version PlutusScript lang
+script
+scriptWitnessPolicyId (PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+_ (PReferenceScript TxIn
+_ Maybe ScriptHash
+mPid) ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_) =
+   ScriptHash -> PolicyId
+PolicyId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe ScriptHash
+mPid
+
+
+readValueScriptWitnesses
+  :: CardanoEra era
+  -> (Value, [ScriptWitnessFiles WitCtxMint])
+  -> ExceptT TxCmdError IO (Value, [ScriptWitness WitCtxMint era])
+readValueScriptWitnesses :: forall era.
+CardanoEra era
+-> (Value, [ScriptWitnessFiles WitCtxMint])
+-> ExceptT TxCmdError IO (Value, [ScriptWitness WitCtxMint era])
+readValueScriptWitnesses CardanoEra era
+era (Value
+v, [ScriptWitnessFiles WitCtxMint]
+sWitFiles) = do
+  [ScriptWitness WitCtxMint era]
+sWits <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptWitnessError -> TxCmdError
+TxCmdScriptWitnessError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era witctx.
+CardanoEra era
+-> ScriptWitnessFiles witctx
+-> ExceptT ScriptWitnessError IO (ScriptWitness witctx era)
+readScriptWitness CardanoEra era
+era) [ScriptWitnessFiles WitCtxMint]
+sWitFiles
+  forall (m :: * -> *) a. Monad m => a -> m a
+return (Value
+v, [ScriptWitness WitCtxMint era]
+sWits)
+
+-- ----------------------------------------------------------------------------
+-- Transaction signing
+--
+
+runTransactionSignCmd :: ()
+  => Cmd.TransactionSignCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionSignCmd :: TransactionSignCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignCmd
+    Cmd.TransactionSignCmdArgs
+      { $sel:txOrTxBodyFile:TransactionSignCmdArgs :: TransactionSignCmdArgs -> InputTxBodyOrTxFile
+txOrTxBodyFile = InputTxBodyOrTxFile
+txOrTxBody
+      , $sel:witnessSigningData:TransactionSignCmdArgs :: TransactionSignCmdArgs -> [WitnessSigningData]
+witnessSigningData = [WitnessSigningData]
+witnessSigningData
+      , $sel:mNetworkId:TransactionSignCmdArgs :: TransactionSignCmdArgs -> Maybe NetworkId
+mNetworkId = Maybe NetworkId
+mNetworkId
+      , $sel:outTxFile:TransactionSignCmdArgs :: TransactionSignCmdArgs -> TxFile 'Out
+outTxFile = TxFile 'Out
+outTxFile
+      } = do
+  [SomeSigningWitness]
+sks <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [WitnessSigningData]
+witnessSigningData forall a b. (a -> b) -> a -> b
+$ \WitnessSigningData
+d ->
+    forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (WitnessSigningData
+-> IO (Either ReadWitnessSigningDataError SomeSigningWitness)
+readWitnessSigningData WitnessSigningData
+d)
+      forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ReadWitnessSigningDataError -> TxCmdError
+TxCmdReadWitnessSigningDataError)
+
+  let ([ShelleyBootstrapWitnessSigningKeyData]
+sksByron, [ShelleyWitnessSigningKey]
+sksShelley) = [ByronOrShelleyWitness]
+-> ([ShelleyBootstrapWitnessSigningKeyData],
+    [ShelleyWitnessSigningKey])
+partitionSomeWitnesses forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness [SomeSigningWitness]
+sks
+
+  case InputTxBodyOrTxFile
+txOrTxBody of
+    InputTxFile (File FilePath
+inputTxFilePath) -> do
+      FileOrPipe
+inputTxFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+inputTxFilePath
+      InAnyCardanoEra Tx
+anyTx <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+inputTxFile) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlError -> TxCmdError
+TxCmdCddlError)
+
+      InAnyShelleyBasedEra ShelleyBasedEra era
+sbe Tx era
+tx <-
+          forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra Tx
+anyTx
+
+      let (TxBody era
+txbody, [KeyWitness era]
+existingTxKeyWits) = forall era. Tx era -> (TxBody era, [KeyWitness era])
+getTxBodyAndWitnesses Tx era
+tx
+
+      [KeyWitness era]
+byronWitnesses <-
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> [ShelleyBootstrapWitnessSigningKeyData]
+-> Either BootstrapWitnessError [KeyWitness era]
+mkShelleyBootstrapWitnesses ShelleyBasedEra era
+sbe Maybe NetworkId
+mNetworkId TxBody era
+txbody [ShelleyBootstrapWitnessSigningKeyData]
+sksByron)
+          forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. BootstrapWitnessError -> TxCmdError
+TxCmdBootstrapWitnessError)
+
+      let newShelleyKeyWits :: [KeyWitness era]
+newShelleyKeyWits = forall a b. (a -> b) -> [a] -> [b]
+map (forall era.
+ShelleyBasedEra era
+-> TxBody era -> ShelleyWitnessSigningKey -> KeyWitness era
+makeShelleyKeyWitness ShelleyBasedEra era
+sbe TxBody era
+txbody) [ShelleyWitnessSigningKey]
+sksShelley
+          allKeyWits :: [KeyWitness era]
+allKeyWits = [KeyWitness era]
+existingTxKeyWits forall a. [a] -> [a] -> [a]
+++ [KeyWitness era]
+newShelleyKeyWits forall a. [a] -> [a] -> [a]
+++ [KeyWitness era]
+byronWitnesses
+          signedTx :: Tx era
+signedTx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [KeyWitness era]
+allKeyWits TxBody era
+txbody
+
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era content.
+CardanoEra era
+-> File content 'Out -> Tx era -> IO (Either (FileError ()) ())
+writeTxFileTextEnvelopeCddl (forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe) TxFile 'Out
+outTxFile Tx era
+signedTx)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+    InputTxBodyFile (File FilePath
+txbodyFilePath) -> do
+      FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+      IncompleteTx
+unwitnessed <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> TxCmdError
+TxCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+                       forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile
+
+      case IncompleteTx
+unwitnessed of
+        IncompleteCddlFormattedTx InAnyCardanoEra Tx
+anyTx -> do
+         InAnyShelleyBasedEra ShelleyBasedEra era
+sbe Tx era
+unwitTx <-
+           forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra Tx
+anyTx
+
+         let txbody :: TxBody era
+txbody = forall era. Tx era -> TxBody era
+getTxBody Tx era
+unwitTx
+         -- Byron witnesses require the network ID. This can either be provided
+         -- directly or derived from a provided Byron address.
+         [KeyWitness era]
+byronWitnesses <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT BootstrapWitnessError -> TxCmdError
+TxCmdBootstrapWitnessError
+           forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+           forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> [ShelleyBootstrapWitnessSigningKeyData]
+-> Either BootstrapWitnessError [KeyWitness era]
+mkShelleyBootstrapWitnesses ShelleyBasedEra era
+sbe Maybe NetworkId
+mNetworkId TxBody era
+txbody [ShelleyBootstrapWitnessSigningKeyData]
+sksByron
+
+         let shelleyKeyWitnesses :: [KeyWitness era]
+shelleyKeyWitnesses = forall a b. (a -> b) -> [a] -> [b]
+map (forall era.
+ShelleyBasedEra era
+-> TxBody era -> ShelleyWitnessSigningKey -> KeyWitness era
+makeShelleyKeyWitness ShelleyBasedEra era
+sbe TxBody era
+txbody) [ShelleyWitnessSigningKey]
+sksShelley
+             tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction ([KeyWitness era]
+byronWitnesses forall a. [a] -> [a] -> [a]
+++ [KeyWitness era]
+shelleyKeyWitnesses) TxBody era
+txbody
+
+         forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era content.
+CardanoEra era
+-> File content 'Out -> Tx era -> IO (Either (FileError ()) ())
+writeTxFileTextEnvelopeCddl (forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe) TxFile 'Out
+outTxFile Tx era
+tx)
+            forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+        UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+anyTxbody -> do
+          InAnyShelleyBasedEra ShelleyBasedEra era
+sbe TxBody era
+txbody <-
+            --TODO: in principle we should be able to support Byron era txs too
+            forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra TxBody
+anyTxbody
+          -- Byron witnesses require the network ID. This can either be provided
+          -- directly or derived from a provided Byron address.
+          [KeyWitness era]
+byronWitnesses <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT BootstrapWitnessError -> TxCmdError
+TxCmdBootstrapWitnessError
+            forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+            forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> [ShelleyBootstrapWitnessSigningKeyData]
+-> Either BootstrapWitnessError [KeyWitness era]
+mkShelleyBootstrapWitnesses ShelleyBasedEra era
+sbe Maybe NetworkId
+mNetworkId TxBody era
+txbody [ShelleyBootstrapWitnessSigningKeyData]
+sksByron
+
+          let shelleyKeyWitnesses :: [KeyWitness era]
+shelleyKeyWitnesses = forall a b. (a -> b) -> [a] -> [b]
+map (forall era.
+ShelleyBasedEra era
+-> TxBody era -> ShelleyWitnessSigningKey -> KeyWitness era
+makeShelleyKeyWitness ShelleyBasedEra era
+sbe TxBody era
+txbody) [ShelleyWitnessSigningKey]
+sksShelley
+              tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction ([KeyWitness era]
+byronWitnesses forall a. [a] -> [a] -> [a]
+++ [KeyWitness era]
+shelleyKeyWitnesses) TxBody era
+txbody
+
+          forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> TxCmdError
+TxCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+            forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile TxFile 'Out
+outTxFile
+            forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+            forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing Tx era
+tx
+
+-- ----------------------------------------------------------------------------
+-- Transaction submission
+--
+
+runTransactionSubmitCmd :: ()
+  => Cmd.TransactionSubmitCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionSubmitCmd :: TransactionSubmitCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSubmitCmd
+    Cmd.TransactionSubmitCmdArgs
+      { SocketPath
+$sel:nodeSocketPath:TransactionSubmitCmdArgs :: TransactionSubmitCmdArgs -> SocketPath
+nodeSocketPath :: SocketPath
+nodeSocketPath
+      , ConsensusModeParams
+$sel:consensusModeParams:TransactionSubmitCmdArgs :: TransactionSubmitCmdArgs -> ConsensusModeParams
+consensusModeParams :: ConsensusModeParams
+consensusModeParams
+      , NetworkId
+$sel:networkId:TransactionSubmitCmdArgs :: TransactionSubmitCmdArgs -> NetworkId
+networkId :: NetworkId
+networkId
+      , FilePath
+$sel:txFile:TransactionSubmitCmdArgs :: TransactionSubmitCmdArgs -> FilePath
+txFile :: FilePath
+txFile
+      } = do
+  FileOrPipe
+txFileOrPipe <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txFile
+  InAnyCardanoEra CardanoEra era
+era Tx era
+tx <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+txFileOrPipe) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlError -> TxCmdError
+TxCmdCddlError)
+  let txInMode :: TxInMode
+txInMode = forall era. CardanoEra era -> Tx era -> TxInMode
+TxInMode CardanoEra era
+era Tx era
+tx
+      localNodeConnInfo :: LocalNodeConnectInfo
+localNodeConnInfo = LocalNodeConnectInfo
+                            { localConsensusModeParams :: ConsensusModeParams
+localConsensusModeParams = ConsensusModeParams
+consensusModeParams
+                            , localNodeNetworkId :: NetworkId
+localNodeNetworkId = NetworkId
+networkId
+                            , localNodeSocketPath :: SocketPath
+localNodeSocketPath = SocketPath
+nodeSocketPath
+                            }
+
+  SubmitResult TxValidationErrorInCardanoMode
+res <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ LocalNodeConnectInfo
+-> TxInMode -> IO (SubmitResult TxValidationErrorInCardanoMode)
+submitTxToNodeLocal LocalNodeConnectInfo
+localNodeConnInfo TxInMode
+txInMode
+  case SubmitResult TxValidationErrorInCardanoMode
+res of
+    SubmitResult TxValidationErrorInCardanoMode
+Net.Tx.SubmitSuccess -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Text -> IO ()
+Text.putStrLn Text
+"Transaction successfully submitted."
+    Net.Tx.SubmitFail TxValidationErrorInCardanoMode
+reason ->
+      case TxValidationErrorInCardanoMode
+reason of
+        TxValidationErrorInCardanoMode TxValidationError era
+err -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> TxCmdError
+TxCmdTxSubmitError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> FilePath
+show TxValidationError era
+err
+        TxValidationEraMismatch EraMismatch
+mismatchErr -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ EraMismatch -> TxCmdError
+TxCmdTxSubmitErrorEraMismatch EraMismatch
+mismatchErr
+
+-- ----------------------------------------------------------------------------
+-- Transaction fee calculation
+--
+
+runTransactionCalculateMinFeeCmd :: ()
+  => Cmd.TransactionCalculateMinFeeCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinFeeCmd :: TransactionCalculateMinFeeCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinFeeCmd
+    Cmd.TransactionCalculateMinFeeCmdArgs
+      { $sel:txBodyFile:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> File (TxBody ()) 'In
+txBodyFile = File FilePath
+txbodyFilePath
+      , $sel:networkId:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> NetworkId
+networkId = NetworkId
+networkId
+      , $sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> ProtocolParamsFile
+protocolParamsFile = ProtocolParamsFile
+protocolParamsFile
+      , $sel:txInCount:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> TxInCount
+txInCount = TxInCount Int
+nInputs
+      , $sel:txOutCount:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> TxOutCount
+txOutCount = TxOutCount Int
+nOutputs
+      , $sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> TxShelleyWitnessCount
+txShelleyWitnessCount = TxShelleyWitnessCount Int
+nShelleyKeyWitnesses
+      , $sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgs :: TransactionCalculateMinFeeCmdArgs -> TxByronWitnessCount
+txByronWitnessCount = TxByronWitnessCount Int
+nByronKeyWitnesses
+      } = do
+
+  FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+  IncompleteTx
+unwitnessed <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> TxCmdError
+TxCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile
+  ProtocolParameters
+pparams <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ProtocolParamsError -> TxCmdError
+TxCmdProtocolParamsError forall a b. (a -> b) -> a -> b
+$ ProtocolParamsFile
+-> ExceptT ProtocolParamsError IO ProtocolParameters
+readProtocolParameters ProtocolParamsFile
+protocolParamsFile
+  case IncompleteTx
+unwitnessed of
+    IncompleteCddlFormattedTx InAnyCardanoEra Tx
+anyTx -> do
+      InAnyShelleyBasedEra ShelleyBasedEra era
+sbe Tx era
+unwitTx <-
+        forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra Tx
+anyTx
+      let txbody :: TxBody era
+txbody =  forall era. Tx era -> TxBody era
+getTxBody Tx era
+unwitTx
+      let tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [] TxBody era
+txbody
+          Lovelace Integer
+fee = forall era.
+ShelleyBasedEra era
+-> NetworkId
+-> Lovelace
+-> Lovelace
+-> Tx era
+-> Int
+-> Int
+-> Int
+-> Int
+-> Lovelace
+estimateTransactionFee ShelleyBasedEra era
+sbe
+                            NetworkId
+networkId
+                            (ProtocolParameters -> Lovelace
+protocolParamTxFeeFixed ProtocolParameters
+pparams)
+                            (ProtocolParameters -> Lovelace
+protocolParamTxFeePerByte ProtocolParameters
+pparams)
+                            Tx era
+tx
+                            Int
+nInputs Int
+nOutputs
+                            Int
+nShelleyKeyWitnesses Int
+nByronKeyWitnesses
+
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ (forall a. Show a => a -> FilePath
+show Integer
+fee :: String) forall a. Semigroup a => a -> a -> a
+<> FilePath
+" Lovelace"
+
+    UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+anyTxBody -> do
+      InAnyShelleyBasedEra ShelleyBasedEra era
+sbe TxBody era
+txbody <-
+            --TODO: in principle we should be able to support Byron era txs too
+            forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"calculate-min-fee for Byron era transactions" InAnyCardanoEra TxBody
+anyTxBody
+
+      let tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [] TxBody era
+txbody
+          Lovelace Integer
+fee = forall era.
+ShelleyBasedEra era
+-> NetworkId
+-> Lovelace
+-> Lovelace
+-> Tx era
+-> Int
+-> Int
+-> Int
+-> Int
+-> Lovelace
+estimateTransactionFee ShelleyBasedEra era
+sbe
+                            NetworkId
+networkId
+                            (ProtocolParameters -> Lovelace
+protocolParamTxFeeFixed ProtocolParameters
+pparams)
+                            (ProtocolParameters -> Lovelace
+protocolParamTxFeePerByte ProtocolParameters
+pparams)
+                            Tx era
+tx
+                            Int
+nInputs Int
+nOutputs
+                            Int
+nByronKeyWitnesses Int
+nShelleyKeyWitnesses
+
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ()
+putStrLn forall a b. (a -> b) -> a -> b
+$ (forall a. Show a => a -> FilePath
+show Integer
+fee :: String) forall a. Semigroup a => a -> a -> a
+<> FilePath
+" Lovelace"
+
+-- ----------------------------------------------------------------------------
+-- Transaction fee calculation
+--
+
+runTransactionCalculateMinValueCmd :: ()
+  => Cmd.TransactionCalculateMinValueCmdArgs era
+  -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinValueCmd :: forall era.
+TransactionCalculateMinValueCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinValueCmd
+    Cmd.TransactionCalculateMinValueCmdArgs
+      { CardanoEra era
+$sel:eon:TransactionCalculateMinValueCmdArgs :: forall era.
+TransactionCalculateMinValueCmdArgs era -> CardanoEra era
+eon :: CardanoEra era
+eon
+      , ProtocolParamsFile
+$sel:protocolParamsFile:TransactionCalculateMinValueCmdArgs :: forall era.
+TransactionCalculateMinValueCmdArgs era -> ProtocolParamsFile
+protocolParamsFile :: ProtocolParamsFile
+protocolParamsFile
+      , TxOutAnyEra
+$sel:txOut:TransactionCalculateMinValueCmdArgs :: forall era. TransactionCalculateMinValueCmdArgs era -> TxOutAnyEra
+txOut :: TxOutAnyEra
+txOut
+      } = do
+  ProtocolParameters
+pp <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ProtocolParamsError -> TxCmdError
+TxCmdProtocolParamsError (ProtocolParamsFile
+-> ExceptT ProtocolParamsError IO ProtocolParameters
+readProtocolParameters ProtocolParamsFile
+protocolParamsFile)
+  TxOut CtxTx era
+out <- forall era.
+CardanoEra era
+-> TxOutAnyEra -> ExceptT TxCmdError IO (TxOut CtxTx era)
+toTxOutInAnyEra CardanoEra era
+eon TxOutAnyEra
+txOut
+  -- TODO: shouldn't we just require shelley based era here instead of error-ing for byron?
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+eon (forall a. HasCallStack => FilePath -> a
+error FilePath
+"runTransactionCalculateMinValueCmd: Byron era not implemented yet") forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe -> do
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ProtocolParametersError -> TxCmdError
+TxCmdPParamsErr forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> ProtocolParameters -> Either ProtocolParametersError ()
+checkProtocolParameters ShelleyBasedEra era
+sbe ProtocolParameters
+pp
+    PParams (ShelleyLedgerEra era)
+pp' <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ProtocolParametersConversionError -> TxCmdError
+TxCmdProtocolParamsConverstionError forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> ProtocolParameters
+-> Either
+     ProtocolParametersConversionError (PParams (ShelleyLedgerEra era))
+toLedgerPParams ShelleyBasedEra era
+sbe ProtocolParameters
+pp
+    let minValue :: Lovelace
+minValue = forall era.
+ShelleyBasedEra era
+-> TxOut CtxTx era -> PParams (ShelleyLedgerEra era) -> Lovelace
+calculateMinimumUTxO ShelleyBasedEra era
+sbe TxOut CtxTx era
+out PParams (ShelleyLedgerEra era)
+pp'
+    forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> IO ()
+IO.print forall a b. (a -> b) -> a -> b
+$ Lovelace
+minValue
+
+runTransactionPolicyIdCmd :: ()
+  => Cmd.TransactionPolicyIdCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionPolicyIdCmd :: TransactionPolicyIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionPolicyIdCmd
+    Cmd.TransactionPolicyIdCmdArgs
+      { $sel:scriptFile:TransactionPolicyIdCmdArgs :: TransactionPolicyIdCmdArgs -> ScriptFile
+scriptFile = ScriptFile FilePath
+sFile
+      } = do
+  ScriptInAnyLang ScriptLanguage lang
+_ Script lang
+script <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> TxCmdError
+TxCmdScriptFileError forall a b. (a -> b) -> a -> b
+$
+                                FilePath
+-> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang FilePath
+sFile
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+Text.putStrLn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText forall a b. (a -> b) -> a -> b
+$ forall lang. Script lang -> ScriptHash
+hashScript Script lang
+script
+
+partitionSomeWitnesses
+  :: [ByronOrShelleyWitness]
+  -> ( [ShelleyBootstrapWitnessSigningKeyData]
+     , [ShelleyWitnessSigningKey]
+     )
+partitionSomeWitnesses :: [ByronOrShelleyWitness]
+-> ([ShelleyBootstrapWitnessSigningKeyData],
+    [ShelleyWitnessSigningKey])
+partitionSomeWitnesses = forall {a} {a}. ([a], [a]) -> ([a], [a])
+reversePartitionedWits forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (t :: * -> *) b a.
+Foldable t =>
+(b -> a -> b) -> b -> t a -> b
+foldl' ([ShelleyBootstrapWitnessSigningKeyData],
+ [ShelleyWitnessSigningKey])
+-> ByronOrShelleyWitness
+-> ([ShelleyBootstrapWitnessSigningKeyData],
+    [ShelleyWitnessSigningKey])
+go forall a. Monoid a => a
+mempty
+  where
+    reversePartitionedWits :: ([a], [a]) -> ([a], [a])
+reversePartitionedWits ([a]
+bw, [a]
+skw) =
+      (forall a. [a] -> [a]
+reverse [a]
+bw, forall a. [a] -> [a]
+reverse [a]
+skw)
+
+    go :: ([ShelleyBootstrapWitnessSigningKeyData],
+ [ShelleyWitnessSigningKey])
+-> ByronOrShelleyWitness
+-> ([ShelleyBootstrapWitnessSigningKeyData],
+    [ShelleyWitnessSigningKey])
+go ([ShelleyBootstrapWitnessSigningKeyData]
+byronAcc, [ShelleyWitnessSigningKey]
+shelleyKeyAcc) ByronOrShelleyWitness
+byronOrShelleyWit =
+      case ByronOrShelleyWitness
+byronOrShelleyWit of
+        AByronWitness ShelleyBootstrapWitnessSigningKeyData
+byronWit ->
+          (ShelleyBootstrapWitnessSigningKeyData
+byronWitforall a. a -> [a] -> [a]
+:[ShelleyBootstrapWitnessSigningKeyData]
+byronAcc, [ShelleyWitnessSigningKey]
+shelleyKeyAcc)
+        AShelleyKeyWitness ShelleyWitnessSigningKey
+shelleyKeyWit ->
+          ([ShelleyBootstrapWitnessSigningKeyData]
+byronAcc, ShelleyWitnessSigningKey
+shelleyKeyWitforall a. a -> [a] -> [a]
+:[ShelleyWitnessSigningKey]
+shelleyKeyAcc)
+
+-- | Construct a Shelley bootstrap witness (i.e. a Byron key witness in the
+-- Shelley era).
+mkShelleyBootstrapWitness :: ()
+  => ShelleyBasedEra era
+  -> Maybe NetworkId
+  -> TxBody era
+  -> ShelleyBootstrapWitnessSigningKeyData
+  -> Either BootstrapWitnessError (KeyWitness era)
+mkShelleyBootstrapWitness :: forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> ShelleyBootstrapWitnessSigningKeyData
+-> Either BootstrapWitnessError (KeyWitness era)
+mkShelleyBootstrapWitness ShelleyBasedEra era
+_ Maybe NetworkId
+Nothing TxBody era
+_ (ShelleyBootstrapWitnessSigningKeyData SigningKey ByronKey
+_ Maybe (Address ByronAddr)
+Nothing) =
+  forall a b. a -> Either a b
+Left BootstrapWitnessError
+MissingNetworkIdOrByronAddressError
+mkShelleyBootstrapWitness ShelleyBasedEra era
+sbe (Just NetworkId
+nw) TxBody era
+txBody (ShelleyBootstrapWitnessSigningKeyData SigningKey ByronKey
+skey Maybe (Address ByronAddr)
+Nothing) =
+  forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> WitnessNetworkIdOrByronAddress
+-> TxBody era
+-> SigningKey ByronKey
+-> KeyWitness era
+makeShelleyBootstrapWitness ShelleyBasedEra era
+sbe (NetworkId -> WitnessNetworkIdOrByronAddress
+WitnessNetworkId NetworkId
+nw) TxBody era
+txBody SigningKey ByronKey
+skey
+mkShelleyBootstrapWitness ShelleyBasedEra era
+sbe Maybe NetworkId
+_ TxBody era
+txBody (ShelleyBootstrapWitnessSigningKeyData SigningKey ByronKey
+skey (Just Address ByronAddr
+addr)) =
+  forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> WitnessNetworkIdOrByronAddress
+-> TxBody era
+-> SigningKey ByronKey
+-> KeyWitness era
+makeShelleyBootstrapWitness ShelleyBasedEra era
+sbe (Address ByronAddr -> WitnessNetworkIdOrByronAddress
+WitnessByronAddress Address ByronAddr
+addr) TxBody era
+txBody SigningKey ByronKey
+skey
+
+-- | Attempt to construct Shelley bootstrap witnesses until an error is
+-- encountered.
+mkShelleyBootstrapWitnesses :: ()
+  => ShelleyBasedEra era
+  -> Maybe NetworkId
+  -> TxBody era
+  -> [ShelleyBootstrapWitnessSigningKeyData]
+  -> Either BootstrapWitnessError [KeyWitness era]
+mkShelleyBootstrapWitnesses :: forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> [ShelleyBootstrapWitnessSigningKeyData]
+-> Either BootstrapWitnessError [KeyWitness era]
+mkShelleyBootstrapWitnesses ShelleyBasedEra era
+sbe Maybe NetworkId
+mnw TxBody era
+txBody =
+  forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> ShelleyBootstrapWitnessSigningKeyData
+-> Either BootstrapWitnessError (KeyWitness era)
+mkShelleyBootstrapWitness ShelleyBasedEra era
+sbe Maybe NetworkId
+mnw TxBody era
+txBody)
+
+
+-- ----------------------------------------------------------------------------
+-- Other misc small commands
+--
+
+runTransactionHashScriptDataCmd :: ()
+  => Cmd.TransactionHashScriptDataCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionHashScriptDataCmd :: TransactionHashScriptDataCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionHashScriptDataCmd
+    Cmd.TransactionHashScriptDataCmdArgs
+      { ScriptDataOrFile
+$sel:scriptDataOrFile:TransactionHashScriptDataCmdArgs :: TransactionHashScriptDataCmdArgs -> ScriptDataOrFile
+scriptDataOrFile :: ScriptDataOrFile
+scriptDataOrFile
+      } = do
+  ScriptRedeemer
+d <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> TxCmdError
+TxCmdScriptDataError forall a b. (a -> b) -> a -> b
+$ ScriptDataOrFile -> ExceptT ScriptDataError IO ScriptRedeemer
+readScriptDataOrFile ScriptDataOrFile
+scriptDataOrFile
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex (ScriptRedeemer -> Hash ScriptData
+hashScriptDataBytes ScriptRedeemer
+d)
+
+runTransactionTxIdCmd :: ()
+  => Cmd.TransactionTxIdCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionTxIdCmd :: TransactionTxIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionTxIdCmd
+    Cmd.TransactionTxIdCmdArgs
+      { InputTxBodyOrTxFile
+$sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgs :: TransactionTxIdCmdArgs -> InputTxBodyOrTxFile
+inputTxBodyOrTxFile :: InputTxBodyOrTxFile
+inputTxBodyOrTxFile
+      } = do
+  InAnyCardanoEra CardanoEra era
+_era TxBody era
+txbody <-
+    case InputTxBodyOrTxFile
+inputTxBodyOrTxFile of
+      InputTxBodyFile (File FilePath
+txbodyFilePath) -> do
+        FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+        IncompleteTx
+unwitnessed <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> TxCmdError
+TxCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+                          forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile
+        case IncompleteTx
+unwitnessed of
+          UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+anyTxBody -> forall (m :: * -> *) a. Monad m => a -> m a
+return InAnyCardanoEra TxBody
+anyTxBody
+          IncompleteCddlFormattedTx (InAnyCardanoEra CardanoEra era
+era Tx era
+tx) ->
+            forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra era
+era (forall era. Tx era -> TxBody era
+getTxBody Tx era
+tx))
+
+      InputTxFile (File FilePath
+txFilePath) -> do
+        FileOrPipe
+txFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txFilePath
+        InAnyCardanoEra CardanoEra era
+era Tx era
+tx <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+txFile) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlError -> TxCmdError
+TxCmdCddlError)
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era. Tx era -> TxBody era
+getTxBody Tx era
+tx
+
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ ByteString -> IO ()
+BS.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. SerialiseAsRawBytes a => a -> ByteString
+serialiseToRawBytesHex (forall era. TxBody era -> TxId
+getTxId TxBody era
+txbody)
+
+runTransactionViewCmd :: ()
+  => Cmd.TransactionViewCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionViewCmd :: TransactionViewCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionViewCmd
+    Cmd.TransactionViewCmdArgs
+      { TxViewOutputFormat
+$sel:outputFormat:TransactionViewCmdArgs :: TransactionViewCmdArgs -> TxViewOutputFormat
+outputFormat :: TxViewOutputFormat
+outputFormat
+      , Maybe (File () 'Out)
+$sel:mOutFile:TransactionViewCmdArgs :: TransactionViewCmdArgs -> Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      , InputTxBodyOrTxFile
+$sel:inputTxBodyOrTxFile:TransactionViewCmdArgs :: TransactionViewCmdArgs -> InputTxBodyOrTxFile
+inputTxBodyOrTxFile :: InputTxBodyOrTxFile
+inputTxBodyOrTxFile
+      } =
+  case InputTxBodyOrTxFile
+inputTxBodyOrTxFile of
+    InputTxBodyFile (File FilePath
+txbodyFilePath) -> do
+      FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+      IncompleteTx
+unwitnessed <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> TxCmdError
+TxCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+                      forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile
+      InAnyCardanoEra CardanoEra era
+era TxBody era
+txbody <-
+        case IncompleteTx
+unwitnessed of
+          UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+anyTxBody -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure InAnyCardanoEra TxBody
+anyTxBody
+          IncompleteCddlFormattedTx (InAnyCardanoEra CardanoEra era
+era Tx era
+tx) ->
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra era
+era (forall era. Tx era -> TxBody era
+getTxBody Tx era
+tx)
+      -- Why are we differentiating between a transaction body and a transaction?
+      -- In the case of a transaction body, we /could/ simply call @makeSignedTransaction []@
+      -- to get a transaction which would allow us to reuse friendlyTxBS. However,
+      -- this would mean that we'd have an empty list of witnesses mentioned in the output, which
+      -- is arguably not part of the transaction body.
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> TxCmdError
+TxCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+        case TxViewOutputFormat
+outputFormat of
+          TxViewOutputFormat
+TxViewOutputFormatYaml -> forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> TxBody era
+-> m (Either (FileError e) ())
+friendlyTxBody FriendlyFormat
+FriendlyYaml Maybe (File () 'Out)
+mOutFile CardanoEra era
+era TxBody era
+txbody
+          TxViewOutputFormat
+TxViewOutputFormatJson -> forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> TxBody era
+-> m (Either (FileError e) ())
+friendlyTxBody FriendlyFormat
+FriendlyJson Maybe (File () 'Out)
+mOutFile CardanoEra era
+era TxBody era
+txbody
+    InputTxFile (File FilePath
+txFilePath) -> do
+      FileOrPipe
+txFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txFilePath
+      InAnyCardanoEra CardanoEra era
+era Tx era
+tx <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+txFile) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlError -> TxCmdError
+TxCmdCddlError)
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> TxCmdError
+TxCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+        case TxViewOutputFormat
+outputFormat of
+          TxViewOutputFormat
+TxViewOutputFormatYaml -> forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> Tx era
+-> m (Either (FileError e) ())
+friendlyTx FriendlyFormat
+FriendlyYaml Maybe (File () 'Out)
+mOutFile CardanoEra era
+era Tx era
+tx
+          TxViewOutputFormat
+TxViewOutputFormatJson -> forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> Tx era
+-> m (Either (FileError e) ())
+friendlyTx FriendlyFormat
+FriendlyJson Maybe (File () 'Out)
+mOutFile CardanoEra era
+era Tx era
+tx
+
+-- ----------------------------------------------------------------------------
+-- Witness commands
+--
+
+runTransactionWitnessCmd :: ()
+  => Cmd.TransactionWitnessCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionWitnessCmd :: TransactionWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionWitnessCmd
+    Cmd.TransactionWitnessCmdArgs
+      { $sel:txBodyFile:TransactionWitnessCmdArgs :: TransactionWitnessCmdArgs -> File (TxBody ()) 'In
+txBodyFile = File FilePath
+txbodyFilePath
+      , WitnessSigningData
+$sel:witnessSigningData:TransactionWitnessCmdArgs :: TransactionWitnessCmdArgs -> WitnessSigningData
+witnessSigningData :: WitnessSigningData
+witnessSigningData
+      , Maybe NetworkId
+$sel:mNetworkId:TransactionWitnessCmdArgs :: TransactionWitnessCmdArgs -> Maybe NetworkId
+mNetworkId :: Maybe NetworkId
+mNetworkId
+      , File () 'Out
+$sel:outFile:TransactionWitnessCmdArgs :: TransactionWitnessCmdArgs -> File () 'Out
+outFile :: File () 'Out
+outFile
+      } = do
+  FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+  IncompleteTx
+unwitnessed <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT CddlError -> TxCmdError
+TxCmdCddlError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+                   forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile
+  case IncompleteTx
+unwitnessed of
+    IncompleteCddlFormattedTx InAnyCardanoEra Tx
+anyTx -> do
+     InAnyShelleyBasedEra ShelleyBasedEra era
+sbe Tx era
+cddlTx <-
+       forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra Tx
+anyTx
+
+     let txbody :: TxBody era
+txbody = forall era. Tx era -> TxBody era
+getTxBody Tx era
+cddlTx
+     SomeSigningWitness
+someWit <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ReadWitnessSigningDataError -> TxCmdError
+TxCmdReadWitnessSigningDataError
+                  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ WitnessSigningData
+-> IO (Either ReadWitnessSigningDataError SomeSigningWitness)
+readWitnessSigningData WitnessSigningData
+witnessSigningData
+     KeyWitness era
+witness <-
+       case SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness SomeSigningWitness
+someWit of
+         -- Byron witnesses require the network ID. This can either be provided
+         -- directly or derived from a provided Byron address.
+         AByronWitness ShelleyBootstrapWitnessSigningKeyData
+bootstrapWitData ->
+           forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT BootstrapWitnessError -> TxCmdError
+TxCmdBootstrapWitnessError
+             forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+             forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> ShelleyBootstrapWitnessSigningKeyData
+-> Either BootstrapWitnessError (KeyWitness era)
+mkShelleyBootstrapWitness ShelleyBasedEra era
+sbe Maybe NetworkId
+mNetworkId TxBody era
+txbody ShelleyBootstrapWitnessSigningKeyData
+bootstrapWitData
+         AShelleyKeyWitness ShelleyWitnessSigningKey
+skShelley ->
+           forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> TxBody era -> ShelleyWitnessSigningKey -> KeyWitness era
+makeShelleyKeyWitness ShelleyBasedEra era
+sbe TxBody era
+txbody ShelleyWitnessSigningKey
+skShelley
+
+     forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> TxCmdError
+TxCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+       forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> File () 'Out -> KeyWitness era -> IO (Either (FileError ()) ())
+writeTxWitnessFileTextEnvelopeCddl ShelleyBasedEra era
+sbe File () 'Out
+outFile KeyWitness era
+witness
+
+    UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+anyTxbody -> do
+      InAnyShelleyBasedEra ShelleyBasedEra era
+sbe TxBody era
+txbody <-
+        forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+"sign for Byron era transactions" InAnyCardanoEra TxBody
+anyTxbody
+
+      SomeSigningWitness
+someWit <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ReadWitnessSigningDataError -> TxCmdError
+TxCmdReadWitnessSigningDataError
+                   forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ WitnessSigningData
+-> IO (Either ReadWitnessSigningDataError SomeSigningWitness)
+readWitnessSigningData WitnessSigningData
+witnessSigningData
+
+      KeyWitness era
+witness <-
+        case SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness SomeSigningWitness
+someWit of
+          -- Byron witnesses require the network ID. This can either be provided
+          -- directly or derived from a provided Byron address.
+          AByronWitness ShelleyBootstrapWitnessSigningKeyData
+bootstrapWitData ->
+            forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT BootstrapWitnessError -> TxCmdError
+TxCmdBootstrapWitnessError
+              forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+              forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> Maybe NetworkId
+-> TxBody era
+-> ShelleyBootstrapWitnessSigningKeyData
+-> Either BootstrapWitnessError (KeyWitness era)
+mkShelleyBootstrapWitness ShelleyBasedEra era
+sbe Maybe NetworkId
+mNetworkId TxBody era
+txbody ShelleyBootstrapWitnessSigningKeyData
+bootstrapWitData
+          AShelleyKeyWitness ShelleyWitnessSigningKey
+skShelley ->
+            forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era
+-> TxBody era -> ShelleyWitnessSigningKey -> KeyWitness era
+makeShelleyKeyWitness ShelleyBasedEra era
+sbe TxBody era
+txbody ShelleyWitnessSigningKey
+skShelley
+
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> TxCmdError
+TxCmdWriteFileError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+        forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile
+        forall a b. (a -> b) -> a -> b
+$ forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe
+        forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing KeyWitness era
+witness
+
+runTransactionSignWitnessCmd :: ()
+  => Cmd.TransactionSignWitnessCmdArgs
+  -> ExceptT TxCmdError IO ()
+runTransactionSignWitnessCmd :: TransactionSignWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignWitnessCmd
+    Cmd.TransactionSignWitnessCmdArgs
+      { $sel:txBodyFile:TransactionSignWitnessCmdArgs :: TransactionSignWitnessCmdArgs -> File (TxBody ()) 'In
+txBodyFile = File FilePath
+txbodyFilePath
+      , $sel:witnessFiles:TransactionSignWitnessCmdArgs :: TransactionSignWitnessCmdArgs -> [WitnessFile]
+witnessFiles = [WitnessFile]
+witnessFiles
+      , $sel:outFile:TransactionSignWitnessCmdArgs :: TransactionSignWitnessCmdArgs -> File () 'Out
+outFile = File () 'Out
+outFile
+      } = do
+  FileOrPipe
+txbodyFile <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO FileOrPipe
+fileOrPipe FilePath
+txbodyFilePath
+  IncompleteTx
+unwitnessed <- forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+txbodyFile) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlError -> TxCmdError
+TxCmdCddlError)
+  case IncompleteTx
+unwitnessed of
+    UnwitnessedCliFormattedTxBody (InAnyCardanoEra CardanoEra era
+era TxBody era
+txbody) -> forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ do
+      [KeyWitness era]
+witnesses <-
+        forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+          [ do
+              InAnyCardanoEra CardanoEra era
+era' KeyWitness era
+witness <-
+                forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FilePath
+-> IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))
+readFileTxKeyWitness FilePath
+file) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlWitnessError -> TxCmdError
+TxCmdCddlWitnessError)
+
+              case forall {k} (f :: k -> *) (a :: k) (b :: k).
+TestEquality f =>
+f a -> f b -> Maybe (a :~: b)
+testEquality CardanoEra era
+era CardanoEra era
+era' of
+                Maybe (era :~: era)
+Nothing   -> forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era' forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> AnyCardanoEra -> WitnessFile -> TxCmdError
+TxCmdWitnessEraMismatch (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era) (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era') WitnessFile
+witnessFile
+                Just era :~: era
+Refl -> forall (m :: * -> *) a. Monad m => a -> m a
+return KeyWitness era
+witness
+          | witnessFile :: WitnessFile
+witnessFile@(WitnessFile FilePath
+file) <- [WitnessFile]
+witnessFiles
+          ]
+
+      let tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [KeyWitness era]
+witnesses TxBody era
+txbody
+
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+outFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing Tx era
+tx)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+    IncompleteCddlFormattedTx (InAnyCardanoEra CardanoEra era
+era Tx era
+anyTx) -> do
+      let txbody :: TxBody era
+txbody = forall era. Tx era -> TxBody era
+getTxBody Tx era
+anyTx
+
+      [KeyWitness era]
+witnesses <-
+        forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+          [ do
+              InAnyCardanoEra CardanoEra era
+era' KeyWitness era
+witness <-
+                forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (FilePath
+-> IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))
+readFileTxKeyWitness FilePath
+file) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlWitnessError -> TxCmdError
+TxCmdCddlWitnessError)
+
+              case forall {k} (f :: k -> *) (a :: k) (b :: k).
+TestEquality f =>
+f a -> f b -> Maybe (a :~: b)
+testEquality CardanoEra era
+era CardanoEra era
+era' of
+                Maybe (era :~: era)
+Nothing   -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> AnyCardanoEra -> WitnessFile -> TxCmdError
+TxCmdWitnessEraMismatch (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era) (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era') WitnessFile
+witnessFile
+                Just era :~: era
+Refl -> forall (m :: * -> *) a. Monad m => a -> m a
+return KeyWitness era
+witness
+          | witnessFile :: WitnessFile
+witnessFile@(WitnessFile FilePath
+file) <- [WitnessFile]
+witnessFiles ]
+
+      let tx :: Tx era
+tx = forall era. [KeyWitness era] -> TxBody era -> Tx era
+makeSignedTransaction [KeyWitness era]
+witnesses TxBody era
+txbody
+
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall era content.
+CardanoEra era
+-> File content 'Out -> Tx era -> IO (Either (FileError ()) ())
+writeTxFileTextEnvelopeCddl CardanoEra era
+era File () 'Out
+outFile Tx era
+tx) forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError () -> TxCmdError
+TxCmdWriteFileError)
+
+-- | Constrain the era to be Shelley based. Fail for the Byron era.
+onlyInShelleyBasedEras :: ()
+  => Text
+  -> InAnyCardanoEra a
+  -> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras :: forall (a :: * -> *).
+Text
+-> InAnyCardanoEra a
+-> ExceptT TxCmdError IO (InAnyShelleyBasedEra a)
+onlyInShelleyBasedEras Text
+notImplMsg (InAnyCardanoEra CardanoEra era
+era a era
+x) =
+  forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+era (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ Text -> TxCmdError
+TxCmdNotImplemented Text
+notImplMsg) forall a b. (a -> b) -> a -> b
+$ \ShelleyBasedEra era
+sbe ->
+    forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. Monad m => a -> m a
+return (forall era (thing :: * -> *).
+Typeable era =>
+ShelleyBasedEra era -> thing era -> InAnyShelleyBasedEra thing
+InAnyShelleyBasedEra ShelleyBasedEra era
+sbe a era
+x)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.html b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.html new file mode 100644 index 0000000000..23b418f24d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.EraBased.Run.html @@ -0,0 +1,154 @@ +
{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.EraBased.Run
+  ( runAnyEraCommand
+  , runCmds
+  , runGovernanceCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Commands
+import           Cardano.CLI.EraBased.Run.Address
+import           Cardano.CLI.EraBased.Run.Genesis
+import           Cardano.CLI.EraBased.Run.Governance
+import           Cardano.CLI.EraBased.Run.Key
+import           Cardano.CLI.EraBased.Run.Node
+import           Cardano.CLI.EraBased.Run.Query
+import           Cardano.CLI.EraBased.Run.StakeAddress
+import           Cardano.CLI.EraBased.Run.StakePool
+import           Cardano.CLI.EraBased.Run.TextView
+import           Cardano.CLI.EraBased.Run.Transaction
+import           Cardano.CLI.Types.Errors.CmdError
+
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra (firstExceptT)
+import           Data.Function ((&))
+
+runAnyEraCommand :: ()
+  => AnyEraCommand
+  -> ExceptT CmdError IO ()
+runAnyEraCommand :: AnyEraCommand -> ExceptT CmdError IO ()
+runAnyEraCommand = \case
+  AnyEraCommandOf ShelleyBasedEra era
+sbe Cmds era
+cmd ->
+    forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall era. Cmds era -> ExceptT CmdError IO ()
+runCmds Cmds era
+cmd
+
+runCmds :: ()
+  => Cmds era
+  -> ExceptT CmdError IO ()
+runCmds :: forall era. Cmds era -> ExceptT CmdError IO ()
+runCmds = \case
+  AddressCmds AddressCmds era
+cmd ->
+    forall era. AddressCmds era -> ExceptT AddressCmdError IO ()
+runAddressCmds AddressCmds era
+cmd forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AddressCmdError -> CmdError
+CmdAddressError
+  KeyCmds KeyCmds era
+cmd ->
+    forall era. KeyCmds era -> ExceptT KeyCmdError IO ()
+runKeyCmds KeyCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT KeyCmdError -> CmdError
+CmdKeyError
+  GovernanceCmds GovernanceCmds era
+cmd ->
+    forall era. GovernanceCmds era -> ExceptT CmdError IO ()
+runGovernanceCmds GovernanceCmds era
+cmd
+  GenesisCmds GenesisCmds era
+cmd ->
+    forall era. GenesisCmds era -> ExceptT GenesisCmdError IO ()
+runGenesisCmds GenesisCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GenesisCmdError -> CmdError
+CmdGenesisError
+  NodeCmds NodeCmds era
+cmd ->
+    forall era. NodeCmds era -> ExceptT NodeCmdError IO ()
+runNodeCmds NodeCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT NodeCmdError -> CmdError
+CmdNodeError
+  QueryCmds QueryCmds era
+cmd ->
+    forall era. QueryCmds era -> ExceptT QueryCmdError IO ()
+runQueryCmds QueryCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT QueryCmdError -> CmdError
+CmdQueryError
+  StakeAddressCmds StakeAddressCmds era
+cmd ->
+    forall era.
+StakeAddressCmds era -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressCmds StakeAddressCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeAddressCmdError -> CmdError
+CmdStakeAddressError
+  StakePoolCmds StakePoolCmds era
+cmd ->
+    forall era. StakePoolCmds era -> ExceptT StakePoolCmdError IO ()
+runStakePoolCmds StakePoolCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakePoolCmdError -> CmdError
+CmdStakePoolError
+  TextViewCmds TextViewCmds era
+cmd ->
+    forall era. TextViewCmds era -> ExceptT TextViewFileError IO ()
+runTextViewCmds TextViewCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TextViewFileError -> CmdError
+CmdTextViewError
+  TransactionCmds TransactionCmds era
+cmd ->
+    forall era. TransactionCmds era -> ExceptT TxCmdError IO ()
+runTransactionCmds TransactionCmds era
+cmd
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxCmdError -> CmdError
+CmdTransactionError
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Helpers.html b/cardano-cli/lib/src/Cardano.CLI.Helpers.html new file mode 100644 index 0000000000..87b61f4f15 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Helpers.html @@ -0,0 +1,354 @@ +
{-# LANGUAGE GADTs #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Helpers
+  ( HelpersError(..)
+  , printWarning
+  , deprecationWarning
+  , ensureNewFile
+  , ensureNewFileLBS
+  , pPrintCBOR
+  , readCBOR
+  , renderHelpersError
+  , validateCBOR
+  ) where
+
+import           Cardano.Chain.Block (decCBORABlockOrBoundary)
+import qualified Cardano.Chain.Delegation as Delegation
+import qualified Cardano.Chain.Update as Update
+import qualified Cardano.Chain.UTxO as UTxO
+import           Cardano.CLI.Types.Common
+import           Cardano.Ledger.Binary (byronProtVer, toPlainDecoder)
+import           Cardano.Ledger.Binary.Plain (Decoder, fromCBOR)
+
+import           Codec.CBOR.Pretty (prettyHexEnc)
+import           Codec.CBOR.Read (DeserialiseFailure, deserialiseFromBytes)
+import           Codec.CBOR.Term (decodeTerm, encodeTerm)
+import           Control.Exception (Exception (..), IOException)
+import           Control.Monad (unless, when)
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (handleIOExceptT, left)
+import           Data.Bifunctor (Bifunctor (..))
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Lazy as LB
+import           Data.Functor (void)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
+import qualified System.Console.ANSI as ANSI
+import           System.Console.ANSI
+import qualified System.Directory as IO
+import qualified System.IO as IO
+
+data HelpersError
+  = CBORPrettyPrintError !DeserialiseFailure
+  | CBORDecodingError !DeserialiseFailure
+  | IOError' !FilePath !IOException
+  | OutputMustNotAlreadyExist FilePath
+  | ReadCBORFileFailure !FilePath !Text
+  deriving Int -> HelpersError -> ShowS
+[HelpersError] -> ShowS
+HelpersError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [HelpersError] -> ShowS
+$cshowList :: [HelpersError] -> ShowS
+show :: HelpersError -> String
+$cshow :: HelpersError -> String
+showsPrec :: Int -> HelpersError -> ShowS
+$cshowsPrec :: Int -> HelpersError -> ShowS
+Show
+
+renderHelpersError :: HelpersError -> Text
+renderHelpersError :: HelpersError -> Text
+renderHelpersError HelpersError
+err =
+  case HelpersError
+err of
+    OutputMustNotAlreadyExist String
+fp -> Text
+"Output file/directory must not already exist: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+fp
+    ReadCBORFileFailure String
+fp Text
+err' -> Text
+"CBOR read failure at: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+fp forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show Text
+err')
+    CBORPrettyPrintError DeserialiseFailure
+err' -> Text
+"Error with CBOR decoding: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show DeserialiseFailure
+err')
+    CBORDecodingError DeserialiseFailure
+err' -> Text
+"Error with CBOR decoding: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show DeserialiseFailure
+err')
+    IOError' String
+fp IOException
+ioE -> Text
+"Error at: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show IOException
+ioE)
+
+decodeCBOR
+  :: LB.ByteString
+  -> (forall s. Decoder s a)
+  -> Either HelpersError (LB.ByteString, a)
+decodeCBOR :: forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs forall s. Decoder s a
+decoder =
+  forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first DeserialiseFailure -> HelpersError
+CBORDecodingError forall a b. (a -> b) -> a -> b
+$ forall a.
+(forall s. Decoder s a)
+-> ByteString -> Either DeserialiseFailure (ByteString, a)
+deserialiseFromBytes forall s. Decoder s a
+decoder ByteString
+bs
+
+printWarning :: String -> IO ()
+printWarning :: String -> IO ()
+printWarning String
+warning = do
+  Handle -> [SGR] -> IO ()
+ANSI.hSetSGR Handle
+IO.stderr [ConsoleLayer -> ColorIntensity -> Color -> SGR
+SetColor ConsoleLayer
+Foreground ColorIntensity
+Vivid Color
+Yellow]
+  Handle -> String -> IO ()
+IO.hPutStrLn Handle
+IO.stderr forall a b. (a -> b) -> a -> b
+$ String
+"WARNING: " forall a. Semigroup a => a -> a -> a
+<> String
+warning
+  Handle -> [SGR] -> IO ()
+ANSI.hSetSGR Handle
+IO.stderr [SGR
+Reset]
+    -- We need to flush, or otherwise what's on stdout may have the wrong colour
+    -- since it's likely sharing a console with stderr
+  Handle -> IO ()
+IO.hFlush Handle
+IO.stderr
+
+deprecationWarning :: String -> IO ()
+deprecationWarning :: String -> IO ()
+deprecationWarning String
+cmd = String -> IO ()
+printWarning forall a b. (a -> b) -> a -> b
+$
+  String
+"This CLI command is deprecated.  Please use " forall a. Semigroup a => a -> a -> a
+<> String
+cmd forall a. Semigroup a => a -> a -> a
+<> String
+" command instead."
+
+-- | Checks if a path exists and throws and error if it does.
+ensureNewFile :: (FilePath -> a -> IO ()) -> FilePath -> a -> ExceptT HelpersError IO ()
+ensureNewFile :: forall a.
+(String -> a -> IO ()) -> String -> a -> ExceptT HelpersError IO ()
+ensureNewFile String -> a -> IO ()
+writer String
+outFile a
+blob = do
+  Bool
+exists <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> IO Bool
+IO.doesPathExist String
+outFile
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when Bool
+exists forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ String -> HelpersError
+OutputMustNotAlreadyExist String
+outFile
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> a -> IO ()
+writer String
+outFile a
+blob
+
+ensureNewFileLBS :: FilePath -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS :: String -> ByteString -> ExceptT HelpersError IO ()
+ensureNewFileLBS = forall a.
+(String -> a -> IO ()) -> String -> a -> ExceptT HelpersError IO ()
+ensureNewFile String -> ByteString -> IO ()
+BS.writeFile
+
+pPrintCBOR :: LB.ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR :: ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+bs = do
+  case forall a.
+(forall s. Decoder s a)
+-> ByteString -> Either DeserialiseFailure (ByteString, a)
+deserialiseFromBytes forall s. Decoder s Term
+decodeTerm ByteString
+bs of
+    Left DeserialiseFailure
+err -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ DeserialiseFailure -> HelpersError
+CBORPrettyPrintError DeserialiseFailure
+err
+    Right (ByteString
+remaining, Term
+decodedVal) -> do
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+Text.putStrLn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Encoding -> String
+prettyHexEnc forall a b. (a -> b) -> a -> b
+$ Term -> Encoding
+encodeTerm Term
+decodedVal
+      forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless (ByteString -> Bool
+LB.null ByteString
+remaining) forall a b. (a -> b) -> a -> b
+$
+        ByteString -> ExceptT HelpersError IO ()
+pPrintCBOR ByteString
+remaining
+
+readCBOR :: FilePath -> ExceptT HelpersError IO LB.ByteString
+readCBOR :: String -> ExceptT HelpersError IO ByteString
+readCBOR String
+fp =
+  forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT
+    (String -> Text -> HelpersError
+ReadCBORFileFailure String
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Exception e => e -> String
+displayException)
+    (String -> IO ByteString
+LB.readFile String
+fp)
+
+validateCBOR :: CBORObject -> LB.ByteString -> Either HelpersError Text
+validateCBOR :: CBORObject -> ByteString -> Either HelpersError Text
+validateCBOR CBORObject
+cborObject ByteString
+bs =
+  case CBORObject
+cborObject of
+    CBORBlockByron EpochSlots
+epochSlots -> do
+      forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs (forall s a. Version -> Decoder s a -> Decoder s a
+toPlainDecoder Version
+byronProtVer (forall s. EpochSlots -> Decoder s (ABlockOrBoundary ByteSpan)
+decCBORABlockOrBoundary EpochSlots
+epochSlots))
+      forall a b. b -> Either a b
+Right Text
+"Valid Byron block."
+
+    CBORObject
+CBORDelegationCertificateByron -> do
+      forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs (forall a s. FromCBOR a => Decoder s a
+fromCBOR :: Decoder s Delegation.Certificate)
+      forall a b. b -> Either a b
+Right Text
+"Valid Byron delegation certificate."
+
+    CBORObject
+CBORTxByron -> do
+      forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs (forall a s. FromCBOR a => Decoder s a
+fromCBOR :: Decoder s UTxO.Tx)
+      forall a b. b -> Either a b
+Right Text
+"Valid Byron Tx."
+
+    CBORObject
+CBORUpdateProposalByron -> do
+      forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs (forall a s. FromCBOR a => Decoder s a
+fromCBOR :: Decoder s Update.Proposal)
+      forall a b. b -> Either a b
+Right Text
+"Valid Byron update proposal."
+
+    CBORObject
+CBORVoteByron -> do
+      forall (f :: * -> *) a. Functor f => f a -> f ()
+void forall a b. (a -> b) -> a -> b
+$ forall a.
+ByteString
+-> (forall s. Decoder s a) -> Either HelpersError (ByteString, a)
+decodeCBOR ByteString
+bs (forall a s. FromCBOR a => Decoder s a
+fromCBOR :: Decoder s Update.Vote)
+      forall a b. b -> Either a b
+Right Text
+"Valid Byron vote."
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.IO.GitRev.html b/cardano-cli/lib/src/Cardano.CLI.IO.GitRev.html new file mode 100644 index 0000000000..8df8f466f0 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.IO.GitRev.html @@ -0,0 +1,69 @@ +
{-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+module Cardano.CLI.IO.GitRev
+  ( gitRev
+  ) where
+
+import           Data.Text (Text)
+import qualified Data.Text as T
+
+import           Cardano.Git.RevFromGit (gitRevFromGit)
+import           GHC.Foreign (peekCStringLen)
+import           Foreign.C.String (CString)
+import           System.IO (utf8)
+import           System.IO.Unsafe (unsafeDupablePerformIO)
+
+foreign import ccall "&_cardano_git_rev" c_gitrev :: CString
+
+gitRev :: Text
+gitRev :: Text
+gitRev | Text
+gitRevEmbed forall a. Eq a => a -> a -> Bool
+/= Text
+zeroRev = Text
+gitRevEmbed
+       | Text -> Bool
+T.null Text
+fromGit         = Text
+zeroRev
+       | Bool
+otherwise              = Text
+fromGit
+ where
+  -- Git revision embedded after compilation using
+  -- Data.FileEmbed.injectWith. If nothing has been injected,
+  -- this will be filled with 0 characters.
+  gitRevEmbed :: Text
+  gitRevEmbed :: Text
+gitRevEmbed = String -> Text
+T.pack forall a b. (a -> b) -> a -> b
+$ forall a. Int -> [a] -> [a]
+drop Int
+28 forall a b. (a -> b) -> a -> b
+$ forall a. IO a -> a
+unsafeDupablePerformIO (TextEncoding -> CStringLen -> IO String
+peekCStringLen TextEncoding
+utf8 (CString
+c_gitrev, Int
+68))
+
+  -- Git revision found during compilation by running git. If
+  -- git could not be run, then this will be empty.
+#if defined(arm_HOST_ARCH)
+  -- cross compiling to arm fails; due to a linker bug
+  fromGit = ""
+#else
+  fromGit :: Text
+fromGit = Text -> Text
+T.strip (String -> Text
+T.pack $(gitRevFromGit))
+#endif
+
+zeroRev :: Text
+zeroRev :: Text
+zeroRev = Text
+"0000000000000000000000000000000000000000"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.IO.Lazy.html b/cardano-cli/lib/src/Cardano.CLI.IO.Lazy.html new file mode 100644 index 0000000000..71990a34fe --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.IO.Lazy.html @@ -0,0 +1,190 @@ +
{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.IO.Lazy
+  ( replicateM
+  , sequenceM
+  , traverseM
+  , traverseStateM
+  , forM
+  , forStateM
+  ) where
+
+import           Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, UnliftIO (unliftIO),
+                   askUnliftIO)
+import qualified Data.List as L
+import qualified System.IO.Unsafe as IO
+
+replicateM :: MonadUnliftIO m => Int -> m a -> m [a]
+replicateM :: forall (m :: * -> *) a. MonadUnliftIO m => Int -> m a -> m [a]
+replicateM Int
+n m a
+f = forall (m :: * -> *) a. MonadUnliftIO m => [m a] -> m [a]
+sequenceM (forall a. Int -> a -> [a]
+L.replicate Int
+n m a
+f)
+
+sequenceM :: MonadUnliftIO m => [m a] -> m [a]
+sequenceM :: forall (m :: * -> *) a. MonadUnliftIO m => [m a] -> m [a]
+sequenceM [m a]
+as = do
+  UnliftIO m
+f <- forall (m :: * -> *). MonadUnliftIO m => m (UnliftIO m)
+askUnliftIO
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. [IO a] -> IO [a]
+sequenceIO (forall a b. (a -> b) -> [a] -> [b]
+L.map (forall (m :: * -> *). UnliftIO m -> forall a. m a -> IO a
+unliftIO UnliftIO m
+f) [m a]
+as)
+
+-- | Traverses the function over the list and produces a lazy list in a
+-- monadic context.
+--
+-- It is intended to be like the "standard" 'traverse' except
+-- that the list is generated lazily.
+traverseM :: MonadUnliftIO m => (a -> m b) -> [a] -> m [b]
+traverseM :: forall (m :: * -> *) a b.
+MonadUnliftIO m =>
+(a -> m b) -> [a] -> m [b]
+traverseM a -> m b
+f [a]
+as = do
+  UnliftIO m
+u <- forall (m :: * -> *). MonadUnliftIO m => m (UnliftIO m)
+askUnliftIO
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. IO a -> IO a
+IO.unsafeInterleaveIO (UnliftIO m -> [a] -> IO [b]
+go UnliftIO m
+u [a]
+as)
+  where
+    go :: UnliftIO m -> [a] -> IO [b]
+go UnliftIO m
+_ [] = forall (f :: * -> *) a. Applicative f => a -> f a
+pure []
+    go !UnliftIO m
+u (a
+v:[a]
+vs) = do
+      !b
+res <- forall (m :: * -> *). UnliftIO m -> forall a. m a -> IO a
+unliftIO UnliftIO m
+u (a -> m b
+f a
+v)
+      [b]
+rest <- forall a. IO a -> IO a
+IO.unsafeInterleaveIO (UnliftIO m -> [a] -> IO [b]
+go UnliftIO m
+u [a]
+vs)
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure (b
+resforall a. a -> [a] -> [a]
+:[b]
+rest)
+
+traverseStateM :: forall m s a b. MonadUnliftIO m => s -> (s -> a -> m (s, b)) -> [a] -> m [b]
+traverseStateM :: forall (m :: * -> *) s a b.
+MonadUnliftIO m =>
+s -> (s -> a -> m (s, b)) -> [a] -> m [b]
+traverseStateM s
+s s -> a -> m (s, b)
+f [a]
+as = do
+  UnliftIO m
+u <- forall (m :: * -> *). MonadUnliftIO m => m (UnliftIO m)
+askUnliftIO
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a. IO a -> IO a
+IO.unsafeInterleaveIO (s -> UnliftIO m -> [a] -> IO [b]
+go s
+s UnliftIO m
+u [a]
+as)
+  where
+    go :: s -> UnliftIO m -> [a] -> IO [b]
+    go :: s -> UnliftIO m -> [a] -> IO [b]
+go s
+_ UnliftIO m
+_ [] = forall (f :: * -> *) a. Applicative f => a -> f a
+pure []
+    go s
+t !UnliftIO m
+u (a
+v:[a]
+vs) = do
+      (s
+t', !b
+res) <- forall (m :: * -> *). UnliftIO m -> forall a. m a -> IO a
+unliftIO UnliftIO m
+u (s -> a -> m (s, b)
+f s
+t a
+v)
+      [b]
+rest <- forall a. IO a -> IO a
+IO.unsafeInterleaveIO (s -> UnliftIO m -> [a] -> IO [b]
+go s
+t' UnliftIO m
+u [a]
+vs)
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure (b
+resforall a. a -> [a] -> [a]
+:[b]
+rest)
+
+forM :: MonadUnliftIO m => [a] -> (a -> m b) -> m [b]
+forM :: forall (m :: * -> *) a b.
+MonadUnliftIO m =>
+[a] -> (a -> m b) -> m [b]
+forM = forall a b c. (a -> b -> c) -> b -> a -> c
+flip forall (m :: * -> *) a b.
+MonadUnliftIO m =>
+(a -> m b) -> [a] -> m [b]
+traverseM
+
+forStateM :: MonadUnliftIO m => s -> [a] -> (s -> a -> m (s, b)) -> m [b]
+forStateM :: forall (m :: * -> *) s a b.
+MonadUnliftIO m =>
+s -> [a] -> (s -> a -> m (s, b)) -> m [b]
+forStateM s
+s [a]
+as s -> a -> m (s, b)
+f = forall (m :: * -> *) s a b.
+MonadUnliftIO m =>
+s -> (s -> a -> m (s, b)) -> [a] -> m [b]
+traverseStateM s
+s s -> a -> m (s, b)
+f [a]
+as
+
+-- Internal
+sequenceIO :: [IO a] -> IO [a]
+sequenceIO :: forall a. [IO a] -> IO [a]
+sequenceIO = forall a. IO a -> IO a
+IO.unsafeInterleaveIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. [IO a] -> IO [a]
+go
+  where go :: [IO a] -> IO [a]
+        go :: forall a. [IO a] -> IO [a]
+go []       = forall (m :: * -> *) a. Monad m => a -> m a
+return []
+        go (IO a
+fa:[IO a]
+fas) = (:) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> IO a
+fa forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. IO a -> IO a
+IO.unsafeInterleaveIO (forall a. [IO a] -> IO [a]
+go [IO a]
+fas)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Json.Friendly.html b/cardano-cli/lib/src/Cardano.CLI.Json.Friendly.html new file mode 100644 index 0000000000..596e1988d0 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Json.Friendly.html @@ -0,0 +1,2039 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DisambiguateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE PatternSynonyms #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeOperators #-}
+
+-- | User-friendly pretty-printing for textual user interfaces (TUI)
+module Cardano.CLI.Json.Friendly
+  ( friendlyTx
+  , friendlyTxBody
+  , friendlyProposal
+  , FriendlyFormat(..)
+  ) where
+
+import           Cardano.Api as Api
+import           Cardano.Api.Byron (KeyWitness (ByronKeyWitness))
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley (Address (ShelleyAddress), Hash (..),
+                   KeyWitness (ShelleyBootstrapWitness, ShelleyKeyWitness), Proposal (Proposal),
+                   ShelleyLedgerEra, StakeAddress (..), fromShelleyPaymentCredential,
+                   fromShelleyStakeReference, toShelleyLovelace, toShelleyStakeCredential)
+
+import qualified Cardano.Ledger.Conway.Governance as Gov
+import qualified Cardano.Ledger.Conway.TxCert as ConwayLedger
+import qualified Cardano.Ledger.Credential as Shelley
+import qualified Cardano.Ledger.Shelley.API as Shelley
+
+import           Control.Monad.Trans (MonadIO)
+import           Data.Aeson (Value (..), object, toJSON, (.=))
+import qualified Data.Aeson as Aeson
+import qualified Data.Aeson.Encode.Pretty as Aeson
+import qualified Data.Aeson.Key as Aeson
+import qualified Data.Aeson.Types as Aeson
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Char (isAscii)
+import           Data.Function ((&))
+import           Data.Functor ((<&>))
+import qualified Data.Map.Strict as Map
+import           Data.Maybe (catMaybes, isJust, maybeToList)
+import           Data.Ratio (numerator)
+import qualified Data.Text as Text
+import           Data.Yaml (array)
+import           Data.Yaml.Pretty (setConfCompare)
+import qualified Data.Yaml.Pretty as Yaml
+import           GHC.Real (denominator)
+import           GHC.Unicode (isAlphaNum)
+
+data FriendlyFormat = FriendlyJson | FriendlyYaml
+
+friendly ::
+  (MonadIO m, Aeson.ToJSON a)
+  => FriendlyFormat
+  -> Maybe (File () Out)
+  -> a
+  -> m (Either (FileError e) ())
+friendly :: forall (m :: * -> *) a e.
+(MonadIO m, ToJSON a) =>
+FriendlyFormat
+-> Maybe (File () 'Out) -> a -> m (Either (FileError e) ())
+friendly FriendlyFormat
+FriendlyJson Maybe (File () 'Out)
+mOutFile = forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringOutput Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON a => Config -> a -> ByteString
+Aeson.encodePretty' Config
+jsonConfig
+friendly FriendlyFormat
+FriendlyYaml Maybe (File () 'Out)
+mOutFile = forall (m :: * -> *) content e.
+MonadIO m =>
+Maybe (File content 'Out)
+-> ByteString -> m (Either (FileError e) ())
+writeByteStringOutput Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ToJSON a => Config -> a -> ByteString
+Yaml.encodePretty Config
+yamlConfig
+
+jsonConfig :: Aeson.Config
+jsonConfig :: Config
+jsonConfig = Config
+Aeson.defConfig {confCompare :: Text -> Text -> Ordering
+Aeson.confCompare = forall a. Ord a => a -> a -> Ordering
+compare}
+
+yamlConfig :: Yaml.Config
+yamlConfig :: Config
+yamlConfig = Config
+Yaml.defConfig forall a b. a -> (a -> b) -> b
+& (Text -> Text -> Ordering) -> Config -> Config
+setConfCompare forall a. Ord a => a -> a -> Ordering
+compare
+
+friendlyTx ::
+  (MonadIO m)
+  => FriendlyFormat
+  -> Maybe (File () Out)
+  -> CardanoEra era
+  -> Tx era
+  -> m (Either (FileError e) ())
+friendlyTx :: forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> Tx era
+-> m (Either (FileError e) ())
+friendlyTx FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile CardanoEra era
+era =
+  forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) a e.
+(MonadIO m, ToJSON a) =>
+FriendlyFormat
+-> Maybe (File () 'Out) -> a -> m (Either (FileError e) ())
+friendly FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. CardanoEra era -> Tx era -> [Pair]
+friendlyTxImpl CardanoEra era
+era
+
+friendlyTxBody ::
+  (MonadIO m)
+  => FriendlyFormat
+  -> Maybe (File () Out)
+  -> CardanoEra era
+  -> TxBody era
+  -> m (Either (FileError e) ())
+friendlyTxBody :: forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> CardanoEra era
+-> TxBody era
+-> m (Either (FileError e) ())
+friendlyTxBody FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile CardanoEra era
+era =
+  forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) a e.
+(MonadIO m, ToJSON a) =>
+FriendlyFormat
+-> Maybe (File () 'Out) -> a -> m (Either (FileError e) ())
+friendly FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. CardanoEra era -> TxBody era -> [Pair]
+friendlyTxBodyImpl CardanoEra era
+era
+
+friendlyProposal ::
+  (MonadIO m)
+  => FriendlyFormat
+  -> Maybe (File () Out)
+  -> ConwayEraOnwards era
+  -> Proposal era
+  -> m (Either (FileError e) ())
+friendlyProposal :: forall (m :: * -> *) era e.
+MonadIO m =>
+FriendlyFormat
+-> Maybe (File () 'Out)
+-> ConwayEraOnwards era
+-> Proposal era
+-> m (Either (FileError e) ())
+friendlyProposal FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile ConwayEraOnwards era
+era =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+era forall a b. (a -> b) -> a -> b
+$
+    forall (m :: * -> *) a e.
+(MonadIO m, ToJSON a) =>
+FriendlyFormat
+-> Maybe (File () 'Out) -> a -> m (Either (FileError e) ())
+friendly FriendlyFormat
+format Maybe (File () 'Out)
+mOutFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. ConwayEraOnwards era -> Proposal era -> [Pair]
+friendlyProposalImpl ConwayEraOnwards era
+era
+
+friendlyProposalImpl :: ConwayEraOnwards era -> Proposal era -> [Aeson.Pair]
+friendlyProposalImpl :: forall era. ConwayEraOnwards era -> Proposal era -> [Pair]
+friendlyProposalImpl
+  ConwayEraOnwards era
+era
+  (Proposal
+    (Gov.ProposalProcedure
+      { Coin
+pProcDeposit :: forall era. ProposalProcedure era -> Coin
+pProcDeposit :: Coin
+Gov.pProcDeposit
+      , RewardAcnt (EraCrypto (ShelleyLedgerEra era))
+pProcReturnAddr :: forall era. ProposalProcedure era -> RewardAcnt (EraCrypto era)
+pProcReturnAddr :: RewardAcnt (EraCrypto (ShelleyLedgerEra era))
+Gov.pProcReturnAddr
+      , GovAction (ShelleyLedgerEra era)
+pProcGovAction :: forall era. ProposalProcedure era -> GovAction era
+pProcGovAction :: GovAction (ShelleyLedgerEra era)
+Gov.pProcGovAction
+      , Anchor (EraCrypto (ShelleyLedgerEra era))
+pProcAnchor :: forall era. ProposalProcedure era -> Anchor (EraCrypto era)
+pProcAnchor :: Anchor (EraCrypto (ShelleyLedgerEra era))
+Gov.pProcAnchor
+      }
+    )
+  ) = forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+era
+    [ Key
+"deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+pProcDeposit
+    , Key
+"return address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= RewardAcnt (EraCrypto (ShelleyLedgerEra era))
+pProcReturnAddr
+    , Key
+"governance action" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= GovAction (ShelleyLedgerEra era)
+pProcGovAction
+    , Key
+"anchor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Anchor (EraCrypto (ShelleyLedgerEra era))
+pProcAnchor
+    ]
+
+friendlyTxImpl :: ()
+  => CardanoEra era
+  -> Tx era
+  -> [Aeson.Pair]
+friendlyTxImpl :: forall era. CardanoEra era -> Tx era -> [Pair]
+friendlyTxImpl CardanoEra era
+era (Tx TxBody era
+body [KeyWitness era]
+witnesses) =
+  (Key
+"witnesses" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a b. (a -> b) -> [a] -> [b]
+map forall era. KeyWitness era -> Value
+friendlyKeyWitness [KeyWitness era]
+witnesses) forall a. a -> [a] -> [a]
+: forall era. CardanoEra era -> TxBody era -> [Pair]
+friendlyTxBodyImpl CardanoEra era
+era TxBody era
+body
+
+friendlyKeyWitness :: KeyWitness era -> Aeson.Value
+friendlyKeyWitness :: forall era. KeyWitness era -> Value
+friendlyKeyWitness =
+  [Pair] -> Value
+object
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. \case
+      ByronKeyWitness TxInWitness
+txInWitness -> [Key
+"Byron witness" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a. Show a => a -> Text
+textShow TxInWitness
+txInWitness]
+      ShelleyBootstrapWitness ShelleyBasedEra era
+_era BootstrapWitness StandardCrypto
+bootstrapWitness ->
+        [Key
+"bootstrap witness" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a. Show a => a -> Text
+textShow BootstrapWitness StandardCrypto
+bootstrapWitness]
+      ShelleyKeyWitness ShelleyBasedEra era
+_era (Shelley.WitVKey VKey 'Witness StandardCrypto
+key SignedDSIGN
+  StandardCrypto (Hash StandardCrypto EraIndependentTxBody)
+signature) ->
+        [Key
+"key" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a. Show a => a -> Text
+textShow VKey 'Witness StandardCrypto
+key, Key
+"signature" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a. Show a => a -> Text
+textShow SignedDSIGN
+  StandardCrypto (Hash StandardCrypto EraIndependentTxBody)
+signature]
+
+friendlyTxBodyImpl :: ()
+  => CardanoEra era
+  -> TxBody era
+  -> [Aeson.Pair]
+friendlyTxBodyImpl :: forall era. CardanoEra era -> TxBody era -> [Pair]
+friendlyTxBodyImpl
+  CardanoEra era
+era
+  (TxBody
+    TxBodyContent
+      { TxAuxScripts era
+txAuxScripts :: forall build era. TxBodyContent build era -> TxAuxScripts era
+txAuxScripts :: TxAuxScripts era
+txAuxScripts
+      , TxCertificates ViewTx era
+txCertificates :: forall build era.
+TxBodyContent build era -> TxCertificates build era
+txCertificates :: TxCertificates ViewTx era
+txCertificates
+      , TxExtraKeyWitnesses era
+txExtraKeyWits :: forall build era.
+TxBodyContent build era -> TxExtraKeyWitnesses era
+txExtraKeyWits :: TxExtraKeyWitnesses era
+txExtraKeyWits
+      , TxFee era
+txFee :: forall build era. TxBodyContent build era -> TxFee era
+txFee :: TxFee era
+txFee
+      , TxIns ViewTx era
+txIns :: forall build era. TxBodyContent build era -> TxIns build era
+txIns :: TxIns ViewTx era
+txIns
+      , TxInsCollateral era
+txInsCollateral :: forall build era. TxBodyContent build era -> TxInsCollateral era
+txInsCollateral :: TxInsCollateral era
+txInsCollateral
+      , TxMetadataInEra era
+txMetadata :: forall build era. TxBodyContent build era -> TxMetadataInEra era
+txMetadata :: TxMetadataInEra era
+txMetadata
+      , TxMintValue ViewTx era
+txMintValue :: forall build era. TxBodyContent build era -> TxMintValue build era
+txMintValue :: TxMintValue ViewTx era
+txMintValue
+      , [TxOut CtxTx era]
+txOuts :: forall build era. TxBodyContent build era -> [TxOut CtxTx era]
+txOuts :: [TxOut CtxTx era]
+txOuts
+      , TxTotalCollateral era
+txTotalCollateral :: forall build era. TxBodyContent build era -> TxTotalCollateral era
+txTotalCollateral :: TxTotalCollateral era
+txTotalCollateral
+      , TxReturnCollateral CtxTx era
+txReturnCollateral :: forall build era.
+TxBodyContent build era -> TxReturnCollateral CtxTx era
+txReturnCollateral :: TxReturnCollateral CtxTx era
+txReturnCollateral
+      , TxInsReference ViewTx era
+txInsReference :: forall build era.
+TxBodyContent build era -> TxInsReference build era
+txInsReference :: TxInsReference ViewTx era
+txInsReference
+      , TxUpdateProposal era
+txUpdateProposal :: forall build era. TxBodyContent build era -> TxUpdateProposal era
+txUpdateProposal :: TxUpdateProposal era
+txUpdateProposal
+      , TxValidityLowerBound era
+txValidityLowerBound :: forall build era.
+TxBodyContent build era -> TxValidityLowerBound era
+txValidityLowerBound :: TxValidityLowerBound era
+txValidityLowerBound
+       ,TxValidityUpperBound era
+txValidityUpperBound :: forall build era.
+TxBodyContent build era -> TxValidityUpperBound era
+txValidityUpperBound :: TxValidityUpperBound era
+txValidityUpperBound
+      , TxWithdrawals ViewTx era
+txWithdrawals :: forall build era.
+TxBodyContent build era -> TxWithdrawals build era
+txWithdrawals :: TxWithdrawals ViewTx era
+txWithdrawals
+      }) =
+  forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era
+    [ Key
+"auxiliary scripts" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxAuxScripts era -> Value
+friendlyAuxScripts TxAuxScripts era
+txAuxScripts
+    , Key
+"certificates" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall (eon :: * -> *) era a.
+Eon eon =>
+CardanoEra era -> a -> (eon era -> a) -> a
+forEraInEon CardanoEra era
+era Value
+Null (forall era.
+ShelleyBasedEra era -> TxCertificates ViewTx era -> Value
+`friendlyCertificates` TxCertificates ViewTx era
+txCertificates)
+    , Key
+"collateral inputs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxInsCollateral era -> Value
+friendlyCollateralInputs TxInsCollateral era
+txInsCollateral
+    , Key
+"era" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= CardanoEra era
+era
+    , Key
+"fee" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxFee era -> Value
+friendlyFee TxFee era
+txFee
+    , Key
+"inputs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall build. [(TxIn, build)] -> Value
+friendlyInputs TxIns ViewTx era
+txIns
+    , Key
+"metadata" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxMetadataInEra era -> Value
+friendlyMetadata TxMetadataInEra era
+txMetadata
+    , Key
+"mint" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxMintValue ViewTx era -> Value
+friendlyMintValue TxMintValue ViewTx era
+txMintValue
+    , Key
+"outputs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall a b. (a -> b) -> [a] -> [b]
+map (forall era. CardanoEra era -> TxOut CtxTx era -> Value
+friendlyTxOut CardanoEra era
+era) [TxOut CtxTx era]
+txOuts
+    , Key
+"reference inputs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall build era. TxInsReference build era -> Value
+friendlyReferenceInputs TxInsReference ViewTx era
+txInsReference
+    , Key
+"total collateral" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxTotalCollateral era -> Value
+friendlyTotalCollateral TxTotalCollateral era
+txTotalCollateral
+    , Key
+"return collateral" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. CardanoEra era -> TxReturnCollateral CtxTx era -> Value
+friendlyReturnCollateral CardanoEra era
+era TxReturnCollateral CtxTx era
+txReturnCollateral
+    , Key
+"required signers (payment key hashes needed for scripts)" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=
+        forall era. TxExtraKeyWitnesses era -> Value
+friendlyExtraKeyWits TxExtraKeyWitnesses era
+txExtraKeyWits
+    , Key
+"update proposal" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxUpdateProposal era -> Value
+friendlyUpdateProposal TxUpdateProposal era
+txUpdateProposal
+    , Key
+"validity range" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era.
+CardanoEra era
+-> (TxValidityLowerBound era, TxValidityUpperBound era) -> Value
+friendlyValidityRange CardanoEra era
+era (TxValidityLowerBound era
+txValidityLowerBound, TxValidityUpperBound era
+txValidityUpperBound)
+    , Key
+"withdrawals" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxWithdrawals ViewTx era -> Value
+friendlyWithdrawals TxWithdrawals ViewTx era
+txWithdrawals
+    ]
+
+friendlyTotalCollateral :: TxTotalCollateral era -> Aeson.Value
+friendlyTotalCollateral :: forall era. TxTotalCollateral era -> Value
+friendlyTotalCollateral TxTotalCollateral era
+TxTotalCollateralNone = Value
+Aeson.Null
+friendlyTotalCollateral (TxTotalCollateral BabbageEraOnwards era
+_ Lovelace
+coll) = forall a. ToJSON a => a -> Value
+toJSON Lovelace
+coll
+
+friendlyReturnCollateral :: ()
+  => CardanoEra era
+  -> TxReturnCollateral CtxTx era
+  -> Aeson.Value
+friendlyReturnCollateral :: forall era. CardanoEra era -> TxReturnCollateral CtxTx era -> Value
+friendlyReturnCollateral CardanoEra era
+era = \case
+  TxReturnCollateral CtxTx era
+TxReturnCollateralNone -> Value
+Aeson.Null
+  TxReturnCollateral BabbageEraOnwards era
+_ TxOut CtxTx era
+collOut -> forall era. CardanoEra era -> TxOut CtxTx era -> Value
+friendlyTxOut CardanoEra era
+era TxOut CtxTx era
+collOut
+
+friendlyExtraKeyWits :: TxExtraKeyWitnesses era -> Aeson.Value
+friendlyExtraKeyWits :: forall era. TxExtraKeyWitnesses era -> Value
+friendlyExtraKeyWits = \case
+  TxExtraKeyWitnesses era
+TxExtraKeyWitnessesNone -> Value
+Null
+  TxExtraKeyWitnesses AlonzoEraOnwards era
+_supported [Hash PaymentKey]
+paymentKeyHashes -> forall a. ToJSON a => a -> Value
+toJSON [Hash PaymentKey]
+paymentKeyHashes
+
+friendlyValidityRange
+  :: CardanoEra era
+  -> (TxValidityLowerBound era, TxValidityUpperBound era)
+  -> Aeson.Value
+friendlyValidityRange :: forall era.
+CardanoEra era
+-> (TxValidityLowerBound era, TxValidityUpperBound era) -> Value
+friendlyValidityRange CardanoEra era
+era = \case
+  (TxValidityLowerBound era
+lowerBound, TxValidityUpperBound era
+upperBound)
+    | Bool
+isLowerBoundSupported Bool -> Bool -> Bool
+|| Bool
+isUpperBoundSupported ->
+        [Pair] -> Value
+object
+          [ Key
+"lower bound" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=
+                case TxValidityLowerBound era
+lowerBound of
+                  TxValidityLowerBound era
+TxValidityNoLowerBound -> Value
+Null
+                  TxValidityLowerBound AllegraEraOnwards era
+_ SlotNo
+s -> forall a. ToJSON a => a -> Value
+toJSON SlotNo
+s
+          , Key
+"upper bound" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=
+              case TxValidityUpperBound era
+upperBound of
+                TxValidityNoUpperBound ByronEraOnly era
+_ -> Value
+Null
+                TxValidityUpperBound ShelleyBasedEra era
+_ Maybe SlotNo
+s -> forall a. ToJSON a => a -> Value
+toJSON Maybe SlotNo
+s
+          ]
+    | Bool
+otherwise -> Value
+Null
+ where
+  isLowerBoundSupported :: Bool
+isLowerBoundSupported = forall a. Maybe a -> Bool
+isJust forall a b. (a -> b) -> a -> b
+$ forall (eon :: * -> *) era a.
+Eon eon =>
+(eon era -> a) -> CardanoEra era -> Maybe a
+inEonForEraMaybe forall era.
+AllegraEraOnwards era -> SlotNo -> TxValidityLowerBound era
+TxValidityLowerBound CardanoEra era
+era
+  isUpperBoundSupported :: Bool
+isUpperBoundSupported = forall a. Maybe a -> Bool
+isJust forall a b. (a -> b) -> a -> b
+$ forall (eon :: * -> *) era a.
+Eon eon =>
+(eon era -> a) -> CardanoEra era -> Maybe a
+inEonForEraMaybe forall era.
+ShelleyBasedEra era -> Maybe SlotNo -> TxValidityUpperBound era
+TxValidityUpperBound CardanoEra era
+era
+
+friendlyWithdrawals :: TxWithdrawals ViewTx era -> Aeson.Value
+friendlyWithdrawals :: forall era. TxWithdrawals ViewTx era -> Value
+friendlyWithdrawals TxWithdrawals ViewTx era
+TxWithdrawalsNone = Value
+Null
+friendlyWithdrawals (TxWithdrawals ShelleyBasedEra era
+_ [(StakeAddress, Lovelace,
+  BuildTxWith ViewTx (Witness WitCtxStake era))]
+withdrawals) =
+  [Value] -> Value
+array
+    [ [Pair] -> Value
+object forall a b. (a -> b) -> a -> b
+$
+        Key
+"address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress StakeAddress
+addr forall a. a -> [a] -> [a]
+:
+        Key
+"amount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin -> Value
+friendlyLovelace (Lovelace -> Coin
+toShelleyLovelace Lovelace
+amount) forall a. a -> [a] -> [a]
+:
+        StakeAddress -> [Pair]
+friendlyStakeAddress StakeAddress
+addr
+    | (StakeAddress
+addr, Lovelace
+amount, BuildTxWith ViewTx (Witness WitCtxStake era)
+_) <- [(StakeAddress, Lovelace,
+  BuildTxWith ViewTx (Witness WitCtxStake era))]
+withdrawals
+    ]
+
+friendlyStakeAddress :: StakeAddress -> [Aeson.Pair]
+friendlyStakeAddress :: StakeAddress -> [Pair]
+friendlyStakeAddress (StakeAddress Network
+net StakeCredential StandardCrypto
+cred) =
+  [ Key
+"network" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Network
+net
+  , StakeCredential StandardCrypto -> Pair
+friendlyStakeCredential StakeCredential StandardCrypto
+cred
+  ]
+
+friendlyTxOut :: CardanoEra era -> TxOut CtxTx era -> Aeson.Value
+friendlyTxOut :: forall era. CardanoEra era -> TxOut CtxTx era -> Value
+friendlyTxOut CardanoEra era
+era (TxOut AddressInEra era
+addr TxOutValue era
+amount TxOutDatum CtxTx era
+mdatum ReferenceScript era
+script) =
+  forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ [Pair] -> Value
+object forall a b. (a -> b) -> a -> b
+$
+    case AddressInEra era
+addr of
+      AddressInEra AddressTypeInEra addrtype era
+ByronAddressInAnyEra Address addrtype
+byronAdr ->
+        [ Key
+"address era" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Text -> Value
+String Text
+"Byron"
+        , Key
+"address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress Address addrtype
+byronAdr
+        , Key
+"amount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxOutValue era -> Value
+friendlyTxOutValue TxOutValue era
+amount
+        ]
+      AddressInEra (ShelleyAddressInEra ShelleyBasedEra era
+_) saddr :: Address addrtype
+saddr@(ShelleyAddress Network
+net PaymentCredential StandardCrypto
+cred StakeReference StandardCrypto
+stake) ->
+        let preAlonzo :: [Pair]
+preAlonzo =
+              PaymentCredential -> Pair
+friendlyPaymentCredential (PaymentCredential StandardCrypto -> PaymentCredential
+fromShelleyPaymentCredential PaymentCredential StandardCrypto
+cred) forall a. a -> [a] -> [a]
+:
+              [ Key
+"address era" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Text -> Value
+Aeson.String Text
+"Shelley"
+              , Key
+"network" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Network
+net
+              , Key
+"address" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall addr. SerialiseAddress addr => addr -> Text
+serialiseAddress Address addrtype
+saddr
+              , Key
+"amount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era. TxOutValue era -> Value
+friendlyTxOutValue TxOutValue era
+amount
+              , Key
+"stake reference" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeAddressReference -> Value
+friendlyStakeReference (StakeReference StandardCrypto -> StakeAddressReference
+fromShelleyStakeReference StakeReference StandardCrypto
+stake)
+              ]
+            datum :: [Pair]
+datum = [Key
+"datum" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Value
+d | Value
+d <- forall a. Maybe a -> [a]
+maybeToList forall a b. (a -> b) -> a -> b
+$ forall era. TxOutDatum CtxTx era -> Maybe Value
+renderDatum TxOutDatum CtxTx era
+mdatum]
+            sinceAlonzo :: [Pair]
+sinceAlonzo = [Key
+"reference script" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ReferenceScript era
+script]
+        in [Pair]
+preAlonzo forall a. [a] -> [a] -> [a]
+++ [Pair]
+datum forall a. [a] -> [a] -> [a]
+++ [Pair]
+sinceAlonzo
+  where
+    renderDatum :: TxOutDatum CtxTx era -> Maybe Aeson.Value
+    renderDatum :: forall era. TxOutDatum CtxTx era -> Maybe Value
+renderDatum = \case
+      TxOutDatum CtxTx era
+TxOutDatumNone -> forall a. Maybe a
+Nothing
+      TxOutDatumHash AlonzoEraOnwards era
+_ Hash ScriptData
+h -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. ToJSON a => a -> Value
+toJSON Hash ScriptData
+h
+      TxOutDatumInTx AlonzoEraOnwards era
+_ HashableScriptData
+sData -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ ScriptDataJsonSchema -> HashableScriptData -> Value
+scriptDataToJson ScriptDataJsonSchema
+ScriptDataJsonDetailedSchema HashableScriptData
+sData
+      TxOutDatumInline BabbageEraOnwards era
+_ HashableScriptData
+sData -> forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ ScriptDataJsonSchema -> HashableScriptData -> Value
+scriptDataToJson ScriptDataJsonSchema
+ScriptDataJsonDetailedSchema HashableScriptData
+sData
+
+friendlyStakeReference :: StakeAddressReference -> Aeson.Value
+friendlyStakeReference :: StakeAddressReference -> Value
+friendlyStakeReference = \case
+  StakeAddressReference
+NoStakeAddress -> Value
+Null
+  StakeAddressByPointer StakeAddressPointer
+ptr -> Text -> Value
+String (forall a. Show a => a -> Text
+textShow StakeAddressPointer
+ptr)
+  StakeAddressByValue StakeCredential
+cred -> [Pair] -> Value
+object [StakeCredential StandardCrypto -> Pair
+friendlyStakeCredential forall a b. (a -> b) -> a -> b
+$ StakeCredential -> StakeCredential StandardCrypto
+toShelleyStakeCredential StakeCredential
+cred]
+
+friendlyUpdateProposal :: TxUpdateProposal era -> Aeson.Value
+friendlyUpdateProposal :: forall era. TxUpdateProposal era -> Value
+friendlyUpdateProposal = \case
+  TxUpdateProposal era
+TxUpdateProposalNone -> Value
+Null
+  TxUpdateProposal ShelleyToBabbageEra era
+_ (UpdateProposal Map (Hash GenesisKey) ProtocolParametersUpdate
+parameterUpdates EpochNo
+epoch) ->
+    [Pair] -> Value
+object
+      [ Key
+"epoch" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= EpochNo
+epoch
+      , Key
+"updates" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=
+        [ [Pair] -> Value
+object
+            [ Key
+"genesis key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Hash GenesisKey
+genesisKeyHash
+            , Key
+"update" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ProtocolParametersUpdate -> Value
+friendlyProtocolParametersUpdate ProtocolParametersUpdate
+parameterUpdate
+            ]
+        | (Hash GenesisKey
+genesisKeyHash, ProtocolParametersUpdate
+parameterUpdate) <- forall k a. Map k a -> [(k, a)]
+Map.assocs Map (Hash GenesisKey) ProtocolParametersUpdate
+parameterUpdates
+        ]
+      ]
+
+friendlyProtocolParametersUpdate :: ProtocolParametersUpdate -> Aeson.Value
+friendlyProtocolParametersUpdate :: ProtocolParametersUpdate -> Value
+friendlyProtocolParametersUpdate
+  ProtocolParametersUpdate
+    { Maybe (Natural, Natural)
+protocolUpdateProtocolVersion :: ProtocolParametersUpdate -> Maybe (Natural, Natural)
+protocolUpdateProtocolVersion :: Maybe (Natural, Natural)
+protocolUpdateProtocolVersion
+    , Maybe Rational
+protocolUpdateDecentralization :: ProtocolParametersUpdate -> Maybe Rational
+protocolUpdateDecentralization :: Maybe Rational
+protocolUpdateDecentralization
+    , Maybe (Maybe PraosNonce)
+protocolUpdateExtraPraosEntropy :: ProtocolParametersUpdate -> Maybe (Maybe PraosNonce)
+protocolUpdateExtraPraosEntropy :: Maybe (Maybe PraosNonce)
+protocolUpdateExtraPraosEntropy
+    , Maybe Natural
+protocolUpdateMaxBlockHeaderSize :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateMaxBlockHeaderSize :: Maybe Natural
+protocolUpdateMaxBlockHeaderSize
+    , Maybe Natural
+protocolUpdateMaxBlockBodySize :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateMaxBlockBodySize :: Maybe Natural
+protocolUpdateMaxBlockBodySize
+    , Maybe Natural
+protocolUpdateMaxTxSize :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateMaxTxSize :: Maybe Natural
+protocolUpdateMaxTxSize
+    , Maybe Lovelace
+protocolUpdateTxFeeFixed :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateTxFeeFixed :: Maybe Lovelace
+protocolUpdateTxFeeFixed
+    , Maybe Lovelace
+protocolUpdateTxFeePerByte :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateTxFeePerByte :: Maybe Lovelace
+protocolUpdateTxFeePerByte
+    , Maybe Lovelace
+protocolUpdateMinUTxOValue :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateMinUTxOValue :: Maybe Lovelace
+protocolUpdateMinUTxOValue
+    , Maybe Lovelace
+protocolUpdateStakeAddressDeposit :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateStakeAddressDeposit :: Maybe Lovelace
+protocolUpdateStakeAddressDeposit
+    , Maybe Lovelace
+protocolUpdateStakePoolDeposit :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateStakePoolDeposit :: Maybe Lovelace
+protocolUpdateStakePoolDeposit
+    , Maybe Lovelace
+protocolUpdateMinPoolCost :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateMinPoolCost :: Maybe Lovelace
+protocolUpdateMinPoolCost
+    , Maybe EpochNo
+protocolUpdatePoolRetireMaxEpoch :: ProtocolParametersUpdate -> Maybe EpochNo
+protocolUpdatePoolRetireMaxEpoch :: Maybe EpochNo
+protocolUpdatePoolRetireMaxEpoch
+    , Maybe Natural
+protocolUpdateStakePoolTargetNum :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateStakePoolTargetNum :: Maybe Natural
+protocolUpdateStakePoolTargetNum
+    , Maybe Rational
+protocolUpdatePoolPledgeInfluence :: ProtocolParametersUpdate -> Maybe Rational
+protocolUpdatePoolPledgeInfluence :: Maybe Rational
+protocolUpdatePoolPledgeInfluence
+    , Maybe Rational
+protocolUpdateMonetaryExpansion :: ProtocolParametersUpdate -> Maybe Rational
+protocolUpdateMonetaryExpansion :: Maybe Rational
+protocolUpdateMonetaryExpansion
+    , Maybe Rational
+protocolUpdateTreasuryCut :: ProtocolParametersUpdate -> Maybe Rational
+protocolUpdateTreasuryCut :: Maybe Rational
+protocolUpdateTreasuryCut
+    , Maybe Natural
+protocolUpdateCollateralPercent :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateCollateralPercent :: Maybe Natural
+protocolUpdateCollateralPercent
+    , Maybe ExecutionUnits
+protocolUpdateMaxBlockExUnits :: ProtocolParametersUpdate -> Maybe ExecutionUnits
+protocolUpdateMaxBlockExUnits :: Maybe ExecutionUnits
+protocolUpdateMaxBlockExUnits
+    , Maybe Natural
+protocolUpdateMaxCollateralInputs :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateMaxCollateralInputs :: Maybe Natural
+protocolUpdateMaxCollateralInputs
+    , Maybe ExecutionUnits
+protocolUpdateMaxTxExUnits :: ProtocolParametersUpdate -> Maybe ExecutionUnits
+protocolUpdateMaxTxExUnits :: Maybe ExecutionUnits
+protocolUpdateMaxTxExUnits
+    , Maybe Natural
+protocolUpdateMaxValueSize :: ProtocolParametersUpdate -> Maybe Natural
+protocolUpdateMaxValueSize :: Maybe Natural
+protocolUpdateMaxValueSize
+    , Maybe ExecutionUnitPrices
+protocolUpdatePrices :: ProtocolParametersUpdate -> Maybe ExecutionUnitPrices
+protocolUpdatePrices :: Maybe ExecutionUnitPrices
+protocolUpdatePrices
+    , Maybe Lovelace
+protocolUpdateUTxOCostPerByte :: ProtocolParametersUpdate -> Maybe Lovelace
+protocolUpdateUTxOCostPerByte :: Maybe Lovelace
+protocolUpdateUTxOCostPerByte
+    } =
+  [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. [Maybe a] -> [a]
+catMaybes forall a b. (a -> b) -> a -> b
+$
+    [ Maybe (Natural, Natural)
+protocolUpdateProtocolVersion forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> \(Natural
+major, Natural
+minor) ->
+        Key
+"protocol version" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= (forall a. Show a => a -> Text
+textShow Natural
+major forall a. Semigroup a => a -> a -> a
+<> Text
+"." forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Natural
+minor)
+    , Maybe Rational
+protocolUpdateDecentralization forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"decentralization parameter" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Rational -> Value
+friendlyRational
+    , Maybe (Maybe PraosNonce)
+protocolUpdateExtraPraosEntropy forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"extra entropy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall b a. b -> (a -> b) -> Maybe a -> b
+maybe Value
+"reset" forall a. ToJSON a => a -> Value
+toJSON
+    , Maybe Natural
+protocolUpdateMaxBlockHeaderSize forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max block header size" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Natural
+protocolUpdateMaxBlockBodySizeforall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max block body size" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Natural
+protocolUpdateMaxTxSize forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max transaction size" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Lovelace
+protocolUpdateTxFeeFixed forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"transaction fee constant" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Lovelace
+protocolUpdateTxFeePerByte forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"transaction fee linear per byte" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Lovelace
+protocolUpdateMinUTxOValue forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"min UTxO value" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Coin -> Value
+friendlyLovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace
+    , Maybe Lovelace
+protocolUpdateStakeAddressDeposit forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"key registration deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Coin -> Value
+friendlyLovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace
+    , Maybe Lovelace
+protocolUpdateStakePoolDeposit forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"pool registration deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Coin -> Value
+friendlyLovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace
+    , Maybe Lovelace
+protocolUpdateMinPoolCost forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"min pool cost" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Coin -> Value
+friendlyLovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace
+    , Maybe EpochNo
+protocolUpdatePoolRetireMaxEpoch forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"pool retirement epoch boundary" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Natural
+protocolUpdateStakePoolTargetNum forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"number of pools" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Rational
+protocolUpdatePoolPledgeInfluence forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"pool influence" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Rational -> Value
+friendlyRational
+    , Maybe Rational
+protocolUpdateMonetaryExpansion forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"monetary expansion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Rational -> Value
+friendlyRational
+    , Maybe Rational
+protocolUpdateTreasuryCut forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"treasury expansion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Rational -> Value
+friendlyRational
+    , Maybe Natural
+protocolUpdateCollateralPercent forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"collateral inputs share" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a. Semigroup a => a -> a -> a
+<> Text
+"%") forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> Text
+textShow
+    , Maybe ExecutionUnits
+protocolUpdateMaxBlockExUnits forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max block execution units" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Natural
+protocolUpdateMaxCollateralInputs forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max collateral inputs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe ExecutionUnits
+protocolUpdateMaxTxExUnits forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max transaction execution units" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe Natural
+protocolUpdateMaxValueSize forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"max value size" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=)
+    , Maybe ExecutionUnitPrices
+protocolUpdatePrices forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&> (Key
+"execution prices" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ExecutionUnitPrices -> Value
+friendlyPrices
+    , Maybe Lovelace
+protocolUpdateUTxOCostPerByte forall (f :: * -> *) a b. Functor f => f a -> (a -> b) -> f b
+<&>
+        (Key
+"UTxO storage cost per byte" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Coin -> Value
+friendlyLovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Lovelace -> Coin
+toShelleyLovelace
+    ]
+
+friendlyPrices :: ExecutionUnitPrices -> Aeson.Value
+friendlyPrices :: ExecutionUnitPrices -> Value
+friendlyPrices ExecutionUnitPrices{Rational
+priceExecutionMemory :: ExecutionUnitPrices -> Rational
+priceExecutionMemory :: Rational
+priceExecutionMemory, Rational
+priceExecutionSteps :: ExecutionUnitPrices -> Rational
+priceExecutionSteps :: Rational
+priceExecutionSteps} =
+  [Pair] -> Value
+object
+    [ Key
+"memory" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Rational -> Value
+friendlyRational Rational
+priceExecutionMemory
+    , Key
+"steps" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Rational -> Value
+friendlyRational Rational
+priceExecutionSteps
+    ]
+
+friendlyCertificates :: ShelleyBasedEra era -> TxCertificates ViewTx era -> Aeson.Value
+friendlyCertificates :: forall era.
+ShelleyBasedEra era -> TxCertificates ViewTx era -> Value
+friendlyCertificates ShelleyBasedEra era
+sbe = \case
+  TxCertificates ViewTx era
+TxCertificatesNone -> Value
+Null
+  TxCertificates ShelleyBasedEra era
+_ [Certificate era]
+cs BuildTxWith ViewTx (Map StakeCredential (Witness WitCtxStake era))
+_ -> [Value] -> Value
+array forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map (forall era. ShelleyBasedEra era -> Certificate era -> Value
+friendlyCertificate ShelleyBasedEra era
+sbe) [Certificate era]
+cs
+
+friendlyCertificate :: ShelleyBasedEra era -> Certificate era -> Aeson.Value
+friendlyCertificate :: forall era. ShelleyBasedEra era -> Certificate era -> Value
+friendlyCertificate ShelleyBasedEra era
+sbe = forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$
+  [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a. a -> [a] -> [a]
+: []) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. ShelleyBasedEra era -> Certificate era -> Pair
+renderCertificate ShelleyBasedEra era
+sbe
+
+renderCertificate :: ShelleyBasedEra era -> Certificate era -> (Aeson.Key, Aeson.Value)
+renderCertificate :: forall era. ShelleyBasedEra era -> Certificate era -> Pair
+renderCertificate ShelleyBasedEra era
+sbe = \case
+  ShelleyRelatedCertificate ShelleyToBabbageEra era
+_ ShelleyTxCert (ShelleyLedgerEra era)
+c ->
+    forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$
+      case ShelleyTxCert (ShelleyLedgerEra era)
+c of
+        Ledger.ShelleyTxCertDelegCert (Ledger.ShelleyRegCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred) ->
+          Key
+"stake address registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=  StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred
+        Ledger.ShelleyTxCertDelegCert (Ledger.ShelleyUnRegCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred) ->
+          Key
+"stake address deregistration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred
+        Ledger.ShelleyTxCertDelegCert (Ledger.ShelleyDelegCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+poolId) ->
+          Key
+"stake address delegation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+cred
+            , Key
+"pool" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+poolId
+            ]
+        Ledger.ShelleyTxCertPool (Ledger.RetirePool KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+poolId EpochNo
+retirementEpoch) ->
+          Key
+"stake pool retirement" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"pool" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'StakePool StandardCrypto -> Hash StakePoolKey
+StakePoolKeyHash KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+poolId
+            , Key
+"epoch" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= EpochNo
+retirementEpoch
+            ]
+        Ledger.ShelleyTxCertPool (Ledger.RegPool PoolParams (EraCrypto (ShelleyLedgerEra era))
+poolParams) ->
+          Key
+"stake pool registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= PoolParams (EraCrypto (ShelleyLedgerEra era))
+poolParams
+        Ledger.ShelleyTxCertGenesisDeleg (Ledger.GenesisDelegCert KeyHash 'Genesis (EraCrypto (ShelleyLedgerEra era))
+genesisKeyHash KeyHash 'GenesisDelegate (EraCrypto (ShelleyLedgerEra era))
+delegateKeyHash Hash
+  (EraCrypto (ShelleyLedgerEra era))
+  (VerKeyVRF (EraCrypto (ShelleyLedgerEra era)))
+vrfKeyHash) ->
+          Key
+"genesis key delegation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"genesis key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'Genesis (EraCrypto (ShelleyLedgerEra era))
+genesisKeyHash
+            , Key
+"delegate key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'GenesisDelegate (EraCrypto (ShelleyLedgerEra era))
+delegateKeyHash
+            , Key
+"VRF key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Hash
+  (EraCrypto (ShelleyLedgerEra era))
+  (VerKeyVRF (EraCrypto (ShelleyLedgerEra era)))
+vrfKeyHash
+            ]
+        Ledger.ShelleyTxCertMir (Ledger.MIRCert MIRPot
+pot MIRTarget (EraCrypto (ShelleyLedgerEra era))
+target) ->
+          Key
+"MIR" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"pot" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= MIRPot -> Value
+friendlyMirPot MIRPot
+pot
+            , forall era.
+ShelleyBasedEra era
+-> MIRTarget (EraCrypto (ShelleyLedgerEra era)) -> Pair
+friendlyMirTarget ShelleyBasedEra era
+sbe MIRTarget (EraCrypto (ShelleyLedgerEra era))
+target
+            ]
+
+  ConwayCertificate ConwayEraOnwards era
+w ConwayTxCert (ShelleyLedgerEra era)
+cert ->
+    forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w forall a b. (a -> b) -> a -> b
+$
+      case ConwayTxCert (ShelleyLedgerEra era)
+cert of
+        Ledger.RegDRepTxCert Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+credential Coin
+coin StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor ->
+          Key
+"Drep registration certificate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+coin
+            , Key
+"certificate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era.
+ConwayEraOnwards era
+-> Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era)) -> Value
+conwayToObject ConwayEraOnwards era
+w Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+credential
+            , Key
+"anchor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mAnchor
+            ]
+        Ledger.UnRegDRepTxCert Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+credential Coin
+coin ->
+          Key
+"Drep unregistration certificate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"refund" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+coin
+            , Key
+"certificate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era.
+ConwayEraOnwards era
+-> Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era)) -> Value
+conwayToObject ConwayEraOnwards era
+w Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+credential
+            ]
+        Ledger.AuthCommitteeHotKeyTxCert Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+coldCred Credential 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+hotCred
+            | Shelley.ScriptHashObj ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh <- Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+coldCred ->
+              Key
+"Cold committee authorization" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+                [ Key
+"script hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh ]
+            | Shelley.ScriptHashObj ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh <- Credential 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+hotCred ->
+              Key
+"Hot committee authorization" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+                [ Key
+"script hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh]
+            | Shelley.KeyHashObj ck :: KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+ck@Shelley.KeyHash{} <- Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+coldCred
+            , Shelley.KeyHashObj hk :: KeyHash 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+hk@Shelley.KeyHash{} <- Credential 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+hotCred ->
+              Key
+"Constitutional committee member hot key registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+                [ Key
+"cold key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+ck
+                , Key
+"hot key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'HotCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+hk
+                ]
+        Ledger.ResignCommitteeColdTxCert Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+cred StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+anchor -> case Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+cred of
+          Shelley.ScriptHashObj ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh ->
+            Key
+"Cold committee resignation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+              [ Key
+"script hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=  ScriptHash (EraCrypto (ShelleyLedgerEra era))
+sh
+              , Key
+"anchor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+anchor
+              ]
+          Shelley.KeyHashObj ck :: KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+ck@Shelley.KeyHash{} ->
+            Key
+"Constitutional committee cold key resignation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+              [ Key
+"cold key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+ck
+              ]
+        Ledger.RegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential ->
+          Key
+"Stake address registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            ]
+        Ledger.UnRegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential ->
+          Key
+"Stake address deregistration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            ]
+        Ledger.RegDepositTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential Coin
+deposit ->
+          Key
+"Stake address registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            , Key
+"deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+deposit
+            ]
+        Ledger.UnRegDepositTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential Coin
+refund ->
+          Key
+"Stake address deregistration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            , Key
+"refund" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+refund
+            ]
+        Ledger.DelegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential Delegatee (EraCrypto (ShelleyLedgerEra era))
+delegatee ->
+          Key
+"Stake address delegation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            , Key
+"delegatee" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era.
+(EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) =>
+ShelleyBasedEra era
+-> Delegatee (EraCrypto (ShelleyLedgerEra era)) -> Value
+delegateeJson ShelleyBasedEra era
+sbe Delegatee (EraCrypto (ShelleyLedgerEra era))
+delegatee
+            ]
+        Ledger.RegDepositDelegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential Delegatee (EraCrypto (ShelleyLedgerEra era))
+delegatee Coin
+deposit ->
+          Key
+"Stake address registration and delegation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StakeCredential (EraCrypto (ShelleyLedgerEra era))
+stakeCredential
+            , Key
+"delegatee" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall era.
+(EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) =>
+ShelleyBasedEra era
+-> Delegatee (EraCrypto (ShelleyLedgerEra era)) -> Value
+delegateeJson ShelleyBasedEra era
+sbe Delegatee (EraCrypto (ShelleyLedgerEra era))
+delegatee
+            , Key
+"deposit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin
+deposit
+            ]
+        Ledger.RegPoolTxCert PoolParams (EraCrypto (ShelleyLedgerEra era))
+poolParams ->
+          Key
+"Pool registration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"pool params" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= PoolParams (EraCrypto (ShelleyLedgerEra era))
+poolParams
+            ]
+        Ledger.RetirePoolTxCert kh :: KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+kh@Shelley.KeyHash{} EpochNo
+epoch ->
+          Key
+"Pool retirement" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"stake pool key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+kh
+            , Key
+"epoch" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= EpochNo
+epoch
+            ]
+        ConwayLedger.UpdateDRepTxCert Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+drepCredential StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mbAnchor ->
+          Key
+"Drep certificate update" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= [Pair] -> Value
+object
+            [ Key
+"Drep credential" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era))
+drepCredential
+            , Key
+"anchor " forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+mbAnchor
+            ]
+  where
+    conwayToObject :: ()
+      => ConwayEraOnwards era
+      -> Shelley.Credential 'Shelley.DRepRole (Ledger.EraCrypto (ShelleyLedgerEra era))
+      -> Aeson.Value
+    conwayToObject :: forall era.
+ConwayEraOnwards era
+-> Credential 'DRepRole (EraCrypto (ShelleyLedgerEra era)) -> Value
+conwayToObject ConwayEraOnwards era
+w' =
+      forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w' forall a b. (a -> b) -> a -> b
+$
+        [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. \case
+          Ledger.ScriptHashObj ScriptHash StandardCrypto
+sHash -> [Key
+"scriptHash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash StandardCrypto
+sHash]
+          Ledger.KeyHashObj KeyHash 'DRepRole StandardCrypto
+keyHash -> [Key
+"keyHash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'DRepRole StandardCrypto
+keyHash]
+
+    delegateeJson :: ( Ledger.EraCrypto (ShelleyLedgerEra era) ~ Ledger.StandardCrypto)
+                  => ShelleyBasedEra era -> Ledger.Delegatee (Ledger.EraCrypto (ShelleyLedgerEra era)) -> Aeson.Value
+    delegateeJson :: forall era.
+(EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) =>
+ShelleyBasedEra era
+-> Delegatee (EraCrypto (ShelleyLedgerEra era)) -> Value
+delegateeJson ShelleyBasedEra era
+_ = [Pair] -> Value
+object forall b c a. (b -> c) -> (a -> b) -> a -> c
+. \case
+      Ledger.DelegStake hk :: KeyHash 'StakePool StandardCrypto
+hk@Shelley.KeyHash{} ->
+          [ Key
+"delegatee type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Text -> Value
+String Text
+"stake"
+          , Key
+"key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'StakePool StandardCrypto
+hk
+          ]
+      Ledger.DelegVote DRep StandardCrypto
+drep -> do
+        [Key
+"delegatee type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Text -> Value
+String Text
+"vote", Key
+"DRep" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= DRep StandardCrypto
+drep]
+      Ledger.DelegStakeVote KeyHash 'StakePool StandardCrypto
+kh DRep StandardCrypto
+drep ->
+        [Key
+"delegatee type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Text -> Value
+String Text
+"stake vote"
+          , Key
+"key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'StakePool StandardCrypto
+kh
+          , Key
+"DRep" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= DRep StandardCrypto
+drep
+          ]
+
+friendlyMirTarget :: ShelleyBasedEra era -> Ledger.MIRTarget (Ledger.EraCrypto (ShelleyLedgerEra era)) -> Aeson.Pair
+friendlyMirTarget :: forall era.
+ShelleyBasedEra era
+-> MIRTarget (EraCrypto (ShelleyLedgerEra era)) -> Pair
+friendlyMirTarget ShelleyBasedEra era
+sbe = \case
+  Ledger.StakeAddressesMIR Map
+  (Credential 'Staking (EraCrypto (ShelleyLedgerEra era))) DeltaCoin
+addresses ->
+    Key
+"target stake addresses" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=
+      [ [Pair] -> Value
+object
+          [ StakeCredential StandardCrypto -> Pair
+friendlyStakeCredential StakeCredential StandardCrypto
+credential
+          , Key
+"amount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin -> Value
+friendlyLovelace (Lovelace -> Coin
+toShelleyLovelace (Integer -> Lovelace
+Lovelace Integer
+0) Coin -> DeltaCoin -> Coin
+`Ledger.addDeltaCoin` DeltaCoin
+lovelace)
+          ]
+      | (StakeCredential StandardCrypto
+credential, DeltaCoin
+lovelace) <- forall k a. Map k a -> [(k, a)]
+Map.toList (forall era a.
+ShelleyBasedEra era -> (ShelleyBasedEraConstraints era => a) -> a
+shelleyBasedEraConstraints ShelleyBasedEra era
+sbe Map
+  (Credential 'Staking (EraCrypto (ShelleyLedgerEra era))) DeltaCoin
+addresses)
+      ]
+  Ledger.SendToOppositePotMIR Coin
+amount -> Key
+"MIR amount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Coin -> Value
+friendlyLovelace Coin
+amount
+
+-- TODO: Conway era. Replace cardano-api's StakeCredential definition with
+-- the ledger's StakeCredential definition.
+friendlyStakeCredential
+  :: Shelley.Credential Shelley.Staking Ledger.StandardCrypto -> Aeson.Pair
+friendlyStakeCredential :: StakeCredential StandardCrypto -> Pair
+friendlyStakeCredential = \case
+  Ledger.KeyHashObj KeyHash 'Staking StandardCrypto
+keyHash ->
+    Key
+"stake credential key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= KeyHash 'Staking StandardCrypto
+keyHash
+  Ledger.ScriptHashObj ScriptHash StandardCrypto
+scriptHash ->
+    Key
+"stake credential script hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash StandardCrypto
+scriptHash
+
+friendlyPaymentCredential :: PaymentCredential -> Aeson.Pair
+friendlyPaymentCredential :: PaymentCredential -> Pair
+friendlyPaymentCredential = \case
+  PaymentCredentialByKey Hash PaymentKey
+keyHash ->
+    Key
+"payment credential key hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Hash PaymentKey
+keyHash
+  PaymentCredentialByScript ScriptHash
+scriptHash ->
+    Key
+"payment credential script hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash
+scriptHash
+
+friendlyMirPot :: Shelley.MIRPot -> Aeson.Value
+friendlyMirPot :: MIRPot -> Value
+friendlyMirPot = \case
+  MIRPot
+Shelley.ReservesMIR -> Value
+"reserves"
+  MIRPot
+Shelley.TreasuryMIR -> Value
+"treasury"
+
+
+friendlyRational :: Rational -> Aeson.Value
+friendlyRational :: Rational -> Value
+friendlyRational Rational
+r =
+  Text -> Value
+String forall a b. (a -> b) -> a -> b
+$
+    case Integer
+d of
+      Integer
+1 -> forall a. Show a => a -> Text
+textShow Integer
+n
+      Integer
+_ -> forall a. Show a => a -> Text
+textShow Integer
+n forall a. Semigroup a => a -> a -> a
+<> Text
+"/" forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow Integer
+d
+ where
+  n :: Integer
+n = forall a. Ratio a -> a
+numerator Rational
+r
+  d :: Integer
+d = forall a. Ratio a -> a
+denominator Rational
+r
+
+friendlyFee :: TxFee era -> Aeson.Value
+friendlyFee :: forall era. TxFee era -> Value
+friendlyFee = \case
+  TxFeeImplicit ByronEraOnly era
+_ -> Value
+"implicit"
+  TxFeeExplicit ShelleyBasedEra era
+_ Lovelace
+fee -> Coin -> Value
+friendlyLovelace forall a b. (a -> b) -> a -> b
+$ Lovelace -> Coin
+toShelleyLovelace Lovelace
+fee
+
+friendlyLovelace :: Ledger.Coin -> Aeson.Value
+friendlyLovelace :: Coin -> Value
+friendlyLovelace (Shelley.Coin Integer
+value) = Text -> Value
+String forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> Text
+textShow Integer
+value forall a. Semigroup a => a -> a -> a
+<> Text
+" Lovelace"
+
+friendlyMintValue :: TxMintValue ViewTx era -> Aeson.Value
+friendlyMintValue :: forall era. TxMintValue ViewTx era -> Value
+friendlyMintValue = \case
+  TxMintValue ViewTx era
+TxMintNone -> Value
+Null
+  TxMintValue MaryEraOnwards era
+sbe Value
+v BuildTxWith ViewTx (Map PolicyId (ScriptWitness WitCtxMint era))
+_ -> forall era. ShelleyBasedEra era -> Value -> Value
+friendlyValue (forall era. MaryEraOnwards era -> ShelleyBasedEra era
+maryEraOnwardsToShelleyBasedEra MaryEraOnwards era
+sbe) Value
+v
+
+friendlyTxOutValue :: TxOutValue era -> Aeson.Value
+friendlyTxOutValue :: forall era. TxOutValue era -> Value
+friendlyTxOutValue = \case
+  TxOutValueByron ByronEraOnly era
+_ Lovelace
+lovelace -> Coin -> Value
+friendlyLovelace forall a b. (a -> b) -> a -> b
+$ Lovelace -> Coin
+toShelleyLovelace Lovelace
+lovelace
+  TxOutValueShelleyBased ShelleyBasedEra era
+sbe Value (ShelleyLedgerEra era)
+v -> forall era.
+ShelleyBasedEra era -> Value (ShelleyLedgerEra era) -> Value
+friendlyLedgerValue ShelleyBasedEra era
+sbe Value (ShelleyLedgerEra era)
+v
+
+friendlyLedgerValue :: ()
+  => ShelleyBasedEra era
+  -> Ledger.Value (ShelleyLedgerEra era)
+  -> Aeson.Value
+friendlyLedgerValue :: forall era.
+ShelleyBasedEra era -> Value (ShelleyLedgerEra era) -> Value
+friendlyLedgerValue ShelleyBasedEra era
+sbe Value (ShelleyLedgerEra era)
+v = forall era. ShelleyBasedEra era -> Value -> Value
+friendlyValue ShelleyBasedEra era
+sbe forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era -> Value (ShelleyLedgerEra era) -> Value
+Api.fromLedgerValue ShelleyBasedEra era
+sbe Value (ShelleyLedgerEra era)
+v
+
+friendlyValue :: ()
+  => ShelleyBasedEra era
+  -> Api.Value
+  -> Aeson.Value
+friendlyValue :: forall era. ShelleyBasedEra era -> Value -> Value
+friendlyValue ShelleyBasedEra era
+_ Value
+v =
+  [Pair] -> Value
+object
+    [ case ValueNestedBundle
+bundle of
+        ValueNestedBundleAda Quantity
+q -> Key
+"lovelace" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Quantity
+q
+        ValueNestedBundle PolicyId
+policy Map AssetName Quantity
+assets ->
+          Text -> Key
+Aeson.fromText (PolicyId -> Text
+friendlyPolicyId PolicyId
+policy) forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= forall {a}. Map AssetName a -> Map Text a
+friendlyAssets Map AssetName Quantity
+assets
+    | ValueNestedBundle
+bundle <- [ValueNestedBundle]
+bundles
+    ]
+ where
+
+  ValueNestedRep [ValueNestedBundle]
+bundles = Value -> ValueNestedRep
+valueToNestedRep Value
+v
+
+  friendlyPolicyId :: PolicyId -> Text
+friendlyPolicyId = (Text
+"policy " forall a. Semigroup a => a -> a -> a
+<>) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText
+
+  friendlyAssets :: Map AssetName a -> Map Text a
+friendlyAssets = forall k2 k1 a. Ord k2 => (k1 -> k2) -> Map k1 a -> Map k2 a
+Map.mapKeys AssetName -> Text
+friendlyAssetName
+
+  friendlyAssetName :: AssetName -> Text
+friendlyAssetName = \case
+    AssetName
+"" -> Text
+"default asset"
+    name :: AssetName
+name@(AssetName ByteString
+nameBS) ->
+      Text
+"asset " forall a. Semigroup a => a -> a -> a
+<> forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText AssetName
+name forall a. Semigroup a => a -> a -> a
+<> Text
+nameAsciiSuffix
+     where
+      nameAsciiSuffix :: Text
+nameAsciiSuffix
+        | Bool
+nameIsAscii = Text
+" (" forall a. Semigroup a => a -> a -> a
+<> Text
+nameAscii forall a. Semigroup a => a -> a -> a
+<> Text
+")"
+        | Bool
+otherwise = Text
+""
+      nameIsAscii :: Bool
+nameIsAscii = (Char -> Bool) -> ByteString -> Bool
+BSC.all (\Char
+c -> Char -> Bool
+isAscii Char
+c Bool -> Bool -> Bool
+&& Char -> Bool
+isAlphaNum Char
+c) ByteString
+nameBS
+      nameAscii :: Text
+nameAscii = String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ ByteString -> String
+BSC.unpack ByteString
+nameBS
+
+friendlyMetadata :: TxMetadataInEra era -> Aeson.Value
+friendlyMetadata :: forall era. TxMetadataInEra era -> Value
+friendlyMetadata = \case
+  TxMetadataInEra era
+TxMetadataNone -> Value
+Null
+  TxMetadataInEra ShelleyBasedEra era
+_ (TxMetadata Map Word64 TxMetadataValue
+m) -> forall a. ToJSON a => a -> Value
+toJSON forall a b. (a -> b) -> a -> b
+$ TxMetadataValue -> Value
+friendlyMetadataValue forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Map Word64 TxMetadataValue
+m
+
+friendlyMetadataValue :: TxMetadataValue -> Aeson.Value
+friendlyMetadataValue :: TxMetadataValue -> Value
+friendlyMetadataValue = \case
+  TxMetaNumber Integer
+int -> forall a. ToJSON a => a -> Value
+toJSON Integer
+int
+  TxMetaBytes ByteString
+bytes -> Text -> Value
+String forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> Text
+textShow ByteString
+bytes
+  TxMetaList [TxMetadataValue]
+lst -> [Value] -> Value
+array forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> b) -> [a] -> [b]
+map TxMetadataValue -> Value
+friendlyMetadataValue [TxMetadataValue]
+lst
+  TxMetaMap [(TxMetadataValue, TxMetadataValue)]
+m ->
+    [Value] -> Value
+array
+      [[Value] -> Value
+array [TxMetadataValue -> Value
+friendlyMetadataValue TxMetadataValue
+k, TxMetadataValue -> Value
+friendlyMetadataValue TxMetadataValue
+v] | (TxMetadataValue
+k, TxMetadataValue
+v) <- [(TxMetadataValue, TxMetadataValue)]
+m]
+  TxMetaText Text
+text -> forall a. ToJSON a => a -> Value
+toJSON Text
+text
+
+friendlyAuxScripts :: TxAuxScripts era -> Aeson.Value
+friendlyAuxScripts :: forall era. TxAuxScripts era -> Value
+friendlyAuxScripts = \case
+  TxAuxScripts era
+TxAuxScriptsNone -> Value
+Null
+  TxAuxScripts AllegraEraOnwards era
+_ [ScriptInEra era]
+scripts -> Text -> Value
+String forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> Text
+textShow [ScriptInEra era]
+scripts
+
+friendlyReferenceInputs :: TxInsReference build era -> Aeson.Value
+friendlyReferenceInputs :: forall build era. TxInsReference build era -> Value
+friendlyReferenceInputs TxInsReference build era
+TxInsReferenceNone = Value
+Null
+friendlyReferenceInputs (TxInsReference BabbageEraOnwards era
+_ [TxIn]
+txins) = forall a. ToJSON a => a -> Value
+toJSON [TxIn]
+txins
+
+friendlyInputs :: [(TxIn, build)] -> Aeson.Value
+friendlyInputs :: forall build. [(TxIn, build)] -> Value
+friendlyInputs = forall a. ToJSON a => a -> Value
+toJSON forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. (a -> b) -> [a] -> [b]
+map forall a b. (a, b) -> a
+fst
+
+friendlyCollateralInputs :: TxInsCollateral era -> Aeson.Value
+friendlyCollateralInputs :: forall era. TxInsCollateral era -> Value
+friendlyCollateralInputs = \case
+  TxInsCollateral era
+TxInsCollateralNone -> Value
+Null
+  TxInsCollateral AlonzoEraOnwards era
+_ [TxIn]
+txins -> forall a. ToJSON a => a -> Value
+toJSON [TxIn]
+txins
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Address.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Address.html new file mode 100644 index 0000000000..7e4cbee805 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Address.html @@ -0,0 +1,59 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Address
+  ( LegacyAddressCmds (..)
+  , renderLegacyAddressCmds
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data LegacyAddressCmds
+  = AddressKeyGen
+      KeyOutputFormat
+      AddressKeyType
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | AddressKeyHash
+      VerificationKeyTextOrFile
+      (Maybe (File () Out))
+  | AddressBuild
+      PaymentVerifier
+      (Maybe StakeIdentifier)
+      NetworkId
+      (Maybe (File () Out))
+  | AddressInfo
+      Text
+      (Maybe (File () Out))
+  deriving Int -> LegacyAddressCmds -> ShowS
+[LegacyAddressCmds] -> ShowS
+LegacyAddressCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyAddressCmds] -> ShowS
+$cshowList :: [LegacyAddressCmds] -> ShowS
+show :: LegacyAddressCmds -> String
+$cshow :: LegacyAddressCmds -> String
+showsPrec :: Int -> LegacyAddressCmds -> ShowS
+$cshowsPrec :: Int -> LegacyAddressCmds -> ShowS
+Show
+
+renderLegacyAddressCmds :: LegacyAddressCmds -> Text
+renderLegacyAddressCmds :: LegacyAddressCmds -> Text
+renderLegacyAddressCmds = \case
+  AddressKeyGen {} -> Text
+"address key-gen"
+  AddressKeyHash {} -> Text
+"address key-hash"
+  AddressBuild {} -> Text
+"address build"
+  AddressInfo {} -> Text
+"address info"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Genesis.html new file mode 100644 index 0000000000..979dafc3fe --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Genesis.html @@ -0,0 +1,118 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Genesis
+  ( LegacyGenesisCmds (..)
+  , renderLegacyGenesisCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.Chain.Common (BlockCount)
+import           Cardano.CLI.Types.Common
+
+import           Data.Text (Text)
+
+data LegacyGenesisCmds
+  = GenesisCreate
+      KeyOutputFormat
+      GenesisDir
+      Word
+      Word
+      (Maybe SystemStart)
+      (Maybe Lovelace)
+      NetworkId
+  | GenesisCreateCardano
+      GenesisDir
+      Word
+      Word
+      (Maybe SystemStart)
+      (Maybe Lovelace)
+      BlockCount
+      Word
+      Rational
+      NetworkId
+      FilePath
+      FilePath
+      FilePath
+      FilePath
+      (Maybe FilePath)
+  | GenesisCreateStaked
+      KeyOutputFormat
+      GenesisDir
+      Word
+      Word
+      Word
+      Word
+      (Maybe SystemStart)
+      (Maybe Lovelace)
+      Lovelace
+      NetworkId
+      Word
+      Word
+      Word
+      (Maybe FilePath) -- ^ Relay specification filepath
+  | GenesisKeyGenGenesis
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | GenesisKeyGenDelegate
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+      (OpCertCounterFile Out)
+  | GenesisKeyGenUTxO
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | GenesisCmdKeyHash
+      (VerificationKeyFile In)
+  | GenesisVerKey
+      (VerificationKeyFile Out)
+      (SigningKeyFile In)
+  | GenesisTxIn
+      (VerificationKeyFile In)
+      NetworkId
+      (Maybe (File () Out))
+  | GenesisAddr
+      (VerificationKeyFile In)
+      NetworkId
+      (Maybe (File () Out))
+  | GenesisHashFile
+      GenesisFile
+  deriving Int -> LegacyGenesisCmds -> ShowS
+[LegacyGenesisCmds] -> ShowS
+LegacyGenesisCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyGenesisCmds] -> ShowS
+$cshowList :: [LegacyGenesisCmds] -> ShowS
+show :: LegacyGenesisCmds -> String
+$cshow :: LegacyGenesisCmds -> String
+showsPrec :: Int -> LegacyGenesisCmds -> ShowS
+$cshowsPrec :: Int -> LegacyGenesisCmds -> ShowS
+Show
+
+renderLegacyGenesisCmds :: LegacyGenesisCmds -> Text
+renderLegacyGenesisCmds :: LegacyGenesisCmds -> Text
+renderLegacyGenesisCmds = \case
+  GenesisCreate {} -> Text
+"genesis create"
+  GenesisCreateCardano {} -> Text
+"genesis create-cardano"
+  GenesisCreateStaked {} -> Text
+"genesis create-staked"
+  GenesisKeyGenGenesis {} -> Text
+"genesis key-gen-genesis"
+  GenesisKeyGenDelegate {} -> Text
+"genesis key-gen-delegate"
+  GenesisKeyGenUTxO {} -> Text
+"genesis key-gen-utxo"
+  GenesisCmdKeyHash {} -> Text
+"genesis key-hash"
+  GenesisVerKey {} -> Text
+"genesis get-ver-key"
+  GenesisTxIn {} -> Text
+"genesis initial-txin"
+  GenesisAddr {} -> Text
+"genesis initial-addr"
+  GenesisHashFile {} -> Text
+"genesis hash"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Governance.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Governance.html new file mode 100644 index 0000000000..0940d5c5b7 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Governance.html @@ -0,0 +1,87 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Governance where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+
+data LegacyGovernanceCmds
+  = GovernanceCreateMirCertificateStakeAddressesCmd
+      (EraInEon ShelleyToBabbageEra)
+      MIRPot
+      [StakeAddress]
+      [Lovelace]
+      (File () Out)
+  | GovernanceCreateMirCertificateTransferToTreasuryCmd
+      (EraInEon ShelleyToBabbageEra)
+      Lovelace
+      (File () Out)
+  | GovernanceCreateMirCertificateTransferToReservesCmd
+      (EraInEon ShelleyToBabbageEra)
+      Lovelace
+      (File () Out)
+  | GovernanceGenesisKeyDelegationCertificate
+      (EraInEon ShelleyToBabbageEra)
+      (VerificationKeyOrHashOrFile GenesisKey)
+      (VerificationKeyOrHashOrFile GenesisDelegateKey)
+      (VerificationKeyOrHashOrFile VrfKey)
+      (File () Out)
+  | GovernanceUpdateProposal
+      (File () Out) EpochNo
+      [VerificationKeyFile In]
+      ProtocolParametersUpdate
+      (Maybe FilePath)
+  | GovernanceCreatePoll
+      Text -- ^ Prompt
+      [Text] -- ^ Choices
+      (Maybe Word) -- ^ Nonce
+      (File GovernancePoll Out)
+  | GovernanceAnswerPoll
+      (File GovernancePoll In) -- ^ Poll file
+      (Maybe Word) -- ^ Answer index
+      (Maybe (File () Out)) -- ^ Tx file
+  | GovernanceVerifyPoll
+      (File GovernancePoll In) -- ^ Poll file
+      (File (Tx ()) In) -- ^ Tx file
+      (Maybe (File () Out)) -- ^ Tx file
+  deriving Int -> LegacyGovernanceCmds -> ShowS
+[LegacyGovernanceCmds] -> ShowS
+LegacyGovernanceCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyGovernanceCmds] -> ShowS
+$cshowList :: [LegacyGovernanceCmds] -> ShowS
+show :: LegacyGovernanceCmds -> String
+$cshow :: LegacyGovernanceCmds -> String
+showsPrec :: Int -> LegacyGovernanceCmds -> ShowS
+$cshowsPrec :: Int -> LegacyGovernanceCmds -> ShowS
+Show
+
+renderLegacyGovernanceCmds :: LegacyGovernanceCmds -> Text
+renderLegacyGovernanceCmds :: LegacyGovernanceCmds -> Text
+renderLegacyGovernanceCmds = \case
+  GovernanceGenesisKeyDelegationCertificate {} -> Text
+"governance create-genesis-key-delegation-certificate"
+  GovernanceCreateMirCertificateStakeAddressesCmd {} -> Text
+"governance create-mir-certificate stake-addresses"
+  GovernanceCreateMirCertificateTransferToTreasuryCmd {} -> Text
+"governance create-mir-certificate transfer-to-treasury"
+  GovernanceCreateMirCertificateTransferToReservesCmd {} -> Text
+"governance create-mir-certificate transfer-to-reserves"
+  GovernanceUpdateProposal {} -> Text
+"governance create-update-proposal"
+  GovernanceCreatePoll{} -> Text
+"governance create-poll"
+  GovernanceAnswerPoll{} -> Text
+"governance answer-poll"
+  GovernanceVerifyPoll{} -> Text
+"governance verify-poll"
+
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Key.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Key.html new file mode 100644 index 0000000000..53c0d23cf2 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Key.html @@ -0,0 +1,74 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Key
+  ( LegacyKeyCmds (..)
+  , renderLegacyKeyCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+
+import           Data.Text (Text)
+
+data LegacyKeyCmds
+  = KeyVerificationKeyCmd
+      (SigningKeyFile In)
+      (VerificationKeyFile Out)
+  | KeyNonExtendedKeyCmd
+      (VerificationKeyFile In)
+      (VerificationKeyFile Out)
+  | KeyConvertByronKeyCmd
+      (Maybe Text)
+      ByronKeyType
+      (SomeKeyFile In)
+      (File () Out)
+  | KeyConvertByronGenesisVKeyCmd
+      VerificationKeyBase64
+      (File () Out)
+  | KeyConvertITNKeyCmd
+      (SomeKeyFile In)
+      (File () Out)
+  | KeyConvertITNExtendedKeyCmd
+      (SomeKeyFile In) (File () Out)
+  | KeyConvertITNBip32KeyCmd
+      (SomeKeyFile In)
+      (File () Out)
+  | KeyConvertCardanoAddressKeyCmd
+      CardanoAddressKeyType
+      (SigningKeyFile In)
+      (File () Out)
+  deriving Int -> LegacyKeyCmds -> ShowS
+[LegacyKeyCmds] -> ShowS
+LegacyKeyCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyKeyCmds] -> ShowS
+$cshowList :: [LegacyKeyCmds] -> ShowS
+show :: LegacyKeyCmds -> String
+$cshow :: LegacyKeyCmds -> String
+showsPrec :: Int -> LegacyKeyCmds -> ShowS
+$cshowsPrec :: Int -> LegacyKeyCmds -> ShowS
+Show
+
+renderLegacyKeyCmds :: LegacyKeyCmds -> Text
+renderLegacyKeyCmds :: LegacyKeyCmds -> Text
+renderLegacyKeyCmds = \case
+  KeyVerificationKeyCmd {} -> Text
+"key verification-key"
+  KeyNonExtendedKeyCmd {} -> Text
+"key non-extended-key"
+  KeyConvertByronKeyCmd {} -> Text
+"key convert-byron-key"
+  KeyConvertByronGenesisVKeyCmd {} -> Text
+"key convert-byron-genesis-vkey"
+  KeyConvertITNKeyCmd {} -> Text
+"key convert-itn-key"
+  KeyConvertITNExtendedKeyCmd {} -> Text
+"key convert-itn-extended-key"
+  KeyConvertITNBip32KeyCmd {} -> Text
+"key convert-itn-bip32-key"
+  KeyConvertCardanoAddressKeyCmd {} -> Text
+"key convert-cardano-address-key"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Node.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Node.html new file mode 100644 index 0000000000..a9437b25a9 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Node.html @@ -0,0 +1,48 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Node
+  ( LegacyNodeCmds (..)
+  , renderLegacyNodeCmds
+  ) where
+
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+
+import           Data.Text (Text)
+
+data LegacyNodeCmds
+  = LegacyNodeKeyGenColdCmd   !Cmd.NodeKeyGenColdCmdArgs
+  | LegacyNodeKeyGenKESCmd    !Cmd.NodeKeyGenKESCmdArgs
+  | LegacyNodeKeyGenVRFCmd    !Cmd.NodeKeyGenVRFCmdArgs
+  | LegacyNodeKeyHashVRFCmd   !Cmd.NodeKeyHashVRFCmdArgs
+  | LegacyNodeNewCounterCmd   !Cmd.NodeNewCounterCmdArgs
+  | LegacyNodeIssueOpCertCmd  !Cmd.NodeIssueOpCertCmdArgs
+  deriving Int -> LegacyNodeCmds -> ShowS
+[LegacyNodeCmds] -> ShowS
+LegacyNodeCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyNodeCmds] -> ShowS
+$cshowList :: [LegacyNodeCmds] -> ShowS
+show :: LegacyNodeCmds -> String
+$cshow :: LegacyNodeCmds -> String
+showsPrec :: Int -> LegacyNodeCmds -> ShowS
+$cshowsPrec :: Int -> LegacyNodeCmds -> ShowS
+Show
+
+renderLegacyNodeCmds :: LegacyNodeCmds -> Text
+renderLegacyNodeCmds :: LegacyNodeCmds -> Text
+renderLegacyNodeCmds = \case
+  LegacyNodeKeyGenColdCmd   {} -> Text
+"node key-gen"
+  LegacyNodeKeyGenKESCmd    {} -> Text
+"node key-gen-KES"
+  LegacyNodeKeyGenVRFCmd    {} -> Text
+"node key-gen-VRF"
+  LegacyNodeKeyHashVRFCmd   {} -> Text
+"node key-hash-VRF"
+  LegacyNodeNewCounterCmd   {} -> Text
+"node new-counter"
+  LegacyNodeIssueOpCertCmd  {} -> Text
+"node issue-op-cert"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Query.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Query.html new file mode 100644 index 0000000000..dd31af1f85 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Query.html @@ -0,0 +1,654 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Query
+  ( LegacyQueryCmds (..)
+  , LegacyQueryLeadershipScheduleCmdArgs (..)
+  , LegacyQueryProtocolParametersCmdArgs (..)
+  , LegacyQueryConstitutionHashCmdArgs (..)
+  , LegacyQueryTipCmdArgs (..)
+  , LegacyQueryStakePoolsCmdArgs (..)
+  , LegacyQueryStakeDistributionCmdArgs (..)
+  , LegacyQueryStakeAddressInfoCmdArgs (..)
+  , LegacyQueryUTxOCmdArgs (..)
+  , LegacyQueryLedgerStateCmdArgs (..)
+  , LegacyQueryProtocolStateCmdArgs (..)
+  , LegacyQueryStakeSnapshotCmdArgs (..)
+  , LegacyQueryKesPeriodInfoCmdArgs (..)
+  , LegacyQueryPoolStateCmdArgs (..)
+  , LegacyQueryTxMempoolCmdArgs (..)
+  , LegacyQuerySlotNumberCmdArgs (..)
+  , renderLegacyQueryCmds
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+import           Data.Time.Clock
+import           GHC.Generics
+
+data LegacyQueryCmds
+  = QueryLeadershipScheduleCmd  !LegacyQueryLeadershipScheduleCmdArgs
+  | QueryProtocolParametersCmd  !LegacyQueryProtocolParametersCmdArgs
+  | QueryConstitutionHashCmd    !LegacyQueryConstitutionHashCmdArgs
+  | QueryTipCmd                 !LegacyQueryTipCmdArgs
+  | QueryStakePoolsCmd          !LegacyQueryStakePoolsCmdArgs
+  | QueryStakeDistributionCmd   !LegacyQueryStakeDistributionCmdArgs
+  | QueryStakeAddressInfoCmd    !LegacyQueryStakeAddressInfoCmdArgs
+  | QueryUTxOCmd                !LegacyQueryUTxOCmdArgs
+  | QueryLedgerStateCmd         !LegacyQueryLedgerStateCmdArgs
+  | QueryProtocolStateCmd       !LegacyQueryProtocolStateCmdArgs
+  | QueryStakeSnapshotCmd       !LegacyQueryStakeSnapshotCmdArgs
+  | QueryKesPeriodInfoCmd       !LegacyQueryKesPeriodInfoCmdArgs
+  | QueryPoolStateCmd           !LegacyQueryPoolStateCmdArgs
+  | QueryTxMempoolCmd           !LegacyQueryTxMempoolCmdArgs
+  | QuerySlotNumberCmd          !LegacyQuerySlotNumberCmdArgs
+  deriving (forall x. Rep LegacyQueryCmds x -> LegacyQueryCmds
+forall x. LegacyQueryCmds -> Rep LegacyQueryCmds x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep LegacyQueryCmds x -> LegacyQueryCmds
+$cfrom :: forall x. LegacyQueryCmds -> Rep LegacyQueryCmds x
+Generic, Int -> LegacyQueryCmds -> ShowS
+[LegacyQueryCmds] -> ShowS
+LegacyQueryCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryCmds] -> ShowS
+$cshowList :: [LegacyQueryCmds] -> ShowS
+show :: LegacyQueryCmds -> String
+$cshow :: LegacyQueryCmds -> String
+showsPrec :: Int -> LegacyQueryCmds -> ShowS
+$cshowsPrec :: Int -> LegacyQueryCmds -> ShowS
+Show)
+
+data LegacyQueryLeadershipScheduleCmdArgs = LegacyQueryLeadershipScheduleCmdArgs
+  { LegacyQueryLeadershipScheduleCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryLeadershipScheduleCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryLeadershipScheduleCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryLeadershipScheduleCmdArgs -> GenesisFile
+genesisFp           :: !GenesisFile
+  , LegacyQueryLeadershipScheduleCmdArgs
+-> VerificationKeyOrHashOrFile StakePoolKey
+poolColdVerKeyFile  :: !(VerificationKeyOrHashOrFile StakePoolKey)
+  , LegacyQueryLeadershipScheduleCmdArgs -> SigningKeyFile 'In
+vrkSkeyFp           :: !(SigningKeyFile In)
+  , LegacyQueryLeadershipScheduleCmdArgs -> EpochLeadershipSchedule
+whichSchedule       :: !EpochLeadershipSchedule
+  , LegacyQueryLeadershipScheduleCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryLeadershipScheduleCmdArgs x
+-> LegacyQueryLeadershipScheduleCmdArgs
+forall x.
+LegacyQueryLeadershipScheduleCmdArgs
+-> Rep LegacyQueryLeadershipScheduleCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryLeadershipScheduleCmdArgs x
+-> LegacyQueryLeadershipScheduleCmdArgs
+$cfrom :: forall x.
+LegacyQueryLeadershipScheduleCmdArgs
+-> Rep LegacyQueryLeadershipScheduleCmdArgs x
+Generic, Int -> LegacyQueryLeadershipScheduleCmdArgs -> ShowS
+[LegacyQueryLeadershipScheduleCmdArgs] -> ShowS
+LegacyQueryLeadershipScheduleCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryLeadershipScheduleCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryLeadershipScheduleCmdArgs] -> ShowS
+show :: LegacyQueryLeadershipScheduleCmdArgs -> String
+$cshow :: LegacyQueryLeadershipScheduleCmdArgs -> String
+showsPrec :: Int -> LegacyQueryLeadershipScheduleCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryLeadershipScheduleCmdArgs -> ShowS
+Show)
+
+data LegacyQueryProtocolParametersCmdArgs = LegacyQueryProtocolParametersCmdArgs
+  { LegacyQueryProtocolParametersCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryProtocolParametersCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryProtocolParametersCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryProtocolParametersCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryProtocolParametersCmdArgs x
+-> LegacyQueryProtocolParametersCmdArgs
+forall x.
+LegacyQueryProtocolParametersCmdArgs
+-> Rep LegacyQueryProtocolParametersCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryProtocolParametersCmdArgs x
+-> LegacyQueryProtocolParametersCmdArgs
+$cfrom :: forall x.
+LegacyQueryProtocolParametersCmdArgs
+-> Rep LegacyQueryProtocolParametersCmdArgs x
+Generic, Int -> LegacyQueryProtocolParametersCmdArgs -> ShowS
+[LegacyQueryProtocolParametersCmdArgs] -> ShowS
+LegacyQueryProtocolParametersCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryProtocolParametersCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryProtocolParametersCmdArgs] -> ShowS
+show :: LegacyQueryProtocolParametersCmdArgs -> String
+$cshow :: LegacyQueryProtocolParametersCmdArgs -> String
+showsPrec :: Int -> LegacyQueryProtocolParametersCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryProtocolParametersCmdArgs -> ShowS
+Show)
+
+data LegacyQueryConstitutionHashCmdArgs = LegacyQueryConstitutionHashCmdArgs
+  { LegacyQueryConstitutionHashCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryConstitutionHashCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryConstitutionHashCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryConstitutionHashCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryConstitutionHashCmdArgs x
+-> LegacyQueryConstitutionHashCmdArgs
+forall x.
+LegacyQueryConstitutionHashCmdArgs
+-> Rep LegacyQueryConstitutionHashCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryConstitutionHashCmdArgs x
+-> LegacyQueryConstitutionHashCmdArgs
+$cfrom :: forall x.
+LegacyQueryConstitutionHashCmdArgs
+-> Rep LegacyQueryConstitutionHashCmdArgs x
+Generic, Int -> LegacyQueryConstitutionHashCmdArgs -> ShowS
+[LegacyQueryConstitutionHashCmdArgs] -> ShowS
+LegacyQueryConstitutionHashCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryConstitutionHashCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryConstitutionHashCmdArgs] -> ShowS
+show :: LegacyQueryConstitutionHashCmdArgs -> String
+$cshow :: LegacyQueryConstitutionHashCmdArgs -> String
+showsPrec :: Int -> LegacyQueryConstitutionHashCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryConstitutionHashCmdArgs -> ShowS
+Show)
+
+data LegacyQueryTipCmdArgs = LegacyQueryTipCmdArgs
+  { LegacyQueryTipCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryTipCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryTipCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryTipCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep LegacyQueryTipCmdArgs x -> LegacyQueryTipCmdArgs
+forall x. LegacyQueryTipCmdArgs -> Rep LegacyQueryTipCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep LegacyQueryTipCmdArgs x -> LegacyQueryTipCmdArgs
+$cfrom :: forall x. LegacyQueryTipCmdArgs -> Rep LegacyQueryTipCmdArgs x
+Generic, Int -> LegacyQueryTipCmdArgs -> ShowS
+[LegacyQueryTipCmdArgs] -> ShowS
+LegacyQueryTipCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryTipCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryTipCmdArgs] -> ShowS
+show :: LegacyQueryTipCmdArgs -> String
+$cshow :: LegacyQueryTipCmdArgs -> String
+showsPrec :: Int -> LegacyQueryTipCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryTipCmdArgs -> ShowS
+Show)
+
+data LegacyQueryStakePoolsCmdArgs = LegacyQueryStakePoolsCmdArgs
+  { LegacyQueryStakePoolsCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryStakePoolsCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryStakePoolsCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryStakePoolsCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryStakePoolsCmdArgs x -> LegacyQueryStakePoolsCmdArgs
+forall x.
+LegacyQueryStakePoolsCmdArgs -> Rep LegacyQueryStakePoolsCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryStakePoolsCmdArgs x -> LegacyQueryStakePoolsCmdArgs
+$cfrom :: forall x.
+LegacyQueryStakePoolsCmdArgs -> Rep LegacyQueryStakePoolsCmdArgs x
+Generic, Int -> LegacyQueryStakePoolsCmdArgs -> ShowS
+[LegacyQueryStakePoolsCmdArgs] -> ShowS
+LegacyQueryStakePoolsCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryStakePoolsCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryStakePoolsCmdArgs] -> ShowS
+show :: LegacyQueryStakePoolsCmdArgs -> String
+$cshow :: LegacyQueryStakePoolsCmdArgs -> String
+showsPrec :: Int -> LegacyQueryStakePoolsCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryStakePoolsCmdArgs -> ShowS
+Show)
+
+data LegacyQueryStakeDistributionCmdArgs = LegacyQueryStakeDistributionCmdArgs
+  { LegacyQueryStakeDistributionCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryStakeDistributionCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryStakeDistributionCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryStakeDistributionCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryStakeDistributionCmdArgs x
+-> LegacyQueryStakeDistributionCmdArgs
+forall x.
+LegacyQueryStakeDistributionCmdArgs
+-> Rep LegacyQueryStakeDistributionCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryStakeDistributionCmdArgs x
+-> LegacyQueryStakeDistributionCmdArgs
+$cfrom :: forall x.
+LegacyQueryStakeDistributionCmdArgs
+-> Rep LegacyQueryStakeDistributionCmdArgs x
+Generic, Int -> LegacyQueryStakeDistributionCmdArgs -> ShowS
+[LegacyQueryStakeDistributionCmdArgs] -> ShowS
+LegacyQueryStakeDistributionCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryStakeDistributionCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryStakeDistributionCmdArgs] -> ShowS
+show :: LegacyQueryStakeDistributionCmdArgs -> String
+$cshow :: LegacyQueryStakeDistributionCmdArgs -> String
+showsPrec :: Int -> LegacyQueryStakeDistributionCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryStakeDistributionCmdArgs -> ShowS
+Show)
+
+data LegacyQueryStakeAddressInfoCmdArgs = LegacyQueryStakeAddressInfoCmdArgs
+  { LegacyQueryStakeAddressInfoCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryStakeAddressInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryStakeAddressInfoCmdArgs -> StakeAddress
+addr                :: !StakeAddress
+  , LegacyQueryStakeAddressInfoCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryStakeAddressInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryStakeAddressInfoCmdArgs x
+-> LegacyQueryStakeAddressInfoCmdArgs
+forall x.
+LegacyQueryStakeAddressInfoCmdArgs
+-> Rep LegacyQueryStakeAddressInfoCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryStakeAddressInfoCmdArgs x
+-> LegacyQueryStakeAddressInfoCmdArgs
+$cfrom :: forall x.
+LegacyQueryStakeAddressInfoCmdArgs
+-> Rep LegacyQueryStakeAddressInfoCmdArgs x
+Generic, Int -> LegacyQueryStakeAddressInfoCmdArgs -> ShowS
+[LegacyQueryStakeAddressInfoCmdArgs] -> ShowS
+LegacyQueryStakeAddressInfoCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryStakeAddressInfoCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryStakeAddressInfoCmdArgs] -> ShowS
+show :: LegacyQueryStakeAddressInfoCmdArgs -> String
+$cshow :: LegacyQueryStakeAddressInfoCmdArgs -> String
+showsPrec :: Int -> LegacyQueryStakeAddressInfoCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryStakeAddressInfoCmdArgs -> ShowS
+Show)
+
+data LegacyQueryUTxOCmdArgs = LegacyQueryUTxOCmdArgs
+  { LegacyQueryUTxOCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryUTxOCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryUTxOCmdArgs -> QueryUTxOFilter
+queryFilter         :: !QueryUTxOFilter
+  , LegacyQueryUTxOCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryUTxOCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x. Rep LegacyQueryUTxOCmdArgs x -> LegacyQueryUTxOCmdArgs
+forall x. LegacyQueryUTxOCmdArgs -> Rep LegacyQueryUTxOCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep LegacyQueryUTxOCmdArgs x -> LegacyQueryUTxOCmdArgs
+$cfrom :: forall x. LegacyQueryUTxOCmdArgs -> Rep LegacyQueryUTxOCmdArgs x
+Generic, Int -> LegacyQueryUTxOCmdArgs -> ShowS
+[LegacyQueryUTxOCmdArgs] -> ShowS
+LegacyQueryUTxOCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryUTxOCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryUTxOCmdArgs] -> ShowS
+show :: LegacyQueryUTxOCmdArgs -> String
+$cshow :: LegacyQueryUTxOCmdArgs -> String
+showsPrec :: Int -> LegacyQueryUTxOCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryUTxOCmdArgs -> ShowS
+Show)
+
+data LegacyQueryLedgerStateCmdArgs = LegacyQueryLedgerStateCmdArgs
+  { LegacyQueryLedgerStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryLedgerStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryLedgerStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryLedgerStateCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryLedgerStateCmdArgs x
+-> LegacyQueryLedgerStateCmdArgs
+forall x.
+LegacyQueryLedgerStateCmdArgs
+-> Rep LegacyQueryLedgerStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryLedgerStateCmdArgs x
+-> LegacyQueryLedgerStateCmdArgs
+$cfrom :: forall x.
+LegacyQueryLedgerStateCmdArgs
+-> Rep LegacyQueryLedgerStateCmdArgs x
+Generic, Int -> LegacyQueryLedgerStateCmdArgs -> ShowS
+[LegacyQueryLedgerStateCmdArgs] -> ShowS
+LegacyQueryLedgerStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryLedgerStateCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryLedgerStateCmdArgs] -> ShowS
+show :: LegacyQueryLedgerStateCmdArgs -> String
+$cshow :: LegacyQueryLedgerStateCmdArgs -> String
+showsPrec :: Int -> LegacyQueryLedgerStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryLedgerStateCmdArgs -> ShowS
+Show)
+
+data LegacyQueryProtocolStateCmdArgs = LegacyQueryProtocolStateCmdArgs
+  { LegacyQueryProtocolStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryProtocolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryProtocolStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryProtocolStateCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryProtocolStateCmdArgs x
+-> LegacyQueryProtocolStateCmdArgs
+forall x.
+LegacyQueryProtocolStateCmdArgs
+-> Rep LegacyQueryProtocolStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryProtocolStateCmdArgs x
+-> LegacyQueryProtocolStateCmdArgs
+$cfrom :: forall x.
+LegacyQueryProtocolStateCmdArgs
+-> Rep LegacyQueryProtocolStateCmdArgs x
+Generic, Int -> LegacyQueryProtocolStateCmdArgs -> ShowS
+[LegacyQueryProtocolStateCmdArgs] -> ShowS
+LegacyQueryProtocolStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryProtocolStateCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryProtocolStateCmdArgs] -> ShowS
+show :: LegacyQueryProtocolStateCmdArgs -> String
+$cshow :: LegacyQueryProtocolStateCmdArgs -> String
+showsPrec :: Int -> LegacyQueryProtocolStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryProtocolStateCmdArgs -> ShowS
+Show)
+
+data LegacyQueryStakeSnapshotCmdArgs = LegacyQueryStakeSnapshotCmdArgs
+  { LegacyQueryStakeSnapshotCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryStakeSnapshotCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryStakeSnapshotCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryStakeSnapshotCmdArgs -> AllOrOnly [Hash StakePoolKey]
+allOrOnlyPoolIds    :: !(AllOrOnly [Hash StakePoolKey])
+  , LegacyQueryStakeSnapshotCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryStakeSnapshotCmdArgs x
+-> LegacyQueryStakeSnapshotCmdArgs
+forall x.
+LegacyQueryStakeSnapshotCmdArgs
+-> Rep LegacyQueryStakeSnapshotCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryStakeSnapshotCmdArgs x
+-> LegacyQueryStakeSnapshotCmdArgs
+$cfrom :: forall x.
+LegacyQueryStakeSnapshotCmdArgs
+-> Rep LegacyQueryStakeSnapshotCmdArgs x
+Generic, Int -> LegacyQueryStakeSnapshotCmdArgs -> ShowS
+[LegacyQueryStakeSnapshotCmdArgs] -> ShowS
+LegacyQueryStakeSnapshotCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryStakeSnapshotCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryStakeSnapshotCmdArgs] -> ShowS
+show :: LegacyQueryStakeSnapshotCmdArgs -> String
+$cshow :: LegacyQueryStakeSnapshotCmdArgs -> String
+showsPrec :: Int -> LegacyQueryStakeSnapshotCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryStakeSnapshotCmdArgs -> ShowS
+Show)
+
+data LegacyQueryKesPeriodInfoCmdArgs = LegacyQueryKesPeriodInfoCmdArgs
+  { LegacyQueryKesPeriodInfoCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryKesPeriodInfoCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryKesPeriodInfoCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryKesPeriodInfoCmdArgs -> File () 'In
+nodeOpCertFp        :: !(File () In) -- ^ Node operational certificate
+  , LegacyQueryKesPeriodInfoCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  } deriving (forall x.
+Rep LegacyQueryKesPeriodInfoCmdArgs x
+-> LegacyQueryKesPeriodInfoCmdArgs
+forall x.
+LegacyQueryKesPeriodInfoCmdArgs
+-> Rep LegacyQueryKesPeriodInfoCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryKesPeriodInfoCmdArgs x
+-> LegacyQueryKesPeriodInfoCmdArgs
+$cfrom :: forall x.
+LegacyQueryKesPeriodInfoCmdArgs
+-> Rep LegacyQueryKesPeriodInfoCmdArgs x
+Generic, Int -> LegacyQueryKesPeriodInfoCmdArgs -> ShowS
+[LegacyQueryKesPeriodInfoCmdArgs] -> ShowS
+LegacyQueryKesPeriodInfoCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryKesPeriodInfoCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryKesPeriodInfoCmdArgs] -> ShowS
+show :: LegacyQueryKesPeriodInfoCmdArgs -> String
+$cshow :: LegacyQueryKesPeriodInfoCmdArgs -> String
+showsPrec :: Int -> LegacyQueryKesPeriodInfoCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryKesPeriodInfoCmdArgs -> ShowS
+Show)
+
+data LegacyQueryPoolStateCmdArgs = LegacyQueryPoolStateCmdArgs
+  { LegacyQueryPoolStateCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryPoolStateCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryPoolStateCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryPoolStateCmdArgs -> [Hash StakePoolKey]
+poolIds             :: ![Hash StakePoolKey]
+  } deriving (forall x.
+Rep LegacyQueryPoolStateCmdArgs x -> LegacyQueryPoolStateCmdArgs
+forall x.
+LegacyQueryPoolStateCmdArgs -> Rep LegacyQueryPoolStateCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryPoolStateCmdArgs x -> LegacyQueryPoolStateCmdArgs
+$cfrom :: forall x.
+LegacyQueryPoolStateCmdArgs -> Rep LegacyQueryPoolStateCmdArgs x
+Generic, Int -> LegacyQueryPoolStateCmdArgs -> ShowS
+[LegacyQueryPoolStateCmdArgs] -> ShowS
+LegacyQueryPoolStateCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryPoolStateCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryPoolStateCmdArgs] -> ShowS
+show :: LegacyQueryPoolStateCmdArgs -> String
+$cshow :: LegacyQueryPoolStateCmdArgs -> String
+showsPrec :: Int -> LegacyQueryPoolStateCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryPoolStateCmdArgs -> ShowS
+Show)
+
+data LegacyQueryTxMempoolCmdArgs = LegacyQueryTxMempoolCmdArgs
+  { LegacyQueryTxMempoolCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQueryTxMempoolCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQueryTxMempoolCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQueryTxMempoolCmdArgs -> TxMempoolQuery
+query               :: !TxMempoolQuery
+  , LegacyQueryTxMempoolCmdArgs -> Maybe (File () 'Out)
+mOutFile            :: !(Maybe (File () Out))
+  }
+  deriving (forall x.
+Rep LegacyQueryTxMempoolCmdArgs x -> LegacyQueryTxMempoolCmdArgs
+forall x.
+LegacyQueryTxMempoolCmdArgs -> Rep LegacyQueryTxMempoolCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQueryTxMempoolCmdArgs x -> LegacyQueryTxMempoolCmdArgs
+$cfrom :: forall x.
+LegacyQueryTxMempoolCmdArgs -> Rep LegacyQueryTxMempoolCmdArgs x
+Generic, Int -> LegacyQueryTxMempoolCmdArgs -> ShowS
+[LegacyQueryTxMempoolCmdArgs] -> ShowS
+LegacyQueryTxMempoolCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQueryTxMempoolCmdArgs] -> ShowS
+$cshowList :: [LegacyQueryTxMempoolCmdArgs] -> ShowS
+show :: LegacyQueryTxMempoolCmdArgs -> String
+$cshow :: LegacyQueryTxMempoolCmdArgs -> String
+showsPrec :: Int -> LegacyQueryTxMempoolCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQueryTxMempoolCmdArgs -> ShowS
+Show)
+
+data LegacyQuerySlotNumberCmdArgs = LegacyQuerySlotNumberCmdArgs
+  { LegacyQuerySlotNumberCmdArgs -> SocketPath
+nodeSocketPath      :: !SocketPath
+  , LegacyQuerySlotNumberCmdArgs -> ConsensusModeParams
+consensusModeParams :: !ConsensusModeParams
+  , LegacyQuerySlotNumberCmdArgs -> NetworkId
+networkId           :: !NetworkId
+  , LegacyQuerySlotNumberCmdArgs -> UTCTime
+utcTime             :: !UTCTime
+  } deriving (forall x.
+Rep LegacyQuerySlotNumberCmdArgs x -> LegacyQuerySlotNumberCmdArgs
+forall x.
+LegacyQuerySlotNumberCmdArgs -> Rep LegacyQuerySlotNumberCmdArgs x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x.
+Rep LegacyQuerySlotNumberCmdArgs x -> LegacyQuerySlotNumberCmdArgs
+$cfrom :: forall x.
+LegacyQuerySlotNumberCmdArgs -> Rep LegacyQuerySlotNumberCmdArgs x
+Generic, Int -> LegacyQuerySlotNumberCmdArgs -> ShowS
+[LegacyQuerySlotNumberCmdArgs] -> ShowS
+LegacyQuerySlotNumberCmdArgs -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyQuerySlotNumberCmdArgs] -> ShowS
+$cshowList :: [LegacyQuerySlotNumberCmdArgs] -> ShowS
+show :: LegacyQuerySlotNumberCmdArgs -> String
+$cshow :: LegacyQuerySlotNumberCmdArgs -> String
+showsPrec :: Int -> LegacyQuerySlotNumberCmdArgs -> ShowS
+$cshowsPrec :: Int -> LegacyQuerySlotNumberCmdArgs -> ShowS
+Show)
+
+renderLegacyQueryCmds :: LegacyQueryCmds -> Text
+renderLegacyQueryCmds :: LegacyQueryCmds -> Text
+renderLegacyQueryCmds = \case
+  QueryLeadershipScheduleCmd {} -> Text
+"query leadership-schedule"
+  QueryProtocolParametersCmd {} -> Text
+"query protocol-parameters "
+  QueryConstitutionHashCmd {} -> Text
+"query constitution-hash "
+  QueryTipCmd {} -> Text
+"query tip"
+  QueryStakePoolsCmd {} -> Text
+"query stake-pools"
+  QueryStakeDistributionCmd {} -> Text
+"query stake-distribution"
+  QueryStakeAddressInfoCmd {} -> Text
+"query stake-address-info"
+  QueryUTxOCmd {} -> Text
+"query utxo"
+  QueryLedgerStateCmd {} -> Text
+"query ledger-state"
+  QueryProtocolStateCmd {} -> Text
+"query protocol-state"
+  QueryStakeSnapshotCmd {} -> Text
+"query stake-snapshot"
+  QueryKesPeriodInfoCmd {} -> Text
+"query kes-period-info"
+  QueryPoolStateCmd {} -> Text
+"query pool-state"
+  QueryTxMempoolCmd (LegacyQueryTxMempoolCmdArgs SocketPath
+_ ConsensusModeParams
+_ NetworkId
+_ TxMempoolQuery
+txMempoolQuery Maybe (File () 'Out)
+_) -> Text
+"query tx-mempool" forall a. Semigroup a => a -> a -> a
+<> TxMempoolQuery -> Text
+renderTxMempoolQuery TxMempoolQuery
+txMempoolQuery
+  QuerySlotNumberCmd {} -> Text
+"query slot-number"
+  where
+    renderTxMempoolQuery :: TxMempoolQuery -> Text
+renderTxMempoolQuery = \case
+      TxMempoolQueryTxExists TxId
+tx -> Text
+"tx-exists " forall a. Semigroup a => a -> a -> a
+<> forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText TxId
+tx
+      TxMempoolQuery
+TxMempoolQueryNextTx -> Text
+"next-tx"
+      TxMempoolQuery
+TxMempoolQueryInfo -> Text
+"info"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakeAddress.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakeAddress.html new file mode 100644 index 0000000000..c0ab708df9 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakeAddress.html @@ -0,0 +1,74 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+-- | Shelley CLI command types
+module Cardano.CLI.Legacy.Commands.StakeAddress
+  ( LegacyStakeAddressCmds (..)
+  , renderLegacyStakeAddressCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data LegacyStakeAddressCmds
+  = StakeAddressKeyGenCmd
+      KeyOutputFormat
+      (VerificationKeyFile Out)
+      (SigningKeyFile Out)
+  | StakeAddressKeyHashCmd
+      (VerificationKeyOrFile StakeKey)
+      (Maybe (File () Out))
+  | StakeAddressBuildCmd
+      StakeVerifier
+      NetworkId
+      (Maybe (File () Out))
+  | StakeAddressRegistrationCertificateCmd
+      (EraInEon ShelleyBasedEra)
+      StakeIdentifier
+      (Maybe Lovelace)
+      (File () Out)
+  | StakeAddressDelegationCertificateCmd
+      (EraInEon ShelleyBasedEra)
+      StakeIdentifier
+      (VerificationKeyOrHashOrFile StakePoolKey)
+      (File () Out)
+  | StakeAddressDeregistrationCertificateCmd
+      (EraInEon ShelleyBasedEra)
+      StakeIdentifier
+      (Maybe Lovelace)
+      (File () Out)
+  deriving Int -> LegacyStakeAddressCmds -> ShowS
+[LegacyStakeAddressCmds] -> ShowS
+LegacyStakeAddressCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyStakeAddressCmds] -> ShowS
+$cshowList :: [LegacyStakeAddressCmds] -> ShowS
+show :: LegacyStakeAddressCmds -> String
+$cshow :: LegacyStakeAddressCmds -> String
+showsPrec :: Int -> LegacyStakeAddressCmds -> ShowS
+$cshowsPrec :: Int -> LegacyStakeAddressCmds -> ShowS
+Show
+
+renderLegacyStakeAddressCmds :: LegacyStakeAddressCmds -> Text
+renderLegacyStakeAddressCmds :: LegacyStakeAddressCmds -> Text
+renderLegacyStakeAddressCmds = \case
+  StakeAddressKeyGenCmd {} -> Text
+"stake-address key-gen"
+  StakeAddressKeyHashCmd {} -> Text
+"stake-address key-hash"
+  StakeAddressBuildCmd {} -> Text
+"stake-address build"
+  StakeAddressRegistrationCertificateCmd {} -> Text
+"stake-address registration-certificate"
+  StakeAddressDelegationCertificateCmd {} -> Text
+"stake-address delegation-certificate"
+  StakeAddressDeregistrationCertificateCmd {} -> Text
+"stake-address deregistration-certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakePool.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakePool.html new file mode 100644 index 0000000000..b0e2c3ea12 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.StakePool.html @@ -0,0 +1,85 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.StakePool
+  ( LegacyStakePoolCmds (..)
+  , renderLegacyStakePoolCmds
+  ) where
+
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Key
+
+import           Prelude
+
+import           Data.Text (Text)
+
+data LegacyStakePoolCmds
+  = StakePoolDeregistrationCertificateCmd
+      (EraInEon ShelleyBasedEra)
+      -- ^ Era in which to retire the stake pool.
+      (VerificationKeyOrFile StakePoolKey)
+      -- ^ Stake pool verification key.
+      EpochNo
+      -- ^ Epoch in which to retire the stake pool.
+      (File () Out)
+  | StakePoolIdCmd
+      (VerificationKeyOrFile StakePoolKey)
+      IdOutputFormat
+      (Maybe (File () Out))
+  | StakePoolMetadataHashCmd
+      (StakePoolMetadataFile In)
+      (Maybe (File () Out))
+  | StakePoolRegistrationCertificateCmd
+      (EraInEon ShelleyBasedEra)
+      -- ^ Era in which to register the stake pool.
+      (VerificationKeyOrFile StakePoolKey)
+      -- ^ Stake pool verification key.
+      (VerificationKeyOrFile VrfKey)
+      -- ^ VRF Verification key.
+      Lovelace
+      -- ^ Pool pledge.
+      Lovelace
+      -- ^ Pool cost.
+      Rational
+      -- ^ Pool margin.
+      (VerificationKeyOrFile StakeKey)
+      -- ^ Reward account verification staking key.
+      [VerificationKeyOrFile StakeKey]
+      -- ^ Pool owner verification staking key(s).
+      [StakePoolRelay]
+      -- ^ Stake pool relays.
+      (Maybe StakePoolMetadataReference)
+      -- ^ Stake pool metadata.
+      NetworkId
+      (File () Out)
+  deriving Int -> LegacyStakePoolCmds -> ShowS
+[LegacyStakePoolCmds] -> ShowS
+LegacyStakePoolCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyStakePoolCmds] -> ShowS
+$cshowList :: [LegacyStakePoolCmds] -> ShowS
+show :: LegacyStakePoolCmds -> String
+$cshow :: LegacyStakePoolCmds -> String
+showsPrec :: Int -> LegacyStakePoolCmds -> ShowS
+$cshowsPrec :: Int -> LegacyStakePoolCmds -> ShowS
+Show
+
+renderLegacyStakePoolCmds :: LegacyStakePoolCmds -> Text
+renderLegacyStakePoolCmds :: LegacyStakePoolCmds -> Text
+renderLegacyStakePoolCmds = \case
+  StakePoolDeregistrationCertificateCmd {} ->
+    Text
+"stake-pool deregistration-certificate"
+  StakePoolIdCmd {} ->
+    Text
+"stake-pool id"
+  StakePoolMetadataHashCmd {} ->
+    Text
+"stake-pool metadata-hash"
+  StakePoolRegistrationCertificateCmd {} ->
+    Text
+"stake-pool registration-certificate"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.TextView.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.TextView.html new file mode 100644 index 0000000000..97983309e3 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.TextView.html @@ -0,0 +1,35 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.TextView
+  ( LegacyTextViewCmds (..)
+  , renderLegacyTextViewCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Data.Text (Text)
+
+data LegacyTextViewCmds
+  = TextViewInfo !FilePath (Maybe (File () Out))
+  deriving Int -> LegacyTextViewCmds -> ShowS
+[LegacyTextViewCmds] -> ShowS
+LegacyTextViewCmds -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [LegacyTextViewCmds] -> ShowS
+$cshowList :: [LegacyTextViewCmds] -> ShowS
+show :: LegacyTextViewCmds -> String
+$cshow :: LegacyTextViewCmds -> String
+showsPrec :: Int -> LegacyTextViewCmds -> ShowS
+$cshowsPrec :: Int -> LegacyTextViewCmds -> ShowS
+Show
+
+renderLegacyTextViewCmds :: LegacyTextViewCmds -> Text
+renderLegacyTextViewCmds :: LegacyTextViewCmds -> Text
+renderLegacyTextViewCmds = \case
+  TextViewInfo String
+_ Maybe (File () 'Out)
+_ -> Text
+"text-view decode-cbor"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Transaction.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Transaction.html new file mode 100644 index 0000000000..1d4796cce0 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.Transaction.html @@ -0,0 +1,165 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands.Transaction
+  ( LegacyTransactionCmds (..)
+  , renderLegacyTransactionCmds
+  ) where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Governance
+
+import           Data.Text (Text)
+
+data LegacyTransactionCmds
+  = TransactionBuildRawCmd
+      AnyCardanoEra
+      (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 'TransactionBuildRaw' but without the fee, and with a change output.
+  | TransactionBuildCmd
+      SocketPath
+      (EraInEon ShelleyBasedEra)
+      ConsensusModeParams
+      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
+  | TransactionSignCmd
+      InputTxBodyOrTxFile
+      [WitnessSigningData]
+      (Maybe NetworkId)
+      (TxFile Out)
+  | TransactionWitnessCmd
+      (TxBodyFile In)
+      WitnessSigningData
+      (Maybe NetworkId)
+      (File () Out)
+  | TransactionSignWitnessCmd
+      (TxBodyFile In)
+      [WitnessFile]
+      (File () Out)
+  | TransactionSubmitCmd
+      SocketPath
+      ConsensusModeParams
+      NetworkId
+      FilePath
+  | TransactionPolicyIdCmd
+      ScriptFile
+  | TransactionCalculateMinFeeCmd
+      (TxBodyFile In)
+      NetworkId
+      ProtocolParamsFile
+      TxInCount
+      TxOutCount
+      TxShelleyWitnessCount
+      TxByronWitnessCount
+  | TransactionCalculateMinValueCmd
+      AnyCardanoEra
+      ProtocolParamsFile
+      TxOutAnyEra
+  | TransactionHashScriptDataCmd
+      ScriptDataOrFile
+  | TransactionTxIdCmd
+      InputTxBodyOrTxFile
+  | TransactionViewCmd
+      TxViewOutputFormat
+      (Maybe (File () Out))
+      InputTxBodyOrTxFile
+
+renderLegacyTransactionCmds :: LegacyTransactionCmds -> Text
+renderLegacyTransactionCmds :: LegacyTransactionCmds -> Text
+renderLegacyTransactionCmds = \case
+  TransactionBuildCmd                     {} -> Text
+"transaction build"
+  TransactionBuildRawCmd                  {} -> Text
+"transaction build-raw"
+  TransactionSignCmd                      {} -> Text
+"transaction sign"
+  TransactionWitnessCmd                   {} -> Text
+"transaction witness"
+  TransactionSignWitnessCmd               {} -> Text
+"transaction sign-witness"
+  TransactionSubmitCmd                    {} -> Text
+"transaction submit"
+  TransactionPolicyIdCmd                  {} -> Text
+"transaction policyid"
+  TransactionCalculateMinFeeCmd           {} -> Text
+"transaction calculate-min-fee"
+  TransactionCalculateMinValueCmd         {} -> Text
+"transaction calculate-min-value"
+  TransactionHashScriptDataCmd            {} -> Text
+"transaction hash-script-data"
+  TransactionTxIdCmd                      {} -> Text
+"transaction txid"
+  TransactionViewCmd                      {} -> Text
+"transaction view"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.html new file mode 100644 index 0000000000..9346cf9d81 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Commands.html @@ -0,0 +1,86 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Commands
+  ( LegacyCmds (..)
+  , renderLegacyCommand
+  ) where
+
+import           Cardano.CLI.Legacy.Commands.Address
+import           Cardano.CLI.Legacy.Commands.Genesis
+import           Cardano.CLI.Legacy.Commands.Governance
+import           Cardano.CLI.Legacy.Commands.Key
+import           Cardano.CLI.Legacy.Commands.Node
+import           Cardano.CLI.Legacy.Commands.Query
+import           Cardano.CLI.Legacy.Commands.StakeAddress
+import           Cardano.CLI.Legacy.Commands.StakePool
+import           Cardano.CLI.Legacy.Commands.TextView
+import           Cardano.CLI.Legacy.Commands.Transaction
+
+import           Data.Text (Text)
+
+data LegacyCmds
+  = LegacyAddressCmds       LegacyAddressCmds
+  | LegacyGenesisCmds       LegacyGenesisCmds
+  | LegacyGovernanceCmds    LegacyGovernanceCmds
+  | LegacyKeyCmds           LegacyKeyCmds
+  | LegacyNodeCmds          LegacyNodeCmds
+  | LegacyQueryCmds         LegacyQueryCmds
+  | LegacyStakeAddressCmds  LegacyStakeAddressCmds
+  | LegacyStakePoolCmds     LegacyStakePoolCmds
+  | LegacyTextViewCmds      LegacyTextViewCmds
+  | LegacyTransactionCmds   LegacyTransactionCmds
+
+renderLegacyCommand :: LegacyCmds -> Text
+renderLegacyCommand :: LegacyCmds -> Text
+renderLegacyCommand = \case
+  LegacyAddressCmds LegacyAddressCmds
+cmd ->
+    LegacyAddressCmds -> Text
+renderLegacyAddressCmds LegacyAddressCmds
+cmd
+  LegacyStakeAddressCmds LegacyStakeAddressCmds
+cmd ->
+    LegacyStakeAddressCmds -> Text
+renderLegacyStakeAddressCmds LegacyStakeAddressCmds
+cmd
+  LegacyKeyCmds LegacyKeyCmds
+cmd ->
+    LegacyKeyCmds -> Text
+renderLegacyKeyCmds LegacyKeyCmds
+cmd
+  LegacyTransactionCmds LegacyTransactionCmds
+cmd ->
+    LegacyTransactionCmds -> Text
+renderLegacyTransactionCmds LegacyTransactionCmds
+cmd
+  LegacyNodeCmds LegacyNodeCmds
+cmd ->
+    LegacyNodeCmds -> Text
+renderLegacyNodeCmds LegacyNodeCmds
+cmd
+  LegacyStakePoolCmds LegacyStakePoolCmds
+cmd ->
+    LegacyStakePoolCmds -> Text
+renderLegacyStakePoolCmds LegacyStakePoolCmds
+cmd
+  LegacyQueryCmds LegacyQueryCmds
+cmd ->
+    LegacyQueryCmds -> Text
+renderLegacyQueryCmds LegacyQueryCmds
+cmd
+  LegacyGovernanceCmds LegacyGovernanceCmds
+cmd ->
+    LegacyGovernanceCmds -> Text
+renderLegacyGovernanceCmds LegacyGovernanceCmds
+cmd
+  LegacyGenesisCmds LegacyGenesisCmds
+cmd ->
+    LegacyGenesisCmds -> Text
+renderLegacyGenesisCmds LegacyGenesisCmds
+cmd
+  LegacyTextViewCmds LegacyTextViewCmds
+cmd ->
+    LegacyTextViewCmds -> Text
+renderLegacyTextViewCmds LegacyTextViewCmds
+cmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.Key.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.Key.html new file mode 100644 index 0000000000..8181140263 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.Key.html @@ -0,0 +1,619 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Legacy.Options.Key
+  ( pKeyCmds
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Legacy.Commands.Key
+import           Cardano.CLI.Types.Common
+
+import           Data.Foldable
+import           Data.Text (Text)
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+
+pKeyCmds :: Parser LegacyKeyCmds
+pKeyCmds :: Parser LegacyKeyCmds
+pKeyCmds =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. String -> ParserInfo a -> Parser a
+subParser String
+"verification-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyVerificationKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get a verification key from a signing key. This "
+            , String
+" supports all key types."
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"non-extended-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyNonExtendedKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Get a non-extended verification key from an "
+            , String
+"extended verification key. This supports all "
+            , String
+"extended key types."
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-byron-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertByronKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a Byron payment, genesis or genesis "
+            , String
+"delegate key (signing or verification) to a "
+            , String
+"corresponding Shelley-format key."
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-byron-genesis-vkey"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertByronGenesisVKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a Base64-encoded Byron genesis "
+            , String
+"verification key to a Shelley genesis "
+            , String
+"verification key"
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertITNKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) non-extended "
+            , String
+"(Ed25519) signing or verification key to a "
+            , String
+"corresponding Shelley stake key"
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-extended-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertITNExtendedKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) extended "
+            , String
+"(Ed25519Extended) signing key to a corresponding "
+            , String
+"Shelley stake signing key"
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-itn-bip32-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertITNBip32KeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert an Incentivized Testnet (ITN) BIP32 "
+            , String
+"(Ed25519Bip32) signing key to a corresponding "
+            , String
+"Shelley stake signing key"
+            ]
+    , forall a. String -> ParserInfo a -> Parser a
+subParser String
+"convert-cardano-address-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyKeyCmds
+pKeyConvertCardanoAddressKeyCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ String
+"Convert a cardano-address extended signing key "
+            , String
+"to a corresponding Shelley-format key."
+            ]
+    ]
+
+pKeyVerificationKeyCmd :: Parser LegacyKeyCmds
+pKeyVerificationKeyCmd :: Parser LegacyKeyCmds
+pKeyVerificationKeyCmd =
+  SigningKeyFile 'In -> VerificationKeyFile 'Out -> LegacyKeyCmds
+KeyVerificationKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+
+pKeyNonExtendedKeyCmd :: Parser LegacyKeyCmds
+pKeyNonExtendedKeyCmd :: Parser LegacyKeyCmds
+pKeyNonExtendedKeyCmd =
+  VerificationKeyFile 'In
+-> VerificationKeyFile 'Out -> LegacyKeyCmds
+KeyNonExtendedKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pExtendedVerificationKeyFileIn
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+
+pKeyConvertByronKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertByronKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertByronKeyCmd =
+  Maybe Text
+-> ByronKeyType -> SomeKeyFile 'In -> File () 'Out -> LegacyKeyCmds
+KeyConvertByronKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Text
+pPassword
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ByronKeyType
+pByronKeyType
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SomeKeyFile 'In)
+pByronKeyFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pPassword :: Parser Text
+pPassword :: Parser Text
+pPassword =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"password"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"TEXT"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Password for signing key (if applicable)."
+    ]
+
+pByronKeyType :: Parser ByronKeyType
+pByronKeyType :: Parser ByronKeyType
+pByronKeyType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronPaymentKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-payment-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era payment key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronPaymentKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-payment-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era payment key, in legacy SL format."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronGenesisKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronGenesisKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-genesis-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis key, in legacy SL format."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronDelegateKey ByronKeyFormat
+NonLegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-delegate-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis delegate key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (ByronKeyFormat -> ByronKeyType
+ByronDelegateKey ByronKeyFormat
+LegacyByronKeyFormat) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"legacy-byron-genesis-delegate-key-type"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era genesis delegate key, in legacy SL format."
+        ]
+    ]
+
+pByronKeyFile :: Parser (SomeKeyFile In)
+pByronKeyFile :: Parser (SomeKeyFile 'In)
+pByronKeyFile =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall (direction :: FileDirection).
+SigningKeyFile direction -> SomeKeyFile direction
+ASigningKeyFile      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (SigningKeyFile 'In)
+pByronSigningKeyFile
+    , forall (direction :: FileDirection).
+VerificationKeyFile direction -> SomeKeyFile direction
+AVerificationKeyFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pByronVerificationKeyFile
+    ]
+
+pByronSigningKeyFile :: Parser (SigningKeyFile In)
+pByronSigningKeyFile :: Parser (SigningKeyFile 'In)
+pByronSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Input filepath of the Byron-format signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pByronVerificationKeyFile :: Parser (VerificationKeyFile In)
+pByronVerificationKeyFile :: Parser (VerificationKeyFile 'In)
+pByronVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall content (direction :: FileDirection).
+String -> File content direction
+File forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Input filepath of the Byron-format verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pKeyConvertByronGenesisVKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertByronGenesisVKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertByronGenesisVKeyCmd =
+  VerificationKeyBase64 -> File () 'Out -> LegacyKeyCmds
+KeyConvertByronGenesisVKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser VerificationKeyBase64
+pByronGenesisVKeyBase64
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pByronGenesisVKeyBase64 :: Parser VerificationKeyBase64
+pByronGenesisVKeyBase64 :: Parser VerificationKeyBase64
+pByronGenesisVKeyBase64 =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap String -> VerificationKeyBase64
+VerificationKeyBase64 forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-genesis-verification-key"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"BASE64"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Base64 string for the Byron genesis verification key."
+    ]
+
+pKeyConvertITNKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNKeyCmd =
+  SomeKeyFile 'In -> File () 'Out -> LegacyKeyCmds
+KeyConvertITNKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNKeyFIle
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pKeyConvertITNExtendedKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNExtendedKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNExtendedKeyCmd =
+  SomeKeyFile 'In -> File () 'Out -> LegacyKeyCmds
+KeyConvertITNExtendedKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pKeyConvertITNBip32KeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNBip32KeyCmd :: Parser LegacyKeyCmds
+pKeyConvertITNBip32KeyCmd =
+  SomeKeyFile 'In -> File () 'Out -> LegacyKeyCmds
+KeyConvertITNBip32KeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pITNKeyFIle :: Parser (SomeKeyFile direction)
+pITNKeyFIle :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNKeyFIle =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile
+    , forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNVerificationKeyFile
+    ]
+
+pITNSigningKeyFile :: Parser (SomeKeyFile direction)
+pITNSigningKeyFile :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNSigningKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall (direction :: FileDirection).
+SigningKeyFile direction -> SomeKeyFile direction
+ASigningKeyFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+String -> File content direction
+File) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"itn-signing-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Filepath of the ITN signing key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pITNVerificationKeyFile :: Parser (SomeKeyFile direction)
+pITNVerificationKeyFile :: forall (direction :: FileDirection). Parser (SomeKeyFile direction)
+pITNVerificationKeyFile =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall (direction :: FileDirection).
+VerificationKeyFile direction -> SomeKeyFile direction
+AVerificationKeyFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall content (direction :: FileDirection).
+String -> File content direction
+File) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"itn-verification-key-file"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"FILE"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Filepath of the ITN verification key."
+    , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (String -> Completer
+Opt.bashCompleter String
+"file")
+    ]
+
+pKeyConvertCardanoAddressKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertCardanoAddressKeyCmd :: Parser LegacyKeyCmds
+pKeyConvertCardanoAddressKeyCmd =
+  CardanoAddressKeyType
+-> SigningKeyFile 'In -> File () 'Out -> LegacyKeyCmds
+KeyConvertCardanoAddressKeyCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser CardanoAddressKeyType
+pCardanoAddressKeyType
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pCardanoAddressKeyType :: Parser CardanoAddressKeyType
+pCardanoAddressKeyType :: Parser CardanoAddressKeyType
+pCardanoAddressKeyType =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressShelleyPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"shelley-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Shelley-era extended payment key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressShelleyStakeKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"shelley-stake-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Shelley-era extended stake key."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressIcarusPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"icarus-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era extended payment key formatted in the Icarus style."
+        ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' CardanoAddressKeyType
+CardanoAddressByronPaymentKey forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"byron-payment-key"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Use a Byron-era extended payment key formatted in the deprecated Byron style."
+        ]
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.html new file mode 100644 index 0000000000..691da4ad72 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Options.html @@ -0,0 +1,3827 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+
+module Cardano.CLI.Legacy.Options
+  ( -- * CLI command parser
+    parseLegacyCmds
+
+    -- * CLI command and flag types
+  , module Cardano.CLI.Legacy.Commands
+
+    -- * Field parser and renderers
+  , parseTxIn
+
+  , pLegacyCardanoEra
+  , pLegacyShelleyBasedEra
+  , pKeyRegistDeposit
+  , pStakePoolRegistrationParserRequirements
+  , pStakePoolVerificationKeyOrHashOrFile
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.Chain.Common (BlockCount (BlockCount))
+import           Cardano.CLI.Environment
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Legacy.Commands
+import           Cardano.CLI.Legacy.Commands.Address
+import           Cardano.CLI.Legacy.Commands.Genesis
+import           Cardano.CLI.Legacy.Commands.Governance
+import           Cardano.CLI.Legacy.Commands.Node
+import qualified Cardano.CLI.Legacy.Commands.Node as Cmd
+import           Cardano.CLI.Legacy.Commands.Query
+import           Cardano.CLI.Legacy.Commands.StakeAddress
+import           Cardano.CLI.Legacy.Commands.StakePool
+import           Cardano.CLI.Legacy.Commands.TextView
+import           Cardano.CLI.Legacy.Commands.Transaction
+import           Cardano.CLI.Legacy.Options.Key
+import           Cardano.CLI.Parser
+import           Cardano.CLI.Types.Common
+
+import           Data.Foldable
+import           Data.Function
+import           Data.Maybe (fromMaybe, maybeToList)
+import           Data.Word (Word64)
+import           Options.Applicative hiding (help, str)
+import qualified Options.Applicative as Opt
+import qualified Options.Applicative.Help as H
+import           Prettyprinter (line, pretty)
+
+{- HLINT ignore "Use <$>" -}
+{- HLINT ignore "Move brackets to avoid $" -}
+
+--
+-- Shelley CLI command parsers
+--
+
+parseLegacyCmds :: EnvCli -> Parser LegacyCmds
+parseLegacyCmds :: EnvCli -> Parser LegacyCmds
+parseLegacyCmds EnvCli
+envCli =
+  forall a. Mod CommandFields a -> Parser a
+Opt.hsubparser forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"Legacy commands"
+    , forall a. FilePath -> Mod CommandFields a
+Opt.commandGroup FilePath
+"Legacy commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"address"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyAddressCmds -> LegacyCmds
+LegacyAddressCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyAddressCmds
+pAddressCmds EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Payment address commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"stake-address"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyStakeAddressCmds -> LegacyCmds
+LegacyStakeAddressCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyStakeAddressCmds
+pStakeAddressCmds EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Stake address commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyKeyCmds -> LegacyCmds
+LegacyKeyCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser LegacyKeyCmds
+pKeyCmds)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Key utility commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"transaction"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyTransactionCmds -> LegacyCmds
+LegacyTransactionCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyTransactionCmds
+pTransaction EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Transaction commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"node"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyNodeCmds -> LegacyCmds
+LegacyNodeCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser LegacyNodeCmds
+pNodeCmds)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Node operation commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"stake-pool"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyStakePoolCmds -> LegacyCmds
+LegacyStakePoolCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolCmds EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Stake pool commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"query"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyQueryCmds -> LegacyCmds
+LegacyQueryCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyQueryCmds
+pQueryCmds EnvCli
+envCli) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Node query commands. Will query the local node whose Unix domain socket "
+            , FilePath
+"is obtained from the CARDANO_NODE_SOCKET_PATH environment variable."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"genesis"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyGenesisCmds -> LegacyCmds
+LegacyGenesisCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyGenesisCmds
+pGenesisCmds EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Genesis block commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"governance"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyGovernanceCmds -> LegacyCmds
+LegacyGovernanceCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyGovernanceCmds
+pGovernanceCmds EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Governance commands"
+    , forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"text-view"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyTextViewCmds -> LegacyCmds
+LegacyTextViewCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser LegacyTextViewCmds
+pTextViewCmds) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Commands for dealing with Shelley TextView files. "
+            , FilePath
+"Transactions, addresses etc are stored on disk as TextView files."
+            ]
+    ]
+
+pTextViewCmds :: Parser LegacyTextViewCmds
+pTextViewCmds :: Parser LegacyTextViewCmds
+pTextViewCmds =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"decode-cbor"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (FilePath -> Maybe (File () 'Out) -> LegacyTextViewCmds
+TextViewInfo forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser FilePath
+pCBORInFile forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile)
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print a TextView file as decoded CBOR."
+          )
+    ]
+
+pAddressCmds :: EnvCli -> Parser LegacyAddressCmds
+pAddressCmds :: EnvCli -> Parser LegacyAddressCmds
+pAddressCmds EnvCli
+envCli =
+   forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+     [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen"
+         (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyAddressCmds
+pAddressKeyGen forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an address key pair.")
+     , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-hash"
+         (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyAddressCmds
+pAddressKeyHash forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print the hash of an address key.")
+     , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"build"
+         (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyAddressCmds
+pAddressBuild forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Build a Shelley payment address, with optional delegation to a stake address.")
+     , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"info"
+         (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyAddressCmds
+pAddressInfo forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print information about an address.")
+     ]
+  where
+    pAddressKeyGen :: Parser LegacyAddressCmds
+    pAddressKeyGen :: Parser LegacyAddressCmds
+pAddressKeyGen =
+      KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> LegacyAddressCmds
+AddressKeyGen
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser AddressKeyType
+pAddressKeyType
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pAddressKeyHash :: Parser LegacyAddressCmds
+    pAddressKeyHash :: Parser LegacyAddressCmds
+pAddressKeyHash =
+      VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> LegacyAddressCmds
+AddressKeyHash
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser VerificationKeyTextOrFile
+pPaymentVerificationKeyTextOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pAddressBuild :: Parser LegacyAddressCmds
+    pAddressBuild :: Parser LegacyAddressCmds
+pAddressBuild = PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyAddressCmds
+AddressBuild
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser PaymentVerifier
+pPaymentVerifier
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional Parser StakeIdentifier
+pStakeIdentifier
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pAddressInfo :: Parser LegacyAddressCmds
+    pAddressInfo :: Parser LegacyAddressCmds
+pAddressInfo = Text -> Maybe (File () 'Out) -> LegacyAddressCmds
+AddressInfo forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pAddress forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pStakeAddressCmds :: EnvCli -> Parser LegacyStakeAddressCmds
+pStakeAddressCmds :: EnvCli -> Parser LegacyStakeAddressCmds
+pStakeAddressCmds EnvCli
+envCli =
+    forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+      [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressKeyGenCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake address key pair"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"build"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressBuildCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Build a stake address"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-hash"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressKeyHashCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print the hash of a stake address key."
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"registration-certificate"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressRegistrationCertificateCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake address registration certificate"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"deregistration-certificate"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressDeregistrationCertificateCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake address deregistration certificate"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"delegation-certificate"
+          forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakeAddressCmds
+pStakeAddressStakeDelegationCertificateCmd
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake address pool delegation certificate"
+      ]
+  where
+    pStakeAddressKeyGenCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressKeyGenCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressKeyGenCmd =
+      KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> LegacyStakeAddressCmds
+StakeAddressKeyGenCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pStakeAddressKeyHashCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressKeyHashCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressKeyHashCmd =
+      VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> LegacyStakeAddressCmds
+StakeAddressKeyHashCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakeKey)
+pStakeVerificationKeyOrFile forall a. Maybe a
+Nothing
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pStakeAddressBuildCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressBuildCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressBuildCmd =
+      StakeVerifier
+-> NetworkId -> Maybe (File () 'Out) -> LegacyStakeAddressCmds
+StakeAddressBuildCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser StakeVerifier
+pStakeVerifier
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pStakeAddressRegistrationCertificateCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressRegistrationCertificateCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressRegistrationCertificateCmd =
+      EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> LegacyStakeAddressCmds
+StakeAddressRegistrationCertificateCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser StakeIdentifier
+pStakeIdentifier
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pKeyRegistDeposit
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pStakeAddressDeregistrationCertificateCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressDeregistrationCertificateCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressDeregistrationCertificateCmd =
+      EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> LegacyStakeAddressCmds
+StakeAddressDeregistrationCertificateCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser StakeIdentifier
+pStakeIdentifier
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pKeyRegistDeposit
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pStakeAddressStakeDelegationCertificateCmd :: Parser LegacyStakeAddressCmds
+    pStakeAddressStakeDelegationCertificateCmd :: Parser LegacyStakeAddressCmds
+pStakeAddressStakeDelegationCertificateCmd =
+      EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> LegacyStakeAddressCmds
+StakeAddressDelegationCertificateCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser StakeIdentifier
+pStakeIdentifier
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe FilePath -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pTransaction :: EnvCli -> Parser LegacyTransactionCmds
+pTransaction :: EnvCli -> Parser LegacyTransactionCmds
+pTransaction EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"build-raw"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionBuildRaw forall a b. (a -> b) -> a -> b
+$ forall a. Maybe Doc -> InfoMod a
+Opt.progDescDoc forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall a ann. Pretty a => a -> Doc ann
+pretty @String FilePath
+"Build a transaction (low-level, inconvenient)"
+          , forall ann. Doc ann
+line
+          , forall ann. Doc ann
+line
+          , Doc -> Doc
+H.yellow forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ Doc
+"Please note the order of some cmd options is crucial. If used incorrectly may produce "
+            , Doc
+"undesired tx body. See nested [] notation above for details."
+            ]
+          ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"build"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionBuild forall a b. (a -> b) -> a -> b
+$ forall a. Maybe Doc -> InfoMod a
+Opt.progDescDoc forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ forall a ann. Pretty a => a -> Doc ann
+pretty @String FilePath
+"Build a balanced transaction (automatically calculates fees)"
+          , forall ann. Doc ann
+line
+          , forall ann. Doc ann
+line
+          , Doc -> Doc
+H.yellow forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ Doc
+"Please note "
+            , Doc -> Doc
+H.underline Doc
+"the order"
+            , Doc
+" of some cmd options is crucial. If used incorrectly may produce "
+            , Doc
+"undesired tx body. See nested [] notation above for details."
+            ]
+          ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"sign"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionSign forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Sign a transaction")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"witness"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionCreateWitness forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a transaction witness")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"assemble"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionAssembleTxBodyWit
+          forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Assemble a tx body and witness(es) to form a transaction")
+    , Parser LegacyTransactionCmds
+pSignWitnessBackwardCompatible
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"submit"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionSubmit forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$
+           forall a. Monoid a => [a] -> a
+mconcat
+             [ FilePath
+"Submit a transaction to the local node whose Unix domain socket "
+             , FilePath
+"is obtained from the CARDANO_NODE_SOCKET_PATH environment variable."
+             ]
+          )
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"policyid"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionPolicyId forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Calculate the PolicyId from the monetary policy script.")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"calculate-min-fee"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionCalculateMinFee forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Calculate the minimum fee for a transaction.")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"calculate-min-required-utxo"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionCalculateMinReqUTxO forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Calculate the minimum required UTxO for a transaction output.")
+    , Parser LegacyTransactionCmds
+pCalculateMinRequiredUtxoBackwardCompatible
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"hash-script-data"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTxHashScriptData forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Calculate the hash of script data.")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"txid"
+        (forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionId forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print a transaction identifier.")
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"view" forall a b. (a -> b) -> a -> b
+$
+        forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionView forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print a transaction."
+    ]
+ where
+  -- Backwards compatible parsers
+  calcMinValueInfo :: ParserInfo LegacyTransactionCmds
+  calcMinValueInfo :: ParserInfo LegacyTransactionCmds
+calcMinValueInfo =
+    forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionCalculateMinReqUTxO
+      forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"DEPRECATED: Use 'calculate-min-required-utxo' instead."
+
+  pCalculateMinRequiredUtxoBackwardCompatible :: Parser LegacyTransactionCmds
+  pCalculateMinRequiredUtxoBackwardCompatible :: Parser LegacyTransactionCmds
+pCalculateMinRequiredUtxoBackwardCompatible =
+    forall a. Mod CommandFields a -> Parser a
+Opt.subparser
+      forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"calculate-min-value" ParserInfo LegacyTransactionCmds
+calcMinValueInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+
+  assembleInfo :: ParserInfo LegacyTransactionCmds
+  assembleInfo :: ParserInfo LegacyTransactionCmds
+assembleInfo =
+    forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyTransactionCmds
+pTransactionAssembleTxBodyWit
+      forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Assemble a tx body and witness(es) to form a transaction"
+
+  pSignWitnessBackwardCompatible :: Parser LegacyTransactionCmds
+  pSignWitnessBackwardCompatible :: Parser LegacyTransactionCmds
+pSignWitnessBackwardCompatible =
+    forall a. Mod CommandFields a -> Parser a
+Opt.subparser
+      forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> ParserInfo a -> Mod CommandFields a
+Opt.command FilePath
+"sign-witness" ParserInfo LegacyTransactionCmds
+assembleInfo forall a. Semigroup a => a -> a -> a
+<> forall (f :: * -> *) a. Mod f a
+Opt.internal
+
+  pScriptValidity :: Parser ScriptValidity
+  pScriptValidity :: Parser ScriptValidity
+pScriptValidity = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ScriptValidity
+ScriptValid forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"script-valid"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Assertion that the script is valid. (default)"
+      ]
+    , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' ScriptValidity
+ScriptInvalid forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"script-invalid"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ FilePath
+"Assertion that the script is invalid.  "
+        , FilePath
+"If a transaction is submitted with such a script, "
+        , FilePath
+"the script will fail and the collateral will be taken."
+        ]
+      ]
+    ]
+
+  pTransactionBuild :: Parser LegacyTransactionCmds
+  pTransactionBuild :: Parser LegacyTransactionCmds
+pTransactionBuild =
+    SocketPath
+-> EraInEon ShelleyBasedEra
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe ScriptValidity
+-> Maybe Word
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [RequiredSigner]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [TxOutAnyEra]
+-> TxOutChangeAddress
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe UpdateProposalFile
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBuildOutputOptions
+-> LegacyTransactionCmds
+TransactionBuildCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pLegacyShelleyBasedEra EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ScriptValidity
+pScriptValidity
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pWitnessOverride
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some (BalanceTxExecUnits
+-> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn BalanceTxExecUnits
+AutoBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pReadOnlyReferenceTxIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser RequiredSigner
+pRequiredSigner
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pTxInCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser TxOutAnyEra
+pReturnCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTotalCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxOutAnyEra
+pTxOut
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutChangeAddress
+pChangeAddress
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits
+-> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset BalanceTxExecUnits
+AutoBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pInvalidBefore
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pLegacyInvalidHereafter
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile BalanceTxExecUnits
+AutoBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser
+     (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal BalanceTxExecUnits
+AutoBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor
+                  FilePath
+"auxiliary-script-file"
+                  forall a. Maybe a
+Nothing
+                  FilePath
+"Filepath of auxiliary script(s)")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser MetadataFile
+pMetadataFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser UpdateProposalFile
+pUpdateProposalFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. FilePath -> FilePath -> Parser (File a 'In)
+pFileInDirection FilePath
+"vote-file" FilePath
+"Filepath of the vote.")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (forall a. FilePath -> FilePath -> Parser (File a 'In)
+pFileInDirection FilePath
+"proposal-file" FilePath
+"Filepath of the proposal.")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (TxBodyFile 'Out -> TxBuildOutputOptions
+OutputTxBodyOnly forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'Out)
+pTxBodyFileOut forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser TxBuildOutputOptions
+pCalculatePlutusScriptCost)
+
+  pChangeAddress :: Parser TxOutChangeAddress
+  pChangeAddress :: Parser TxOutChangeAddress
+pChangeAddress =
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap AddressAny -> TxOutChangeAddress
+TxOutChangeAddress forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option (forall a. Parser a -> ReadM a
+readerFromParsecParser Parser AddressAny
+parseAddressAny) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"change-address"
+      , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"ADDRESS"
+      , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Address where ADA in excess of the tx fee will go to."
+      ]
+
+  pTransactionBuildRaw :: Parser LegacyTransactionCmds
+  pTransactionBuildRaw :: Parser LegacyTransactionCmds
+pTransactionBuildRaw =
+    AnyCardanoEra
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [RequiredSigner]
+-> [TxOutAnyEra]
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> Maybe Lovelace
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe ProtocolParamsFile
+-> Maybe UpdateProposalFile
+-> TxBodyFile 'Out
+-> LegacyTransactionCmds
+TransactionBuildRawCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser AnyCardanoEra
+pLegacyCardanoEra EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ScriptValidity
+pScriptValidity
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some (BalanceTxExecUnits
+-> Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))
+pTxIn BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pReadOnlyReferenceTxIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxIn
+pTxInCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser TxOutAnyEra
+pReturnCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTotalCollateral
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser RequiredSigner
+pRequiredSigner
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser TxOutAnyEra
+pTxOut
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (BalanceTxExecUnits
+-> Parser (Value, [ScriptWitnessFiles WitCtxMint])
+pMintMultiAsset BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pInvalidBefore
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser SlotNo
+pLegacyInvalidHereafter
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Lovelace
+pTxFee
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))
+pCertificateFile BalanceTxExecUnits
+ManualBalance )
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (BalanceTxExecUnits
+-> Parser
+     (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))
+pWithdrawal BalanceTxExecUnits
+ManualBalance)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMetadataJsonSchema
+pTxMetadataJsonSchema
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (FilePath -> Maybe FilePath -> FilePath -> Parser ScriptFile
+pScriptFor FilePath
+"auxiliary-script-file" forall a. Maybe a
+Nothing FilePath
+"Filepath of auxiliary script(s)")
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser MetadataFile
+pMetadataFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser UpdateProposalFile
+pUpdateProposalFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (TxBodyFile 'Out)
+pTxBodyFileOut
+
+  pTransactionSign  :: Parser LegacyTransactionCmds
+  pTransactionSign :: Parser LegacyTransactionCmds
+pTransactionSign =
+    InputTxBodyOrTxFile
+-> [WitnessSigningData]
+-> Maybe NetworkId
+-> TxFile 'Out
+-> LegacyTransactionCmds
+TransactionSignCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser WitnessSigningData
+pWitnessSigningData
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (TxFile 'Out)
+pTxFileOut
+
+  pTransactionCreateWitness :: Parser LegacyTransactionCmds
+  pTransactionCreateWitness :: Parser LegacyTransactionCmds
+pTransactionCreateWitness =
+    TxBodyFile 'In
+-> WitnessSigningData
+-> Maybe NetworkId
+-> File () 'Out
+-> LegacyTransactionCmds
+TransactionWitnessCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser WitnessSigningData
+pWitnessSigningData
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional (EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli)
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+  pTransactionAssembleTxBodyWit :: Parser LegacyTransactionCmds
+  pTransactionAssembleTxBodyWit :: Parser LegacyTransactionCmds
+pTransactionAssembleTxBodyWit =
+    TxBodyFile 'In
+-> [WitnessFile] -> File () 'Out -> LegacyTransactionCmds
+TransactionSignWitnessCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser WitnessFile
+pWitnessFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+  pTransactionSubmit :: Parser LegacyTransactionCmds
+  pTransactionSubmit :: Parser LegacyTransactionCmds
+pTransactionSubmit =
+    SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> FilePath
+-> LegacyTransactionCmds
+TransactionSubmitCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser FilePath
+pTxSubmitFile
+
+  pTransactionPolicyId :: Parser LegacyTransactionCmds
+  pTransactionPolicyId :: Parser LegacyTransactionCmds
+pTransactionPolicyId =
+    ScriptFile -> LegacyTransactionCmds
+TransactionPolicyIdCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser ScriptFile
+pScript
+
+  pTransactionCalculateMinFee :: Parser LegacyTransactionCmds
+  pTransactionCalculateMinFee :: Parser LegacyTransactionCmds
+pTransactionCalculateMinFee =
+    TxBodyFile 'In
+-> NetworkId
+-> ProtocolParamsFile
+-> TxInCount
+-> TxOutCount
+-> TxShelleyWitnessCount
+-> TxByronWitnessCount
+-> LegacyTransactionCmds
+TransactionCalculateMinFeeCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (TxBodyFile 'In)
+pTxBodyFileIn
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxInCount
+pTxInCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutCount
+pTxOutCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxShelleyWitnessCount
+pTxShelleyWitnessCount
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxByronWitnessCount
+pTxByronWitnessCount
+
+  pTransactionCalculateMinReqUTxO :: Parser LegacyTransactionCmds
+  pTransactionCalculateMinReqUTxO :: Parser LegacyTransactionCmds
+pTransactionCalculateMinReqUTxO =
+    AnyCardanoEra
+-> ProtocolParamsFile -> TxOutAnyEra -> LegacyTransactionCmds
+TransactionCalculateMinValueCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser AnyCardanoEra
+pLegacyCardanoEra EnvCli
+envCli
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolParamsFile
+pProtocolParamsFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxOutAnyEra
+pTxOut
+
+  pTxHashScriptData :: Parser LegacyTransactionCmds
+  pTxHashScriptData :: Parser LegacyTransactionCmds
+pTxHashScriptData =
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap ScriptDataOrFile -> LegacyTransactionCmds
+TransactionHashScriptDataCmd
+      forall a b. (a -> b) -> a -> b
+$ FilePath -> FilePath -> FilePath -> Parser ScriptDataOrFile
+pScriptDataOrFile
+          FilePath
+"script-data"
+          FilePath
+"The script data, in JSON syntax."
+          FilePath
+"The script data, in the given JSON file."
+
+  pTransactionId  :: Parser LegacyTransactionCmds
+  pTransactionId :: Parser LegacyTransactionCmds
+pTransactionId =
+    InputTxBodyOrTxFile -> LegacyTransactionCmds
+TransactionTxIdCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+
+  pTransactionView :: Parser LegacyTransactionCmds
+  pTransactionView :: Parser LegacyTransactionCmds
+pTransactionView =
+    TxViewOutputFormat
+-> Maybe (File () 'Out)
+-> InputTxBodyOrTxFile
+-> LegacyTransactionCmds
+TransactionViewCmd
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser TxViewOutputFormat
+pTxViewOutputFormat
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser InputTxBodyOrTxFile
+pInputTxOrTxBodyFile
+
+pNodeCmds :: Parser LegacyNodeCmds
+pNodeCmds :: Parser LegacyNodeCmds
+pNodeCmds =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen" forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pKeyGenOperator forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Create a key pair for a node operator's offline "
+      , FilePath
+"key and a new certificate issue counter"
+      ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-KES" forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pKeyGenKES forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Create a key pair for a node KES operational key"
+      ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-VRF" forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pKeyGenVRF forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Create a key pair for a node VRF operational key"
+      ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-hash-VRF"forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pKeyHashVRF forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Print hash of a node's operational VRF key."
+      ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"new-counter" forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pNewCounter forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Create a new certificate issue counter"
+      ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"issue-op-cert" forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyNodeCmds
+pIssueOpCert forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ FilePath
+"Issue a node operational certificate"
+      ]
+    ]
+  where
+    pKeyGenOperator :: Parser LegacyNodeCmds
+    pKeyGenOperator :: Parser LegacyNodeCmds
+pKeyGenOperator =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeKeyGenColdCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeKeyGenColdCmd forall a b. (a -> b) -> a -> b
+$
+        KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> NodeKeyGenColdCmdArgs
+Cmd.NodeKeyGenColdCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (VerificationKeyFile direction)
+pColdVerificationKeyFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+    pKeyGenKES :: Parser LegacyNodeCmds
+    pKeyGenKES :: Parser LegacyNodeCmds
+pKeyGenKES =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeKeyGenKESCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeKeyGenKESCmd forall a b. (a -> b) -> a -> b
+$
+        KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenKESCmdArgs
+Cmd.NodeKeyGenKESCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pKeyGenVRF :: Parser LegacyNodeCmds
+    pKeyGenVRF :: Parser LegacyNodeCmds
+pKeyGenVRF =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeKeyGenVRFCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeKeyGenVRFCmd forall a b. (a -> b) -> a -> b
+$
+        KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> NodeKeyGenVRFCmdArgs
+Cmd.NodeKeyGenVRFCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pKeyHashVRF :: Parser LegacyNodeCmds
+    pKeyHashVRF :: Parser LegacyNodeCmds
+pKeyHashVRF =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeKeyHashVRFCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeKeyHashVRFCmd forall a b. (a -> b) -> a -> b
+$
+        VerificationKeyOrFile VrfKey
+-> Maybe (File () 'Out) -> NodeKeyHashVRFCmdArgs
+Cmd.NodeKeyHashVRFCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole.
+SerialiseAsBech32 (VerificationKey keyrole) =>
+AsType keyrole -> Parser (VerificationKeyOrFile keyrole)
+pVerificationKeyOrFileIn AsType VrfKey
+AsVrfKey
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pNewCounter :: Parser LegacyNodeCmds
+    pNewCounter :: Parser LegacyNodeCmds
+pNewCounter =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeNewCounterCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeNewCounterCmd forall a b. (a -> b) -> a -> b
+$
+        ColdVerificationKeyOrFile
+-> Word -> OpCertCounterFile 'InOut -> NodeNewCounterCmdArgs
+Cmd.NodeNewCounterCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser ColdVerificationKeyOrFile
+pColdVerificationKeyOrFile forall a. Maybe a
+Nothing
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pCounterValue
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+    pCounterValue :: Parser Word
+    pCounterValue :: Parser Word
+pCounterValue =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"counter-value"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The next certificate issue counter value to use."
+        ]
+
+    pIssueOpCert :: Parser LegacyNodeCmds
+    pIssueOpCert :: Parser LegacyNodeCmds
+pIssueOpCert =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap NodeIssueOpCertCmdArgs -> LegacyNodeCmds
+Cmd.LegacyNodeIssueOpCertCmd forall a b. (a -> b) -> a -> b
+$
+        VerificationKeyOrFile KesKey
+-> SigningKeyFile 'In
+-> OpCertCounterFile 'InOut
+-> KESPeriod
+-> File () 'Out
+-> NodeIssueOpCertCmdArgs
+Cmd.NodeIssueOpCertCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyOrFile KesKey)
+pKesVerificationKeyOrFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole (direction :: FileDirection).
+Parser (File (SigningKey keyrole) direction)
+pColdSigningKeyFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser KESPeriod
+pKesPeriod
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pStakePoolCmds :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolCmds :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolCmds  EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"registration-certificate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolRegistrationCertificiateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake pool registration certificate"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"deregistration-certificate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolDeregistrationCertificateCmd EnvCli
+envCli)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a stake pool deregistration certificate"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"id"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakePoolCmds
+pStakePoolId
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Build pool id from the offline key"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"metadata-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyStakePoolCmds
+pStakePoolMetadataHashCmd
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print the hash of pool metadata."
+    ]
+  where
+    pStakePoolId :: Parser LegacyStakePoolCmds
+    pStakePoolId :: Parser LegacyStakePoolCmds
+pStakePoolId =
+      VerificationKeyOrFile StakePoolKey
+-> IdOutputFormat -> Maybe (File () 'Out) -> LegacyStakePoolCmds
+StakePoolIdCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser IdOutputFormat
+pPoolIdOutputFormat
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pStakePoolMetadataHashCmd :: Parser LegacyStakePoolCmds
+    pStakePoolMetadataHashCmd :: Parser LegacyStakePoolCmds
+pStakePoolMetadataHashCmd =
+      StakePoolMetadataFile 'In
+-> Maybe (File () 'Out) -> LegacyStakePoolCmds
+StakePoolMetadataHashCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (StakePoolMetadataFile 'In)
+pPoolMetadataFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+pQueryCmds :: EnvCli -> Parser LegacyQueryCmds
+pQueryCmds :: EnvCli -> Parser LegacyQueryCmds
+pQueryCmds EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"protocol-parameters"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryProtocolParameters
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the node's current protocol parameters"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"constitution-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryConstitutionHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the constitution hash"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"tip"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryTip
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the node's current tip (slot no, hash, block no)"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"stake-pools"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryStakePools
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the node's current set of stake pool ids"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"stake-distribution"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryStakeDistribution
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the node's current aggregated stake distribution"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"stake-address-info"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryStakeAddressInfo
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Get the current delegations and reward accounts filtered by stake address."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"utxo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryUTxO
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Get a portion of the current UTxO: by tx in, by address or the whole."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"ledger-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryLedgerState
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Dump the current ledger state of the node (Ledger.NewEpochState -- advanced command)"
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"protocol-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryProtocolState
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Dump the current protocol state of the node (Ledger.ChainDepState -- advanced command)"
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"stake-snapshot"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryStakeSnapshot
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Obtain the three stake snapshots for a pool, plus the total active stake (advanced command)"
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+hiddenSubParser FilePath
+"pool-params"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryPoolState
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"DEPRECATED.  Use query pool-state instead.  Dump the pool parameters "
+            , FilePath
+"(Ledger.NewEpochState.esLState._delegationState._pState._pParams -- advanced command)"
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"leadership-schedule"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pLeadershipSchedule
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the slots the node is expected to mint a block in (advanced command)"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"kes-period-info"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pKesPeriodInfo
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get information about the current KES period and your node's operational certificate."
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"pool-state"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryPoolState
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Dump the pool state"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"tx-mempool"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQueryTxMempool
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Local Mempool info"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"slot-number"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyQueryCmds
+pQuerySlotNumber
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Query slot number for UTC timestamp"
+    ]
+  where
+    pQueryProtocolParameters :: Parser LegacyQueryCmds
+    pQueryProtocolParameters :: Parser LegacyQueryCmds
+pQueryProtocolParameters =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryProtocolParametersCmdArgs -> LegacyQueryCmds
+QueryProtocolParametersCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryProtocolParametersCmdArgs
+LegacyQueryProtocolParametersCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryConstitutionHash :: Parser LegacyQueryCmds
+    pQueryConstitutionHash :: Parser LegacyQueryCmds
+pQueryConstitutionHash =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryConstitutionHashCmdArgs -> LegacyQueryCmds
+QueryConstitutionHashCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryConstitutionHashCmdArgs
+LegacyQueryConstitutionHashCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryTip :: Parser LegacyQueryCmds
+    pQueryTip :: Parser LegacyQueryCmds
+pQueryTip =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryTipCmdArgs -> LegacyQueryCmds
+QueryTipCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryTipCmdArgs
+LegacyQueryTipCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryUTxO :: Parser LegacyQueryCmds
+    pQueryUTxO :: Parser LegacyQueryCmds
+pQueryUTxO =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryUTxOCmdArgs -> LegacyQueryCmds
+QueryUTxOCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> QueryUTxOFilter
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryUTxOCmdArgs
+LegacyQueryUTxOCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser QueryUTxOFilter
+pQueryUTxOFilter
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryStakePools :: Parser LegacyQueryCmds
+    pQueryStakePools :: Parser LegacyQueryCmds
+pQueryStakePools =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryStakePoolsCmdArgs -> LegacyQueryCmds
+QueryStakePoolsCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryStakePoolsCmdArgs
+LegacyQueryStakePoolsCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryStakeDistribution :: Parser LegacyQueryCmds
+    pQueryStakeDistribution :: Parser LegacyQueryCmds
+pQueryStakeDistribution =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryStakeDistributionCmdArgs -> LegacyQueryCmds
+QueryStakeDistributionCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryStakeDistributionCmdArgs
+LegacyQueryStakeDistributionCmdArgs
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryStakeAddressInfo :: Parser LegacyQueryCmds
+    pQueryStakeAddressInfo :: Parser LegacyQueryCmds
+pQueryStakeAddressInfo =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryStakeAddressInfoCmdArgs -> LegacyQueryCmds
+QueryStakeAddressInfoCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> StakeAddress
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryStakeAddressInfoCmdArgs
+LegacyQueryStakeAddressInfoCmdArgs
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser StakeAddress
+pFilterByStakeAddress
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryLedgerState :: Parser LegacyQueryCmds
+    pQueryLedgerState :: Parser LegacyQueryCmds
+pQueryLedgerState =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryLedgerStateCmdArgs -> LegacyQueryCmds
+QueryLedgerStateCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryLedgerStateCmdArgs
+LegacyQueryLedgerStateCmdArgs
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryProtocolState :: Parser LegacyQueryCmds
+    pQueryProtocolState :: Parser LegacyQueryCmds
+pQueryProtocolState =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryProtocolStateCmdArgs -> LegacyQueryCmds
+QueryProtocolStateCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe (File () 'Out)
+-> LegacyQueryProtocolStateCmdArgs
+LegacyQueryProtocolStateCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pAllStakePoolsOrOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+    pAllStakePoolsOrOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+pAllStakePoolsOrOnly = Parser (AllOrOnly [Hash StakePoolKey])
+pAll forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser (AllOrOnly [Hash StakePoolKey])
+pOnly
+      where pAll :: Parser (AllOrOnly [Hash StakePoolKey])
+            pAll :: Parser (AllOrOnly [Hash StakePoolKey])
+pAll = forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' forall a. AllOrOnly a
+All forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+              [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"all-stake-pools"
+              , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Query for all stake pools"
+              ]
+            pOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+            pOnly :: Parser (AllOrOnly [Hash StakePoolKey])
+pOnly = forall a. a -> AllOrOnly a
+Only forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (Maybe FilePath -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash forall a. Maybe a
+Nothing)
+
+    pQueryStakeSnapshot :: Parser LegacyQueryCmds
+    pQueryStakeSnapshot :: Parser LegacyQueryCmds
+pQueryStakeSnapshot =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryStakeSnapshotCmdArgs -> LegacyQueryCmds
+QueryStakeSnapshotCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> AllOrOnly [Hash StakePoolKey]
+-> Maybe (File () 'Out)
+-> LegacyQueryStakeSnapshotCmdArgs
+LegacyQueryStakeSnapshotCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (AllOrOnly [Hash StakePoolKey])
+pAllStakePoolsOrOnly
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQueryPoolState :: Parser LegacyQueryCmds
+    pQueryPoolState :: Parser LegacyQueryCmds
+pQueryPoolState =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryPoolStateCmdArgs -> LegacyQueryCmds
+QueryPoolStateCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> [Hash StakePoolKey]
+-> LegacyQueryPoolStateCmdArgs
+LegacyQueryPoolStateCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many (Maybe FilePath -> Parser (Hash StakePoolKey)
+pStakePoolVerificationKeyHash forall a. Maybe a
+Nothing)
+
+    pQueryTxMempool :: Parser LegacyQueryCmds
+    pQueryTxMempool :: Parser LegacyQueryCmds
+pQueryTxMempool =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryTxMempoolCmdArgs -> LegacyQueryCmds
+QueryTxMempoolCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> TxMempoolQuery
+-> Maybe (File () 'Out)
+-> LegacyQueryTxMempoolCmdArgs
+LegacyQueryTxMempoolCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser TxMempoolQuery
+pTxMempoolQuery
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+      where
+        pTxMempoolQuery :: Parser TxMempoolQuery
+        pTxMempoolQuery :: Parser TxMempoolQuery
+pTxMempoolQuery = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+          [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"info"
+              forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxMempoolQuery
+TxMempoolQueryInfo)
+              forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Ask the node about the current mempool's capacity and sizes"
+          , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"next-tx"
+              forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxMempoolQuery
+TxMempoolQueryNextTx)
+              forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Requests the next transaction from the mempool's current list"
+          , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"tx-exists"
+              forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (TxId -> TxMempoolQuery
+TxMempoolQueryTxExists forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. ReadM a -> Mod ArgumentFields a -> Parser a
+argument forall s. IsString s => ReadM s
+Opt.str (forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+metavar FilePath
+"TX_ID"))
+              forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Query if a particular transaction exists in the mempool"
+          ]
+    pLeadershipSchedule :: Parser LegacyQueryCmds
+    pLeadershipSchedule :: Parser LegacyQueryCmds
+pLeadershipSchedule =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryLeadershipScheduleCmdArgs -> LegacyQueryCmds
+QueryLeadershipScheduleCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> GenesisFile
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> SigningKeyFile 'In
+-> EpochLeadershipSchedule
+-> Maybe (File () 'Out)
+-> LegacyQueryLeadershipScheduleCmdArgs
+LegacyQueryLeadershipScheduleCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser GenesisFile
+pGenesisFile FilePath
+"Shelley genesis filepath"
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe FilePath -> Parser (VerificationKeyOrHashOrFile StakePoolKey)
+pStakePoolVerificationKeyOrHashOrFile forall a. Maybe a
+Nothing
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pVrfSigningKeyFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser EpochLeadershipSchedule
+pWhichLeadershipSchedule
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pKesPeriodInfo :: Parser LegacyQueryCmds
+    pKesPeriodInfo :: Parser LegacyQueryCmds
+pKesPeriodInfo =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQueryKesPeriodInfoCmdArgs -> LegacyQueryCmds
+QueryKesPeriodInfoCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> ProposalFile 'In
+-> Maybe (File () 'Out)
+-> LegacyQueryKesPeriodInfoCmdArgs
+LegacyQueryKesPeriodInfoCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection). Parser (File () direction)
+pOperationalCertificateFile
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pQuerySlotNumber :: Parser LegacyQueryCmds
+    pQuerySlotNumber :: Parser LegacyQueryCmds
+pQuerySlotNumber =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap LegacyQuerySlotNumberCmdArgs -> LegacyQueryCmds
+QuerySlotNumberCmd forall a b. (a -> b) -> a -> b
+$
+        SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> UTCTime
+-> LegacyQuerySlotNumberCmdArgs
+LegacyQuerySlotNumberCmdArgs
+          forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser SocketPath
+pSocketPath EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ConsensusModeParams
+pConsensusModeParams
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+          forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser UTCTime
+pUtcTimestamp
+            where
+              pUtcTimestamp :: Parser UTCTime
+pUtcTimestamp =
+                FilePath -> UTCTime
+convertTime forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (forall s. IsString s => Mod ArgumentFields s -> Parser s
+Opt.strArgument forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Monoid a => [a] -> a
+mconcat)
+                  [ forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"TIMESTAMP"
+                  , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"UTC timestamp in YYYY-MM-DDThh:mm:ssZ format"
+                  ]
+
+
+-- TODO: Conway era - move to Cardano.CLI.Conway.Parsers
+pGovernanceCmds :: EnvCli -> Parser LegacyGovernanceCmds
+pGovernanceCmds :: EnvCli -> Parser LegacyGovernanceCmds
+pGovernanceCmds EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-mir-certificate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (Parser LegacyGovernanceCmds
+pLegacyMIRPayStakeAddresses forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> Parser LegacyGovernanceCmds
+mirCertParsers)
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an MIR (Move Instantaneous Rewards) certificate"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-genesis-key-delegation-certificate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pGovernanceGenesisKeyDelegationCertificate
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a genesis key delegation certificate"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-update-proposal"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pUpdateProposal
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an update proposal"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-poll"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pGovernanceCreatePoll
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an SPO poll"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"answer-poll"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pGovernanceAnswerPoll
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Answer an SPO poll"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"verify-poll"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pGovernanceVerifyPoll
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Verify an answer to a given SPO poll"
+    ]
+  where
+    mirCertParsers :: Parser LegacyGovernanceCmds
+    mirCertParsers :: Parser LegacyGovernanceCmds
+mirCertParsers = forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+      [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"stake-addresses"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pLegacyMIRPayStakeAddresses
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an MIR certificate to pay stake addresses"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"transfer-to-treasury"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pLegacyMIRTransferToTreasury
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an MIR certificate to transfer from the reserves pot to the treasury pot"
+      , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"transfer-to-rewards"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGovernanceCmds
+pLegacyMIRTransferToReserves
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create an MIR certificate to transfer from the treasury pot to the reserves pot"
+      ]
+
+    pLegacyMIRPayStakeAddresses :: Parser LegacyGovernanceCmds
+    pLegacyMIRPayStakeAddresses :: Parser LegacyGovernanceCmds
+pLegacyMIRPayStakeAddresses =
+      EraInEon ShelleyToBabbageEra
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> LegacyGovernanceCmds
+GovernanceCreateMirCertificateStakeAddressesCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser MIRPot
+pMIRPot
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser StakeAddress
+pStakeAddress
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser Lovelace
+pRewardAmt
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pLegacyMIRTransferToTreasury :: Parser LegacyGovernanceCmds
+    pLegacyMIRTransferToTreasury :: Parser LegacyGovernanceCmds
+pLegacyMIRTransferToTreasury =
+      EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> LegacyGovernanceCmds
+GovernanceCreateMirCertificateTransferToTreasuryCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pTransferAmt
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pLegacyMIRTransferToReserves :: Parser LegacyGovernanceCmds
+    pLegacyMIRTransferToReserves :: Parser LegacyGovernanceCmds
+pLegacyMIRTransferToReserves =
+      EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> LegacyGovernanceCmds
+GovernanceCreateMirCertificateTransferToReservesCmd
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pTransferAmt
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pGovernanceGenesisKeyDelegationCertificate :: Parser LegacyGovernanceCmds
+    pGovernanceGenesisKeyDelegationCertificate :: Parser LegacyGovernanceCmds
+pGovernanceGenesisKeyDelegationCertificate =
+      EraInEon ShelleyToBabbageEra
+-> VerificationKeyOrHashOrFile GenesisKey
+-> VerificationKeyOrHashOrFile GenesisDelegateKey
+-> VerificationKeyOrHashOrFile VrfKey
+-> File () 'Out
+-> LegacyGovernanceCmds
+GovernanceGenesisKeyDelegationCertificate
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyToBabbageEra)
+pAnyShelleyToBabbageEra EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile GenesisKey)
+pGenesisVerificationKeyOrHashOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)
+pGenesisDelegateVerificationKeyOrHashOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrHashOrFile VrfKey)
+pVrfVerificationKeyOrHashOrFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pUpdateProposal :: Parser LegacyGovernanceCmds
+    pUpdateProposal :: Parser LegacyGovernanceCmds
+pUpdateProposal =
+      File () 'Out
+-> EpochNo
+-> [VerificationKeyFile 'In]
+-> ProtocolParametersUpdate
+-> Maybe FilePath
+-> LegacyGovernanceCmds
+GovernanceUpdateProposal
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall content. Parser (File content 'Out)
+pOutputFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser EpochNo
+pEpochNoUpdateProp
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (VerificationKeyFile 'In)
+pGenesisVerificationKeyFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser ProtocolParametersUpdate
+pProtocolParametersUpdate
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser FilePath
+pCostModels
+
+    pGovernanceCreatePoll :: Parser LegacyGovernanceCmds
+    pGovernanceCreatePoll :: Parser LegacyGovernanceCmds
+pGovernanceCreatePoll =
+      Text
+-> [Text]
+-> Maybe Word
+-> File GovernancePoll 'Out
+-> LegacyGovernanceCmds
+GovernanceCreatePoll
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Text
+pPollQuestion
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser Text
+pPollAnswer
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pPollNonce
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+    pGovernanceAnswerPoll :: Parser LegacyGovernanceCmds
+    pGovernanceAnswerPoll :: Parser LegacyGovernanceCmds
+pGovernanceAnswerPoll =
+      File GovernancePoll 'In
+-> Maybe Word -> Maybe (File () 'Out) -> LegacyGovernanceCmds
+GovernanceAnswerPoll
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (File GovernancePoll 'In)
+pPollFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional Parser Word
+pPollAnswerIndex
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+    pGovernanceVerifyPoll :: Parser LegacyGovernanceCmds
+    pGovernanceVerifyPoll :: Parser LegacyGovernanceCmds
+pGovernanceVerifyPoll =
+      File GovernancePoll 'In
+-> File (Tx ()) 'In -> Maybe (File () 'Out) -> LegacyGovernanceCmds
+GovernanceVerifyPoll
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (File GovernancePoll 'In)
+pPollFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (File (Tx ()) 'In)
+pPollTxFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall content. Parser (File content 'Out)
+pOutputFile
+
+pGenesisCmds :: EnvCli -> Parser LegacyGenesisCmds
+pGenesisCmds :: EnvCli -> Parser LegacyGenesisCmds
+pGenesisCmds EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-genesis"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis key pair"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-delegate"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisDelegateKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis delegate key pair"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-gen-utxo"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisUTxOKeyGen
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Create a Shelley genesis UTxO key pair"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"key-hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisKeyHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Print the identifier (hash) of a public key"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"get-ver-key"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisVerKey
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Derive the verification key from a signing key"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"initial-addr"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisAddr
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the address for an initial UTxO based on the verification key"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"initial-txin"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisTxIn
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Get the TxIn for an initial UTxO based on the verification key"
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-cardano"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisCreateCardano
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a Byron and Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisCreate
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"create-staked"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisCreateStaked
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc
+        forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+            [ FilePath
+"Create a staked Shelley genesis file from a genesis "
+            , FilePath
+"template and genesis/delegation/spending keys."
+            ]
+    , forall a. FilePath -> ParserInfo a -> Parser a
+subParser FilePath
+"hash"
+        forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser LegacyGenesisCmds
+pGenesisHash
+        forall a b. (a -> b) -> a -> b
+$ forall a. FilePath -> InfoMod a
+Opt.progDesc FilePath
+"Compute the hash of a genesis file"
+    ]
+  where
+    pGenesisKeyGen :: Parser LegacyGenesisCmds
+    pGenesisKeyGen :: Parser LegacyGenesisCmds
+pGenesisKeyGen =
+      VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> LegacyGenesisCmds
+GenesisKeyGenGenesis
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pGenesisDelegateKeyGen :: Parser LegacyGenesisCmds
+    pGenesisDelegateKeyGen :: Parser LegacyGenesisCmds
+pGenesisDelegateKeyGen =
+      VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> LegacyGenesisCmds
+GenesisKeyGenDelegate
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (direction :: FileDirection).
+Parser (File OpCertCounter direction)
+pOperatorCertIssueCounterFile
+
+    pGenesisUTxOKeyGen :: Parser LegacyGenesisCmds
+    pGenesisUTxOKeyGen :: Parser LegacyGenesisCmds
+pGenesisUTxOKeyGen =
+      VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> LegacyGenesisCmds
+GenesisKeyGenUTxO
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall keyrole. Parser (File (SigningKey keyrole) 'Out)
+pSigningKeyFileOut
+
+    pGenesisKeyHash :: Parser LegacyGenesisCmds
+    pGenesisKeyHash :: Parser LegacyGenesisCmds
+pGenesisKeyHash =
+      VerificationKeyFile 'In -> LegacyGenesisCmds
+GenesisCmdKeyHash
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+
+    pGenesisVerKey :: Parser LegacyGenesisCmds
+    pGenesisVerKey :: Parser LegacyGenesisCmds
+pGenesisVerKey =
+      VerificationKeyFile 'Out -> SigningKeyFile 'In -> LegacyGenesisCmds
+GenesisVerKey
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall keyrole. Parser (File (VerificationKey keyrole) 'Out)
+pVerificationKeyFileOut
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (SigningKeyFile 'In)
+pSigningKeyFileIn
+
+    pGenesisAddr :: Parser LegacyGenesisCmds
+    pGenesisAddr :: Parser LegacyGenesisCmds
+pGenesisAddr =
+      VerificationKeyFile 'In
+-> NetworkId -> Maybe (File () 'Out) -> LegacyGenesisCmds
+GenesisAddr
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pGenesisTxIn :: Parser LegacyGenesisCmds
+    pGenesisTxIn :: Parser LegacyGenesisCmds
+pGenesisTxIn =
+      VerificationKeyFile 'In
+-> NetworkId -> Maybe (File () 'Out) -> LegacyGenesisCmds
+GenesisTxIn
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser (VerificationKeyFile 'In)
+pVerificationKeyFileIn
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (Maybe (File content 'Out))
+pMaybeOutputFile
+
+    pGenesisCreateCardano :: Parser LegacyGenesisCmds
+    pGenesisCreateCardano :: Parser LegacyGenesisCmds
+pGenesisCreateCardano =
+      GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> BlockCount
+-> Word
+-> Rational
+-> NetworkId
+-> FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> Maybe FilePath
+-> LegacyGenesisCmds
+GenesisCreateCardano
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser GenesisDir
+pGenesisDir
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> (Word64 -> BlockCount
+BlockCount forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser Word64
+pSecurityParam)
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pSlotLength
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Rational
+pSlotCoefficient
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+              FilePath
+"byron-template"
+              FilePath
+"JSON file with genesis defaults for each byron."
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+              FilePath
+"shelley-template"
+              FilePath
+"JSON file with genesis defaults for each shelley."
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+              FilePath
+"alonzo-template"
+              FilePath
+"JSON file with genesis defaults for alonzo."
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> FilePath -> Parser FilePath
+parseFilePath
+              FilePath
+"conway-template"
+              FilePath
+"JSON file with genesis defaults for conway."
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe FilePath)
+pNodeConfigTemplate
+
+    pGenesisCreate :: Parser LegacyGenesisCmds
+    pGenesisCreate :: Parser LegacyGenesisCmds
+pGenesisCreate =
+      KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> NetworkId
+-> LegacyGenesisCmds
+GenesisCreate
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GenesisDir
+pGenesisDir
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+
+    pGenesisCreateStaked :: Parser LegacyGenesisCmds
+    pGenesisCreateStaked :: Parser LegacyGenesisCmds
+pGenesisCreateStaked =
+      KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> Lovelace
+-> NetworkId
+-> Word
+-> Word
+-> Word
+-> Maybe FilePath
+-> LegacyGenesisCmds
+GenesisCreateStaked
+        forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser KeyOutputFormat
+pKeyOutputFormat
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser GenesisDir
+pGenesisDir
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumGenesisKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumUTxOKeys
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumPools
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pGenesisNumStDelegs
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe SystemStart)
+pMaybeSystemStart
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pInitialSupplyDelegated
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pBulkPoolCredFiles
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pBulkPoolsPerFile
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Word
+pStuffedUtxoCount
+        forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional Parser FilePath
+pRelayJsonFp
+
+    pGenesisHash :: Parser LegacyGenesisCmds
+    pGenesisHash :: Parser LegacyGenesisCmds
+pGenesisHash =
+      GenesisFile -> LegacyGenesisCmds
+GenesisHashFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FilePath -> Parser GenesisFile
+pGenesisFile FilePath
+"The genesis file."
+
+    pGenesisDir :: Parser GenesisDir
+    pGenesisDir :: Parser GenesisDir
+pGenesisDir =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap FilePath -> GenesisDir
+GenesisDir forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"genesis-dir"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"DIR"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The genesis directory containing the genesis template and required genesis/delegation/spending keys."
+        ]
+
+    pMaybeSystemStart :: Parser (Maybe SystemStart)
+    pMaybeSystemStart :: Parser (Maybe SystemStart)
+pMaybeSystemStart =
+      forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (UTCTime -> SystemStart
+SystemStart forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> UTCTime
+convertTime) forall a b. (a -> b) -> a -> b
+$ forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"start-time"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"UTC-TIME"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The genesis start time in YYYY-MM-DDThh:mm:ssZ format. If unspecified, will be the current time +30 seconds."
+        ]
+
+    pGenesisNumGenesisKeys :: Parser Word
+    pGenesisNumGenesisKeys :: Parser Word
+pGenesisNumGenesisKeys =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-genesis-keys"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of genesis keys to make [default is 3]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+3
+        ]
+
+    pNodeConfigTemplate :: Parser (Maybe FilePath)
+    pNodeConfigTemplate :: Parser (Maybe FilePath)
+pNodeConfigTemplate = forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+optional forall a b. (a -> b) -> a -> b
+$ FilePath -> FilePath -> Parser FilePath
+parseFilePath FilePath
+"node-config-template" FilePath
+"the node config template"
+
+    pGenesisNumUTxOKeys :: Parser Word
+    pGenesisNumUTxOKeys :: Parser Word
+pGenesisNumUTxOKeys =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-utxo-keys"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of UTxO keys to make [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+    pGenesisNumPools :: Parser Word
+    pGenesisNumPools :: Parser Word
+pGenesisNumPools =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-pools"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of stake pool credential sets to make [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+    pGenesisNumStDelegs :: Parser Word
+    pGenesisNumStDelegs :: Parser Word
+pGenesisNumStDelegs =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"gen-stake-delegs"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of stake delegator credential sets to make [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+    pStuffedUtxoCount :: Parser Word
+    pStuffedUtxoCount :: Parser Word
+pStuffedUtxoCount =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"num-stuffed-utxo"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The number of fake UTxO entries to generate [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+    pRelayJsonFp :: Parser FilePath
+    pRelayJsonFp :: Parser FilePath
+pRelayJsonFp =
+      forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"relay-specification-file"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"FILE"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"JSON file specified the relays of each stake pool."
+        , forall (f :: * -> *) a. HasCompleter f => Completer -> Mod f a
+Opt.completer (FilePath -> Completer
+Opt.bashCompleter FilePath
+"file")
+        ]
+
+    pInitialSupplyNonDelegated :: Parser (Maybe Lovelace)
+    pInitialSupplyNonDelegated :: Parser (Maybe Lovelace)
+pInitialSupplyNonDelegated =
+      forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap Integer -> Lovelace
+Lovelace forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"supply"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders."
+        ]
+
+    pInitialSupplyDelegated :: Parser Lovelace
+    pInitialSupplyDelegated :: Parser Lovelace
+pInitialSupplyDelegated =
+      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (Integer -> Lovelace
+Lovelace forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. a -> Maybe a -> a
+fromMaybe Integer
+0) forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Alternative f => f a -> f (Maybe a)
+Opt.optional forall a b. (a -> b) -> a -> b
+$ forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"supply-delegated"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"LOVELACE"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Integer
+0
+        ]
+
+    pSecurityParam :: Parser Word64
+    pSecurityParam :: Parser Word64
+pSecurityParam =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"security-param"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Security parameter for genesis file [default is 108]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word64
+108
+        ]
+
+    pSlotLength :: Parser Word
+    pSlotLength :: Parser Word
+pSlotLength =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"slot-length"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"slot length (ms) parameter for genesis file [default is 1000]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+1000
+        ]
+
+
+    pSlotCoefficient :: Parser Rational
+    pSlotCoefficient :: Parser Rational
+pSlotCoefficient =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option ReadM Rational
+readRationalUnitInterval forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"slot-coefficient"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"RATIONAL"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Slot Coefficient for genesis file [default is .05]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Rational
+0.05
+        ]
+
+    pBulkPoolCredFiles :: Parser Word
+    pBulkPoolCredFiles :: Parser Word
+pBulkPoolCredFiles =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"bulk-pool-cred-files"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Generate bulk pool credential files [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+    pBulkPoolsPerFile :: Parser Word
+    pBulkPoolsPerFile :: Parser Word
+pBulkPoolsPerFile =
+      forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"bulk-pools-per-file"
+        , forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
+Opt.metavar FilePath
+"INT"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Each bulk pool to contain this many pool credential sets [default is 0]."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word
+0
+        ]
+
+pStakePoolRegistrationCertificiateCmd :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolRegistrationCertificiateCmd :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolRegistrationCertificiateCmd EnvCli
+envCli =
+  EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> File () 'Out
+-> LegacyStakePoolCmds
+StakePoolRegistrationCertificateCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile VrfKey)
+pVrfVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolPledge
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Lovelace
+pPoolCost
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser Rational
+pPoolMargin
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (VerificationKeyOrFile StakeKey)
+pRewardAcctVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+some Parser (VerificationKeyOrFile StakeKey)
+pPoolOwnerVerificationKeyOrFile
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall (f :: * -> *) a. Alternative f => f a -> f [a]
+many Parser StakePoolRelay
+pPoolRelay
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser (Maybe StakePoolMetadataReference)
+pStakePoolMetadataReference
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> EnvCli -> Parser NetworkId
+pNetworkId EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pStakePoolDeregistrationCertificateCmd :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolDeregistrationCertificateCmd :: EnvCli -> Parser LegacyStakePoolCmds
+pStakePoolDeregistrationCertificateCmd EnvCli
+envCli =
+  EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> EpochNo
+-> File () 'Out
+-> LegacyStakePoolCmds
+StakePoolDeregistrationCertificateCmd
+    forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pAnyShelleyBasedEra EnvCli
+envCli
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Maybe FilePath -> Parser (VerificationKeyOrFile StakePoolKey)
+pStakePoolVerificationKeyOrFile forall a. Maybe a
+Nothing
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> FilePath -> Parser EpochNo
+pEpochNo FilePath
+"The epoch number."
+    forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall content. Parser (File content 'Out)
+pOutputFile
+
+pLegacyCardanoEra :: EnvCli -> Parser AnyCardanoEra
+pLegacyCardanoEra :: EnvCli -> Parser AnyCardanoEra
+pLegacyCardanoEra EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra ByronEra
+ByronEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"byron-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Byron era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra ShelleyEra
+ShelleyEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"shelley-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Shelley era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra AllegraEra
+AllegraEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"allegra-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Allegra era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra MaryEra
+MaryEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mary-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Mary era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra AlonzoEra
+AlonzoEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"alonzo-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Alonzo era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra BabbageEra
+BabbageEra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"babbage-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Babbage era (default)"
+        ]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Maybe AnyCardanoEra
+envCliAnyCardanoEra EnvCli
+envCli
+    -- TODO is this default needed anymore?
+    , forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure AnyCardanoEra
+defaultCardanoEra
+  ]
+    where
+      defaultCardanoEra :: AnyCardanoEra
+defaultCardanoEra = EraInEon ShelleyBasedEra
+defaultShelleyBasedEra forall a b. a -> (a -> b) -> b
+& \(EraInEon ShelleyBasedEra era
+era) ->
+        let cera :: CardanoEra era
+cera = forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+era
+         in forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+cera (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+cera)
+
+pLegacyShelleyBasedEra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pLegacyShelleyBasedEra :: EnvCli -> Parser (EraInEon ShelleyBasedEra)
+pLegacyShelleyBasedEra EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ [ forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra ShelleyEra
+ShelleyBasedEraShelley) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"shelley-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Shelley era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AllegraEra
+ShelleyBasedEraAllegra) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"allegra-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Allegra era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra MaryEra
+ShelleyBasedEraMary) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"mary-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Mary era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra AlonzoEra
+ShelleyBasedEraAlonzo) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"alonzo-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Alonzo era"
+        ]
+      , forall a. a -> Mod FlagFields a -> Parser a
+Opt.flag' (forall era (eon :: * -> *).
+(Typeable era, Typeable (eon era), Eon eon) =>
+eon era -> EraInEon eon
+EraInEon ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
+Opt.long FilePath
+"babbage-era"
+        , forall (f :: * -> *) a. FilePath -> Mod f a
+Opt.help FilePath
+"Specify the Babbage era (default)"
+        ]
+      ]
+    , forall a. Maybe a -> [a]
+maybeToList forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Maybe (EraInEon ShelleyBasedEra)
+envCliAnyShelleyBasedEra EnvCli
+envCli
+    , forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (f :: * -> *) a. Applicative f => a -> f a
+pure EraInEon ShelleyBasedEra
+defaultShelleyBasedEra
+  ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Address.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Address.html new file mode 100644 index 0000000000..e64cd535ca --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Address.html @@ -0,0 +1,135 @@ +
{-# LANGUAGE CPP #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Legacy.Run.Address
+  ( runLegacyAddressCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Run.Address
+import           Cardano.CLI.EraBased.Run.Address.Info
+import           Cardano.CLI.Legacy.Commands.Address
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.AddressCmdError
+import           Cardano.CLI.Types.Errors.AddressInfoError
+import           Cardano.CLI.Types.Key (PaymentVerifier (..), StakeIdentifier (..),
+                   VerificationKeyTextOrFile)
+
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT)
+import           Data.Function
+import           Data.Text (Text)
+
+runLegacyAddressCmds :: LegacyAddressCmds -> ExceptT AddressCmdError IO ()
+runLegacyAddressCmds :: LegacyAddressCmds -> ExceptT AddressCmdError IO ()
+runLegacyAddressCmds = \case
+  AddressKeyGen KeyOutputFormat
+fmt AddressKeyType
+kt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf ->
+    KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyGenCmd KeyOutputFormat
+fmt AddressKeyType
+kt VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf
+  AddressKeyHash VerificationKeyTextOrFile
+vkf Maybe (File () 'Out)
+mOFp ->
+    VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyHashCmd VerificationKeyTextOrFile
+vkf Maybe (File () 'Out)
+mOFp
+  AddressBuild PaymentVerifier
+paymentVerifier Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutFp ->
+    PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT AddressCmdError IO ()
+runLegacyAddressBuildCmd PaymentVerifier
+paymentVerifier Maybe StakeIdentifier
+mbStakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutFp
+  AddressInfo Text
+txt Maybe (File () 'Out)
+mOFp ->
+    Text -> Maybe (File () 'Out) -> ExceptT AddressInfoError IO ()
+runLegacyAddressInfoCmd Text
+txt Maybe (File () 'Out)
+mOFp forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AddressInfoError -> AddressCmdError
+AddressCmdAddressInfoError
+
+runLegacyAddressKeyGenCmd :: ()
+  => KeyOutputFormat
+  -> AddressKeyType
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyGenCmd :: KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyGenCmd = KeyOutputFormat
+-> AddressKeyType
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT AddressCmdError IO ()
+runAddressKeyGenCmd
+
+runLegacyAddressKeyHashCmd :: ()
+  => VerificationKeyTextOrFile
+  -> Maybe (File () Out)
+  -> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyHashCmd :: VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> ExceptT AddressCmdError IO ()
+runLegacyAddressKeyHashCmd = VerificationKeyTextOrFile
+-> Maybe (File () 'Out) -> ExceptT AddressCmdError IO ()
+runAddressKeyHashCmd
+
+runLegacyAddressBuildCmd :: ()
+  => PaymentVerifier
+  -> Maybe StakeIdentifier
+  -> NetworkId
+  -> Maybe (File () Out)
+  -> ExceptT AddressCmdError IO ()
+runLegacyAddressBuildCmd :: PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT AddressCmdError IO ()
+runLegacyAddressBuildCmd = PaymentVerifier
+-> Maybe StakeIdentifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT AddressCmdError IO ()
+runAddressBuildCmd
+
+runLegacyAddressInfoCmd :: ()
+  => Text
+  -> Maybe (File () Out)
+  -> ExceptT AddressInfoError IO ()
+runLegacyAddressInfoCmd :: Text -> Maybe (File () 'Out) -> ExceptT AddressInfoError IO ()
+runLegacyAddressInfoCmd = Text -> Maybe (File () 'Out) -> ExceptT AddressInfoError IO ()
+runAddressInfoCmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Genesis.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Genesis.html new file mode 100644 index 0000000000..17294673a1 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Genesis.html @@ -0,0 +1,605 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
+
+module Cardano.CLI.Legacy.Run.Genesis
+  ( runLegacyGenesisCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.Chain.Common (BlockCount)
+import           Cardano.CLI.EraBased.Commands.Genesis
+                   (GenesisKeyGenGenesisCmdArgs (GenesisKeyGenGenesisCmdArgs))
+import qualified Cardano.CLI.EraBased.Commands.Genesis as Cmd
+import           Cardano.CLI.EraBased.Run.Genesis
+import           Cardano.CLI.Legacy.Commands.Genesis
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.GenesisCmdError
+
+import           Control.Monad.Trans.Except (ExceptT)
+
+runLegacyGenesisCmds :: LegacyGenesisCmds -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCmds :: LegacyGenesisCmds -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCmds = \case
+  GenesisKeyGenGenesis VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk ->
+    VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenGenesisCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk
+  GenesisKeyGenDelegate VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk OpCertCounterFile 'Out
+ctr ->
+    VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenDelegateCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk OpCertCounterFile 'Out
+ctr
+  GenesisKeyGenUTxO VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk ->
+    VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenUTxOCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk
+  GenesisCmdKeyHash VerificationKeyFile 'In
+vk ->
+    VerificationKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyHashCmd VerificationKeyFile 'In
+vk
+  GenesisVerKey VerificationKeyFile 'Out
+vk SigningKeyFile 'In
+sk ->
+    VerificationKeyFile 'Out
+-> SigningKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisVerKeyCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'In
+sk
+  GenesisTxIn VerificationKeyFile 'In
+vk NetworkId
+nw Maybe (File () 'Out)
+mOutFile ->
+    VerificationKeyFile 'In
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisTxInCmd VerificationKeyFile 'In
+vk NetworkId
+nw Maybe (File () 'Out)
+mOutFile
+  GenesisAddr VerificationKeyFile 'In
+vk NetworkId
+nw Maybe (File () 'Out)
+mOutFile ->
+    VerificationKeyFile 'In
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisAddrCmd VerificationKeyFile 'In
+vk NetworkId
+nw Maybe (File () 'Out)
+mOutFile
+  GenesisCreate KeyOutputFormat
+fmt GenesisDir
+gd Word
+gn Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am NetworkId
+nw ->
+    KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> NetworkId
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCmd KeyOutputFormat
+fmt GenesisDir
+gd Word
+gn Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am NetworkId
+nw
+  GenesisCreateCardano GenesisDir
+gd Word
+gn Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am BlockCount
+k Word
+slotLength Rational
+sc NetworkId
+nw FilePath
+bg FilePath
+sg FilePath
+ag FilePath
+cg Maybe FilePath
+mNodeCfg ->
+    GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> BlockCount
+-> Word
+-> Rational
+-> NetworkId
+-> FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> Maybe FilePath
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCardanoCmd GenesisDir
+gd Word
+gn Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am BlockCount
+k Word
+slotLength Rational
+sc NetworkId
+nw FilePath
+bg FilePath
+sg FilePath
+ag FilePath
+cg Maybe FilePath
+mNodeCfg
+  GenesisCreateStaked KeyOutputFormat
+fmt GenesisDir
+gd Word
+gn Word
+gp Word
+gl Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am Lovelace
+ds NetworkId
+nw Word
+bf Word
+bp Word
+su Maybe FilePath
+relayJsonFp ->
+    KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> Lovelace
+-> NetworkId
+-> Word
+-> Word
+-> Word
+-> Maybe FilePath
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateStakedCmd KeyOutputFormat
+fmt GenesisDir
+gd Word
+gn Word
+gp Word
+gl Word
+un Maybe SystemStart
+ms Maybe Lovelace
+am Lovelace
+ds NetworkId
+nw Word
+bf Word
+bp Word
+su Maybe FilePath
+relayJsonFp
+  GenesisHashFile GenesisFile
+gf ->
+    GenesisFile -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisHashFileCmd GenesisFile
+gf
+
+runLegacyGenesisKeyGenGenesisCmd :: ()
+  => VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenGenesisCmd :: VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenGenesisCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk = GenesisKeyGenGenesisCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenGenesisCmd forall a b. (a -> b) -> a -> b
+$ VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> GenesisKeyGenGenesisCmdArgs
+GenesisKeyGenGenesisCmdArgs VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk
+
+runLegacyGenesisKeyGenDelegateCmd :: ()
+  => VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> OpCertCounterFile Out
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenDelegateCmd :: VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> OpCertCounterFile 'Out
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenDelegateCmd VerificationKeyFile 'Out
+vkf SigningKeyFile 'Out
+skf OpCertCounterFile 'Out
+okf =
+  GenesisKeyGenDelegateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenDelegateCmd
+    Cmd.GenesisKeyGenDelegateCmdArgs
+      { $sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgs :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath = VerificationKeyFile 'Out
+vkf
+      , $sel:signingKeyPath:GenesisKeyGenDelegateCmdArgs :: SigningKeyFile 'Out
+Cmd.signingKeyPath = SigningKeyFile 'Out
+skf
+      , $sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgs :: OpCertCounterFile 'Out
+Cmd.opCertCounterPath = OpCertCounterFile 'Out
+okf
+      }
+
+runLegacyGenesisKeyGenUTxOCmd :: ()
+  => VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenUTxOCmd :: VerificationKeyFile 'Out
+-> SigningKeyFile 'Out -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyGenUTxOCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk =
+  GenesisKeyGenUTxOCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisKeyGenUTxOCmd
+    Cmd.GenesisKeyGenUTxOCmdArgs
+      { $sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgs :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath = VerificationKeyFile 'Out
+vk
+      , $sel:signingKeyPath:GenesisKeyGenUTxOCmdArgs :: SigningKeyFile 'Out
+Cmd.signingKeyPath = SigningKeyFile 'Out
+sk
+      }
+
+runLegacyGenesisKeyHashCmd :: VerificationKeyFile In -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyHashCmd :: VerificationKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisKeyHashCmd = VerificationKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runGenesisKeyHashCmd
+
+runLegacyGenesisVerKeyCmd ::
+     VerificationKeyFile Out
+  -> SigningKeyFile In
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisVerKeyCmd :: VerificationKeyFile 'Out
+-> SigningKeyFile 'In -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisVerKeyCmd VerificationKeyFile 'Out
+vk SigningKeyFile 'In
+sk =
+  GenesisVerKeyCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisVerKeyCmd
+    Cmd.GenesisVerKeyCmdArgs
+      { $sel:verificationKeyPath:GenesisVerKeyCmdArgs :: VerificationKeyFile 'Out
+Cmd.verificationKeyPath = VerificationKeyFile 'Out
+vk
+      , $sel:signingKeyPath:GenesisVerKeyCmdArgs :: SigningKeyFile 'In
+Cmd.signingKeyPath = SigningKeyFile 'In
+sk
+      }
+
+runLegacyGenesisTxInCmd :: ()
+  => VerificationKeyFile In
+  -> NetworkId
+  -> Maybe (File () Out)
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisTxInCmd :: VerificationKeyFile 'In
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisTxInCmd VerificationKeyFile 'In
+vkt NetworkId
+nid Maybe (File () 'Out)
+mOf =
+  GenesisTxInCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisTxInCmd
+    Cmd.GenesisTxInCmdArgs
+      { $sel:verificationKeyPath:GenesisTxInCmdArgs :: VerificationKeyFile 'In
+Cmd.verificationKeyPath = VerificationKeyFile 'In
+vkt
+      , $sel:network:GenesisTxInCmdArgs :: NetworkId
+Cmd.network = NetworkId
+nid
+      , $sel:mOutFile:GenesisTxInCmdArgs :: Maybe (File () 'Out)
+Cmd.mOutFile = Maybe (File () 'Out)
+mOf
+      }
+
+runLegacyGenesisAddrCmd :: ()
+  => VerificationKeyFile In
+  -> NetworkId
+  -> Maybe (File () Out)
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisAddrCmd :: VerificationKeyFile 'In
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisAddrCmd VerificationKeyFile 'In
+vkf NetworkId
+nid Maybe (File () 'Out)
+mOf =
+  GenesisAddrCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisAddrCmd
+    Cmd.GenesisAddrCmdArgs
+      { $sel:verificationKeyPath:GenesisAddrCmdArgs :: VerificationKeyFile 'In
+Cmd.verificationKeyPath = VerificationKeyFile 'In
+vkf
+      , $sel:network:GenesisAddrCmdArgs :: NetworkId
+Cmd.network = NetworkId
+nid
+      , $sel:mOutFile:GenesisAddrCmdArgs :: Maybe (File () 'Out)
+Cmd.mOutFile = Maybe (File () 'Out)
+mOf
+      }
+
+runLegacyGenesisCreateCmd :: ()
+  => KeyOutputFormat
+  -> GenesisDir
+  -> Word  -- ^ num genesis & delegate keys to make
+  -> Word  -- ^ num utxo keys to make
+  -> Maybe SystemStart
+  -> Maybe Lovelace
+  -> NetworkId
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCmd :: KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> NetworkId
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCmd KeyOutputFormat
+fmt GenesisDir
+genDir Word
+nGenKeys Word
+nUTxOKeys Maybe SystemStart
+mStart Maybe Lovelace
+mSupply NetworkId
+network =
+  GenesisCreateCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCmd
+    Cmd.GenesisCreateCmdArgs
+    { $sel:keyOutputFormat:GenesisCreateCmdArgs :: KeyOutputFormat
+Cmd.keyOutputFormat = KeyOutputFormat
+fmt
+    , $sel:genesisDir:GenesisCreateCmdArgs :: GenesisDir
+Cmd.genesisDir = GenesisDir
+genDir
+    , $sel:numGenesisKeys:GenesisCreateCmdArgs :: Word
+Cmd.numGenesisKeys = Word
+nGenKeys
+    , $sel:numUTxOKeys:GenesisCreateCmdArgs :: Word
+Cmd.numUTxOKeys = Word
+nUTxOKeys
+    , $sel:mSystemStart:GenesisCreateCmdArgs :: Maybe SystemStart
+Cmd.mSystemStart = Maybe SystemStart
+mStart
+    , $sel:mSupply:GenesisCreateCmdArgs :: Maybe Lovelace
+Cmd.mSupply = Maybe Lovelace
+mSupply
+    , $sel:network:GenesisCreateCmdArgs :: NetworkId
+Cmd.network = NetworkId
+network
+    }
+
+runLegacyGenesisCreateCardanoCmd :: ()
+  => GenesisDir
+  -> Word  -- ^ num genesis & delegate keys to make
+  -> Word  -- ^ num utxo keys to make
+  -> Maybe SystemStart
+  -> Maybe Lovelace
+  -> BlockCount
+  -> Word     -- ^ slot length in ms
+  -> Rational
+  -> NetworkId
+  -> FilePath -- ^ Byron Genesis
+  -> FilePath -- ^ Shelley Genesis
+  -> FilePath -- ^ Alonzo Genesis
+  -> FilePath -- ^ Conway Genesis
+  -> Maybe FilePath
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCardanoCmd :: GenesisDir
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> BlockCount
+-> Word
+-> Rational
+-> NetworkId
+-> FilePath
+-> FilePath
+-> FilePath
+-> FilePath
+-> Maybe FilePath
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateCardanoCmd
+    GenesisDir
+genDir Word
+nGenKeys Word
+nUTxOKeys Maybe SystemStart
+mStart Maybe Lovelace
+mSupply BlockCount
+security Word
+slotLength Rational
+slotCoeff
+    NetworkId
+network FilePath
+byronGenesis FilePath
+shelleyGenesis FilePath
+alonzoGenesis FilePath
+conwayGenesis Maybe FilePath
+mNodeCfg
+    = GenesisCreateCardanoCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateCardanoCmd
+    Cmd.GenesisCreateCardanoCmdArgs
+    { $sel:genesisDir:GenesisCreateCardanoCmdArgs :: GenesisDir
+Cmd.genesisDir = GenesisDir
+genDir
+    , $sel:numGenesisKeys:GenesisCreateCardanoCmdArgs :: Word
+Cmd.numGenesisKeys = Word
+nGenKeys
+    , $sel:numUTxOKeys:GenesisCreateCardanoCmdArgs :: Word
+Cmd.numUTxOKeys = Word
+nUTxOKeys
+    , $sel:mSystemStart:GenesisCreateCardanoCmdArgs :: Maybe SystemStart
+Cmd.mSystemStart = Maybe SystemStart
+mStart
+    , $sel:mSupply:GenesisCreateCardanoCmdArgs :: Maybe Lovelace
+Cmd.mSupply = Maybe Lovelace
+mSupply
+    , $sel:security:GenesisCreateCardanoCmdArgs :: BlockCount
+Cmd.security = BlockCount
+security
+    , $sel:slotLength:GenesisCreateCardanoCmdArgs :: Word
+Cmd.slotLength = Word
+slotLength
+    , $sel:slotCoeff:GenesisCreateCardanoCmdArgs :: Rational
+Cmd.slotCoeff = Rational
+slotCoeff
+    , $sel:network:GenesisCreateCardanoCmdArgs :: NetworkId
+Cmd.network = NetworkId
+network
+    , $sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgs :: FilePath
+Cmd.byronGenesisTemplate = FilePath
+byronGenesis
+    , $sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgs :: FilePath
+Cmd.shelleyGenesisTemplate = FilePath
+shelleyGenesis
+    , $sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgs :: FilePath
+Cmd.alonzoGenesisTemplate = FilePath
+alonzoGenesis
+    , $sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgs :: FilePath
+Cmd.conwayGenesisTemplate = FilePath
+conwayGenesis
+    , $sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgs :: Maybe FilePath
+Cmd.mNodeConfigTemplate = Maybe FilePath
+mNodeCfg
+    }
+
+runLegacyGenesisCreateStakedCmd :: ()
+  => KeyOutputFormat    -- ^ key output format
+  -> GenesisDir
+  -> Word               -- ^ num genesis & delegate keys to make
+  -> Word               -- ^ num utxo keys to make
+  -> Word               -- ^ num pools to make
+  -> Word               -- ^ num delegators to make
+  -> Maybe SystemStart
+  -> Maybe Lovelace     -- ^ supply going to non-delegators
+  -> Lovelace           -- ^ supply going to delegators
+  -> NetworkId
+  -> Word               -- ^ bulk credential files to write
+  -> Word               -- ^ pool credentials per bulk file
+  -> Word               -- ^ num stuffed UTxO entries
+  -> Maybe FilePath     -- ^ Specified stake pool relays
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateStakedCmd :: KeyOutputFormat
+-> GenesisDir
+-> Word
+-> Word
+-> Word
+-> Word
+-> Maybe SystemStart
+-> Maybe Lovelace
+-> Lovelace
+-> NetworkId
+-> Word
+-> Word
+-> Word
+-> Maybe FilePath
+-> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCreateStakedCmd
+    KeyOutputFormat
+keyOutputFormat GenesisDir
+genesisDir Word
+numGenesisKeys Word
+numUTxOKeys Word
+numPools
+    Word
+numStakeDelegators Maybe SystemStart
+mSystemStart Maybe Lovelace
+mNonDelegatedSupply Lovelace
+delegatedSupply
+    NetworkId
+network Word
+numBulkPoolCredFiles Word
+numBulkPoolsPerFile Word
+numStuffedUtxo
+    Maybe FilePath
+mStakePoolRelaySpecFile
+    = GenesisCreateStakedCmdArgs -> ExceptT GenesisCmdError IO ()
+runGenesisCreateStakedCmd
+    Cmd.GenesisCreateStakedCmdArgs
+    { $sel:keyOutputFormat:GenesisCreateStakedCmdArgs :: KeyOutputFormat
+Cmd.keyOutputFormat = KeyOutputFormat
+keyOutputFormat
+    , $sel:genesisDir:GenesisCreateStakedCmdArgs :: GenesisDir
+Cmd.genesisDir = GenesisDir
+genesisDir
+    , $sel:numGenesisKeys:GenesisCreateStakedCmdArgs :: Word
+Cmd.numGenesisKeys = Word
+numGenesisKeys
+    , $sel:numUTxOKeys:GenesisCreateStakedCmdArgs :: Word
+Cmd.numUTxOKeys = Word
+numUTxOKeys
+    , $sel:numPools:GenesisCreateStakedCmdArgs :: Word
+Cmd.numPools = Word
+numPools
+    , $sel:numStakeDelegators:GenesisCreateStakedCmdArgs :: Word
+Cmd.numStakeDelegators = Word
+numStakeDelegators
+    , $sel:mSystemStart:GenesisCreateStakedCmdArgs :: Maybe SystemStart
+Cmd.mSystemStart = Maybe SystemStart
+mSystemStart
+    , $sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgs :: Maybe Lovelace
+Cmd.mNonDelegatedSupply = Maybe Lovelace
+mNonDelegatedSupply
+    , $sel:delegatedSupply:GenesisCreateStakedCmdArgs :: Lovelace
+Cmd.delegatedSupply = Lovelace
+delegatedSupply
+    , $sel:network:GenesisCreateStakedCmdArgs :: NetworkId
+Cmd.network = NetworkId
+network
+    , $sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgs :: Word
+Cmd.numBulkPoolCredFiles = Word
+numBulkPoolCredFiles
+    , $sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgs :: Word
+Cmd.numBulkPoolsPerFile = Word
+numBulkPoolsPerFile
+    , $sel:numStuffedUtxo:GenesisCreateStakedCmdArgs :: Word
+Cmd.numStuffedUtxo = Word
+numStuffedUtxo
+    , $sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgs :: Maybe FilePath
+Cmd.mStakePoolRelaySpecFile = Maybe FilePath
+mStakePoolRelaySpecFile
+    }
+
+-- | Hash a genesis file
+runLegacyGenesisHashFileCmd :: ()
+  => GenesisFile
+  -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisHashFileCmd :: GenesisFile -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisHashFileCmd = GenesisFile -> ExceptT GenesisCmdError IO ()
+runGenesisHashFileCmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Governance.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Governance.html new file mode 100644 index 0000000000..6f73f38795 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Governance.html @@ -0,0 +1,463 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Legacy.Run.Governance
+  ( runLegacyGovernanceCmds
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.Governance.Poll as Cmd
+import           Cardano.CLI.EraBased.Run.Governance
+import           Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
+                   (runGovernanceGenesisKeyDelegationCertificate)
+import           Cardano.CLI.EraBased.Run.Governance.Poll
+import           Cardano.CLI.Legacy.Commands.Governance
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+
+import           Control.Monad
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra
+import           Data.Aeson (eitherDecode)
+import qualified Data.ByteString.Lazy as LB
+import           Data.Function ((&))
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+runLegacyGovernanceCmds :: LegacyGovernanceCmds -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCmds :: LegacyGovernanceCmds -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCmds = \case
+  GovernanceCreateMirCertificateStakeAddressesCmd EraInEon ShelleyToBabbageEra
+anyEra MIRPot
+mirpot [StakeAddress]
+vKeys [Lovelace]
+rewards File () 'Out
+out ->
+    EraInEon ShelleyToBabbageEra
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceMIRCertificatePayStakeAddrs EraInEon ShelleyToBabbageEra
+anyEra MIRPot
+mirpot [StakeAddress]
+vKeys [Lovelace]
+rewards File () 'Out
+out
+  GovernanceCreateMirCertificateTransferToTreasuryCmd EraInEon ShelleyToBabbageEra
+anyEra Lovelace
+amt File () 'Out
+out -> do
+    EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToTreasuryCmd EraInEon ShelleyToBabbageEra
+anyEra Lovelace
+amt File () 'Out
+out
+  GovernanceCreateMirCertificateTransferToReservesCmd EraInEon ShelleyToBabbageEra
+anyEra Lovelace
+amt File () 'Out
+out -> do
+    EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToReservesCmd EraInEon ShelleyToBabbageEra
+anyEra Lovelace
+amt File () 'Out
+out
+  GovernanceGenesisKeyDelegationCertificate (EraInEon ShelleyToBabbageEra era
+sbe) VerificationKeyOrHashOrFile GenesisKey
+genVk VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelegVk VerificationKeyOrHashOrFile VrfKey
+vrfVk File () 'Out
+out ->
+    forall era.
+ShelleyToBabbageEra era
+-> VerificationKeyOrHashOrFile GenesisKey
+-> VerificationKeyOrHashOrFile GenesisDelegateKey
+-> VerificationKeyOrHashOrFile VrfKey
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceGenesisKeyDelegationCertificate ShelleyToBabbageEra era
+sbe VerificationKeyOrHashOrFile GenesisKey
+genVk VerificationKeyOrHashOrFile GenesisDelegateKey
+genDelegVk VerificationKeyOrHashOrFile VrfKey
+vrfVk File () 'Out
+out
+  GovernanceUpdateProposal File () 'Out
+out EpochNo
+eNo [VerificationKeyFile 'In]
+genVKeys ProtocolParametersUpdate
+ppUp Maybe FilePath
+mCostModelFp ->
+    File () 'Out
+-> EpochNo
+-> [VerificationKeyFile 'In]
+-> ProtocolParametersUpdate
+-> Maybe FilePath
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceUpdateProposal File () 'Out
+out EpochNo
+eNo [VerificationKeyFile 'In]
+genVKeys ProtocolParametersUpdate
+ppUp Maybe FilePath
+mCostModelFp
+  GovernanceCreatePoll Text
+prompt [Text]
+choices Maybe Word
+nonce File GovernancePoll 'Out
+out ->
+    Text
+-> [Text]
+-> Maybe Word
+-> File GovernancePoll 'Out
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreatePoll Text
+prompt [Text]
+choices Maybe Word
+nonce File GovernancePoll 'Out
+out
+  GovernanceAnswerPoll File GovernancePoll 'In
+poll Maybe Word
+ix Maybe (File () 'Out)
+mOutFile ->
+    File GovernancePoll 'In
+-> Maybe Word
+-> Maybe (File () 'Out)
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceAnswerPoll File GovernancePoll 'In
+poll Maybe Word
+ix Maybe (File () 'Out)
+mOutFile
+  GovernanceVerifyPoll File GovernancePoll 'In
+poll File (Tx ()) 'In
+metadata Maybe (File () 'Out)
+mOutFile ->
+    File GovernancePoll 'In
+-> File (Tx ()) 'In
+-> Maybe (File () 'Out)
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceVerifyPoll File GovernancePoll 'In
+poll File (Tx ()) 'In
+metadata Maybe (File () 'Out)
+mOutFile
+
+runLegacyGovernanceCreatePoll :: ()
+  => Text
+  -> [Text]
+  -> Maybe Word
+  -> File GovernancePoll Out
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreatePoll :: Text
+-> [Text]
+-> Maybe Word
+-> File GovernancePoll 'Out
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreatePoll Text
+prompt [Text]
+choices Maybe Word
+nonce File GovernancePoll 'Out
+outFile =
+  forall era.
+GovernanceCreatePollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreatePollCmd
+    Cmd.GovernanceCreatePollCmdArgs
+      { $sel:eon:GovernanceCreatePollCmdArgs :: BabbageEraOnwards BabbageEra
+eon     = BabbageEraOnwards BabbageEra
+BabbageEraOnwardsBabbage
+      , Text
+$sel:prompt:GovernanceCreatePollCmdArgs :: Text
+prompt :: Text
+prompt
+      , [Text]
+$sel:choices:GovernanceCreatePollCmdArgs :: [Text]
+choices :: [Text]
+choices
+      , Maybe Word
+$sel:nonce:GovernanceCreatePollCmdArgs :: Maybe Word
+nonce :: Maybe Word
+nonce
+      , File GovernancePoll 'Out
+$sel:outFile:GovernanceCreatePollCmdArgs :: File GovernancePoll 'Out
+outFile :: File GovernancePoll 'Out
+outFile
+      }
+
+runLegacyGovernanceAnswerPoll :: ()
+  => File GovernancePoll In
+  -> Maybe Word
+  -> Maybe (File () Out)
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceAnswerPoll :: File GovernancePoll 'In
+-> Maybe Word
+-> Maybe (File () 'Out)
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceAnswerPoll File GovernancePoll 'In
+pollFile Maybe Word
+answerIndex Maybe (File () 'Out)
+mOutFile =
+  forall era.
+GovernanceAnswerPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceAnswerPollCmd
+    Cmd.GovernanceAnswerPollCmdArgs
+      { $sel:eon:GovernanceAnswerPollCmdArgs :: BabbageEraOnwards BabbageEra
+eon         = BabbageEraOnwards BabbageEra
+BabbageEraOnwardsBabbage
+      , File GovernancePoll 'In
+$sel:pollFile:GovernanceAnswerPollCmdArgs :: File GovernancePoll 'In
+pollFile :: File GovernancePoll 'In
+pollFile
+      , Maybe Word
+$sel:answerIndex:GovernanceAnswerPollCmdArgs :: Maybe Word
+answerIndex :: Maybe Word
+answerIndex
+      , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceAnswerPollCmdArgs :: Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      }
+
+runLegacyGovernanceVerifyPoll :: ()
+  => File GovernancePoll In
+  -> File (Tx ()) In
+  -> Maybe (File () Out)
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceVerifyPoll :: File GovernancePoll 'In
+-> File (Tx ()) 'In
+-> Maybe (File () 'Out)
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceVerifyPoll File GovernancePoll 'In
+pollFile File (Tx ()) 'In
+txFile Maybe (File () 'Out)
+mOutFile =
+  forall era.
+GovernanceVerifyPollCmdArgs era -> ExceptT GovernanceCmdError IO ()
+runGovernanceVerifyPollCmd
+    Cmd.GovernanceVerifyPollCmdArgs
+      { $sel:eon:GovernanceVerifyPollCmdArgs :: BabbageEraOnwards BabbageEra
+eon       = BabbageEraOnwards BabbageEra
+BabbageEraOnwardsBabbage
+      , File GovernancePoll 'In
+$sel:pollFile:GovernanceVerifyPollCmdArgs :: File GovernancePoll 'In
+pollFile :: File GovernancePoll 'In
+pollFile
+      , File (Tx ()) 'In
+$sel:txFile:GovernanceVerifyPollCmdArgs :: File (Tx ()) 'In
+txFile :: File (Tx ()) 'In
+txFile
+      , Maybe (File () 'Out)
+$sel:mOutFile:GovernanceVerifyPollCmdArgs :: Maybe (File () 'Out)
+mOutFile :: Maybe (File () 'Out)
+mOutFile
+      }
+
+runLegacyGovernanceMIRCertificatePayStakeAddrs
+  :: EraInEon ShelleyToBabbageEra
+  -> Ledger.MIRPot
+  -> [StakeAddress] -- ^ Stake addresses
+  -> [Lovelace]     -- ^ Corresponding reward amounts (same length)
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceMIRCertificatePayStakeAddrs :: EraInEon ShelleyToBabbageEra
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceMIRCertificatePayStakeAddrs (EraInEon ShelleyToBabbageEra era
+w) =
+  forall era.
+ShelleyToBabbageEra era
+-> MIRPot
+-> [StakeAddress]
+-> [Lovelace]
+-> File () 'Out
+-> ExceptT GovernanceCmdError IO ()
+runGovernanceMIRCertificatePayStakeAddrs ShelleyToBabbageEra era
+w
+
+runLegacyGovernanceCreateMirCertificateTransferToTreasuryCmd
+  :: EraInEon ShelleyToBabbageEra
+  -> Lovelace
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToTreasuryCmd :: EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToTreasuryCmd (EraInEon ShelleyToBabbageEra era
+w) =
+  forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToTreasuryCmd ShelleyToBabbageEra era
+w
+
+runLegacyGovernanceCreateMirCertificateTransferToReservesCmd
+  :: EraInEon ShelleyToBabbageEra
+  -> Lovelace
+  -> File () Out
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToReservesCmd :: EraInEon ShelleyToBabbageEra
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCreateMirCertificateTransferToReservesCmd (EraInEon ShelleyToBabbageEra era
+w) =
+  forall era.
+ShelleyToBabbageEra era
+-> Lovelace -> File () 'Out -> ExceptT GovernanceCmdError IO ()
+runGovernanceCreateMirCertificateTransferToReservesCmd ShelleyToBabbageEra era
+w
+
+runLegacyGovernanceUpdateProposal
+  :: File () Out
+  -> EpochNo
+  -> [VerificationKeyFile In]
+  -- ^ Genesis verification keys
+  -> ProtocolParametersUpdate
+  -> Maybe FilePath -- ^ Cost models file path
+  -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceUpdateProposal :: File () 'Out
+-> EpochNo
+-> [VerificationKeyFile 'In]
+-> ProtocolParametersUpdate
+-> Maybe FilePath
+-> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceUpdateProposal File () 'Out
+upFile EpochNo
+eNo [VerificationKeyFile 'In]
+genVerKeyFiles ProtocolParametersUpdate
+upPprams Maybe FilePath
+mCostModelFp = do
+  ProtocolParametersUpdate
+finalUpPprams <- case Maybe FilePath
+mCostModelFp of
+    Maybe FilePath
+Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
+return ProtocolParametersUpdate
+upPprams
+    Just FilePath
+fp -> do
+      ByteString
+costModelsBs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> GovernanceCmdError
+GovernanceCmdCostModelReadError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. FilePath -> IOException -> FileError e
+FileIOError FilePath
+fp) forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ByteString
+LB.readFile FilePath
+fp
+
+      CostModels
+cModels <- forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a. FromJSON a => ByteString -> Either FilePath a
+eitherDecode ByteString
+costModelsBs)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text -> GovernanceCmdError
+GovernanceCmdCostModelsJsonDecodeErr FilePath
+fp forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FilePath -> Text
+Text.pack)
+
+      let costModels :: Map AnyPlutusScriptVersion CostModel
+costModels = CostModels -> Map AnyPlutusScriptVersion CostModel
+fromAlonzoCostModels CostModels
+cModels
+
+      forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (forall (t :: * -> *) a. Foldable t => t a -> Bool
+null Map AnyPlutusScriptVersion CostModel
+costModels) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left (FilePath -> GovernanceCmdError
+GovernanceCmdEmptyCostModel FilePath
+fp)
+
+      forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ ProtocolParametersUpdate
+upPprams {protocolUpdateCostModels :: Map AnyPlutusScriptVersion CostModel
+protocolUpdateCostModels = Map AnyPlutusScriptVersion CostModel
+costModels}
+
+  forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+when (ProtocolParametersUpdate
+finalUpPprams forall a. Eq a => a -> a -> Bool
+== forall a. Monoid a => a
+mempty) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left GovernanceCmdError
+GovernanceCmdEmptyUpdateProposalError
+
+  [VerificationKey GenesisKey]
+genVKeys <- forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence
+    [ forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError TextEnvelopeError -> GovernanceCmdError
+GovernanceCmdTextEnvReadError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType GenesisKey
+AsGenesisKey) VerificationKeyFile 'In
+vkeyFile
+    | VerificationKeyFile 'In
+vkeyFile <- [VerificationKeyFile 'In]
+genVerKeyFiles
+    ]
+  let genKeyHashes :: [Hash GenesisKey]
+genKeyHashes = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash [VerificationKey GenesisKey]
+genVKeys
+      upProp :: UpdateProposal
+upProp = ProtocolParametersUpdate
+-> [Hash GenesisKey] -> EpochNo -> UpdateProposal
+makeShelleyUpdateProposal ProtocolParametersUpdate
+finalUpPprams [Hash GenesisKey]
+genKeyHashes EpochNo
+eNo
+
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError () -> GovernanceCmdError
+GovernanceCmdTextEnvWriteError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT
+    forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) content e.
+MonadIO m =>
+File content 'Out -> ByteString -> m (Either (FileError e) ())
+writeLazyByteStringFile File () 'Out
+upFile forall a b. (a -> b) -> a -> b
+$ forall a.
+HasTextEnvelope a =>
+Maybe TextEnvelopeDescr -> a -> ByteString
+textEnvelopeToJSON forall a. Maybe a
+Nothing UpdateProposal
+upProp
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Key.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Key.html new file mode 100644 index 0000000000..be79a4e710 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Key.html @@ -0,0 +1,251 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run.Key
+  ( runLegacyKeyCmds
+  ) where
+
+import           Cardano.Api
+
+import qualified Cardano.CLI.EraBased.Commands.Key as Cmd
+import           Cardano.CLI.EraBased.Run.Key
+import           Cardano.CLI.Legacy.Commands.Key
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.KeyCmdError
+
+import           Control.Monad.Trans.Except (ExceptT)
+import           Data.Text (Text)
+
+runLegacyKeyCmds :: ()
+  => LegacyKeyCmds
+  -> ExceptT KeyCmdError IO ()
+runLegacyKeyCmds :: LegacyKeyCmds -> ExceptT KeyCmdError IO ()
+runLegacyKeyCmds = \case
+  KeyVerificationKeyCmd SigningKeyFile 'In
+skf VerificationKeyFile 'Out
+vkf ->
+    SigningKeyFile 'In
+-> VerificationKeyFile 'Out -> ExceptT KeyCmdError IO ()
+runLegacyVerificationKeyCmd SigningKeyFile 'In
+skf VerificationKeyFile 'Out
+vkf
+  KeyNonExtendedKeyCmd VerificationKeyFile 'In
+evkf VerificationKeyFile 'Out
+vkf ->
+    VerificationKeyFile 'In
+-> VerificationKeyFile 'Out -> ExceptT KeyCmdError IO ()
+runLegacyNonExtendedKeyCmd VerificationKeyFile 'In
+evkf VerificationKeyFile 'Out
+vkf
+  KeyConvertByronKeyCmd Maybe Text
+mPassword ByronKeyType
+keytype SomeKeyFile 'In
+skfOld File () 'Out
+skfNew ->
+    Maybe Text
+-> ByronKeyType
+-> SomeKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+runLegacyConvertByronKeyCmd Maybe Text
+mPassword ByronKeyType
+keytype SomeKeyFile 'In
+skfOld File () 'Out
+skfNew
+  KeyConvertByronGenesisVKeyCmd VerificationKeyBase64
+oldVk File () 'Out
+newVkf ->
+    VerificationKeyBase64 -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertByronGenesisVKeyCmd VerificationKeyBase64
+oldVk File () 'Out
+newVkf
+  KeyConvertITNKeyCmd SomeKeyFile 'In
+itnKeyFile File () 'Out
+outFile ->
+    SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNStakeKeyCmd SomeKeyFile 'In
+itnKeyFile File () 'Out
+outFile
+  KeyConvertITNExtendedKeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile ->
+    SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNExtendedKeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile
+  KeyConvertITNBip32KeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile ->
+    SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNBip32KeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile
+  KeyConvertCardanoAddressKeyCmd CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skfOld File () 'Out
+skfNew ->
+    CardanoAddressKeyType
+-> SigningKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertCardanoAddressKeyCmd CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skfOld File () 'Out
+skfNew
+
+runLegacyVerificationKeyCmd :: ()
+  => SigningKeyFile In
+  -> VerificationKeyFile Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyVerificationKeyCmd :: SigningKeyFile 'In
+-> VerificationKeyFile 'Out -> ExceptT KeyCmdError IO ()
+runLegacyVerificationKeyCmd SigningKeyFile 'In
+skf VerificationKeyFile 'Out
+vkf =
+  KeyVerificationKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runVerificationKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SigningKeyFile 'In
+-> VerificationKeyFile 'Out -> KeyVerificationKeyCmdArgs
+Cmd.KeyVerificationKeyCmdArgs SigningKeyFile 'In
+skf VerificationKeyFile 'Out
+vkf
+
+runLegacyNonExtendedKeyCmd :: ()
+  => VerificationKeyFile In
+  -> VerificationKeyFile Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyNonExtendedKeyCmd :: VerificationKeyFile 'In
+-> VerificationKeyFile 'Out -> ExceptT KeyCmdError IO ()
+runLegacyNonExtendedKeyCmd VerificationKeyFile 'In
+evkf VerificationKeyFile 'Out
+vkf =
+  KeyNonExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runNonExtendedKeyCmd forall a b. (a -> b) -> a -> b
+$
+    VerificationKeyFile 'In
+-> VerificationKeyFile 'Out -> KeyNonExtendedKeyCmdArgs
+Cmd.KeyNonExtendedKeyCmdArgs VerificationKeyFile 'In
+evkf VerificationKeyFile 'Out
+vkf
+
+runLegacyConvertByronKeyCmd :: ()
+  => Maybe Text      -- ^ Password (if applicable)
+  -> ByronKeyType
+  -> SomeKeyFile In  -- ^ Input file: old format
+  -> File () Out     -- ^ Output file: new format
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertByronKeyCmd :: Maybe Text
+-> ByronKeyType
+-> SomeKeyFile 'In
+-> File () 'Out
+-> ExceptT KeyCmdError IO ()
+runLegacyConvertByronKeyCmd Maybe Text
+mPassword ByronKeyType
+keytype SomeKeyFile 'In
+skfOld File () 'Out
+skfNew =
+  KeyConvertByronKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronKeyCmd forall a b. (a -> b) -> a -> b
+$
+    Maybe Text
+-> ByronKeyType
+-> SomeKeyFile 'In
+-> File () 'Out
+-> KeyConvertByronKeyCmdArgs
+Cmd.KeyConvertByronKeyCmdArgs Maybe Text
+mPassword ByronKeyType
+keytype SomeKeyFile 'In
+skfOld File () 'Out
+skfNew
+
+runLegacyConvertByronGenesisVKeyCmd :: ()
+  => VerificationKeyBase64  -- ^ Input key raw old format
+  -> File () Out            -- ^ Output file: new format
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertByronGenesisVKeyCmd :: VerificationKeyBase64 -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertByronGenesisVKeyCmd VerificationKeyBase64
+oldVk File () 'Out
+newVkf =
+  KeyConvertByronGenesisVKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertByronGenesisVKeyCmd forall a b. (a -> b) -> a -> b
+$
+    VerificationKeyBase64
+-> File () 'Out -> KeyConvertByronGenesisVKeyCmdArgs
+Cmd.KeyConvertByronGenesisVKeyCmdArgs VerificationKeyBase64
+oldVk File () 'Out
+newVkf
+
+--------------------------------------------------------------------------------
+-- ITN verification/signing key conversion to Haskell verficiation/signing keys
+--------------------------------------------------------------------------------
+
+runLegacyConvertITNStakeKeyCmd :: ()
+  => SomeKeyFile In
+  -> File () Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNStakeKeyCmd :: SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNStakeKeyCmd SomeKeyFile 'In
+itnKeyFile File () 'Out
+outFile =
+  KeyConvertITNKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNKeyCmdArgs
+Cmd.KeyConvertITNKeyCmdArgs SomeKeyFile 'In
+itnKeyFile File () 'Out
+outFile
+
+runLegacyConvertITNExtendedKeyCmd :: ()
+  => SomeKeyFile In
+  -> File () Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNExtendedKeyCmd :: SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNExtendedKeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile =
+  KeyConvertITNExtendedKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNExtendedKeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNExtendedKeyCmdArgs
+Cmd.KeyConvertITNExtendedKeyCmdArgs SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile
+
+runLegacyConvertITNBip32KeyCmd :: ()
+  => SomeKeyFile In
+  -> File () Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNBip32KeyCmd :: SomeKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertITNBip32KeyCmd SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile =
+  KeyConvertITNBip32KeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertITNBip32KeyCmd forall a b. (a -> b) -> a -> b
+$
+    SomeKeyFile 'In -> File () 'Out -> KeyConvertITNBip32KeyCmdArgs
+Cmd.KeyConvertITNBip32KeyCmdArgs SomeKeyFile 'In
+itnPrivKeyFile File () 'Out
+outFile
+
+runLegacyConvertCardanoAddressKeyCmd :: ()
+  => CardanoAddressKeyType
+  -> SigningKeyFile In
+  -> File () Out
+  -> ExceptT KeyCmdError IO ()
+runLegacyConvertCardanoAddressKeyCmd :: CardanoAddressKeyType
+-> SigningKeyFile 'In -> File () 'Out -> ExceptT KeyCmdError IO ()
+runLegacyConvertCardanoAddressKeyCmd CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skfOld File () 'Out
+skfNew =
+  KeyConvertCardanoAddressKeyCmdArgs -> ExceptT KeyCmdError IO ()
+runConvertCardanoAddressKeyCmd forall a b. (a -> b) -> a -> b
+$
+    CardanoAddressKeyType
+-> SigningKeyFile 'In
+-> File () 'Out
+-> KeyConvertCardanoAddressKeyCmdArgs
+Cmd.KeyConvertCardanoAddressKeyCmdArgs CardanoAddressKeyType
+keyType SigningKeyFile 'In
+skfOld File () 'Out
+skfNew
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Node.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Node.html new file mode 100644 index 0000000000..93a2dc424d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Node.html @@ -0,0 +1,88 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run.Node
+  ( runLegacyNodeCmds
+  ) where
+
+import qualified Cardano.CLI.EraBased.Commands.Node as Cmd
+import           Cardano.CLI.EraBased.Run.Node
+import           Cardano.CLI.Legacy.Commands.Node
+import           Cardano.CLI.Types.Errors.NodeCmdError
+
+import           Control.Monad.Trans.Except (ExceptT)
+
+{- HLINT ignore "Reduce duplication" -}
+
+runLegacyNodeCmds :: ()
+  => LegacyNodeCmds
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeCmds :: LegacyNodeCmds -> ExceptT NodeCmdError IO ()
+runLegacyNodeCmds = \case
+  LegacyNodeKeyGenColdCmd NodeKeyGenColdCmdArgs
+args  -> NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenColdCmd NodeKeyGenColdCmdArgs
+args
+  LegacyNodeKeyGenKESCmd NodeKeyGenKESCmdArgs
+args   -> NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenKesCmd NodeKeyGenKESCmdArgs
+args
+  LegacyNodeKeyGenVRFCmd NodeKeyGenVRFCmdArgs
+args   -> NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenVrfCmd NodeKeyGenVRFCmdArgs
+args
+  LegacyNodeKeyHashVRFCmd NodeKeyHashVRFCmdArgs
+args  -> NodeKeyHashVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyHashVrfCmd NodeKeyHashVRFCmdArgs
+args
+  LegacyNodeNewCounterCmd NodeNewCounterCmdArgs
+args  -> NodeNewCounterCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeNewCounterCmd NodeNewCounterCmdArgs
+args
+  LegacyNodeIssueOpCertCmd NodeIssueOpCertCmdArgs
+args -> NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeIssueOpCertCmd NodeIssueOpCertCmdArgs
+args
+
+runLegacyNodeKeyGenColdCmd :: ()
+  => Cmd.NodeKeyGenColdCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenColdCmd :: NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenColdCmd = NodeKeyGenColdCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenColdCmd
+
+runLegacyNodeKeyGenKesCmd :: ()
+  => Cmd.NodeKeyGenKESCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenKesCmd :: NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenKesCmd = NodeKeyGenKESCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenKesCmd
+
+runLegacyNodeKeyGenVrfCmd :: ()
+  => Cmd.NodeKeyGenVRFCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenVrfCmd :: NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyGenVrfCmd = NodeKeyGenVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyGenVrfCmd
+
+runLegacyNodeKeyHashVrfCmd :: ()
+  => Cmd.NodeKeyHashVRFCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyHashVrfCmd :: NodeKeyHashVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeKeyHashVrfCmd = NodeKeyHashVRFCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeKeyHashVrfCmd
+
+runLegacyNodeNewCounterCmd :: ()
+  => Cmd.NodeNewCounterCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeNewCounterCmd :: NodeNewCounterCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeNewCounterCmd = NodeNewCounterCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeNewCounterCmd
+
+runLegacyNodeIssueOpCertCmd :: ()
+  => Cmd.NodeIssueOpCertCmdArgs
+  -> ExceptT NodeCmdError IO ()
+runLegacyNodeIssueOpCertCmd :: NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runLegacyNodeIssueOpCertCmd = NodeIssueOpCertCmdArgs -> ExceptT NodeCmdError IO ()
+runNodeIssueOpCertCmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Query.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Query.html new file mode 100644 index 0000000000..2722a23c5b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Query.html @@ -0,0 +1,629 @@ +
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
+
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RecordWildCards #-}
+
+module Cardano.CLI.Legacy.Run.Query
+  ( runLegacyQueryCmds
+  ) where
+
+import qualified Cardano.CLI.EraBased.Commands.Query as EraBased
+import qualified Cardano.CLI.EraBased.Run.Query as EraBased
+import qualified Cardano.CLI.Legacy.Commands.Query as Cmd
+import           Cardano.CLI.Types.Errors.QueryCmdError
+
+import           Control.Monad.Trans.Except
+
+runLegacyQueryCmds :: Cmd.LegacyQueryCmds -> ExceptT QueryCmdError IO ()
+runLegacyQueryCmds :: LegacyQueryCmds -> ExceptT QueryCmdError IO ()
+runLegacyQueryCmds = \case
+  Cmd.QueryLeadershipScheduleCmd  LegacyQueryLeadershipScheduleCmdArgs
+args -> LegacyQueryLeadershipScheduleCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryLeadershipScheduleCmd LegacyQueryLeadershipScheduleCmdArgs
+args
+  Cmd.QueryProtocolParametersCmd  LegacyQueryProtocolParametersCmdArgs
+args -> LegacyQueryProtocolParametersCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolParametersCmd LegacyQueryProtocolParametersCmdArgs
+args
+  Cmd.QueryConstitutionHashCmd    LegacyQueryConstitutionHashCmdArgs
+args -> LegacyQueryConstitutionHashCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryConstitutionHashCmd LegacyQueryConstitutionHashCmdArgs
+args
+  Cmd.QueryTipCmd                 LegacyQueryTipCmdArgs
+args -> LegacyQueryTipCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryTipCmd LegacyQueryTipCmdArgs
+args
+  Cmd.QueryStakePoolsCmd          LegacyQueryStakePoolsCmdArgs
+args -> LegacyQueryStakePoolsCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakePoolsCmd LegacyQueryStakePoolsCmdArgs
+args
+  Cmd.QueryStakeDistributionCmd   LegacyQueryStakeDistributionCmdArgs
+args -> LegacyQueryStakeDistributionCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeDistributionCmd LegacyQueryStakeDistributionCmdArgs
+args
+  Cmd.QueryStakeAddressInfoCmd    LegacyQueryStakeAddressInfoCmdArgs
+args -> LegacyQueryStakeAddressInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeAddressInfoCmd LegacyQueryStakeAddressInfoCmdArgs
+args
+  Cmd.QueryLedgerStateCmd         LegacyQueryLedgerStateCmdArgs
+args -> LegacyQueryLedgerStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryLedgerStateCmd LegacyQueryLedgerStateCmdArgs
+args
+  Cmd.QueryStakeSnapshotCmd       LegacyQueryStakeSnapshotCmdArgs
+args -> LegacyQueryStakeSnapshotCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeSnapshotCmd LegacyQueryStakeSnapshotCmdArgs
+args
+  Cmd.QueryProtocolStateCmd       LegacyQueryProtocolStateCmdArgs
+args -> LegacyQueryProtocolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolStateCmd LegacyQueryProtocolStateCmdArgs
+args
+  Cmd.QueryUTxOCmd                LegacyQueryUTxOCmdArgs
+args -> LegacyQueryUTxOCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryUTxOCmd LegacyQueryUTxOCmdArgs
+args
+  Cmd.QueryKesPeriodInfoCmd       LegacyQueryKesPeriodInfoCmdArgs
+args -> LegacyQueryKesPeriodInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryKesPeriodInfoCmd LegacyQueryKesPeriodInfoCmdArgs
+args
+  Cmd.QueryPoolStateCmd           LegacyQueryPoolStateCmdArgs
+args -> LegacyQueryPoolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryPoolStateCmd LegacyQueryPoolStateCmdArgs
+args
+  Cmd.QueryTxMempoolCmd           LegacyQueryTxMempoolCmdArgs
+args -> LegacyQueryTxMempoolCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryTxMempoolCmd LegacyQueryTxMempoolCmdArgs
+args
+  Cmd.QuerySlotNumberCmd          LegacyQuerySlotNumberCmdArgs
+args -> LegacyQuerySlotNumberCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQuerySlotNumberCmd LegacyQuerySlotNumberCmdArgs
+args
+
+runLegacyQueryConstitutionHashCmd :: ()
+  => Cmd.LegacyQueryConstitutionHashCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryConstitutionHashCmd :: LegacyQueryConstitutionHashCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryConstitutionHashCmd Cmd.LegacyQueryConstitutionHashCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryConstitutionHashCmdArgs :: LegacyQueryConstitutionHashCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryConstitutionHashCmdArgs :: LegacyQueryConstitutionHashCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgs :: LegacyQueryConstitutionHashCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgs :: LegacyQueryConstitutionHashCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryConstitutionHashCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryConstitutionHashCmd EraBased.QueryConstitutionHashCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryConstitutionHashCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryConstitutionHashCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryConstitutionHashCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryConstitutionHashCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryProtocolParametersCmd :: ()
+  => Cmd.LegacyQueryProtocolParametersCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolParametersCmd :: LegacyQueryProtocolParametersCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolParametersCmd Cmd.LegacyQueryProtocolParametersCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryProtocolParametersCmdArgs :: LegacyQueryProtocolParametersCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryProtocolParametersCmdArgs :: LegacyQueryProtocolParametersCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgs :: LegacyQueryProtocolParametersCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgs :: LegacyQueryProtocolParametersCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryProtocolParametersCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryProtocolParametersCmd EraBased.QueryProtocolParametersCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryProtocolParametersCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryProtocolParametersCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryProtocolParametersCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryProtocolParametersCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryTipCmd :: ()
+  => Cmd.LegacyQueryTipCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryTipCmd :: LegacyQueryTipCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryTipCmd Cmd.LegacyQueryTipCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryTipCmdArgs :: LegacyQueryTipCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryTipCmdArgs :: LegacyQueryTipCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryTipCmdArgs :: LegacyQueryTipCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryTipCmdArgs :: LegacyQueryTipCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryTipCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryTipCmd EraBased.QueryTipCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryTipCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryTipCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryTipCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryTipCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+-- | Query the UTxO, filtered by a given set of addresses, from a Shelley node
+-- via the local state query protocol.
+runLegacyQueryUTxOCmd :: ()
+  => Cmd.LegacyQueryUTxOCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryUTxOCmd :: LegacyQueryUTxOCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryUTxOCmd Cmd.LegacyQueryUTxOCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+QueryUTxOFilter
+$sel:mOutFile:LegacyQueryUTxOCmdArgs :: LegacyQueryUTxOCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryUTxOCmdArgs :: LegacyQueryUTxOCmdArgs -> NetworkId
+$sel:queryFilter:LegacyQueryUTxOCmdArgs :: LegacyQueryUTxOCmdArgs -> QueryUTxOFilter
+$sel:consensusModeParams:LegacyQueryUTxOCmdArgs :: LegacyQueryUTxOCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryUTxOCmdArgs :: LegacyQueryUTxOCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+queryFilter :: QueryUTxOFilter
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryUTxOCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryUTxOCmd EraBased.QueryUTxOCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+QueryUTxOFilter
+$sel:mOutFile:QueryUTxOCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryUTxOCmdArgs :: NetworkId
+$sel:queryFilter:QueryUTxOCmdArgs :: QueryUTxOFilter
+$sel:consensusModeParams:QueryUTxOCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryUTxOCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+queryFilter :: QueryUTxOFilter
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryKesPeriodInfoCmd :: ()
+  => Cmd.LegacyQueryKesPeriodInfoCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryKesPeriodInfoCmd :: LegacyQueryKesPeriodInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryKesPeriodInfoCmd Cmd.LegacyQueryKesPeriodInfoCmdArgs {Maybe (File () 'Out)
+File () 'In
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgs :: LegacyQueryKesPeriodInfoCmdArgs -> Maybe (File () 'Out)
+$sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgs :: LegacyQueryKesPeriodInfoCmdArgs -> File () 'In
+$sel:networkId:LegacyQueryKesPeriodInfoCmdArgs :: LegacyQueryKesPeriodInfoCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgs :: LegacyQueryKesPeriodInfoCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgs :: LegacyQueryKesPeriodInfoCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+nodeOpCertFp :: File () 'In
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryKesPeriodInfoCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryKesPeriodInfoCmd EraBased.QueryKesPeriodInfoCmdArgs {Maybe (File () 'Out)
+File () 'In
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryKesPeriodInfoCmdArgs :: Maybe (File () 'Out)
+$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgs :: File () 'In
+$sel:networkId:QueryKesPeriodInfoCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryKesPeriodInfoCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+nodeOpCertFp :: File () 'In
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+-- | Query the current and future parameters for a stake pool, including the retirement date.
+-- Any of these may be empty (in which case a null will be displayed).
+--
+runLegacyQueryPoolStateCmd :: ()
+  => Cmd.LegacyQueryPoolStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryPoolStateCmd :: LegacyQueryPoolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryPoolStateCmd Cmd.LegacyQueryPoolStateCmdArgs {[Hash StakePoolKey]
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:poolIds:LegacyQueryPoolStateCmdArgs :: LegacyQueryPoolStateCmdArgs -> [Hash StakePoolKey]
+$sel:networkId:LegacyQueryPoolStateCmdArgs :: LegacyQueryPoolStateCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryPoolStateCmdArgs :: LegacyQueryPoolStateCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryPoolStateCmdArgs :: LegacyQueryPoolStateCmdArgs -> SocketPath
+poolIds :: [Hash StakePoolKey]
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryPoolStateCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryPoolStateCmd EraBased.QueryPoolStateCmdArgs {[Hash StakePoolKey]
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:poolIds:QueryPoolStateCmdArgs :: [Hash StakePoolKey]
+$sel:networkId:QueryPoolStateCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryPoolStateCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryPoolStateCmdArgs :: SocketPath
+poolIds :: [Hash StakePoolKey]
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+-- | Query the local mempool state
+runLegacyQueryTxMempoolCmd :: ()
+  => Cmd.LegacyQueryTxMempoolCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryTxMempoolCmd :: LegacyQueryTxMempoolCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryTxMempoolCmd Cmd.LegacyQueryTxMempoolCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+TxMempoolQuery
+$sel:mOutFile:LegacyQueryTxMempoolCmdArgs :: LegacyQueryTxMempoolCmdArgs -> Maybe (File () 'Out)
+$sel:query:LegacyQueryTxMempoolCmdArgs :: LegacyQueryTxMempoolCmdArgs -> TxMempoolQuery
+$sel:networkId:LegacyQueryTxMempoolCmdArgs :: LegacyQueryTxMempoolCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryTxMempoolCmdArgs :: LegacyQueryTxMempoolCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgs :: LegacyQueryTxMempoolCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+query :: TxMempoolQuery
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryTxMempoolCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryTxMempoolCmd EraBased.QueryTxMempoolCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+TxMempoolQuery
+$sel:mOutFile:QueryTxMempoolCmdArgs :: Maybe (File () 'Out)
+$sel:query:QueryTxMempoolCmdArgs :: TxMempoolQuery
+$sel:networkId:QueryTxMempoolCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryTxMempoolCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryTxMempoolCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+query :: TxMempoolQuery
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQuerySlotNumberCmd :: ()
+  => Cmd.LegacyQuerySlotNumberCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQuerySlotNumberCmd :: LegacyQuerySlotNumberCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQuerySlotNumberCmd Cmd.LegacyQuerySlotNumberCmdArgs {UTCTime
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:utcTime:LegacyQuerySlotNumberCmdArgs :: LegacyQuerySlotNumberCmdArgs -> UTCTime
+$sel:networkId:LegacyQuerySlotNumberCmdArgs :: LegacyQuerySlotNumberCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQuerySlotNumberCmdArgs :: LegacyQuerySlotNumberCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgs :: LegacyQuerySlotNumberCmdArgs -> SocketPath
+utcTime :: UTCTime
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QuerySlotNumberCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQuerySlotNumberCmd EraBased.QuerySlotNumberCmdArgs {UTCTime
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:utcTime:QuerySlotNumberCmdArgs :: UTCTime
+$sel:networkId:QuerySlotNumberCmdArgs :: NetworkId
+$sel:consensusModeParams:QuerySlotNumberCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QuerySlotNumberCmdArgs :: SocketPath
+utcTime :: UTCTime
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+-- | Obtain stake snapshot information for a pool, plus information about the total active stake.
+-- This information can be used for leader slot calculation, for example, and has been requested by SPOs.
+-- Obtaining the information directly is significantly more time and memory efficient than using a full ledger state dump.
+runLegacyQueryStakeSnapshotCmd :: ()
+  => Cmd.LegacyQueryStakeSnapshotCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeSnapshotCmd :: LegacyQueryStakeSnapshotCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeSnapshotCmd Cmd.LegacyQueryStakeSnapshotCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+AllOrOnly [Hash StakePoolKey]
+$sel:mOutFile:LegacyQueryStakeSnapshotCmdArgs :: LegacyQueryStakeSnapshotCmdArgs -> Maybe (File () 'Out)
+$sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgs :: LegacyQueryStakeSnapshotCmdArgs -> AllOrOnly [Hash StakePoolKey]
+$sel:networkId:LegacyQueryStakeSnapshotCmdArgs :: LegacyQueryStakeSnapshotCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgs :: LegacyQueryStakeSnapshotCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgs :: LegacyQueryStakeSnapshotCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+allOrOnlyPoolIds :: AllOrOnly [Hash StakePoolKey]
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryStakeSnapshotCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryStakeSnapshotCmd EraBased.QueryStakeSnapshotCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+AllOrOnly [Hash StakePoolKey]
+$sel:mOutFile:QueryStakeSnapshotCmdArgs :: Maybe (File () 'Out)
+$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgs :: AllOrOnly [Hash StakePoolKey]
+$sel:networkId:QueryStakeSnapshotCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryStakeSnapshotCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryStakeSnapshotCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+allOrOnlyPoolIds :: AllOrOnly [Hash StakePoolKey]
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryLedgerStateCmd :: ()
+  => Cmd.LegacyQueryLedgerStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryLedgerStateCmd :: LegacyQueryLedgerStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryLedgerStateCmd Cmd.LegacyQueryLedgerStateCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryLedgerStateCmdArgs :: LegacyQueryLedgerStateCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryLedgerStateCmdArgs :: LegacyQueryLedgerStateCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryLedgerStateCmdArgs :: LegacyQueryLedgerStateCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgs :: LegacyQueryLedgerStateCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryLedgerStateCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryLedgerStateCmd EraBased.QueryLedgerStateCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryLedgerStateCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryLedgerStateCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryLedgerStateCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryLedgerStateCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryProtocolStateCmd :: ()
+  => Cmd.LegacyQueryProtocolStateCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolStateCmd :: LegacyQueryProtocolStateCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryProtocolStateCmd Cmd.LegacyQueryProtocolStateCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryProtocolStateCmdArgs :: LegacyQueryProtocolStateCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryProtocolStateCmdArgs :: LegacyQueryProtocolStateCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryProtocolStateCmdArgs :: LegacyQueryProtocolStateCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgs :: LegacyQueryProtocolStateCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryProtocolStateCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryProtocolStateCmd EraBased.QueryProtocolStateCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryProtocolStateCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryProtocolStateCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryProtocolStateCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryProtocolStateCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+-- | Query the current delegations and reward accounts, filtered by a given
+-- set of addresses, from a Shelley node via the local state query protocol.
+
+runLegacyQueryStakeAddressInfoCmd :: ()
+  => Cmd.LegacyQueryStakeAddressInfoCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeAddressInfoCmd :: LegacyQueryStakeAddressInfoCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeAddressInfoCmd Cmd.LegacyQueryStakeAddressInfoCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+StakeAddress
+$sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgs :: LegacyQueryStakeAddressInfoCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryStakeAddressInfoCmdArgs :: LegacyQueryStakeAddressInfoCmdArgs -> NetworkId
+$sel:addr:LegacyQueryStakeAddressInfoCmdArgs :: LegacyQueryStakeAddressInfoCmdArgs -> StakeAddress
+$sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgs :: LegacyQueryStakeAddressInfoCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgs :: LegacyQueryStakeAddressInfoCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+addr :: StakeAddress
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryStakeAddressInfoCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryStakeAddressInfoCmd EraBased.QueryStakeAddressInfoCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+StakeAddress
+$sel:mOutFile:QueryStakeAddressInfoCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryStakeAddressInfoCmdArgs :: NetworkId
+$sel:addr:QueryStakeAddressInfoCmdArgs :: StakeAddress
+$sel:consensusModeParams:QueryStakeAddressInfoCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+addr :: StakeAddress
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryStakePoolsCmd :: ()
+  => Cmd.LegacyQueryStakePoolsCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakePoolsCmd :: LegacyQueryStakePoolsCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakePoolsCmd Cmd.LegacyQueryStakePoolsCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryStakePoolsCmdArgs :: LegacyQueryStakePoolsCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryStakePoolsCmdArgs :: LegacyQueryStakePoolsCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryStakePoolsCmdArgs :: LegacyQueryStakePoolsCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgs :: LegacyQueryStakePoolsCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryStakePoolsCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryStakePoolsCmd EraBased.QueryStakePoolsCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryStakePoolsCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryStakePoolsCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryStakePoolsCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryStakePoolsCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryStakeDistributionCmd :: ()
+  => Cmd.LegacyQueryStakeDistributionCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeDistributionCmd :: LegacyQueryStakeDistributionCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryStakeDistributionCmd Cmd.LegacyQueryStakeDistributionCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:LegacyQueryStakeDistributionCmdArgs :: LegacyQueryStakeDistributionCmdArgs -> Maybe (File () 'Out)
+$sel:networkId:LegacyQueryStakeDistributionCmdArgs :: LegacyQueryStakeDistributionCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgs :: LegacyQueryStakeDistributionCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgs :: LegacyQueryStakeDistributionCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryStakeDistributionCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryStakeDistributionCmd EraBased.QueryStakeDistributionCmdArgs {Maybe (File () 'Out)
+SocketPath
+ConsensusModeParams
+NetworkId
+$sel:mOutFile:QueryStakeDistributionCmdArgs :: Maybe (File () 'Out)
+$sel:networkId:QueryStakeDistributionCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryStakeDistributionCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryStakeDistributionCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
+runLegacyQueryLeadershipScheduleCmd :: ()
+  => Cmd.LegacyQueryLeadershipScheduleCmdArgs
+  -> ExceptT QueryCmdError IO ()
+runLegacyQueryLeadershipScheduleCmd :: LegacyQueryLeadershipScheduleCmdArgs -> ExceptT QueryCmdError IO ()
+runLegacyQueryLeadershipScheduleCmd Cmd.LegacyQueryLeadershipScheduleCmdArgs {Maybe (File () 'Out)
+SigningKeyFile 'In
+SocketPath
+ConsensusModeParams
+NetworkId
+EpochLeadershipSchedule
+GenesisFile
+VerificationKeyOrHashOrFile StakePoolKey
+$sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> Maybe (File () 'Out)
+$sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> EpochLeadershipSchedule
+$sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> SigningKeyFile 'In
+$sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs
+-> VerificationKeyOrHashOrFile StakePoolKey
+$sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> GenesisFile
+$sel:networkId:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> NetworkId
+$sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> ConsensusModeParams
+$sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgs :: LegacyQueryLeadershipScheduleCmdArgs -> SocketPath
+mOutFile :: Maybe (File () 'Out)
+whichSchedule :: EpochLeadershipSchedule
+vrkSkeyFp :: SigningKeyFile 'In
+poolColdVerKeyFile :: VerificationKeyOrHashOrFile StakePoolKey
+genesisFp :: GenesisFile
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..} =
+  QueryLeadershipScheduleCmdArgs -> ExceptT QueryCmdError IO ()
+EraBased.runQueryLeadershipScheduleCmd EraBased.QueryLeadershipScheduleCmdArgs {Maybe (File () 'Out)
+SigningKeyFile 'In
+SocketPath
+ConsensusModeParams
+NetworkId
+EpochLeadershipSchedule
+GenesisFile
+VerificationKeyOrHashOrFile StakePoolKey
+$sel:mOutFile:QueryLeadershipScheduleCmdArgs :: Maybe (File () 'Out)
+$sel:whichSchedule:QueryLeadershipScheduleCmdArgs :: EpochLeadershipSchedule
+$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgs :: SigningKeyFile 'In
+$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgs :: VerificationKeyOrHashOrFile StakePoolKey
+$sel:genesisFp:QueryLeadershipScheduleCmdArgs :: GenesisFile
+$sel:networkId:QueryLeadershipScheduleCmdArgs :: NetworkId
+$sel:consensusModeParams:QueryLeadershipScheduleCmdArgs :: ConsensusModeParams
+$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgs :: SocketPath
+mOutFile :: Maybe (File () 'Out)
+whichSchedule :: EpochLeadershipSchedule
+vrkSkeyFp :: SigningKeyFile 'In
+poolColdVerKeyFile :: VerificationKeyOrHashOrFile StakePoolKey
+genesisFp :: GenesisFile
+networkId :: NetworkId
+consensusModeParams :: ConsensusModeParams
+nodeSocketPath :: SocketPath
+..}
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakeAddress.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakeAddress.html new file mode 100644 index 0000000000..6b0bb9a755 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakeAddress.html @@ -0,0 +1,213 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run.StakeAddress
+  ( runLegacyStakeAddressCmds
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.EraBased.Run.StakeAddress
+import           Cardano.CLI.Legacy.Commands.StakeAddress
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.StakeAddressCmdError
+import           Cardano.CLI.Types.Key
+
+import           Control.Monad.Trans.Except (ExceptT)
+
+runLegacyStakeAddressCmds :: ()
+  => LegacyStakeAddressCmds
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressCmds :: LegacyStakeAddressCmds -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressCmds = \case
+  StakeAddressKeyGenCmd KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk ->
+    KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyGenCmd KeyOutputFormat
+fmt VerificationKeyFile 'Out
+vk SigningKeyFile 'Out
+sk
+  StakeAddressKeyHashCmd VerificationKeyOrFile StakeKey
+vk Maybe (File () 'Out)
+mOutputFp ->
+    VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyHashCmd VerificationKeyOrFile StakeKey
+vk Maybe (File () 'Out)
+mOutputFp
+  StakeAddressBuildCmd StakeVerifier
+stakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutputFp ->
+    StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressBuildCmd StakeVerifier
+stakeVerifier NetworkId
+nw Maybe (File () 'Out)
+mOutputFp
+  StakeAddressRegistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp ->
+    EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressRegistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp
+  StakeAddressDelegationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stkPoolVerKeyHashOrFp File () 'Out
+outputFp ->
+    EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddresslDelegationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier VerificationKeyOrHashOrFile StakePoolKey
+stkPoolVerKeyHashOrFp File () 'Out
+outputFp
+  StakeAddressDeregistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp ->
+    EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressDeregistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra StakeIdentifier
+stakeIdentifier Maybe Lovelace
+mDeposit File () 'Out
+outputFp
+
+runLegacyStakeAddressKeyGenCmd :: ()
+  => KeyOutputFormat
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyGenCmd :: KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyGenCmd =
+  KeyOutputFormat
+-> VerificationKeyFile 'Out
+-> SigningKeyFile 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyGenCmd
+
+runLegacyStakeAddressKeyHashCmd :: ()
+  => VerificationKeyOrFile StakeKey
+  -> Maybe (File () Out)
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyHashCmd :: VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressKeyHashCmd =
+  VerificationKeyOrFile StakeKey
+-> Maybe (File () 'Out) -> ExceptT StakeAddressCmdError IO ()
+runStakeAddressKeyHashCmd
+
+runLegacyStakeAddressBuildCmd :: ()
+  => StakeVerifier
+  -> NetworkId
+  -> Maybe (File () Out)
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressBuildCmd :: StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressBuildCmd =
+  StakeVerifier
+-> NetworkId
+-> Maybe (File () 'Out)
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressBuildCmd
+
+runLegacyStakeAddressRegistrationCertificateCmd :: ()
+  => EraInEon ShelleyBasedEra
+  -> StakeIdentifier
+  -> Maybe Lovelace -- ^ Deposit required in conway era
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressRegistrationCertificateCmd :: EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressRegistrationCertificateCmd (EraInEon ShelleyBasedEra era
+sbe) =
+  forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressRegistrationCertificateCmd ShelleyBasedEra era
+sbe
+
+runLegacyStakeAddresslDelegationCertificateCmd :: ()
+  => EraInEon ShelleyBasedEra
+  -> StakeIdentifier
+  -- ^ Delegator stake verification key, verification key file or script file.
+  -> VerificationKeyOrHashOrFile StakePoolKey
+  -- ^ Delegatee stake pool verification key or verification key file or
+  -- verification key hash.
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddresslDelegationCertificateCmd :: EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddresslDelegationCertificateCmd (EraInEon ShelleyBasedEra era
+sbe) =
+  forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> VerificationKeyOrHashOrFile StakePoolKey
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressStakeDelegationCertificateCmd ShelleyBasedEra era
+sbe
+
+runLegacyStakeAddressDeregistrationCertificateCmd :: ()
+  => EraInEon ShelleyBasedEra
+  -> StakeIdentifier
+  -> Maybe Lovelace -- ^ Deposit required in conway era
+  -> File () Out
+  -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressDeregistrationCertificateCmd :: EraInEon ShelleyBasedEra
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressDeregistrationCertificateCmd (EraInEon ShelleyBasedEra era
+sbe) =
+  forall era.
+ShelleyBasedEra era
+-> StakeIdentifier
+-> Maybe Lovelace
+-> File () 'Out
+-> ExceptT StakeAddressCmdError IO ()
+runStakeAddressDeregistrationCertificateCmd ShelleyBasedEra era
+sbe
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakePool.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakePool.html new file mode 100644 index 0000000000..ad928f2ce2 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.StakePool.html @@ -0,0 +1,305 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run.StakePool
+  ( runLegacyStakePoolCmds
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import qualified Cardano.CLI.EraBased.Commands.StakePool as Cmd
+import           Cardano.CLI.EraBased.Run.StakePool
+import           Cardano.CLI.Legacy.Commands.StakePool
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.StakePoolCmdError
+import           Cardano.CLI.Types.Key (VerificationKeyOrFile)
+import qualified Cardano.Ledger.Slot as Shelley
+
+import           Control.Monad.Trans.Except (ExceptT)
+
+runLegacyStakePoolCmds :: ()
+  => LegacyStakePoolCmds
+  -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolCmds :: LegacyStakePoolCmds -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolCmds = \case
+  StakePoolDeregistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra VerificationKeyOrFile StakePoolKey
+sPvkeyFp EpochNo
+retireEpoch File () 'Out
+outFile ->
+    EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> EpochNo
+-> File () 'Out
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolDeregistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra VerificationKeyOrFile StakePoolKey
+sPvkeyFp EpochNo
+retireEpoch File () 'Out
+outFile
+  StakePoolIdCmd VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile IdOutputFormat
+outputFormat Maybe (File () 'Out)
+mOutFile ->
+    VerificationKeyOrFile StakePoolKey
+-> IdOutputFormat
+-> Maybe (File () 'Out)
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolIdCmd VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile IdOutputFormat
+outputFormat Maybe (File () 'Out)
+mOutFile
+  StakePoolMetadataHashCmd StakePoolMetadataFile 'In
+poolMdFile Maybe (File () 'Out)
+mOutFile ->
+    StakePoolMetadataFile 'In
+-> Maybe (File () 'Out) -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolMetadataHashCmd StakePoolMetadataFile 'In
+poolMdFile Maybe (File () 'Out)
+mOutFile
+  StakePoolRegistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile VerificationKeyOrFile VrfKey
+vrfVkey Lovelace
+poolPledge Lovelace
+pCost Rational
+pMrgn VerificationKeyOrFile StakeKey
+rwdVerFp [VerificationKeyOrFile StakeKey]
+ownerVerFps [StakePoolRelay]
+relays Maybe StakePoolMetadataReference
+mbMetadata NetworkId
+network File () 'Out
+outFile ->
+    EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> File () 'Out
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolRegistrationCertificateCmd EraInEon ShelleyBasedEra
+anyEra VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile VerificationKeyOrFile VrfKey
+vrfVkey Lovelace
+poolPledge Lovelace
+pCost Rational
+pMrgn VerificationKeyOrFile StakeKey
+rwdVerFp [VerificationKeyOrFile StakeKey]
+ownerVerFps [StakePoolRelay]
+relays Maybe StakePoolMetadataReference
+mbMetadata NetworkId
+network File () 'Out
+outFile
+
+-- | Create a stake pool registration cert.
+-- TODO: Metadata and more stake pool relay support to be
+-- added in the future.
+runLegacyStakePoolRegistrationCertificateCmd :: ()
+  => EraInEon ShelleyBasedEra
+  -> VerificationKeyOrFile StakePoolKey
+  -- ^ Stake pool verification key.
+  -> VerificationKeyOrFile VrfKey
+  -- ^ VRF Verification key.
+  -> Lovelace
+  -- ^ Pool pledge.
+  -> Lovelace
+  -- ^ Pool cost.
+  -> Rational
+  -- ^ Pool margin.
+  -> VerificationKeyOrFile StakeKey
+  -- ^ Stake verification key for reward account.
+  -> [VerificationKeyOrFile StakeKey]
+  -- ^ Pool owner stake verification key(s).
+  -> [StakePoolRelay]
+  -- ^ Stake pool relays.
+  -> Maybe StakePoolMetadataReference
+  -- ^ Stake pool metadata.
+  -> NetworkId
+  -> File () Out
+  -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolRegistrationCertificateCmd :: EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> File () 'Out
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolRegistrationCertificateCmd
+    EraInEon ShelleyBasedEra
+inSbe
+    VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+    VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile
+    Lovelace
+poolPledge
+    Lovelace
+poolCost
+    Rational
+poolMargin
+    VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile
+    [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles
+    [StakePoolRelay]
+relays
+    Maybe StakePoolMetadataReference
+mbMetadata
+    NetworkId
+network
+    File () 'Out
+outFile =
+  case EraInEon ShelleyBasedEra
+inSbe of
+    EraInEon ShelleyBasedEra era
+sbe ->
+      forall era.
+StakePoolRegistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolRegistrationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+        forall era.
+ShelleyBasedEra era
+-> VerificationKeyOrFile StakePoolKey
+-> VerificationKeyOrFile VrfKey
+-> Lovelace
+-> Lovelace
+-> Rational
+-> VerificationKeyOrFile StakeKey
+-> [VerificationKeyOrFile StakeKey]
+-> [StakePoolRelay]
+-> Maybe StakePoolMetadataReference
+-> NetworkId
+-> File () 'Out
+-> StakePoolRegistrationCertificateCmdArgs era
+Cmd.StakePoolRegistrationCertificateCmdArgs
+          ShelleyBasedEra era
+sbe
+          VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+          VerificationKeyOrFile VrfKey
+vrfVerificationKeyOrFile
+          Lovelace
+poolPledge
+          Lovelace
+poolCost
+          Rational
+poolMargin
+          VerificationKeyOrFile StakeKey
+rewardStakeVerificationKeyOrFile
+          [VerificationKeyOrFile StakeKey]
+ownerStakeVerificationKeyOrFiles
+          [StakePoolRelay]
+relays
+          Maybe StakePoolMetadataReference
+mbMetadata
+          NetworkId
+network
+          File () 'Out
+outFile
+
+runLegacyStakePoolDeregistrationCertificateCmd :: ()
+  => EraInEon ShelleyBasedEra
+  -> VerificationKeyOrFile StakePoolKey
+  -> Shelley.EpochNo
+  -> File () Out
+  -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolDeregistrationCertificateCmd :: EraInEon ShelleyBasedEra
+-> VerificationKeyOrFile StakePoolKey
+-> EpochNo
+-> File () 'Out
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolDeregistrationCertificateCmd EraInEon ShelleyBasedEra
+inSbe VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile EpochNo
+retireEpoch File () 'Out
+outFile =
+  case EraInEon ShelleyBasedEra
+inSbe of
+    EraInEon ShelleyBasedEra era
+sbe ->
+      forall era.
+StakePoolDeregistrationCertificateCmdArgs era
+-> ExceptT StakePoolCmdError IO ()
+runStakePoolDeregistrationCertificateCmd forall a b. (a -> b) -> a -> b
+$
+        forall era.
+ShelleyBasedEra era
+-> VerificationKeyOrFile StakePoolKey
+-> EpochNo
+-> File () 'Out
+-> StakePoolDeregistrationCertificateCmdArgs era
+Cmd.StakePoolDeregistrationCertificateCmdArgs
+          ShelleyBasedEra era
+sbe
+          VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+          EpochNo
+retireEpoch
+          File () 'Out
+outFile
+
+runLegacyStakePoolIdCmd :: ()
+  => VerificationKeyOrFile StakePoolKey
+  -> IdOutputFormat
+  -> Maybe (File () Out)
+  -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolIdCmd :: VerificationKeyOrFile StakePoolKey
+-> IdOutputFormat
+-> Maybe (File () 'Out)
+-> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolIdCmd VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile IdOutputFormat
+outputFormat Maybe (File () 'Out)
+mOutFile =
+  forall era.
+StakePoolIdCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolIdCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+VerificationKeyOrFile StakePoolKey
+-> IdOutputFormat -> Maybe (File () 'Out) -> StakePoolIdCmdArgs era
+Cmd.StakePoolIdCmdArgs
+      VerificationKeyOrFile StakePoolKey
+poolVerificationKeyOrFile
+      IdOutputFormat
+outputFormat
+      Maybe (File () 'Out)
+mOutFile
+
+runLegacyStakePoolMetadataHashCmd :: ()
+  => StakePoolMetadataFile In
+  -> Maybe (File () Out)
+  -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolMetadataHashCmd :: StakePoolMetadataFile 'In
+-> Maybe (File () 'Out) -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolMetadataHashCmd StakePoolMetadataFile 'In
+poolMetadataFile Maybe (File () 'Out)
+mOutFile =
+  forall era.
+StakePoolMetadataHashCmdArgs era -> ExceptT StakePoolCmdError IO ()
+runStakePoolMetadataHashCmd forall a b. (a -> b) -> a -> b
+$
+    forall era.
+StakePoolMetadataFile 'In
+-> Maybe (File () 'Out) -> StakePoolMetadataHashCmdArgs era
+Cmd.StakePoolMetadataHashCmdArgs
+      StakePoolMetadataFile 'In
+poolMetadataFile
+      Maybe (File () 'Out)
+mOutFile
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.TextView.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.TextView.html new file mode 100644 index 0000000000..076193ff0b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.TextView.html @@ -0,0 +1,33 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run.TextView
+  ( runLegacyTextViewCmds
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.EraBased.Run.TextView
+import           Cardano.CLI.Legacy.Commands.TextView
+import           Cardano.CLI.Types.Errors.TextViewFileError
+
+import           Control.Monad.Trans.Except (ExceptT)
+
+runLegacyTextViewCmds :: LegacyTextViewCmds -> ExceptT TextViewFileError IO ()
+runLegacyTextViewCmds :: LegacyTextViewCmds -> ExceptT TextViewFileError IO ()
+runLegacyTextViewCmds = \case
+  TextViewInfo FilePath
+fpath Maybe (File () 'Out)
+mOutfile -> FilePath -> Maybe (File () 'Out) -> ExceptT TextViewFileError IO ()
+runLegacyTextViewInfoCmd FilePath
+fpath Maybe (File () 'Out)
+mOutfile
+
+runLegacyTextViewInfoCmd :: ()
+  => FilePath
+  -> Maybe (File () Out)
+  -> ExceptT TextViewFileError IO ()
+runLegacyTextViewInfoCmd :: FilePath -> Maybe (File () 'Out) -> ExceptT TextViewFileError IO ()
+runLegacyTextViewInfoCmd = FilePath -> Maybe (File () 'Out) -> ExceptT TextViewFileError IO ()
+runTextViewInfoCmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Transaction.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Transaction.html new file mode 100644 index 0000000000..284214abb3 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.Transaction.html @@ -0,0 +1,976 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Legacy.Run.Transaction
+  ( runLegacyTransactionCmds
+  ) where
+
+import           Cardano.Api
+
+import qualified Cardano.CLI.EraBased.Commands.Transaction as Cmd
+import           Cardano.CLI.EraBased.Run.Transaction
+import           Cardano.CLI.Legacy.Commands.Transaction
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.TxCmdError
+import           Cardano.CLI.Types.Errors.TxValidationError
+import           Cardano.CLI.Types.Governance
+
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import           Data.Function
+
+runLegacyTransactionCmds :: LegacyTransactionCmds -> ExceptT TxCmdError IO ()
+runLegacyTransactionCmds :: LegacyTransactionCmds -> ExceptT TxCmdError IO ()
+runLegacyTransactionCmds = \case
+  TransactionBuildCmd SocketPath
+mNodeSocketPath EraInEon ShelleyBasedEra
+era ConsensusModeParams
+consensusModeParams NetworkId
+nid Maybe ScriptValidity
+mScriptValidity Maybe Word
+mOverrideWits [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns
+            [RequiredSigner]
+reqSigners [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl Maybe Lovelace
+mTotCollateral [TxOutAnyEra]
+txouts TxOutChangeAddress
+changeAddr Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound
+            Maybe SlotNo
+mUpperBound [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe UpdateProposalFile
+mUpProp [VoteFile 'In]
+mconwayVote
+            [ProposalFile 'In]
+mNewConstitution TxBuildOutputOptions
+outputOptions -> do
+      SocketPath
+-> EraInEon ShelleyBasedEra
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe ScriptValidity
+-> Maybe Word
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [RequiredSigner]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [TxOutAnyEra]
+-> TxOutChangeAddress
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe UpdateProposalFile
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBuildOutputOptions
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildCmd SocketPath
+mNodeSocketPath EraInEon ShelleyBasedEra
+era ConsensusModeParams
+consensusModeParams NetworkId
+nid Maybe ScriptValidity
+mScriptValidity Maybe Word
+mOverrideWits [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns
+            [RequiredSigner]
+reqSigners [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl Maybe Lovelace
+mTotCollateral [TxOutAnyEra]
+txouts TxOutChangeAddress
+changeAddr Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound
+            Maybe SlotNo
+mUpperBound [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe UpdateProposalFile
+mUpProp [VoteFile 'In]
+mconwayVote
+            [ProposalFile 'In]
+mNewConstitution TxBuildOutputOptions
+outputOptions
+  TransactionBuildRawCmd AnyCardanoEra
+era Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl
+               Maybe Lovelace
+mTotColl [RequiredSigner]
+reqSigners [TxOutAnyEra]
+txouts Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound Maybe SlotNo
+mUpperBound Maybe Lovelace
+fee [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls
+               TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe ProtocolParamsFile
+mProtocolParamsFile Maybe UpdateProposalFile
+mUpProp TxBodyFile 'Out
+out -> do
+      AnyCardanoEra
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [RequiredSigner]
+-> [TxOutAnyEra]
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> Maybe Lovelace
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe ProtocolParamsFile
+-> Maybe UpdateProposalFile
+-> TxBodyFile 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildRawCmd AnyCardanoEra
+era Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl
+               Maybe Lovelace
+mTotColl [RequiredSigner]
+reqSigners [TxOutAnyEra]
+txouts Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound Maybe SlotNo
+mUpperBound Maybe Lovelace
+fee [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls
+               TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe ProtocolParamsFile
+mProtocolParamsFile Maybe UpdateProposalFile
+mUpProp TxBodyFile 'Out
+out
+  TransactionSignCmd InputTxBodyOrTxFile
+txinfile [WitnessSigningData]
+skfiles Maybe NetworkId
+network TxFile 'Out
+txoutfile ->
+      InputTxBodyOrTxFile
+-> [WitnessSigningData]
+-> Maybe NetworkId
+-> TxFile 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionSignCmd InputTxBodyOrTxFile
+txinfile [WitnessSigningData]
+skfiles Maybe NetworkId
+network TxFile 'Out
+txoutfile
+  TransactionSubmitCmd SocketPath
+mNodeSocketPath ConsensusModeParams
+consensusModeParams NetworkId
+network FilePath
+txFp ->
+      SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> FilePath
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionSubmitCmd SocketPath
+mNodeSocketPath ConsensusModeParams
+consensusModeParams NetworkId
+network FilePath
+txFp
+  TransactionCalculateMinFeeCmd TxBodyFile 'In
+txbody NetworkId
+nw ProtocolParamsFile
+pParamsFile TxInCount
+nInputs TxOutCount
+nOutputs TxShelleyWitnessCount
+nShelleyKeyWitnesses TxByronWitnessCount
+nByronKeyWitnesses ->
+      TxBodyFile 'In
+-> NetworkId
+-> ProtocolParamsFile
+-> TxInCount
+-> TxOutCount
+-> TxShelleyWitnessCount
+-> TxByronWitnessCount
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinFeeCmd TxBodyFile 'In
+txbody NetworkId
+nw ProtocolParamsFile
+pParamsFile TxInCount
+nInputs TxOutCount
+nOutputs TxShelleyWitnessCount
+nShelleyKeyWitnesses TxByronWitnessCount
+nByronKeyWitnesses
+  TransactionCalculateMinValueCmd AnyCardanoEra
+era ProtocolParamsFile
+pParamsFile TxOutAnyEra
+txOuts' ->
+      AnyCardanoEra
+-> ProtocolParamsFile -> TxOutAnyEra -> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinValueCmd AnyCardanoEra
+era ProtocolParamsFile
+pParamsFile TxOutAnyEra
+txOuts'
+  TransactionHashScriptDataCmd ScriptDataOrFile
+scriptDataOrFile ->
+      ScriptDataOrFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionHashScriptDataCmd ScriptDataOrFile
+scriptDataOrFile
+  TransactionTxIdCmd InputTxBodyOrTxFile
+txinfile ->
+      InputTxBodyOrTxFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionTxIdCmd InputTxBodyOrTxFile
+txinfile
+  TransactionViewCmd TxViewOutputFormat
+yamlOrJson Maybe (File () 'Out)
+mOutFile InputTxBodyOrTxFile
+txinfile ->
+      TxViewOutputFormat
+-> Maybe (File () 'Out)
+-> InputTxBodyOrTxFile
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionViewCmd TxViewOutputFormat
+yamlOrJson Maybe (File () 'Out)
+mOutFile InputTxBodyOrTxFile
+txinfile
+  TransactionPolicyIdCmd ScriptFile
+sFile ->
+      ScriptFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionPolicyIdCmd ScriptFile
+sFile
+  TransactionWitnessCmd TxBodyFile 'In
+txBodyfile WitnessSigningData
+witSignData Maybe NetworkId
+mbNw File () 'Out
+outFile ->
+      TxBodyFile 'In
+-> WitnessSigningData
+-> Maybe NetworkId
+-> File () 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionWitnessCmd TxBodyFile 'In
+txBodyfile WitnessSigningData
+witSignData Maybe NetworkId
+mbNw File () 'Out
+outFile
+  TransactionSignWitnessCmd TxBodyFile 'In
+txBodyFile [WitnessFile]
+witnessFile File () 'Out
+outFile ->
+      TxBodyFile 'In
+-> [WitnessFile] -> File () 'Out -> ExceptT TxCmdError IO ()
+runLegacyTransactionSignWitnessCmd TxBodyFile 'In
+txBodyFile [WitnessFile]
+witnessFile File () 'Out
+outFile
+
+-- ----------------------------------------------------------------------------
+-- Building transactions
+--
+
+runLegacyTransactionBuildCmd :: ()
+  => SocketPath
+  -> EraInEon ShelleyBasedEra
+  -> ConsensusModeParams
+  -> NetworkId
+  -> Maybe ScriptValidity
+  -> 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]
+  -> TxOutChangeAddress
+  -> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+  -> Maybe SlotNo -- ^ Validity lower bound
+  -> Maybe SlotNo -- ^ Validity upper bound
+  -> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+  -> [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))] -- ^ Withdrawals with potential script witness
+  -> TxMetadataJsonSchema
+  -> [ScriptFile]
+  -> [MetadataFile]
+  -> Maybe UpdateProposalFile
+  -> [VoteFile In]
+  -> [ProposalFile In]
+  -> TxBuildOutputOptions
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildCmd :: SocketPath
+-> EraInEon ShelleyBasedEra
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe ScriptValidity
+-> Maybe Word
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [RequiredSigner]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [TxOutAnyEra]
+-> TxOutChangeAddress
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe UpdateProposalFile
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBuildOutputOptions
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildCmd
+    SocketPath
+socketPath (EraInEon ShelleyBasedEra era
+sbe)
+    ConsensusModeParams
+consensusModeParams NetworkId
+nid Maybe ScriptValidity
+mScriptValidity Maybe Word
+mOverrideWits [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns
+    [RequiredSigner]
+reqSigners [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl Maybe Lovelace
+mTotCollateral [TxOutAnyEra]
+txouts TxOutChangeAddress
+changeAddr Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound
+    Maybe SlotNo
+mUpperBound [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe UpdateProposalFile
+mUpdateProposal [VoteFile 'In]
+voteFiles
+    [ProposalFile 'In]
+proposalFiles TxBuildOutputOptions
+outputOptions = do
+
+  Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile <-
+    forall era.
+CardanoEra era
+-> Maybe UpdateProposalFile
+-> Either
+     TxUpdateProposalValidationError
+     (Maybe
+        (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+validateUpdateProposalFile (forall era. ShelleyBasedEra era -> CardanoEra era
+shelleyBasedToCardanoEra ShelleyBasedEra era
+sbe) Maybe UpdateProposalFile
+mUpdateProposal
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxUpdateProposalValidationError -> TxCmdError
+TxCmdTxUpdateProposalValidationError
+
+  let upperBound :: TxValidityUpperBound era
+upperBound = forall era.
+ShelleyBasedEra era -> Maybe SlotNo -> TxValidityUpperBound era
+TxValidityUpperBound ShelleyBasedEra era
+sbe Maybe SlotNo
+mUpperBound
+
+  forall era. TransactionBuildCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildCmd
+    ( forall era.
+ShelleyBasedEra era
+-> SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> Maybe ScriptValidity
+-> Maybe Word
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [RequiredSigner]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [TxOutAnyEra]
+-> TxOutChangeAddress
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBuildOutputOptions
+-> TransactionBuildCmdArgs era
+Cmd.TransactionBuildCmdArgs ShelleyBasedEra era
+sbe SocketPath
+socketPath
+        ConsensusModeParams
+consensusModeParams NetworkId
+nid Maybe ScriptValidity
+mScriptValidity Maybe Word
+mOverrideWits [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns
+        [RequiredSigner]
+reqSigners [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl Maybe Lovelace
+mTotCollateral [TxOutAnyEra]
+txouts TxOutChangeAddress
+changeAddr Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound
+        TxValidityUpperBound era
+upperBound [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile [VoteFile 'In]
+voteFiles
+        [ProposalFile 'In]
+proposalFiles TxBuildOutputOptions
+outputOptions
+    )
+
+runLegacyTransactionBuildRawCmd :: ()
+  => AnyCardanoEra
+  -> Maybe ScriptValidity
+  -> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+  -> [TxIn] -- ^ Read only reference inputs
+  -> [TxIn] -- ^ Transaction inputs for collateral, only key witnesses, no scripts.
+  -> Maybe TxOutAnyEra
+  -> Maybe Lovelace -- ^ Total collateral
+  -> [RequiredSigner]
+  -> [TxOutAnyEra]
+  -> Maybe (Value, [ScriptWitnessFiles WitCtxMint]) -- ^ Multi-Asset value with script witness
+  -> Maybe SlotNo -- ^ Validity lower bound
+  -> Maybe SlotNo -- ^ Validity upper bound
+  -> Maybe Lovelace -- ^ Tx fee
+  -> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+  -> [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+  -> TxMetadataJsonSchema
+  -> [ScriptFile]
+  -> [MetadataFile]
+  -> Maybe ProtocolParamsFile
+  -> Maybe UpdateProposalFile
+  -> TxBodyFile Out
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildRawCmd :: AnyCardanoEra
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [RequiredSigner]
+-> [TxOutAnyEra]
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> Maybe SlotNo
+-> Maybe Lovelace
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe ProtocolParamsFile
+-> Maybe UpdateProposalFile
+-> TxBodyFile 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionBuildRawCmd
+    anyEra :: AnyCardanoEra
+anyEra@(AnyCardanoEra CardanoEra era
+era) Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl
+    Maybe Lovelace
+mTotColl [RequiredSigner]
+reqSigners [TxOutAnyEra]
+txouts Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound Maybe SlotNo
+mUpperBound Maybe Lovelace
+fee [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls
+    TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe ProtocolParamsFile
+mProtocolParamsFile Maybe UpdateProposalFile
+mUpdateProposal
+    TxBodyFile 'Out
+outFile = do
+
+  Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile <-
+    forall era.
+CardanoEra era
+-> Maybe UpdateProposalFile
+-> Either
+     TxUpdateProposalValidationError
+     (Maybe
+        (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+validateUpdateProposalFile CardanoEra era
+era Maybe UpdateProposalFile
+mUpdateProposal
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+      forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxUpdateProposalValidationError -> TxCmdError
+TxCmdTxUpdateProposalValidationError
+
+  TxValidityUpperBound era
+upperBound <-
+    forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+      (\ByronEraOnly era
+w -> case Maybe SlotNo
+mUpperBound of
+        Maybe SlotNo
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era. ByronEraOnly era -> TxValidityUpperBound era
+TxValidityNoUpperBound ByronEraOnly era
+w
+        Just SlotNo
+_ -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ TxValidityUpperBoundValidationError -> TxCmdError
+TxCmdTxValidityUpperBoundValidationError forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> TxValidityUpperBoundValidationError
+TxValidityUpperBoundNotSupported AnyCardanoEra
+anyEra
+      )
+      (\ShelleyBasedEra era
+w -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era -> Maybe SlotNo -> TxValidityUpperBound era
+TxValidityUpperBound ShelleyBasedEra era
+w Maybe SlotNo
+mUpperBound)
+      CardanoEra era
+era
+
+  forall era.
+TransactionBuildRawCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionBuildRawCmd
+    ( forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+-> [TxIn]
+-> [TxIn]
+-> Maybe TxOutAnyEra
+-> Maybe Lovelace
+-> [RequiredSigner]
+-> [TxOutAnyEra]
+-> Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+-> Maybe SlotNo
+-> TxValidityUpperBound era
+-> Maybe Lovelace
+-> [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitnessFiles WitCtxStake))]
+-> TxMetadataJsonSchema
+-> [ScriptFile]
+-> [MetadataFile]
+-> Maybe ProtocolParamsFile
+-> Maybe
+     (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+-> [VoteFile 'In]
+-> [ProposalFile 'In]
+-> TxBodyFile 'Out
+-> TransactionBuildRawCmdArgs era
+Cmd.TransactionBuildRawCmdArgs
+        CardanoEra era
+era Maybe ScriptValidity
+mScriptValidity [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
+txins [TxIn]
+readOnlyRefIns [TxIn]
+txinsc Maybe TxOutAnyEra
+mReturnColl
+        Maybe Lovelace
+mTotColl [RequiredSigner]
+reqSigners [TxOutAnyEra]
+txouts Maybe (Value, [ScriptWitnessFiles WitCtxMint])
+mValue Maybe SlotNo
+mLowBound TxValidityUpperBound era
+upperBound Maybe Lovelace
+fee [(CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))]
+certs [(StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))]
+wdrls
+        TxMetadataJsonSchema
+metadataSchema [ScriptFile]
+scriptFiles [MetadataFile]
+metadataFiles Maybe ProtocolParamsFile
+mProtocolParamsFile Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile))
+mfUpdateProposalFile [] []
+        TxBodyFile 'Out
+outFile
+    )
+
+runLegacyTransactionSignCmd :: InputTxBodyOrTxFile
+          -> [WitnessSigningData]
+          -> Maybe NetworkId
+          -> TxFile Out
+          -> ExceptT TxCmdError IO ()
+runLegacyTransactionSignCmd :: InputTxBodyOrTxFile
+-> [WitnessSigningData]
+-> Maybe NetworkId
+-> TxFile 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionSignCmd
+    InputTxBodyOrTxFile
+txOrTxBody
+    [WitnessSigningData]
+witSigningData
+    Maybe NetworkId
+mnw
+    TxFile 'Out
+outTxFile =
+  TransactionSignCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignCmd
+    ( InputTxBodyOrTxFile
+-> [WitnessSigningData]
+-> Maybe NetworkId
+-> TxFile 'Out
+-> TransactionSignCmdArgs
+Cmd.TransactionSignCmdArgs
+       InputTxBodyOrTxFile
+txOrTxBody
+       [WitnessSigningData]
+witSigningData
+       Maybe NetworkId
+mnw
+       TxFile 'Out
+outTxFile
+    )
+
+runLegacyTransactionSubmitCmd :: ()
+  => SocketPath
+  -> ConsensusModeParams
+  -> NetworkId
+  -> FilePath
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionSubmitCmd :: SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> FilePath
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionSubmitCmd
+    SocketPath
+socketPath
+    ConsensusModeParams
+consensusModeParams
+    NetworkId
+network
+    FilePath
+txFilePath =
+  TransactionSubmitCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSubmitCmd
+    ( SocketPath
+-> ConsensusModeParams
+-> NetworkId
+-> FilePath
+-> TransactionSubmitCmdArgs
+Cmd.TransactionSubmitCmdArgs
+        SocketPath
+socketPath
+        ConsensusModeParams
+consensusModeParams
+        NetworkId
+network
+        FilePath
+txFilePath
+     )
+
+runLegacyTransactionCalculateMinFeeCmd :: ()
+  => TxBodyFile In
+  -> NetworkId
+  -> ProtocolParamsFile
+  -> TxInCount
+  -> TxOutCount
+  -> TxShelleyWitnessCount
+  -> TxByronWitnessCount
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinFeeCmd :: TxBodyFile 'In
+-> NetworkId
+-> ProtocolParamsFile
+-> TxInCount
+-> TxOutCount
+-> TxShelleyWitnessCount
+-> TxByronWitnessCount
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinFeeCmd
+    TxBodyFile 'In
+txbodyFile
+    NetworkId
+nw
+    ProtocolParamsFile
+pParamsFile
+    TxInCount
+txInCount
+    TxOutCount
+txOutCount
+    TxShelleyWitnessCount
+txShelleyWitnessCount
+    TxByronWitnessCount
+txByronWitnessCount =
+  TransactionCalculateMinFeeCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinFeeCmd
+    ( TxBodyFile 'In
+-> NetworkId
+-> ProtocolParamsFile
+-> TxInCount
+-> TxOutCount
+-> TxShelleyWitnessCount
+-> TxByronWitnessCount
+-> TransactionCalculateMinFeeCmdArgs
+Cmd.TransactionCalculateMinFeeCmdArgs
+        TxBodyFile 'In
+txbodyFile
+        NetworkId
+nw
+        ProtocolParamsFile
+pParamsFile
+        TxInCount
+txInCount
+        TxOutCount
+txOutCount
+        TxShelleyWitnessCount
+txShelleyWitnessCount
+        TxByronWitnessCount
+txByronWitnessCount
+    )
+
+runLegacyTransactionCalculateMinValueCmd :: ()
+  => AnyCardanoEra
+  -> ProtocolParamsFile
+  -> TxOutAnyEra
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinValueCmd :: AnyCardanoEra
+-> ProtocolParamsFile -> TxOutAnyEra -> ExceptT TxCmdError IO ()
+runLegacyTransactionCalculateMinValueCmd
+    (AnyCardanoEra CardanoEra era
+era)
+    ProtocolParamsFile
+pParamsFile
+    TxOutAnyEra
+txOut =
+  forall era.
+TransactionCalculateMinValueCmdArgs era -> ExceptT TxCmdError IO ()
+runTransactionCalculateMinValueCmd
+    ( forall era.
+CardanoEra era
+-> ProtocolParamsFile
+-> TxOutAnyEra
+-> TransactionCalculateMinValueCmdArgs era
+Cmd.TransactionCalculateMinValueCmdArgs
+        CardanoEra era
+era
+        ProtocolParamsFile
+pParamsFile
+        TxOutAnyEra
+txOut
+    )
+
+runLegacyTransactionPolicyIdCmd ::  ScriptFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionPolicyIdCmd :: ScriptFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionPolicyIdCmd ScriptFile
+scriptFile =
+  TransactionPolicyIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionPolicyIdCmd
+    ( ScriptFile -> TransactionPolicyIdCmdArgs
+Cmd.TransactionPolicyIdCmdArgs
+        ScriptFile
+scriptFile
+    )
+
+runLegacyTransactionHashScriptDataCmd :: ScriptDataOrFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionHashScriptDataCmd :: ScriptDataOrFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionHashScriptDataCmd ScriptDataOrFile
+scriptDataOrFile =
+  TransactionHashScriptDataCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionHashScriptDataCmd
+    ( ScriptDataOrFile -> TransactionHashScriptDataCmdArgs
+Cmd.TransactionHashScriptDataCmdArgs
+        ScriptDataOrFile
+scriptDataOrFile
+    )
+
+runLegacyTransactionTxIdCmd :: InputTxBodyOrTxFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionTxIdCmd :: InputTxBodyOrTxFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionTxIdCmd InputTxBodyOrTxFile
+txfile =
+  TransactionTxIdCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionTxIdCmd
+    ( InputTxBodyOrTxFile -> TransactionTxIdCmdArgs
+Cmd.TransactionTxIdCmdArgs
+        InputTxBodyOrTxFile
+txfile
+    )
+
+runLegacyTransactionViewCmd :: TxViewOutputFormat -> Maybe (File () Out) -> InputTxBodyOrTxFile -> ExceptT TxCmdError IO ()
+runLegacyTransactionViewCmd :: TxViewOutputFormat
+-> Maybe (File () 'Out)
+-> InputTxBodyOrTxFile
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionViewCmd
+    TxViewOutputFormat
+yamlOrJson
+    Maybe (File () 'Out)
+mOutFile
+    InputTxBodyOrTxFile
+inputTxBodyOrTxFile =
+  TransactionViewCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionViewCmd
+    ( TxViewOutputFormat
+-> Maybe (File () 'Out)
+-> InputTxBodyOrTxFile
+-> TransactionViewCmdArgs
+Cmd.TransactionViewCmdArgs
+        TxViewOutputFormat
+yamlOrJson
+        Maybe (File () 'Out)
+mOutFile
+        InputTxBodyOrTxFile
+inputTxBodyOrTxFile
+    )
+
+runLegacyTransactionWitnessCmd :: ()
+  => TxBodyFile In
+  -> WitnessSigningData
+  -> Maybe NetworkId
+  -> File () Out
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionWitnessCmd :: TxBodyFile 'In
+-> WitnessSigningData
+-> Maybe NetworkId
+-> File () 'Out
+-> ExceptT TxCmdError IO ()
+runLegacyTransactionWitnessCmd
+    TxBodyFile 'In
+txbodyFile
+    WitnessSigningData
+witSignData
+    Maybe NetworkId
+mbNw
+    File () 'Out
+outFile =
+  TransactionWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionWitnessCmd
+    ( TxBodyFile 'In
+-> WitnessSigningData
+-> Maybe NetworkId
+-> File () 'Out
+-> TransactionWitnessCmdArgs
+Cmd.TransactionWitnessCmdArgs
+        TxBodyFile 'In
+txbodyFile
+        WitnessSigningData
+witSignData
+        Maybe NetworkId
+mbNw
+        File () 'Out
+outFile
+     )
+
+runLegacyTransactionSignWitnessCmd :: ()
+  => TxBodyFile In
+  -> [WitnessFile]
+  -> File () Out
+  -> ExceptT TxCmdError IO ()
+runLegacyTransactionSignWitnessCmd :: TxBodyFile 'In
+-> [WitnessFile] -> File () 'Out -> ExceptT TxCmdError IO ()
+runLegacyTransactionSignWitnessCmd
+    TxBodyFile 'In
+txbodyFile
+    [WitnessFile]
+witnessFiles
+    File () 'Out
+outFile =
+  TransactionSignWitnessCmdArgs -> ExceptT TxCmdError IO ()
+runTransactionSignWitnessCmd
+    ( TxBodyFile 'In
+-> [WitnessFile] -> File () 'Out -> TransactionSignWitnessCmdArgs
+Cmd.TransactionSignWitnessCmdArgs
+        TxBodyFile 'In
+txbodyFile
+        [WitnessFile]
+witnessFiles
+        File () 'Out
+outFile
+    )
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.html b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.html new file mode 100644 index 0000000000..9aa44c9760 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Legacy.Run.html @@ -0,0 +1,116 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Legacy.Run
+  ( runLegacyCmds
+  ) where
+
+import           Cardano.CLI.Legacy.Options
+import           Cardano.CLI.Legacy.Run.Address
+import           Cardano.CLI.Legacy.Run.Genesis
+import           Cardano.CLI.Legacy.Run.Governance
+import           Cardano.CLI.Legacy.Run.Key
+import           Cardano.CLI.Legacy.Run.Node
+import           Cardano.CLI.Legacy.Run.Query
+import           Cardano.CLI.Legacy.Run.StakeAddress
+import           Cardano.CLI.Legacy.Run.StakePool
+import           Cardano.CLI.Legacy.Run.TextView
+import           Cardano.CLI.Legacy.Run.Transaction
+import           Cardano.CLI.Types.Errors.CmdError
+
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT)
+
+runLegacyCmds :: LegacyCmds -> ExceptT CmdError IO ()
+runLegacyCmds :: LegacyCmds -> ExceptT CmdError IO ()
+runLegacyCmds = \case
+  LegacyAddressCmds      LegacyAddressCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT AddressCmdError -> CmdError
+CmdAddressError forall a b. (a -> b) -> a -> b
+$ LegacyAddressCmds -> ExceptT AddressCmdError IO ()
+runLegacyAddressCmds LegacyAddressCmds
+cmd
+  LegacyGenesisCmds      LegacyGenesisCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GenesisCmdError -> CmdError
+CmdGenesisError forall a b. (a -> b) -> a -> b
+$ LegacyGenesisCmds -> ExceptT GenesisCmdError IO ()
+runLegacyGenesisCmds LegacyGenesisCmds
+cmd
+  LegacyGovernanceCmds   LegacyGovernanceCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT GovernanceCmdError -> CmdError
+CmdGovernanceCmdError forall a b. (a -> b) -> a -> b
+$ LegacyGovernanceCmds -> ExceptT GovernanceCmdError IO ()
+runLegacyGovernanceCmds LegacyGovernanceCmds
+cmd
+  LegacyKeyCmds          LegacyKeyCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT KeyCmdError -> CmdError
+CmdKeyError forall a b. (a -> b) -> a -> b
+$ LegacyKeyCmds -> ExceptT KeyCmdError IO ()
+runLegacyKeyCmds LegacyKeyCmds
+cmd
+  LegacyNodeCmds         LegacyNodeCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT NodeCmdError -> CmdError
+CmdNodeError forall a b. (a -> b) -> a -> b
+$ LegacyNodeCmds -> ExceptT NodeCmdError IO ()
+runLegacyNodeCmds LegacyNodeCmds
+cmd
+  LegacyQueryCmds        LegacyQueryCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT QueryCmdError -> CmdError
+CmdQueryError forall a b. (a -> b) -> a -> b
+$ LegacyQueryCmds -> ExceptT QueryCmdError IO ()
+runLegacyQueryCmds LegacyQueryCmds
+cmd
+  LegacyStakeAddressCmds LegacyStakeAddressCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakeAddressCmdError -> CmdError
+CmdStakeAddressError forall a b. (a -> b) -> a -> b
+$ LegacyStakeAddressCmds -> ExceptT StakeAddressCmdError IO ()
+runLegacyStakeAddressCmds LegacyStakeAddressCmds
+cmd
+  LegacyStakePoolCmds    LegacyStakePoolCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT StakePoolCmdError -> CmdError
+CmdStakePoolError forall a b. (a -> b) -> a -> b
+$ LegacyStakePoolCmds -> ExceptT StakePoolCmdError IO ()
+runLegacyStakePoolCmds LegacyStakePoolCmds
+cmd
+  LegacyTextViewCmds     LegacyTextViewCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TextViewFileError -> CmdError
+CmdTextViewError forall a b. (a -> b) -> a -> b
+$ LegacyTextViewCmds -> ExceptT TextViewFileError IO ()
+runLegacyTextViewCmds LegacyTextViewCmds
+cmd
+  LegacyTransactionCmds  LegacyTransactionCmds
+cmd -> forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT TxCmdError -> CmdError
+CmdTransactionError forall a b. (a -> b) -> a -> b
+$ LegacyTransactionCmds -> ExceptT TxCmdError IO ()
+runLegacyTransactionCmds LegacyTransactionCmds
+cmd
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.OS.Posix.html b/cardano-cli/lib/src/Cardano.CLI.OS.Posix.html new file mode 100644 index 0000000000..2f68c51cd6 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.OS.Posix.html @@ -0,0 +1,15 @@ +
{-# LANGUAGE CPP #-}
+
+module Cardano.CLI.OS.Posix
+  (
+#if !defined(mingw32_HOST_OS)
+    module Posix
+#endif
+  ) where
+
+#if !defined(mingw32_HOST_OS)
+import           System.Posix.Files as Posix
+import           System.Posix.IO as Posix
+import           System.IO as Posix
+#endif
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Options.html b/cardano-cli/lib/src/Cardano.CLI.Options.html new file mode 100644 index 0000000000..12815030f4 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Options.html @@ -0,0 +1,249 @@ +
{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+{- HLINT ignore "Monoid law, left identity" -}
+
+module Cardano.CLI.Options
+  ( opts
+  , pref
+  ) where
+
+import           Cardano.Api (ShelleyBasedEra (..))
+
+import           Cardano.CLI.Byron.Parsers (backwardsCompatibilityCommands, parseByronCommands)
+import           Cardano.CLI.Environment (EnvCli)
+import           Cardano.CLI.EraBased.Commands
+import           Cardano.CLI.EraBased.Options.Common
+import           Cardano.CLI.Legacy.Options (parseLegacyCmds)
+import           Cardano.CLI.Render (customRenderHelp)
+import           Cardano.CLI.Run (ClientCommand (..))
+import           Cardano.CLI.Run.Ping (parsePingCmd)
+
+import           Data.Foldable
+import           Options.Applicative
+import qualified Options.Applicative as Opt
+import qualified Prettyprinter as PP
+
+opts :: EnvCli -> ParserInfo ClientCommand
+opts :: EnvCli -> ParserInfo ClientCommand
+opts EnvCli
+envCli =
+  forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (EnvCli -> Parser ClientCommand
+parseClientCommand EnvCli
+envCli forall (f :: * -> *) a b. Applicative f => f a -> f (a -> b) -> f b
+<**> forall a. Parser (a -> a)
+Opt.helper) forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall a. InfoMod a
+Opt.fullDesc
+    , forall a. String -> InfoMod a
+Opt.header forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+      [ String
+"cardano-cli - General purpose command-line utility to interact with cardano-node."
+      , String
+" Provides specific commands to manage keys, addresses, build & submit transactions,"
+      , String
+" certificates, etc."
+      ]
+    ]
+
+pref :: ParserPrefs
+pref :: ParserPrefs
+pref =
+  PrefsMod -> ParserPrefs
+Opt.prefs forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ PrefsMod
+showHelpOnEmpty
+    , (Doc -> Doc) -> PrefsMod
+helpEmbedBriefDesc forall ann. Doc ann -> Doc ann
+PP.align
+    , (Int -> ParserHelp -> String) -> PrefsMod
+helpRenderHelp Int -> ParserHelp -> String
+customRenderHelp
+    ]
+
+parseClientCommand :: EnvCli -> Parser ClientCommand
+parseClientCommand :: EnvCli -> Parser ClientCommand
+parseClientCommand EnvCli
+envCli =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    -- There are name clashes between Shelley commands and the Byron backwards
+    -- compat commands (e.g. "genesis"), and we need to prefer the Shelley ones
+    -- so we list it first.
+    [ EnvCli -> Parser ClientCommand
+parseAnyEra EnvCli
+envCli
+    , EnvCli -> Parser ClientCommand
+parseLegacy EnvCli
+envCli
+    -- , parseTopLevelLatest envCli -- TODO restore this when the governance command group is fully operational
+    , EnvCli -> Parser ClientCommand
+parseTopLevelLegacy EnvCli
+envCli
+    , EnvCli -> Parser ClientCommand
+parseByron EnvCli
+envCli
+    , Parser ClientCommand
+parsePing
+    , EnvCli -> Parser ClientCommand
+backwardsCompatibilityCommands EnvCli
+envCli
+    , forall a. ParserInfo a -> Parser ClientCommand
+parseDisplayVersion (EnvCli -> ParserInfo ClientCommand
+opts EnvCli
+envCli)
+    ]
+
+parseByron :: EnvCli -> Parser ClientCommand
+parseByron :: EnvCli -> Parser ClientCommand
+parseByron EnvCli
+mNetworkId =
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap ByronCommand -> ClientCommand
+ByronCommand forall a b. (a -> b) -> a -> b
+$
+  forall a. Mod CommandFields a -> Parser a
+subparser forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall a. String -> Mod CommandFields a
+commandGroup String
+"Byron specific commands"
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+metavar String
+"Byron specific commands"
+    , forall a. String -> String -> Parser a -> Mod CommandFields a
+command' String
+"byron" String
+"Byron specific commands" forall a b. (a -> b) -> a -> b
+$ EnvCli -> Parser ByronCommand
+parseByronCommands EnvCli
+mNetworkId
+    ]
+
+parsePing :: Parser ClientCommand
+parsePing :: Parser ClientCommand
+parsePing = PingCmd -> ClientCommand
+CliPingCommand forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Parser PingCmd
+parsePingCmd
+
+parseAnyEra :: EnvCli -> Parser ClientCommand
+parseAnyEra :: EnvCli -> Parser ClientCommand
+parseAnyEra EnvCli
+envCli = AnyEraCommand -> ClientCommand
+AnyEraCommand forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser AnyEraCommand
+pAnyEraCommand EnvCli
+envCli
+
+parseLegacy :: EnvCli -> Parser ClientCommand
+parseLegacy :: EnvCli -> Parser ClientCommand
+parseLegacy EnvCli
+envCli =
+  forall a. String -> ParserInfo a -> Parser a
+subParser String
+"legacy"
+    forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info (LegacyCmds -> ClientCommand
+LegacyCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyCmds
+parseLegacyCmds EnvCli
+envCli)
+    forall a b. (a -> b) -> a -> b
+$ forall a. String -> InfoMod a
+Opt.progDesc String
+"Legacy commands"
+
+_parseTopLevelLatest :: EnvCli -> Parser ClientCommand
+_parseTopLevelLatest :: EnvCli -> Parser ClientCommand
+_parseTopLevelLatest EnvCli
+envCli =
+  AnyEraCommand -> ClientCommand
+AnyEraCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. ShelleyBasedEra era -> Cmds era -> AnyEraCommand
+AnyEraCommandOf ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall era. ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
+pCmds ShelleyBasedEra BabbageEra
+ShelleyBasedEraBabbage EnvCli
+envCli
+
+-- | Parse Legacy commands at the top level of the CLI.
+parseTopLevelLegacy :: EnvCli -> Parser ClientCommand
+parseTopLevelLegacy :: EnvCli -> Parser ClientCommand
+parseTopLevelLegacy EnvCli
+envCli = LegacyCmds -> ClientCommand
+LegacyCmds forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> EnvCli -> Parser LegacyCmds
+parseLegacyCmds EnvCli
+envCli
+
+-- | Parse Legacy commands at the top level of the CLI.
+-- Yes! A --version flag or version command. Either guess is right!
+parseDisplayVersion :: ParserInfo a -> Parser ClientCommand
+parseDisplayVersion :: forall a. ParserInfo a -> Parser ClientCommand
+parseDisplayVersion ParserInfo a
+allParserInfo =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. Mod CommandFields a -> Parser a
+subparser forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall a. String -> Mod CommandFields a
+commandGroup String
+"Miscellaneous commands"
+        , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+metavar String
+"Miscellaneous commands"
+        , forall a. String -> String -> Parser a -> Mod CommandFields a
+command'
+            String
+"help"
+            String
+"Show all help"
+            (forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a. ParserPrefs -> ParserInfo a -> ClientCommand
+Help ParserPrefs
+pref ParserInfo a
+allParserInfo))
+        , forall a. String -> String -> Parser a -> Mod CommandFields a
+command'
+            String
+"version"
+            String
+"Show the cardano-cli version"
+            (forall (f :: * -> *) a. Applicative f => a -> f a
+pure ClientCommand
+DisplayVersion)
+        ]
+
+    , forall a. a -> Mod FlagFields a -> Parser a
+flag' ClientCommand
+DisplayVersion forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+long String
+"version"
+        , forall (f :: * -> *) a. String -> Mod f a
+help String
+"Show the cardano-cli version"
+        , forall (f :: * -> *) a. Mod f a
+hidden
+        ]
+    ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Parser.html b/cardano-cli/lib/src/Cardano.CLI.Parser.html new file mode 100644 index 0000000000..7ca7097a13 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Parser.html @@ -0,0 +1,293 @@ +
{-# LANGUAGE TypeApplications #-}
+
+module Cardano.CLI.Parser
+  ( readerFromAttoParser
+  , readFractionAsRational
+  , readKeyOutputFormat
+  , readIdOutputFormat
+  , readTxViewOutputFormat
+  , readRational
+  , readRationalUnitInterval
+  , readStringOfMaxLength
+  , readURIOfMaxLength
+  , eDNSName
+  , readGovernanceActionViewOutputFormat
+  ) where
+
+import           Cardano.CLI.Types.Common
+import qualified Cardano.Ledger.BaseTypes as Shelley
+
+import qualified Data.Attoparsec.ByteString.Char8 as Atto
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Foldable
+import           Data.Ratio ((%))
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+import qualified Options.Applicative as Opt
+
+readIdOutputFormat :: Opt.ReadM IdOutputFormat
+readIdOutputFormat :: ReadM IdOutputFormat
+readIdOutputFormat = do
+  String
+s <- forall s. IsString s => ReadM s
+Opt.str @String
+  case String
+s of
+    String
+"hex" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure IdOutputFormat
+IdOutputFormatHex
+    String
+"bech32" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure IdOutputFormat
+IdOutputFormatBech32
+    String
+_ ->
+      forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Invalid output format: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+s
+        , String
+". Accepted output formats are \"hex\" and \"bech32\"."
+        ]
+
+readKeyOutputFormat :: Opt.ReadM KeyOutputFormat
+readKeyOutputFormat :: ReadM KeyOutputFormat
+readKeyOutputFormat = do
+  String
+s <- forall s. IsString s => ReadM s
+Opt.str @String
+  case String
+s of
+    String
+"text-envelope" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure KeyOutputFormat
+KeyOutputFormatTextEnvelope
+    String
+"bech32" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure KeyOutputFormat
+KeyOutputFormatBech32
+    String
+_ ->
+      forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Invalid key output format: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+s
+        , String
+". Accepted output formats are \"text-envelope\" and \"bech32\"."
+        ]
+
+readTxViewOutputFormat :: Opt.ReadM TxViewOutputFormat
+readTxViewOutputFormat :: ReadM TxViewOutputFormat
+readTxViewOutputFormat = do
+  String
+s <- forall s. IsString s => ReadM s
+Opt.str @String
+  case String
+s of
+    String
+"json" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxViewOutputFormat
+TxViewOutputFormatJson
+    String
+"yaml" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure TxViewOutputFormat
+TxViewOutputFormatYaml
+    String
+_ ->
+      forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Invalid transaction view output format: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+s
+        , String
+". Accepted output formats are \"json\" and \"yaml\"."
+        ]
+
+readGovernanceActionViewOutputFormat :: Opt.ReadM GovernanceActionViewOutputFormat
+readGovernanceActionViewOutputFormat :: ReadM GovernanceActionViewOutputFormat
+readGovernanceActionViewOutputFormat = do
+  String
+s <- forall s. IsString s => ReadM s
+Opt.str @String
+  case String
+s of
+    String
+"json" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure GovernanceActionViewOutputFormat
+GovernanceActionViewOutputFormatJson
+    String
+"yaml" -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure GovernanceActionViewOutputFormat
+GovernanceActionViewOutputFormatYaml
+    String
+_ ->
+      forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Invalid governance action view output format: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+s
+        , String
+". Accepted output formats are \"json\" and \"yaml\"."
+        ]
+
+readURIOfMaxLength :: Int -> Opt.ReadM Text
+readURIOfMaxLength :: Int -> ReadM Text
+readURIOfMaxLength Int
+maxLen =
+  String -> Text
+Text.pack forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Int -> ReadM String
+readStringOfMaxLength Int
+maxLen
+
+readStringOfMaxLength :: Int -> Opt.ReadM String
+readStringOfMaxLength :: Int -> ReadM String
+readStringOfMaxLength Int
+maxLen = do
+  String
+s <- forall s. IsString s => ReadM s
+Opt.str
+  let strLen :: Int
+strLen = forall (t :: * -> *) a. Foldable t => t a -> Int
+length String
+s
+  if Int
+strLen forall a. Ord a => a -> a -> Bool
+<= Int
+maxLen
+    then forall (f :: * -> *) a. Applicative f => a -> f a
+pure String
+s
+    else
+      forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"The provided string must have at most 64 characters, but it has "
+        , forall a. Show a => a -> String
+show Int
+strLen
+        , String
+" characters."
+        ]
+
+readRationalUnitInterval :: Opt.ReadM Rational
+readRationalUnitInterval :: ReadM Rational
+readRationalUnitInterval = ReadM Rational
+readRational forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
+>>= Rational -> ReadM Rational
+checkUnitInterval
+  where
+   checkUnitInterval :: Rational -> Opt.ReadM Rational
+   checkUnitInterval :: Rational -> ReadM Rational
+checkUnitInterval Rational
+q
+     | Rational
+q forall a. Ord a => a -> a -> Bool
+>= Rational
+0 Bool -> Bool -> Bool
+&& Rational
+q forall a. Ord a => a -> a -> Bool
+<= Rational
+1 = forall (m :: * -> *) a. Monad m => a -> m a
+return Rational
+q
+     | Bool
+otherwise        = forall (m :: * -> *) a. MonadFail m => String -> m a
+fail String
+"Please enter a value in the range [0,1]"
+
+readFractionAsRational :: Opt.ReadM Rational
+readFractionAsRational :: ReadM Rational
+readFractionAsRational = forall a. Parser a -> ReadM a
+readerFromAttoParser Parser Rational
+fractionalAsRational
+  where fractionalAsRational :: Atto.Parser Rational
+        fractionalAsRational :: Parser Rational
+fractionalAsRational = forall a. Integral a => a -> a -> Ratio a
+(%) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> (forall a. Integral a => Parser a
+Atto.decimal @Integer forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* Char -> Parser Char
+Atto.char Char
+'/') forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. Integral a => Parser a
+Atto.decimal @Integer
+
+readRational :: Opt.ReadM Rational
+readRational :: ReadM Rational
+readRational =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Foldable t, Alternative f) =>
+t (f a) -> f a
+asum
+    [ forall a. Real a => a -> Rational
+toRational forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Parser a -> ReadM a
+readerFromAttoParser Parser Scientific
+Atto.scientific
+    , ReadM Rational
+readFractionAsRational
+    ]
+
+readerFromAttoParser :: Atto.Parser a -> Opt.ReadM a
+readerFromAttoParser :: forall a. Parser a -> ReadM a
+readerFromAttoParser Parser a
+p =
+  forall a. (String -> Either String a) -> ReadM a
+Opt.eitherReader (forall a. Parser a -> ByteString -> Either String a
+Atto.parseOnly (Parser a
+p forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
+<* forall t. Chunk t => Parser t ()
+Atto.endOfInput) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> ByteString
+BSC.pack)
+
+eDNSName :: String -> Either String ByteString
+eDNSName :: String -> Either String ByteString
+eDNSName String
+str =
+  -- We're using 'Shelley.textToDns' to validate the string.
+  case Text -> Maybe DnsName
+Shelley.textToDns (String -> Text
+Text.pack String
+str) of
+    Maybe DnsName
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ String
+"DNS name is more than 64 bytes: " forall a. Semigroup a => a -> a -> a
+<> String
+str
+    Just DnsName
+dnsName -> forall a b. b -> Either a b
+Right forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> ByteString
+Text.encodeUtf8 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. DnsName -> Text
+Shelley.dnsToText forall a b. (a -> b) -> a -> b
+$ DnsName
+dnsName
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Pretty.html b/cardano-cli/lib/src/Cardano.CLI.Pretty.html new file mode 100644 index 0000000000..3b65ae00aa --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Pretty.html @@ -0,0 +1,142 @@ +
module Cardano.CLI.Pretty
+  ( Ann,
+    putLn,
+    hPutLn,
+    renderDefault,
+    renderStringDefault,
+
+    black,
+    red,
+    green,
+    yellow,
+    blue,
+    magenta,
+    cyan,
+    white,
+  ) where
+
+import qualified Control.Concurrent.QSem as IO
+import           Control.Exception (bracket_)
+import           Control.Monad.IO.Class (MonadIO, liftIO)
+import qualified Data.Text.Lazy as TextLazy
+import qualified Data.Text.Lazy.IO as TextLazy
+import           Prettyprinter
+import           Prettyprinter.Render.Terminal
+import qualified System.IO as IO
+import qualified System.IO.Unsafe as IO
+
+type Ann = AnsiStyle
+
+sem :: IO.QSem
+sem :: QSem
+sem = forall a. IO a -> a
+IO.unsafePerformIO forall a b. (a -> b) -> a -> b
+$ Int -> IO QSem
+IO.newQSem Int
+1
+{-# NOINLINE sem #-}
+
+consoleBracket :: IO a -> IO a
+consoleBracket :: forall a. IO a -> IO a
+consoleBracket = forall a b c. IO a -> IO b -> IO c -> IO c
+bracket_ (QSem -> IO ()
+IO.waitQSem QSem
+sem) (QSem -> IO ()
+IO.signalQSem QSem
+sem)
+
+putLn :: MonadIO m => Doc AnsiStyle -> m ()
+putLn :: forall (m :: * -> *). MonadIO m => Doc AnsiStyle -> m ()
+putLn = forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. IO a -> IO a
+consoleBracket forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+TextLazy.putStrLn forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Doc AnsiStyle -> Text
+renderDefault
+
+hPutLn :: MonadIO m => IO.Handle -> Doc AnsiStyle -> m ()
+hPutLn :: forall (m :: * -> *). MonadIO m => Handle -> Doc AnsiStyle -> m ()
+hPutLn Handle
+h = forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. IO a -> IO a
+consoleBracket forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Handle -> Text -> IO ()
+TextLazy.hPutStr Handle
+h forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Doc AnsiStyle -> Text
+renderDefault
+
+renderStringDefault :: Doc AnsiStyle -> String
+renderStringDefault :: Doc AnsiStyle -> String
+renderStringDefault =  Text -> String
+TextLazy.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Doc AnsiStyle -> Text
+renderDefault
+
+renderDefault :: Doc AnsiStyle -> TextLazy.Text
+renderDefault :: Doc AnsiStyle -> Text
+renderDefault =  SimpleDocStream AnsiStyle -> Text
+renderLazy forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall ann. LayoutOptions -> Doc ann -> SimpleDocStream ann
+layoutPretty LayoutOptions
+defaultLayoutOptions
+
+black :: Doc AnsiStyle -> Doc AnsiStyle
+black :: Doc AnsiStyle -> Doc AnsiStyle
+black = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Black)
+
+red :: Doc AnsiStyle -> Doc AnsiStyle
+red :: Doc AnsiStyle -> Doc AnsiStyle
+red = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Red)
+
+green :: Doc AnsiStyle -> Doc AnsiStyle
+green :: Doc AnsiStyle -> Doc AnsiStyle
+green = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Green)
+
+yellow :: Doc AnsiStyle -> Doc AnsiStyle
+yellow :: Doc AnsiStyle -> Doc AnsiStyle
+yellow = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Yellow)
+
+blue :: Doc AnsiStyle -> Doc AnsiStyle
+blue :: Doc AnsiStyle -> Doc AnsiStyle
+blue = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Blue)
+
+magenta :: Doc AnsiStyle -> Doc AnsiStyle
+magenta :: Doc AnsiStyle -> Doc AnsiStyle
+magenta = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Magenta)
+
+cyan :: Doc AnsiStyle -> Doc AnsiStyle
+cyan :: Doc AnsiStyle -> Doc AnsiStyle
+cyan = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+Cyan)
+
+white :: Doc AnsiStyle -> Doc AnsiStyle
+white :: Doc AnsiStyle -> Doc AnsiStyle
+white = forall ann. ann -> Doc ann -> Doc ann
+annotate (Color -> AnsiStyle
+color Color
+White)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Read.html b/cardano-cli/lib/src/Cardano.CLI.Read.html new file mode 100644 index 0000000000..45dab31df2 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Read.html @@ -0,0 +1,3504 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Read
+  ( -- * Metadata
+    MetadataError(..)
+  , renderMetadataError
+  , readFileTxMetadata
+  , readTxMetadata
+
+    -- * Script
+  , ScriptWitnessError(..)
+  , renderScriptWitnessError
+  , readScriptDataOrFile
+  , readScriptWitness
+  , readScriptWitnessFiles
+  , readScriptWitnessFilesThruple
+  , ScriptDecodeError (..)
+  , deserialiseScriptInAnyLang
+  , readFileScriptInAnyLang
+
+  -- * Script data (datums and redeemers)
+  , ScriptDataError(..)
+  , readScriptDatumOrFile
+  , readScriptRedeemerOrFile
+  , renderScriptDataError
+
+  -- * Tx
+  , CddlError(..)
+  , CddlTx(..)
+  , IncompleteTx(..)
+  , readFileTx
+  , readFileTxBody
+  , readCddlTx -- For testing purposes
+
+  -- * Tx witnesses
+  , ReadWitnessSigningDataError(..)
+  , renderReadWitnessSigningDataError
+  , SomeSigningWitness(..)
+  , ByronOrShelleyWitness(..)
+  , ShelleyBootstrapWitnessSigningKeyData(..)
+  , CddlWitnessError(..)
+  , readFileTxKeyWitness
+  , readWitnessSigningData
+
+  -- * Required signer
+  , RequiredSignerError(..)
+  , categoriseSomeSigningWitness
+  , readRequiredSigner
+
+  -- * Governance related
+  , ConstitutionError(..)
+  , ProposalError(..)
+  , VoteError (..)
+  , readTxGovernanceActions
+  , constitutionHashSourceToHash
+  , readProposal
+
+  -- * FileOrPipe
+  , FileOrPipe
+  , fileOrPipe
+  , fileOrPipePath
+  , fileOrPipeCache
+  , readFileOrPipe
+
+  -- * Stake credentials
+  , getStakeCredentialFromVerifier
+  , getStakeCredentialFromIdentifier
+  , getStakeAddressFromVerifier
+
+  , readVotingProceduresFiles
+  , readVotingProceduresFile
+
+  -- * DRep credentials
+  , getDRepCredentialFromVerKeyHashOrFile
+
+  -- * Committee credentials
+  , getCommitteeColdCredentialFromVerKeyHashOrFile
+  , getCommitteeHotCredentialFromVerKeyHashOrFile
+
+  , ReadSafeHashError(..)
+  , readHexAsSafeHash
+  , readSafeHash
+
+  , scriptHashReader
+
+  -- * Update proposals
+  , readTxUpdateProposal
+
+  -- * Vote related
+  , readVoteDelegationTarget
+  ) where
+
+import           Cardano.Api as Api
+import qualified Cardano.Api.Ledger as L
+import           Cardano.Api.Shelley as Api
+
+import qualified Cardano.Binary as CBOR
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.DelegationError
+import           Cardano.CLI.Types.Errors.ScriptDecodeError
+import           Cardano.CLI.Types.Errors.StakeCredentialError
+import           Cardano.CLI.Types.Governance
+import           Cardano.CLI.Types.Key
+import qualified Cardano.Crypto.Hash.Class as Crypto
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.BaseTypes as Ledger
+import qualified Cardano.Ledger.Conway.Governance as Ledger
+import qualified Cardano.Ledger.Credential as Ledger
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.Crypto as Ledger
+import qualified Cardano.Ledger.Keys as Ledger
+import qualified Cardano.Ledger.SafeHash as L
+import qualified Cardano.Ledger.SafeHash as Ledger
+
+import           Prelude
+
+import           Control.Exception (bracket, displayException)
+import           Control.Monad (forM, unless)
+import           Control.Monad.IO.Class
+import           Control.Monad.Trans (MonadTrans (..))
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import qualified Data.Aeson as Aeson
+import           Data.Bifunctor
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Base16 as Base16
+import qualified Data.ByteString.Builder as Builder
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Function ((&))
+import           Data.IORef (IORef, newIORef, readIORef, writeIORef)
+import qualified Data.List as List
+import qualified Data.Map.Strict as Map
+import           Data.String
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+import qualified Data.Text.Encoding.Error as Text
+import           Data.Word
+import           GHC.IO.Handle (hClose, hIsSeekable)
+import           GHC.IO.Handle.FD (openFileBlocking)
+import qualified Options.Applicative as Opt
+import           System.IO (IOMode (ReadMode))
+
+
+-- Metadata
+
+data MetadataError
+  = MetadataErrorFile (FileError ())
+  | MetadataErrorJsonParseError !FilePath !String
+  | MetadataErrorConversionError !FilePath !TxMetadataJsonError
+  | MetadataErrorValidationError !FilePath ![(Word64, TxMetadataRangeError)]
+  | MetadataErrorDecodeError !FilePath !CBOR.DecoderError
+  | MetadataErrorNotAvailableInEra AnyCardanoEra
+  deriving Int -> MetadataError -> ShowS
+[MetadataError] -> ShowS
+MetadataError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [MetadataError] -> ShowS
+$cshowList :: [MetadataError] -> ShowS
+show :: MetadataError -> String
+$cshow :: MetadataError -> String
+showsPrec :: Int -> MetadataError -> ShowS
+$cshowsPrec :: Int -> MetadataError -> ShowS
+Show
+
+renderMetadataError :: MetadataError -> Text
+renderMetadataError :: MetadataError -> Text
+renderMetadataError (MetadataErrorFile FileError ()
+fileErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError ()
+fileErr
+renderMetadataError (MetadataErrorJsonParseError String
+fp String
+jsonErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Invalid JSON format in file: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+"\nJSON parse error: " forall a. Semigroup a => a -> a -> a
+<> String
+jsonErr
+renderMetadataError (MetadataErrorConversionError String
+fp TxMetadataJsonError
+metadataErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error reading metadata at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+"\n" forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError TxMetadataJsonError
+metadataErr
+renderMetadataError (MetadataErrorValidationError String
+fp [(Word64, TxMetadataRangeError)]
+errs) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error validating transaction metadata at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp forall a. Semigroup a => a -> a -> a
+<> String
+"\n" forall a. Semigroup a => a -> a -> a
+<>
+      forall a. [a] -> [[a]] -> [a]
+List.intercalate String
+"\n"
+        [ String
+"key " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Word64
+k forall a. Semigroup a => a -> a -> a
+<> String
+":" forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError TxMetadataRangeError
+valErr
+        | (Word64
+k, TxMetadataRangeError
+valErr) <- [(Word64, TxMetadataRangeError)]
+errs ]
+renderMetadataError (MetadataErrorDecodeError String
+fp DecoderError
+metadataErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error decoding CBOR metadata at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show DecoderError
+metadataErr
+renderMetadataError (MetadataErrorNotAvailableInEra AnyCardanoEra
+e) =
+  Text
+"Transaction metadata not supported in " forall a. Semigroup a => a -> a -> a
+<> AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e
+
+readTxMetadata :: CardanoEra era
+               -> TxMetadataJsonSchema
+               -> [MetadataFile]
+               -> IO (Either MetadataError (TxMetadataInEra era))
+readTxMetadata :: forall era.
+CardanoEra era
+-> TxMetadataJsonSchema
+-> [MetadataFile]
+-> IO (Either MetadataError (TxMetadataInEra era))
+readTxMetadata CardanoEra era
+_ TxMetadataJsonSchema
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right forall era. TxMetadataInEra era
+TxMetadataNone
+readTxMetadata CardanoEra era
+era TxMetadataJsonSchema
+schema [MetadataFile]
+files = forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+  ShelleyBasedEra era
+supported <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (AnyCardanoEra -> MetadataError
+MetadataErrorNotAvailableInEra forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+  [TxMetadata]
+metadata  <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (TxMetadataJsonSchema
+-> MetadataFile -> ExceptT MetadataError IO TxMetadata
+readFileTxMetadata TxMetadataJsonSchema
+schema) [MetadataFile]
+files
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era -> TxMetadata -> TxMetadataInEra era
+TxMetadataInEra ShelleyBasedEra era
+supported forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat [TxMetadata]
+metadata
+
+readFileTxMetadata
+  :: TxMetadataJsonSchema
+  -> MetadataFile
+  -> ExceptT MetadataError IO TxMetadata
+readFileTxMetadata :: TxMetadataJsonSchema
+-> MetadataFile -> ExceptT MetadataError IO TxMetadata
+readFileTxMetadata TxMetadataJsonSchema
+mapping (MetadataFileJSON File () 'In
+fp) = do
+  ByteString
+bs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> MetadataError
+MetadataErrorFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+          forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp)
+  Value
+v <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> String -> MetadataError
+MetadataErrorJsonParseError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+bs
+  TxMetadata
+txMetadata' <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> TxMetadataJsonError -> MetadataError
+MetadataErrorConversionError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+                  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ TxMetadataJsonSchema
+-> Value -> Either TxMetadataJsonError TxMetadata
+metadataFromJson TxMetadataJsonSchema
+mapping Value
+v
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> [(Word64, TxMetadataRangeError)] -> MetadataError
+MetadataErrorValidationError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ do
+      TxMetadata -> Either [(Word64, TxMetadataRangeError)] ()
+validateTxMetadata TxMetadata
+txMetadata'
+      forall (m :: * -> *) a. Monad m => a -> m a
+return TxMetadata
+txMetadata'
+readFileTxMetadata TxMetadataJsonSchema
+_ (MetadataFileCBOR File () 'In
+fp) = do
+  ByteString
+bs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> MetadataError
+MetadataErrorFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+          forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+BS.readFile (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp)
+  TxMetadata
+txMetadata' <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> DecoderError -> MetadataError
+MetadataErrorDecodeError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+                  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a.
+SerialiseAsCBOR a =>
+AsType a -> ByteString -> Either DecoderError a
+deserialiseFromCBOR AsType TxMetadata
+AsTxMetadata ByteString
+bs
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> [(Word64, TxMetadataRangeError)] -> MetadataError
+MetadataErrorValidationError (forall content (direction :: FileDirection).
+File content direction -> String
+unFile File () 'In
+fp))
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ do
+      TxMetadata -> Either [(Word64, TxMetadataRangeError)] ()
+validateTxMetadata TxMetadata
+txMetadata'
+      forall (m :: * -> *) a. Monad m => a -> m a
+return TxMetadata
+txMetadata'
+
+-- Script witnesses/ Scripts
+
+data ScriptWitnessError
+  = ScriptWitnessErrorFile (FileError ScriptDecodeError)
+  | ScriptWitnessErrorScriptLanguageNotSupportedInEra AnyScriptLanguage AnyCardanoEra
+  | ScriptWitnessErrorExpectedSimple !FilePath !AnyScriptLanguage
+  | ScriptWitnessErrorExpectedPlutus !FilePath !AnyScriptLanguage
+  | ScriptWitnessErrorReferenceScriptsNotSupportedInEra !AnyCardanoEra
+  | ScriptWitnessErrorScriptData ScriptDataError
+
+renderScriptWitnessError :: ScriptWitnessError -> Text
+renderScriptWitnessError :: ScriptWitnessError -> Text
+renderScriptWitnessError (ScriptWitnessErrorFile FileError ScriptDecodeError
+err) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError ScriptDecodeError
+err
+renderScriptWitnessError (ScriptWitnessErrorScriptLanguageNotSupportedInEra (AnyScriptLanguage ScriptLanguage lang
+lang) AnyCardanoEra
+anyEra) =
+  Text
+"The script language " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show ScriptLanguage lang
+lang) forall a. Semigroup a => a -> a -> a
+<> Text
+" is not supported in the " forall a. Semigroup a => a -> a -> a
+<>
+  AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+anyEra forall a. Semigroup a => a -> a -> a
+<> Text
+" era."
+renderScriptWitnessError (ScriptWitnessErrorExpectedSimple String
+file (AnyScriptLanguage ScriptLanguage lang
+lang)) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+file forall a. Semigroup a => a -> a -> a
+<> String
+": expected a script in the simple script language, " forall a. Semigroup a => a -> a -> a
+<>
+  String
+"but it is actually using " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ScriptLanguage lang
+lang forall a. Semigroup a => a -> a -> a
+<> String
+". Alternatively, to use " forall a. Semigroup a => a -> a -> a
+<>
+  String
+"a Plutus script, you must also specify the redeemer " forall a. Semigroup a => a -> a -> a
+<>
+  String
+"(datum if appropriate) and script execution units."
+renderScriptWitnessError (ScriptWitnessErrorExpectedPlutus String
+file (AnyScriptLanguage ScriptLanguage lang
+lang)) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+file forall a. Semigroup a => a -> a -> a
+<> String
+": expected a script in the Plutus script language, " forall a. Semigroup a => a -> a -> a
+<>
+  String
+"but it is actually using " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ScriptLanguage lang
+lang forall a. Semigroup a => a -> a -> a
+<> String
+"."
+renderScriptWitnessError (ScriptWitnessErrorReferenceScriptsNotSupportedInEra AnyCardanoEra
+anyEra) =
+  Text
+"Reference scripts not supported in era: " forall a. Semigroup a => a -> a -> a
+<> AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+anyEra
+renderScriptWitnessError (ScriptWitnessErrorScriptData ScriptDataError
+sDataError) =
+  ScriptDataError -> Text
+renderScriptDataError ScriptDataError
+sDataError
+
+readScriptWitnessFiles
+  :: CardanoEra era
+  -> [(a, Maybe (ScriptWitnessFiles ctx))]
+  -> ExceptT ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles :: forall era a ctx.
+CardanoEra era
+-> [(a, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFiles CardanoEra era
+era = forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (a, Maybe (ScriptWitnessFiles ctx))
+-> ExceptT ScriptWitnessError IO (a, Maybe (ScriptWitness ctx era))
+readSwitFile
+ where
+  readSwitFile :: (a, Maybe (ScriptWitnessFiles ctx))
+-> ExceptT ScriptWitnessError IO (a, Maybe (ScriptWitness ctx era))
+readSwitFile (a
+tIn, Just ScriptWitnessFiles ctx
+switFile) = do
+      ScriptWitness ctx era
+sWit <- forall era witctx.
+CardanoEra era
+-> ScriptWitnessFiles witctx
+-> ExceptT ScriptWitnessError IO (ScriptWitness witctx era)
+readScriptWitness CardanoEra era
+era ScriptWitnessFiles ctx
+switFile
+      forall (m :: * -> *) a. Monad m => a -> m a
+return (a
+tIn, forall a. a -> Maybe a
+Just ScriptWitness ctx era
+sWit)
+  readSwitFile (a
+tIn, Maybe (ScriptWitnessFiles ctx)
+Nothing) = forall (m :: * -> *) a. Monad m => a -> m a
+return (a
+tIn, forall a. Maybe a
+Nothing)
+
+readScriptWitnessFilesThruple
+  :: CardanoEra era
+  -> [(a, b, Maybe (ScriptWitnessFiles ctx))]
+  -> ExceptT ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFilesThruple :: forall era a b ctx.
+CardanoEra era
+-> [(a, b, Maybe (ScriptWitnessFiles ctx))]
+-> ExceptT
+     ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]
+readScriptWitnessFilesThruple CardanoEra era
+era = forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (a, b, Maybe (ScriptWitnessFiles ctx))
+-> ExceptT
+     ScriptWitnessError IO (a, b, Maybe (ScriptWitness ctx era))
+readSwitFile
+ where
+  readSwitFile :: (a, b, Maybe (ScriptWitnessFiles ctx))
+-> ExceptT
+     ScriptWitnessError IO (a, b, Maybe (ScriptWitness ctx era))
+readSwitFile (a
+tIn, b
+b, Just ScriptWitnessFiles ctx
+switFile) = do
+      ScriptWitness ctx era
+sWit <- forall era witctx.
+CardanoEra era
+-> ScriptWitnessFiles witctx
+-> ExceptT ScriptWitnessError IO (ScriptWitness witctx era)
+readScriptWitness CardanoEra era
+era ScriptWitnessFiles ctx
+switFile
+      forall (m :: * -> *) a. Monad m => a -> m a
+return (a
+tIn, b
+b, forall a. a -> Maybe a
+Just ScriptWitness ctx era
+sWit)
+  readSwitFile (a
+tIn, b
+b, Maybe (ScriptWitnessFiles ctx)
+Nothing) = forall (m :: * -> *) a. Monad m => a -> m a
+return (a
+tIn, b
+b, forall a. Maybe a
+Nothing)
+
+readScriptWitness
+  :: CardanoEra era
+  -> ScriptWitnessFiles witctx
+  -> ExceptT ScriptWitnessError IO (ScriptWitness witctx era)
+readScriptWitness :: forall era witctx.
+CardanoEra era
+-> ScriptWitnessFiles witctx
+-> ExceptT ScriptWitnessError IO (ScriptWitness witctx era)
+readScriptWitness CardanoEra era
+era (SimpleScriptWitnessFile (ScriptFile String
+scriptFile)) = do
+    script :: ScriptInAnyLang
+script@(ScriptInAnyLang ScriptLanguage lang
+lang Script lang
+_) <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> ScriptWitnessError
+ScriptWitnessErrorFile forall a b. (a -> b) -> a -> b
+$
+                                         String -> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang String
+scriptFile
+    ScriptInEra ScriptLanguageInEra lang era
+langInEra Script lang
+script'   <- forall era.
+CardanoEra era
+-> ScriptInAnyLang
+-> ExceptT ScriptWitnessError IO (ScriptInEra era)
+validateScriptSupportedInEra CardanoEra era
+era ScriptInAnyLang
+script
+    case Script lang
+script' of
+      SimpleScript SimpleScript
+sscript ->
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era witctx.
+ScriptLanguageInEra SimpleScript' era
+-> SimpleScriptOrReferenceInput SimpleScript'
+-> ScriptWitness witctx era
+SimpleScriptWitness ScriptLanguageInEra lang era
+langInEra forall a b. (a -> b) -> a -> b
+$ forall lang. SimpleScript -> SimpleScriptOrReferenceInput lang
+SScript SimpleScript
+sscript
+
+      -- If the supplied cli flags were for a simple script (i.e. the user did
+      -- not supply the datum, redeemer or ex units), but the script file turns
+      -- out to be a valid plutus script, then we must fail.
+      PlutusScript{} ->
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ String -> AnyScriptLanguage -> ScriptWitnessError
+ScriptWitnessErrorExpectedSimple
+                 String
+scriptFile
+                 (forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage lang
+lang)
+
+readScriptWitness CardanoEra era
+era (PlutusScriptWitnessFiles
+                          (ScriptFile String
+scriptFile)
+                          ScriptDatumOrFile witctx
+datumOrFile
+                          ScriptRedeemerOrFile
+redeemerOrFile
+                          ExecutionUnits
+execUnits) = do
+    script :: ScriptInAnyLang
+script@(ScriptInAnyLang ScriptLanguage lang
+lang Script lang
+_) <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> ScriptWitnessError
+ScriptWitnessErrorFile forall a b. (a -> b) -> a -> b
+$
+                                         String -> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang String
+scriptFile
+    ScriptInEra ScriptLanguageInEra lang era
+langInEra Script lang
+script'   <- forall era.
+CardanoEra era
+-> ScriptInAnyLang
+-> ExceptT ScriptWitnessError IO (ScriptInEra era)
+validateScriptSupportedInEra CardanoEra era
+era ScriptInAnyLang
+script
+    case Script lang
+script' of
+      PlutusScript PlutusScriptVersion lang
+version PlutusScript lang
+pscript -> do
+        ScriptDatum witctx
+datum <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> ScriptWitnessError
+ScriptWitnessErrorScriptData
+                   forall a b. (a -> b) -> a -> b
+$ forall witctx.
+ScriptDatumOrFile witctx
+-> ExceptT ScriptDataError IO (ScriptDatum witctx)
+readScriptDatumOrFile ScriptDatumOrFile witctx
+datumOrFile
+        HashableScriptData
+redeemer <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> ScriptWitnessError
+ScriptWitnessErrorScriptData
+                   forall a b. (a -> b) -> a -> b
+$ ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptRedeemerOrFile ScriptRedeemerOrFile
+redeemerOrFile
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall lang era witctx.
+ScriptLanguageInEra lang era
+-> PlutusScriptVersion lang
+-> PlutusScriptOrReferenceInput lang
+-> ScriptDatum witctx
+-> HashableScriptData
+-> ExecutionUnits
+-> ScriptWitness witctx era
+PlutusScriptWitness
+                   ScriptLanguageInEra lang era
+langInEra PlutusScriptVersion lang
+version (forall lang. PlutusScript lang -> PlutusScriptOrReferenceInput lang
+PScript PlutusScript lang
+pscript)
+                   ScriptDatum witctx
+datum
+                   HashableScriptData
+redeemer
+                   ExecutionUnits
+execUnits
+
+      -- If the supplied cli flags were for a plutus script (i.e. the user did
+      -- supply the datum, redeemer and ex units), but the script file turns
+      -- out to be a valid simple script, then we must fail.
+      SimpleScript{} ->
+        forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ String -> AnyScriptLanguage -> ScriptWitnessError
+ScriptWitnessErrorExpectedPlutus
+                 String
+scriptFile
+                 (forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage lang
+lang)
+
+readScriptWitness CardanoEra era
+era (PlutusReferenceScriptWitnessFiles TxIn
+refTxIn
+                          anyScrLang :: AnyScriptLanguage
+anyScrLang@(AnyScriptLanguage ScriptLanguage lang
+anyScriptLanguage)
+                          ScriptDatumOrFile witctx
+datumOrFile ScriptRedeemerOrFile
+redeemerOrFile ExecutionUnits
+execUnits Maybe PolicyId
+mPid) = do
+  forall era a.
+(ByronToAlonzoEraConstraints era => ByronToAlonzoEra era -> a)
+-> (BabbageEraOnwardsConstraints era => BabbageEraOnwards era -> a)
+-> CardanoEra era
+-> a
+caseByronToAlonzoOrBabbageEraOnwards
+    ( forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+        forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> ScriptWitnessError
+ScriptWitnessErrorReferenceScriptsNotSupportedInEra
+        forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+    )
+    ( forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$
+        case forall era lang.
+CardanoEra era
+-> ScriptLanguage lang -> Maybe (ScriptLanguageInEra lang era)
+scriptLanguageSupportedInEra CardanoEra era
+era ScriptLanguage lang
+anyScriptLanguage of
+          Just ScriptLanguageInEra lang era
+sLangInEra ->
+            case forall lang era.
+ScriptLanguageInEra lang era -> ScriptLanguage lang
+languageOfScriptLanguageInEra ScriptLanguageInEra lang era
+sLangInEra of
+              ScriptLanguage lang
+SimpleScriptLanguage ->
+                -- TODO: We likely need another datatype eg data ReferenceScriptWitness lang
+                -- in order to make this branch unrepresentable.
+                forall a. HasCallStack => String -> a
+error String
+"readScriptWitness: Should not be possible to specify a simple script"
+              PlutusScriptLanguage PlutusScriptVersion lang
+version -> do
+                ScriptDatum witctx
+datum <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> ScriptWitnessError
+ScriptWitnessErrorScriptData
+                          forall a b. (a -> b) -> a -> b
+$ forall witctx.
+ScriptDatumOrFile witctx
+-> ExceptT ScriptDataError IO (ScriptDatum witctx)
+readScriptDatumOrFile    ScriptDatumOrFile witctx
+datumOrFile
+                HashableScriptData
+redeemer <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ScriptDataError -> ScriptWitnessError
+ScriptWitnessErrorScriptData
+                              forall a b. (a -> b) -> a -> b
+$ ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptRedeemerOrFile ScriptRedeemerOrFile
+redeemerOrFile
+                forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall lang era witctx.
+ScriptLanguageInEra lang era
+-> PlutusScriptVersion lang
+-> PlutusScriptOrReferenceInput lang
+-> ScriptDatum witctx
+-> HashableScriptData
+-> ExecutionUnits
+-> ScriptWitness witctx era
+PlutusScriptWitness
+                          ScriptLanguageInEra lang era
+sLangInEra
+                          PlutusScriptVersion lang
+version
+                          (forall lang.
+TxIn -> Maybe ScriptHash -> PlutusScriptOrReferenceInput lang
+PReferenceScript TxIn
+refTxIn (PolicyId -> ScriptHash
+unPolicyId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe PolicyId
+mPid))
+                          ScriptDatum witctx
+datum HashableScriptData
+redeemer ExecutionUnits
+execUnits
+          Maybe (ScriptLanguageInEra lang era)
+Nothing ->
+            forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ AnyScriptLanguage -> AnyCardanoEra -> ScriptWitnessError
+ScriptWitnessErrorScriptLanguageNotSupportedInEra AnyScriptLanguage
+anyScrLang (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era)
+    )
+    CardanoEra era
+era
+readScriptWitness CardanoEra era
+era (SimpleReferenceScriptWitnessFiles TxIn
+refTxIn
+                         anyScrLang :: AnyScriptLanguage
+anyScrLang@(AnyScriptLanguage ScriptLanguage lang
+anyScriptLanguage) Maybe PolicyId
+mPid) = do
+  forall era a.
+(ByronToAlonzoEraConstraints era => ByronToAlonzoEra era -> a)
+-> (BabbageEraOnwardsConstraints era => BabbageEraOnwards era -> a)
+-> CardanoEra era
+-> a
+caseByronToAlonzoOrBabbageEraOnwards
+    ( forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left
+        forall a b. (a -> b) -> a -> b
+$ AnyCardanoEra -> ScriptWitnessError
+ScriptWitnessErrorReferenceScriptsNotSupportedInEra
+        forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+    )
+    ( forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$
+        case forall era lang.
+CardanoEra era
+-> ScriptLanguage lang -> Maybe (ScriptLanguageInEra lang era)
+scriptLanguageSupportedInEra CardanoEra era
+era ScriptLanguage lang
+anyScriptLanguage of
+          Just ScriptLanguageInEra lang era
+sLangInEra ->
+            case forall lang era.
+ScriptLanguageInEra lang era -> ScriptLanguage lang
+languageOfScriptLanguageInEra ScriptLanguageInEra lang era
+sLangInEra of
+              ScriptLanguage lang
+SimpleScriptLanguage ->
+                forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era witctx.
+ScriptLanguageInEra SimpleScript' era
+-> SimpleScriptOrReferenceInput SimpleScript'
+-> ScriptWitness witctx era
+SimpleScriptWitness ScriptLanguageInEra lang era
+sLangInEra
+                      forall a b. (a -> b) -> a -> b
+$ forall lang.
+TxIn -> Maybe ScriptHash -> SimpleScriptOrReferenceInput lang
+SReferenceScript TxIn
+refTxIn (PolicyId -> ScriptHash
+unPolicyId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Maybe PolicyId
+mPid)
+              PlutusScriptLanguage{} ->
+                forall a. HasCallStack => String -> a
+error String
+"readScriptWitness: Should not be possible to specify a plutus script"
+          Maybe (ScriptLanguageInEra lang era)
+Nothing ->
+            forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ AnyScriptLanguage -> AnyCardanoEra -> ScriptWitnessError
+ScriptWitnessErrorScriptLanguageNotSupportedInEra AnyScriptLanguage
+anyScrLang (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era)
+    )
+    CardanoEra era
+era
+
+validateScriptSupportedInEra :: CardanoEra era
+                             -> ScriptInAnyLang
+                             -> ExceptT ScriptWitnessError IO (ScriptInEra era)
+validateScriptSupportedInEra :: forall era.
+CardanoEra era
+-> ScriptInAnyLang
+-> ExceptT ScriptWitnessError IO (ScriptInEra era)
+validateScriptSupportedInEra CardanoEra era
+era script :: ScriptInAnyLang
+script@(ScriptInAnyLang ScriptLanguage lang
+lang Script lang
+_) =
+    case forall era.
+CardanoEra era -> ScriptInAnyLang -> Maybe (ScriptInEra era)
+toScriptInEra CardanoEra era
+era ScriptInAnyLang
+script of
+      Maybe (ScriptInEra era)
+Nothing -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ AnyScriptLanguage -> AnyCardanoEra -> ScriptWitnessError
+ScriptWitnessErrorScriptLanguageNotSupportedInEra
+                          (forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage lang
+lang) (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era)
+      Just ScriptInEra era
+script' -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptInEra era
+script'
+
+data ScriptDataError =
+    ScriptDataErrorFile (FileError ())
+  | ScriptDataErrorJsonParse !FilePath !String
+  | ScriptDataErrorConversion !FilePath !ScriptDataJsonError
+  | ScriptDataErrorValidation !FilePath !ScriptDataRangeError
+  | ScriptDataErrorMetadataDecode !FilePath !CBOR.DecoderError
+  | ScriptDataErrorJsonBytes !ScriptDataJsonBytesError
+
+renderScriptDataError :: ScriptDataError -> Text
+renderScriptDataError :: ScriptDataError -> Text
+renderScriptDataError (ScriptDataErrorFile FileError ()
+err) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError ()
+err
+renderScriptDataError (ScriptDataErrorJsonParse String
+fp String
+jsonErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Invalid JSON format in file: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+"\nJSON parse error: " forall a. Semigroup a => a -> a -> a
+<> String
+jsonErr
+renderScriptDataError (ScriptDataErrorConversion String
+fp ScriptDataJsonError
+sDataJsonErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error reading metadata at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+"\n" forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError ScriptDataJsonError
+sDataJsonErr
+renderScriptDataError (ScriptDataErrorValidation String
+fp ScriptDataRangeError
+sDataRangeErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error validating script data at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<> String
+":\n" forall a. Semigroup a => a -> a -> a
+<>
+              forall e. Error e => e -> String
+displayError ScriptDataRangeError
+sDataRangeErr
+renderScriptDataError (ScriptDataErrorMetadataDecode String
+fp DecoderError
+decoderErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error decoding CBOR metadata at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show String
+fp forall a. Semigroup a => a -> a -> a
+<>
+              String
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show DecoderError
+decoderErr
+renderScriptDataError (ScriptDataErrorJsonBytes ScriptDataJsonBytesError
+e) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError ScriptDataJsonBytesError
+e
+
+
+readScriptDatumOrFile :: ScriptDatumOrFile witctx
+                      -> ExceptT ScriptDataError IO (ScriptDatum witctx)
+readScriptDatumOrFile :: forall witctx.
+ScriptDatumOrFile witctx
+-> ExceptT ScriptDataError IO (ScriptDatum witctx)
+readScriptDatumOrFile (ScriptDatumOrFileForTxIn ScriptRedeemerOrFile
+df) = HashableScriptData -> ScriptDatum WitCtxTxIn
+ScriptDatumForTxIn forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$>
+                                                        ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptDataOrFile ScriptRedeemerOrFile
+df
+readScriptDatumOrFile ScriptDatumOrFile witctx
+InlineDatumPresentAtTxIn      = forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatum WitCtxTxIn
+InlineScriptDatum
+readScriptDatumOrFile ScriptDatumOrFile witctx
+NoScriptDatumOrFileForMint    = forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatum WitCtxMint
+NoScriptDatumForMint
+readScriptDatumOrFile ScriptDatumOrFile witctx
+NoScriptDatumOrFileForStake   = forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptDatum WitCtxStake
+NoScriptDatumForStake
+
+readScriptRedeemerOrFile :: ScriptRedeemerOrFile
+                         -> ExceptT ScriptDataError IO ScriptRedeemer
+readScriptRedeemerOrFile :: ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptRedeemerOrFile = ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptDataOrFile
+
+readScriptDataOrFile :: ScriptDataOrFile
+                     -> ExceptT ScriptDataError IO HashableScriptData
+readScriptDataOrFile :: ScriptRedeemerOrFile
+-> ExceptT ScriptDataError IO HashableScriptData
+readScriptDataOrFile (ScriptDataValue HashableScriptData
+d) = forall (m :: * -> *) a. Monad m => a -> m a
+return HashableScriptData
+d
+readScriptDataOrFile (ScriptDataJsonFile String
+fp) = do
+  ByteString
+sDataBs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> ScriptDataError
+ScriptDataErrorFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fp) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+fp
+  Value
+sDataValue <- forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (String -> String -> ScriptDataError
+ScriptDataErrorJsonParse String
+fp) forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode ByteString
+sDataBs
+  forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither
+    forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ScriptDataJsonBytesError -> ScriptDataError
+ScriptDataErrorJsonBytes
+    forall a b. (a -> b) -> a -> b
+$ ScriptDataJsonSchema
+-> Value -> Either ScriptDataJsonBytesError HashableScriptData
+scriptDataJsonToHashable ScriptDataJsonSchema
+ScriptDataJsonDetailedSchema Value
+sDataValue
+
+readScriptDataOrFile (ScriptDataCborFile String
+fp) = do
+  ByteString
+origBs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (FileError () -> ScriptDataError
+ScriptDataErrorFile forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. String -> IOException -> FileError e
+FileIOError String
+fp) (String -> IO ByteString
+BS.readFile String
+fp)
+  HashableScriptData
+hSd <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> DecoderError -> ScriptDataError
+ScriptDataErrorMetadataDecode String
+fp)
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a.
+SerialiseAsCBOR a =>
+AsType a -> ByteString -> Either DecoderError a
+deserialiseFromCBOR AsType HashableScriptData
+AsHashableScriptData ByteString
+origBs
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (String -> ScriptDataRangeError -> ScriptDataError
+ScriptDataErrorValidation String
+fp)
+          forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ ScriptData -> Either ScriptDataRangeError ()
+validateScriptData forall a b. (a -> b) -> a -> b
+$ HashableScriptData -> ScriptData
+getScriptData HashableScriptData
+hSd
+  forall (m :: * -> *) a. Monad m => a -> m a
+return HashableScriptData
+hSd
+
+-- | Read a script file. The file can either be in the text envelope format
+-- wrapping the binary representation of any of the supported script languages,
+-- or alternatively it can be a JSON format file for one of the simple script
+-- language versions.
+--
+readFileScriptInAnyLang :: FilePath
+                        -> ExceptT (FileError ScriptDecodeError) IO
+                                   ScriptInAnyLang
+readFileScriptInAnyLang :: String -> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang String
+file = do
+  ByteString
+scriptBytes <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (forall e. String -> IOException -> FileError e
+FileIOError String
+file) forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+BS.readFile String
+file
+  forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (forall e. String -> e -> FileError e
+FileError String
+file) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$
+    ByteString -> Either ScriptDecodeError ScriptInAnyLang
+deserialiseScriptInAnyLang ByteString
+scriptBytes
+
+
+deserialiseScriptInAnyLang :: BS.ByteString
+                           -> Either ScriptDecodeError ScriptInAnyLang
+deserialiseScriptInAnyLang :: ByteString -> Either ScriptDecodeError ScriptInAnyLang
+deserialiseScriptInAnyLang ByteString
+bs =
+    -- Accept either the text envelope format wrapping the binary serialisation,
+    -- or accept the simple script language in its JSON format.
+    --
+    case forall a.
+FromJSON a =>
+AsType a -> ByteString -> Either JsonDecodeError a
+deserialiseFromJSON AsType TextEnvelope
+AsTextEnvelope ByteString
+bs of
+      Left JsonDecodeError
+_   ->
+        -- In addition to the TextEnvelope format, we also try to
+        -- deserialize the JSON representation of SimpleScripts.
+        case forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecodeStrict' ByteString
+bs of
+          Left  String
+err    -> forall a b. a -> Either a b
+Left (JsonDecodeError -> ScriptDecodeError
+ScriptDecodeSimpleScriptError forall a b. (a -> b) -> a -> b
+$ String -> JsonDecodeError
+JsonDecodeError String
+err)
+          Right SimpleScript
+script -> forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ forall lang. ScriptLanguage lang -> Script lang -> ScriptInAnyLang
+ScriptInAnyLang ScriptLanguage SimpleScript'
+SimpleScriptLanguage forall a b. (a -> b) -> a -> b
+$ SimpleScript -> Script SimpleScript'
+SimpleScript SimpleScript
+script
+
+      Right TextEnvelope
+te ->
+        case forall b.
+[FromSomeType HasTextEnvelope b]
+-> TextEnvelope -> Either TextEnvelopeError b
+deserialiseFromTextEnvelopeAnyOf [FromSomeType HasTextEnvelope ScriptInAnyLang]
+textEnvTypes TextEnvelope
+te of
+          Left  TextEnvelopeError
+err    -> forall a b. a -> Either a b
+Left (TextEnvelopeError -> ScriptDecodeError
+ScriptDecodeTextEnvelopeError TextEnvelopeError
+err)
+          Right ScriptInAnyLang
+script -> forall a b. b -> Either a b
+Right ScriptInAnyLang
+script
+
+  where
+    -- TODO: Think of a way to get type checker to warn when there is a missing
+    -- script version.
+    textEnvTypes :: [FromSomeType HasTextEnvelope ScriptInAnyLang]
+    textEnvTypes :: [FromSomeType HasTextEnvelope ScriptInAnyLang]
+textEnvTypes =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall lang. AsType lang -> AsType (Script lang)
+AsScript AsType SimpleScript'
+AsSimpleScript)
+                     (forall lang. ScriptLanguage lang -> Script lang -> ScriptInAnyLang
+ScriptInAnyLang ScriptLanguage SimpleScript'
+SimpleScriptLanguage)
+
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall lang. AsType lang -> AsType (Script lang)
+AsScript AsType PlutusScriptV1
+AsPlutusScriptV1)
+                     (forall lang. ScriptLanguage lang -> Script lang -> ScriptInAnyLang
+ScriptInAnyLang (forall lang. PlutusScriptVersion lang -> ScriptLanguage lang
+PlutusScriptLanguage PlutusScriptVersion PlutusScriptV1
+PlutusScriptV1))
+
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall lang. AsType lang -> AsType (Script lang)
+AsScript AsType PlutusScriptV2
+AsPlutusScriptV2)
+                     (forall lang. ScriptLanguage lang -> Script lang -> ScriptInAnyLang
+ScriptInAnyLang (forall lang. PlutusScriptVersion lang -> ScriptLanguage lang
+PlutusScriptLanguage PlutusScriptVersion PlutusScriptV2
+PlutusScriptV2))
+      ]
+
+-- Tx & TxBody
+
+newtype CddlTx = CddlTx {CddlTx -> InAnyCardanoEra Tx
+unCddlTx :: InAnyCardanoEra Tx} deriving (Int -> CddlTx -> ShowS
+[CddlTx] -> ShowS
+CddlTx -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CddlTx] -> ShowS
+$cshowList :: [CddlTx] -> ShowS
+show :: CddlTx -> String
+$cshow :: CddlTx -> String
+showsPrec :: Int -> CddlTx -> ShowS
+$cshowsPrec :: Int -> CddlTx -> ShowS
+Show, CddlTx -> CddlTx -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: CddlTx -> CddlTx -> Bool
+$c/= :: CddlTx -> CddlTx -> Bool
+== :: CddlTx -> CddlTx -> Bool
+$c== :: CddlTx -> CddlTx -> Bool
+Eq)
+
+readFileTx :: FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx :: FileOrPipe -> IO (Either CddlError (InAnyCardanoEra Tx))
+readFileTx FileOrPipe
+file = do
+  Either (FileError TextEnvelopeError) (InAnyCardanoEra Tx)
+eAnyTx <- forall (thing :: * -> *).
+(HasTextEnvelope (thing ByronEra),
+ HasTextEnvelope (thing ShelleyEra),
+ HasTextEnvelope (thing AllegraEra),
+ HasTextEnvelope (thing MaryEra), HasTextEnvelope (thing AlonzoEra),
+ HasTextEnvelope (thing BabbageEra),
+ HasTextEnvelope (thing ConwayEra)) =>
+(forall era. AsType era -> AsType (thing era))
+-> FileOrPipe
+-> IO
+     (Either (FileError TextEnvelopeError) (InAnyCardanoEra thing))
+readFileInAnyCardanoEra forall era. AsType era -> AsType (Tx era)
+AsTx FileOrPipe
+file
+  case Either (FileError TextEnvelopeError) (InAnyCardanoEra Tx)
+eAnyTx of
+    Left FileError TextEnvelopeError
+e -> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap CddlTx -> InAnyCardanoEra Tx
+unCddlTx forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileOrPipe
+-> FileError TextEnvelopeError -> IO (Either CddlError CddlTx)
+acceptTxCDDLSerialisation FileOrPipe
+file FileError TextEnvelopeError
+e
+    Right InAnyCardanoEra Tx
+tx -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right InAnyCardanoEra Tx
+tx
+
+-- IncompleteCddlFormattedTx is an CDDL formatted tx or partial tx
+-- (respectively needs additional witnesses or totally unwitnessed)
+-- while UnwitnessedCliFormattedTxBody is CLI formatted TxBody and
+-- needs to be key witnessed.
+
+data IncompleteTx
+  = UnwitnessedCliFormattedTxBody (InAnyCardanoEra TxBody)
+  | IncompleteCddlFormattedTx (InAnyCardanoEra Tx)
+
+readFileTxBody :: FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody :: FileOrPipe -> IO (Either CddlError IncompleteTx)
+readFileTxBody FileOrPipe
+file = do
+  Either (FileError TextEnvelopeError) (InAnyCardanoEra TxBody)
+eTxBody <- forall (thing :: * -> *).
+(HasTextEnvelope (thing ByronEra),
+ HasTextEnvelope (thing ShelleyEra),
+ HasTextEnvelope (thing AllegraEra),
+ HasTextEnvelope (thing MaryEra), HasTextEnvelope (thing AlonzoEra),
+ HasTextEnvelope (thing BabbageEra),
+ HasTextEnvelope (thing ConwayEra)) =>
+(forall era. AsType era -> AsType (thing era))
+-> FileOrPipe
+-> IO
+     (Either (FileError TextEnvelopeError) (InAnyCardanoEra thing))
+readFileInAnyCardanoEra forall era. AsType era -> AsType (TxBody era)
+AsTxBody FileOrPipe
+file
+  case Either (FileError TextEnvelopeError) (InAnyCardanoEra TxBody)
+eTxBody of
+    Left FileError TextEnvelopeError
+e -> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (InAnyCardanoEra Tx -> IncompleteTx
+IncompleteCddlFormattedTx forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CddlTx -> InAnyCardanoEra Tx
+unCddlTx) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileOrPipe
+-> FileError TextEnvelopeError -> IO (Either CddlError CddlTx)
+acceptTxCDDLSerialisation FileOrPipe
+file FileError TextEnvelopeError
+e
+    Right InAnyCardanoEra TxBody
+txBody -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ InAnyCardanoEra TxBody -> IncompleteTx
+UnwitnessedCliFormattedTxBody InAnyCardanoEra TxBody
+txBody
+
+data CddlError = CddlErrorTextEnv
+                   !(FileError TextEnvelopeError)
+                   !(FileError TextEnvelopeCddlError)
+               | CddlIOError (FileError TextEnvelopeError)
+               deriving Int -> CddlError -> ShowS
+[CddlError] -> ShowS
+CddlError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CddlError] -> ShowS
+$cshowList :: [CddlError] -> ShowS
+show :: CddlError -> String
+$cshow :: CddlError -> String
+showsPrec :: Int -> CddlError -> ShowS
+$cshowsPrec :: Int -> CddlError -> ShowS
+Show
+
+instance Error CddlError where
+  displayError :: CddlError -> String
+displayError (CddlErrorTextEnv FileError TextEnvelopeError
+textEnvErr FileError TextEnvelopeCddlError
+cddlErr) =
+    String
+"Failed to decode neither the cli's serialisation format nor the ledger's \
+    \CDDL serialisation format. TextEnvelope error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+textEnvErr forall a. Semigroup a => a -> a -> a
+<> String
+"\n" forall a. Semigroup a => a -> a -> a
+<>
+    String
+"TextEnvelopeCddl error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeCddlError
+cddlErr
+  displayError (CddlIOError FileError TextEnvelopeError
+e) = forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+
+acceptTxCDDLSerialisation
+  :: FileOrPipe
+  -> FileError TextEnvelopeError
+  -> IO (Either CddlError CddlTx)
+acceptTxCDDLSerialisation :: FileOrPipe
+-> FileError TextEnvelopeError -> IO (Either CddlError CddlTx)
+acceptTxCDDLSerialisation FileOrPipe
+file FileError TextEnvelopeError
+err =
+  case FileError TextEnvelopeError
+err of
+   e :: FileError TextEnvelopeError
+e@(FileError String
+_ (TextEnvelopeDecodeError DecoderError
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlError
+CddlErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx FileOrPipe
+file
+   e :: FileError TextEnvelopeError
+e@(FileError String
+_ (TextEnvelopeAesonDecodeError String
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlError
+CddlErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx FileOrPipe
+file
+   e :: FileError TextEnvelopeError
+e@(FileError String
+_ (TextEnvelopeTypeError [TextEnvelopeType]
+_ TextEnvelopeType
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlError
+CddlErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx FileOrPipe
+file
+   e :: FileError TextEnvelopeError
+e@FileErrorTempFile{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlError
+CddlIOError FileError TextEnvelopeError
+e
+   e :: FileError TextEnvelopeError
+e@FileDoesNotExistError{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlError
+CddlIOError FileError TextEnvelopeError
+e
+   e :: FileError TextEnvelopeError
+e@FileIOError{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlError
+CddlIOError FileError TextEnvelopeError
+e
+
+readCddlTx :: FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx :: FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx = forall b.
+[FromSomeTypeCDDL TextEnvelopeCddl b]
+-> FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) b)
+readFileOrPipeTextEnvelopeCddlAnyOf [FromSomeTypeCDDL TextEnvelopeCddl CddlTx]
+teTypes
+ where
+    teTypes :: [FromSomeTypeCDDL TextEnvelopeCddl CddlTx]
+teTypes = [ forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx ByronEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx ShelleyEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx AllegraEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx MaryEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx AlonzoEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx BabbageEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Witnessed Tx ConwayEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx ByronEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx ShelleyEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx AllegraEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx MaryEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx AlonzoEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx BabbageEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              , forall b.
+Text
+-> (InAnyCardanoEra Tx -> b) -> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLTx Text
+"Unwitnessed Tx ConwayEra" InAnyCardanoEra Tx -> CddlTx
+CddlTx
+              ]
+
+-- Tx witnesses
+
+newtype CddlWitness = CddlWitness { CddlWitness -> InAnyCardanoEra KeyWitness
+unCddlWitness :: InAnyCardanoEra KeyWitness}
+
+readFileTxKeyWitness :: FilePath
+                -> IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))
+readFileTxKeyWitness :: String -> IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))
+readFileTxKeyWitness String
+fp = do
+  FileOrPipe
+file <- String -> IO FileOrPipe
+fileOrPipe String
+fp
+  Either (FileError TextEnvelopeError) (InAnyCardanoEra KeyWitness)
+eWitness <- forall (thing :: * -> *).
+(HasTextEnvelope (thing ByronEra),
+ HasTextEnvelope (thing ShelleyEra),
+ HasTextEnvelope (thing AllegraEra),
+ HasTextEnvelope (thing MaryEra), HasTextEnvelope (thing AlonzoEra),
+ HasTextEnvelope (thing BabbageEra),
+ HasTextEnvelope (thing ConwayEra)) =>
+(forall era. AsType era -> AsType (thing era))
+-> FileOrPipe
+-> IO
+     (Either (FileError TextEnvelopeError) (InAnyCardanoEra thing))
+readFileInAnyCardanoEra forall era. AsType era -> AsType (KeyWitness era)
+AsKeyWitness FileOrPipe
+file
+  case Either (FileError TextEnvelopeError) (InAnyCardanoEra KeyWitness)
+eWitness of
+    Left FileError TextEnvelopeError
+e -> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap CddlWitness -> InAnyCardanoEra KeyWitness
+unCddlWitness forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> FileError TextEnvelopeError
+-> IO (Either CddlWitnessError CddlWitness)
+acceptKeyWitnessCDDLSerialisation FileError TextEnvelopeError
+e
+    Right InAnyCardanoEra KeyWitness
+keyWit -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right InAnyCardanoEra KeyWitness
+keyWit
+
+data CddlWitnessError
+  = CddlWitnessErrorTextEnv
+      (FileError TextEnvelopeError)
+      (FileError TextEnvelopeCddlError)
+  | CddlWitnessIOError (FileError TextEnvelopeError)
+  deriving Int -> CddlWitnessError -> ShowS
+[CddlWitnessError] -> ShowS
+CddlWitnessError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CddlWitnessError] -> ShowS
+$cshowList :: [CddlWitnessError] -> ShowS
+show :: CddlWitnessError -> String
+$cshow :: CddlWitnessError -> String
+showsPrec :: Int -> CddlWitnessError -> ShowS
+$cshowsPrec :: Int -> CddlWitnessError -> ShowS
+Show
+
+instance Error CddlWitnessError where
+  displayError :: CddlWitnessError -> String
+displayError (CddlWitnessErrorTextEnv FileError TextEnvelopeError
+teErr FileError TextEnvelopeCddlError
+cddlErr) =
+    String
+"Failed to decode neither the cli's serialisation format nor the ledger's \
+    \CDDL serialisation format. TextEnvelope error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+teErr forall a. Semigroup a => a -> a -> a
+<> String
+"\n" forall a. Semigroup a => a -> a -> a
+<>
+    String
+"TextEnvelopeCddl error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeCddlError
+cddlErr
+  displayError (CddlWitnessIOError FileError TextEnvelopeError
+fileE) = forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileE
+
+
+-- TODO: This is a stop gap to avoid modifying the TextEnvelope
+-- related functions. We intend to remove this after fully deprecating
+-- the cli's serialisation format
+acceptKeyWitnessCDDLSerialisation
+  :: FileError TextEnvelopeError
+  -> IO (Either CddlWitnessError CddlWitness)
+acceptKeyWitnessCDDLSerialisation :: FileError TextEnvelopeError
+-> IO (Either CddlWitnessError CddlWitness)
+acceptKeyWitnessCDDLSerialisation FileError TextEnvelopeError
+err =
+  case FileError TextEnvelopeError
+err of
+    e :: FileError TextEnvelopeError
+e@(FileError String
+fp (TextEnvelopeDecodeError DecoderError
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlWitnessError
+CddlWitnessErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> IO (Either (FileError TextEnvelopeCddlError) CddlWitness)
+readCddlWitness String
+fp
+    e :: FileError TextEnvelopeError
+e@(FileError String
+fp (TextEnvelopeAesonDecodeError String
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlWitnessError
+CddlWitnessErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> IO (Either (FileError TextEnvelopeCddlError) CddlWitness)
+readCddlWitness String
+fp
+    e :: FileError TextEnvelopeError
+e@(FileError String
+fp (TextEnvelopeTypeError [TextEnvelopeType]
+_ TextEnvelopeType
+_)) ->
+      forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (FileError TextEnvelopeError
+-> FileError TextEnvelopeCddlError -> CddlWitnessError
+CddlWitnessErrorTextEnv FileError TextEnvelopeError
+e) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> String -> IO (Either (FileError TextEnvelopeCddlError) CddlWitness)
+readCddlWitness String
+fp
+    e :: FileError TextEnvelopeError
+e@FileErrorTempFile{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlWitnessError
+CddlWitnessIOError FileError TextEnvelopeError
+e
+    e :: FileError TextEnvelopeError
+e@FileDoesNotExistError{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlWitnessError
+CddlWitnessIOError FileError TextEnvelopeError
+e
+    e :: FileError TextEnvelopeError
+e@FileIOError{} -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError -> CddlWitnessError
+CddlWitnessIOError FileError TextEnvelopeError
+e
+
+readCddlWitness
+  :: FilePath
+  -> IO (Either (FileError TextEnvelopeCddlError) CddlWitness)
+readCddlWitness :: String -> IO (Either (FileError TextEnvelopeCddlError) CddlWitness)
+readCddlWitness String
+fp = do
+  forall b.
+[FromSomeTypeCDDL TextEnvelopeCddl b]
+-> String -> IO (Either (FileError TextEnvelopeCddlError) b)
+readFileTextEnvelopeCddlAnyOf [FromSomeTypeCDDL TextEnvelopeCddl CddlWitness]
+teTypes String
+fp
+ where
+  teTypes :: [FromSomeTypeCDDL TextEnvelopeCddl CddlWitness]
+teTypes = [ forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness ShelleyEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            , forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness AllegraEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            , forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness MaryEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            , forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness AlonzoEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            , forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness BabbageEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            , forall b.
+Text
+-> (InAnyCardanoEra KeyWitness -> b)
+-> FromSomeTypeCDDL TextEnvelopeCddl b
+FromCDDLWitness Text
+"TxWitness ConwayEra" InAnyCardanoEra KeyWitness -> CddlWitness
+CddlWitness
+            ]
+
+-- Witness handling
+
+data SomeSigningWitness
+  = AByronSigningWitness                    (SigningKey ByronKey) (Maybe (Address ByronAddr))
+  | APaymentSigningWitness                  (SigningKey PaymentKey)
+  | APaymentExtendedSigningWitness          (SigningKey PaymentExtendedKey)
+  | AStakeSigningWitness                    (SigningKey StakeKey)
+  | AStakeExtendedSigningWitness            (SigningKey StakeExtendedKey)
+  | AStakePoolSigningWitness                (SigningKey StakePoolKey)
+  | AGenesisSigningWitness                  (SigningKey GenesisKey)
+  | AGenesisExtendedSigningWitness          (SigningKey GenesisExtendedKey)
+  | AGenesisDelegateSigningWitness          (SigningKey GenesisDelegateKey)
+  | AGenesisDelegateExtendedSigningWitness  (SigningKey GenesisDelegateExtendedKey)
+  | AGenesisUTxOSigningWitness              (SigningKey GenesisUTxOKey)
+  | ADRepSigningWitness                     (SigningKey DRepKey)
+  | ACommitteeColdSigningWitness            (SigningKey CommitteeColdKey)
+  | ACommitteeHotSigningWitness             (SigningKey CommitteeHotKey)
+  deriving Int -> SomeSigningWitness -> ShowS
+[SomeSigningWitness] -> ShowS
+SomeSigningWitness -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [SomeSigningWitness] -> ShowS
+$cshowList :: [SomeSigningWitness] -> ShowS
+show :: SomeSigningWitness -> String
+$cshow :: SomeSigningWitness -> String
+showsPrec :: Int -> SomeSigningWitness -> ShowS
+$cshowsPrec :: Int -> SomeSigningWitness -> ShowS
+Show
+
+
+-- | Data required for constructing a Shelley bootstrap witness.
+data ShelleyBootstrapWitnessSigningKeyData
+  = ShelleyBootstrapWitnessSigningKeyData
+      !(SigningKey ByronKey)
+      -- ^ Byron signing key.
+      !(Maybe (Address ByronAddr))
+      -- ^ An optionally specified Byron address.
+      --
+      -- If specified, both the network ID and derivation path are extracted
+      -- from the address and used in the construction of the Byron witness.
+
+-- | Some kind of Byron or Shelley witness.
+data ByronOrShelleyWitness
+  = AByronWitness !ShelleyBootstrapWitnessSigningKeyData
+  | AShelleyKeyWitness !ShelleyWitnessSigningKey
+
+categoriseSomeSigningWitness :: SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness :: SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness SomeSigningWitness
+swsk =
+  case SomeSigningWitness
+swsk of
+    AByronSigningWitness                    SigningKey ByronKey
+sk Maybe (Address ByronAddr)
+addr -> ShelleyBootstrapWitnessSigningKeyData -> ByronOrShelleyWitness
+AByronWitness      (SigningKey ByronKey
+-> Maybe (Address ByronAddr)
+-> ShelleyBootstrapWitnessSigningKeyData
+ShelleyBootstrapWitnessSigningKeyData  SigningKey ByronKey
+sk Maybe (Address ByronAddr)
+addr)
+    APaymentSigningWitness                  SigningKey PaymentKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey PaymentKey -> ShelleyWitnessSigningKey
+WitnessPaymentKey                      SigningKey PaymentKey
+sk)
+    APaymentExtendedSigningWitness          SigningKey PaymentExtendedKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey PaymentExtendedKey -> ShelleyWitnessSigningKey
+WitnessPaymentExtendedKey              SigningKey PaymentExtendedKey
+sk)
+    AStakeSigningWitness                    SigningKey StakeKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey StakeKey -> ShelleyWitnessSigningKey
+WitnessStakeKey                        SigningKey StakeKey
+sk)
+    AStakeExtendedSigningWitness            SigningKey StakeExtendedKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey StakeExtendedKey -> ShelleyWitnessSigningKey
+WitnessStakeExtendedKey                SigningKey StakeExtendedKey
+sk)
+    AStakePoolSigningWitness                SigningKey StakePoolKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey StakePoolKey -> ShelleyWitnessSigningKey
+WitnessStakePoolKey                    SigningKey StakePoolKey
+sk)
+    AGenesisSigningWitness                  SigningKey GenesisKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey GenesisKey -> ShelleyWitnessSigningKey
+WitnessGenesisKey                      SigningKey GenesisKey
+sk)
+    AGenesisExtendedSigningWitness          SigningKey GenesisExtendedKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey GenesisExtendedKey -> ShelleyWitnessSigningKey
+WitnessGenesisExtendedKey              SigningKey GenesisExtendedKey
+sk)
+    AGenesisDelegateSigningWitness          SigningKey GenesisDelegateKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey GenesisDelegateKey -> ShelleyWitnessSigningKey
+WitnessGenesisDelegateKey              SigningKey GenesisDelegateKey
+sk)
+    AGenesisDelegateExtendedSigningWitness  SigningKey GenesisDelegateExtendedKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey GenesisDelegateExtendedKey -> ShelleyWitnessSigningKey
+WitnessGenesisDelegateExtendedKey      SigningKey GenesisDelegateExtendedKey
+sk)
+    AGenesisUTxOSigningWitness              SigningKey GenesisUTxOKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey GenesisUTxOKey -> ShelleyWitnessSigningKey
+WitnessGenesisUTxOKey                  SigningKey GenesisUTxOKey
+sk)
+    ADRepSigningWitness                     SigningKey DRepKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey PaymentKey -> ShelleyWitnessSigningKey
+WitnessPaymentKey forall a b. (a -> b) -> a -> b
+$ SigningKey DRepKey -> SigningKey PaymentKey
+castDrep           SigningKey DRepKey
+sk)
+    ACommitteeColdSigningWitness            SigningKey CommitteeColdKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey CommitteeColdKey -> ShelleyWitnessSigningKey
+WitnessCommitteeColdKey                SigningKey CommitteeColdKey
+sk)
+    ACommitteeHotSigningWitness             SigningKey CommitteeHotKey
+sk      -> ShelleyWitnessSigningKey -> ByronOrShelleyWitness
+AShelleyKeyWitness (SigningKey CommitteeHotKey -> ShelleyWitnessSigningKey
+WitnessCommitteeHotKey                 SigningKey CommitteeHotKey
+sk)
+
+-- TODO: Conway era - Add constrctor for SigningKey DrepKey to ShelleyWitnessSigningKey
+castDrep :: SigningKey DRepKey -> SigningKey PaymentKey
+castDrep :: SigningKey DRepKey -> SigningKey PaymentKey
+castDrep (DRepSigningKey SignKeyDSIGN StandardCrypto
+sk) = SignKeyDSIGN StandardCrypto -> SigningKey PaymentKey
+PaymentSigningKey SignKeyDSIGN StandardCrypto
+sk
+
+data ReadWitnessSigningDataError
+  = ReadWitnessSigningDataSigningKeyDecodeError !(FileError InputDecodeError)
+  | ReadWitnessSigningDataScriptError !(FileError JsonDecodeError)
+  | ReadWitnessSigningDataSigningKeyAndAddressMismatch
+  -- ^ A Byron address was specified alongside a non-Byron signing key.
+  deriving Int -> ReadWitnessSigningDataError -> ShowS
+[ReadWitnessSigningDataError] -> ShowS
+ReadWitnessSigningDataError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ReadWitnessSigningDataError] -> ShowS
+$cshowList :: [ReadWitnessSigningDataError] -> ShowS
+show :: ReadWitnessSigningDataError -> String
+$cshow :: ReadWitnessSigningDataError -> String
+showsPrec :: Int -> ReadWitnessSigningDataError -> ShowS
+$cshowsPrec :: Int -> ReadWitnessSigningDataError -> ShowS
+Show
+
+-- | Render an error message for a 'ReadWitnessSigningDataError'.
+renderReadWitnessSigningDataError :: ReadWitnessSigningDataError -> Text
+renderReadWitnessSigningDataError :: ReadWitnessSigningDataError -> Text
+renderReadWitnessSigningDataError ReadWitnessSigningDataError
+err =
+  case ReadWitnessSigningDataError
+err of
+    ReadWitnessSigningDataSigningKeyDecodeError FileError InputDecodeError
+fileErr ->
+      Text
+"Error reading signing key: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileErr)
+    ReadWitnessSigningDataScriptError FileError JsonDecodeError
+fileErr ->
+      Text
+"Error reading script: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError JsonDecodeError
+fileErr)
+    ReadWitnessSigningDataError
+ReadWitnessSigningDataSigningKeyAndAddressMismatch ->
+      Text
+"Only a Byron signing key may be accompanied by a Byron address."
+
+readWitnessSigningData
+  :: WitnessSigningData
+  -> IO (Either ReadWitnessSigningDataError SomeSigningWitness)
+readWitnessSigningData :: WitnessSigningData
+-> IO (Either ReadWitnessSigningDataError SomeSigningWitness)
+readWitnessSigningData (KeyWitnessSigningData SigningKeyFile 'In
+skFile Maybe (Address ByronAddr)
+mbByronAddr) = do
+    Either ReadWitnessSigningDataError SomeSigningWitness
+eRes <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first FileError InputDecodeError -> ReadWitnessSigningDataError
+ReadWitnessSigningDataSigningKeyDecodeError
+             forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall content b.
+[FromSomeType SerialiseAsBech32 b]
+-> [FromSomeType HasTextEnvelope b]
+-> File content 'In
+-> IO (Either (FileError InputDecodeError) b)
+readKeyFileAnyOf [FromSomeType SerialiseAsBech32 SomeSigningWitness]
+bech32FileTypes [FromSomeType HasTextEnvelope SomeSigningWitness]
+textEnvFileTypes SigningKeyFile 'In
+skFile
+    forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ do
+      SomeSigningWitness
+res <- Either ReadWitnessSigningDataError SomeSigningWitness
+eRes
+      case (SomeSigningWitness
+res, Maybe (Address ByronAddr)
+mbByronAddr) of
+        (AByronSigningWitness SigningKey ByronKey
+_ Maybe (Address ByronAddr)
+_, Just Address ByronAddr
+_) -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure SomeSigningWitness
+res
+        (AByronSigningWitness SigningKey ByronKey
+_ Maybe (Address ByronAddr)
+_, Maybe (Address ByronAddr)
+Nothing) -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure SomeSigningWitness
+res
+        (SomeSigningWitness
+_, Maybe (Address ByronAddr)
+Nothing) -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure SomeSigningWitness
+res
+        (SomeSigningWitness
+_, Just Address ByronAddr
+_) ->
+          -- A Byron address should only be specified along with a Byron signing key.
+          forall a b. a -> Either a b
+Left ReadWitnessSigningDataError
+ReadWitnessSigningDataSigningKeyAndAddressMismatch
+  where
+    textEnvFileTypes :: [FromSomeType HasTextEnvelope SomeSigningWitness]
+textEnvFileTypes =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType ByronKey
+AsByronKey                   ) (SigningKey ByronKey
+-> Maybe (Address ByronAddr) -> SomeSigningWitness
+`AByronSigningWitness` Maybe (Address ByronAddr)
+mbByronAddr)
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentKey
+AsPaymentKey                 ) SigningKey PaymentKey -> SomeSigningWitness
+APaymentSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentExtendedKey
+AsPaymentExtendedKey         ) SigningKey PaymentExtendedKey -> SomeSigningWitness
+APaymentExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeKey
+AsStakeKey                   ) SigningKey StakeKey -> SomeSigningWitness
+AStakeSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeExtendedKey
+AsStakeExtendedKey           ) SigningKey StakeExtendedKey -> SomeSigningWitness
+AStakeExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey               ) SigningKey StakePoolKey -> SomeSigningWitness
+AStakePoolSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisKey
+AsGenesisKey                 ) SigningKey GenesisKey -> SomeSigningWitness
+AGenesisSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisExtendedKey
+AsGenesisExtendedKey         ) SigningKey GenesisExtendedKey -> SomeSigningWitness
+AGenesisExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey         ) SigningKey GenesisDelegateKey -> SomeSigningWitness
+AGenesisDelegateSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateExtendedKey
+AsGenesisDelegateExtendedKey ) SigningKey GenesisDelegateExtendedKey -> SomeSigningWitness
+AGenesisDelegateExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisUTxOKey
+AsGenesisUTxOKey             ) SigningKey GenesisUTxOKey -> SomeSigningWitness
+AGenesisUTxOSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType DRepKey
+AsDRepKey                    ) SigningKey DRepKey -> SomeSigningWitness
+ADRepSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType CommitteeColdKey
+AsCommitteeColdKey           ) SigningKey CommitteeColdKey -> SomeSigningWitness
+ACommitteeColdSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType CommitteeHotKey
+AsCommitteeHotKey            ) SigningKey CommitteeHotKey -> SomeSigningWitness
+ACommitteeHotSigningWitness
+      ]
+
+    bech32FileTypes :: [FromSomeType SerialiseAsBech32 SomeSigningWitness]
+bech32FileTypes =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentKey
+AsPaymentKey         ) SigningKey PaymentKey -> SomeSigningWitness
+APaymentSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentExtendedKey
+AsPaymentExtendedKey ) SigningKey PaymentExtendedKey -> SomeSigningWitness
+APaymentExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeKey
+AsStakeKey           ) SigningKey StakeKey -> SomeSigningWitness
+AStakeSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeExtendedKey
+AsStakeExtendedKey   ) SigningKey StakeExtendedKey -> SomeSigningWitness
+AStakeExtendedSigningWitness
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey       ) SigningKey StakePoolKey -> SomeSigningWitness
+AStakePoolSigningWitness
+      ]
+
+-- Required signers
+
+data RequiredSignerError
+  = RequiredSignerErrorFile (FileError InputDecodeError)
+  | RequiredSignerErrorByronKey (SigningKeyFile In)
+  deriving Int -> RequiredSignerError -> ShowS
+[RequiredSignerError] -> ShowS
+RequiredSignerError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [RequiredSignerError] -> ShowS
+$cshowList :: [RequiredSignerError] -> ShowS
+show :: RequiredSignerError -> String
+$cshow :: RequiredSignerError -> String
+showsPrec :: Int -> RequiredSignerError -> ShowS
+$cshowsPrec :: Int -> RequiredSignerError -> ShowS
+Show
+
+instance Error RequiredSignerError where
+  displayError :: RequiredSignerError -> String
+displayError (RequiredSignerErrorFile FileError InputDecodeError
+e) = forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+  displayError (RequiredSignerErrorByronKey (File String
+byronSkeyfile)) =
+    String
+"Byron witnesses cannot be used for required signers: " forall a. Semigroup a => a -> a -> a
+<> String
+byronSkeyfile
+
+readRequiredSigner :: RequiredSigner -> IO (Either RequiredSignerError (Hash PaymentKey))
+readRequiredSigner :: RequiredSigner -> IO (Either RequiredSignerError (Hash PaymentKey))
+readRequiredSigner (RequiredSignerHash Hash PaymentKey
+h) = forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right Hash PaymentKey
+h
+readRequiredSigner (RequiredSignerSkeyFile SigningKeyFile 'In
+skFile) = do
+  Either RequiredSignerError SomeSigningWitness
+eKeyWit <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first FileError InputDecodeError -> RequiredSignerError
+RequiredSignerErrorFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall content b.
+[FromSomeType SerialiseAsBech32 b]
+-> [FromSomeType HasTextEnvelope b]
+-> File content 'In
+-> IO (Either (FileError InputDecodeError) b)
+readKeyFileAnyOf forall {a}. [a]
+bech32FileTypes [FromSomeType HasTextEnvelope SomeSigningWitness]
+textEnvFileTypes SigningKeyFile 'In
+skFile
+  forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ do
+    SomeSigningWitness
+keyWit <- Either RequiredSignerError SomeSigningWitness
+eKeyWit
+    case SomeSigningWitness -> ByronOrShelleyWitness
+categoriseSomeSigningWitness SomeSigningWitness
+keyWit of
+      AByronWitness ShelleyBootstrapWitnessSigningKeyData
+_ ->
+        forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ SigningKeyFile 'In -> RequiredSignerError
+RequiredSignerErrorByronKey SigningKeyFile 'In
+skFile
+      AShelleyKeyWitness ShelleyWitnessSigningKey
+skey ->
+        forall (m :: * -> *) a. Monad m => a -> m a
+return forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ShelleySigningKey -> Hash PaymentKey
+getHash forall a b. (a -> b) -> a -> b
+$ ShelleyWitnessSigningKey -> ShelleySigningKey
+toShelleySigningKey ShelleyWitnessSigningKey
+skey
+ where
+   textEnvFileTypes :: [FromSomeType HasTextEnvelope SomeSigningWitness]
+textEnvFileTypes =
+     [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentKey
+AsPaymentKey        ) SigningKey PaymentKey -> SomeSigningWitness
+APaymentSigningWitness
+     , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentExtendedKey
+AsPaymentExtendedKey) SigningKey PaymentExtendedKey -> SomeSigningWitness
+APaymentExtendedSigningWitness
+     , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey      ) SigningKey StakePoolKey -> SomeSigningWitness
+AStakePoolSigningWitness
+     , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey) SigningKey GenesisDelegateKey -> SomeSigningWitness
+AGenesisDelegateSigningWitness
+     ]
+   bech32FileTypes :: [a]
+bech32FileTypes = []
+
+   getHash :: ShelleySigningKey -> Hash PaymentKey
+   getHash :: ShelleySigningKey -> Hash PaymentKey
+getHash (ShelleyExtendedSigningKey XPrv
+sk) =
+     let extSKey :: SigningKey PaymentExtendedKey
+extSKey = XPrv -> SigningKey PaymentExtendedKey
+PaymentExtendedSigningKey XPrv
+sk
+         payVKey :: VerificationKey PaymentKey
+payVKey = forall keyroleA keyroleB.
+CastVerificationKeyRole keyroleA keyroleB =>
+VerificationKey keyroleA -> VerificationKey keyroleB
+castVerificationKey forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey PaymentExtendedKey
+extSKey
+     in forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey PaymentKey
+payVKey
+   getHash (ShelleyNormalSigningKey SignKeyDSIGN StandardCrypto
+sk) =
+     forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey forall a b. (a -> b) -> a -> b
+$ SignKeyDSIGN StandardCrypto -> SigningKey PaymentKey
+PaymentSigningKey SignKeyDSIGN StandardCrypto
+sk
+
+data VoteError
+  = VoteErrorFile (FileError TextEnvelopeError)
+  | VoteErrorTextNotUnicode Text.UnicodeException
+  deriving Int -> VoteError -> ShowS
+[VoteError] -> ShowS
+VoteError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VoteError] -> ShowS
+$cshowList :: [VoteError] -> ShowS
+show :: VoteError -> String
+$cshow :: VoteError -> String
+showsPrec :: Int -> VoteError -> ShowS
+$cshowsPrec :: Int -> VoteError -> ShowS
+Show
+
+instance Error VoteError where
+  displayError :: VoteError -> String
+displayError = \case
+    VoteErrorFile FileError TextEnvelopeError
+e -> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+    VoteErrorTextNotUnicode UnicodeException
+e -> String
+"Vote text file not UTF8-encoded: " forall a. Semigroup a => a -> a -> a
+<> forall e. Exception e => e -> String
+displayException UnicodeException
+e
+
+readVotingProceduresFiles :: ()
+  => ConwayEraOnwards era
+  -> [VoteFile In]
+  -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFiles :: forall era.
+ConwayEraOnwards era
+-> [VoteFile 'In] -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFiles ConwayEraOnwards era
+w = \case
+  [] -> forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$ forall era.
+VotingProcedures (ShelleyLedgerEra era) -> VotingProcedures era
+VotingProcedures forall a b. (a -> b) -> a -> b
+$ forall era.
+Map
+  (Voter (EraCrypto era))
+  (Map (GovActionId (EraCrypto era)) (VotingProcedure era))
+-> VotingProcedures era
+Ledger.VotingProcedures forall k a. Map k a
+Map.empty
+  [VoteFile 'In]
+files -> forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+    [VotingProcedures era]
+vpss <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [VoteFile 'In]
+files (forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era.
+ConwayEraOnwards era
+-> VoteFile 'In -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFile ConwayEraOnwards era
+w)
+
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) b a.
+Foldable t =>
+(b -> a -> b) -> b -> t a -> b
+foldl forall era.
+VotingProcedures era
+-> VotingProcedures era -> VotingProcedures era
+unsafeMergeVotingProcedures forall era. VotingProcedures era
+emptyVotingProcedures [VotingProcedures era]
+vpss
+
+readTxUpdateProposal :: ()
+  => ShelleyToBabbageEra era
+  -> UpdateProposalFile
+  -> ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)
+readTxUpdateProposal :: forall era.
+ShelleyToBabbageEra era
+-> UpdateProposalFile
+-> ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)
+readTxUpdateProposal ShelleyToBabbageEra era
+w (UpdateProposalFile String
+upFp) = do
+  forall era.
+ShelleyToBabbageEra era -> UpdateProposal -> TxUpdateProposal era
+TxUpdateProposal ShelleyToBabbageEra era
+w forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT (forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope AsType UpdateProposal
+AsUpdateProposal (forall content (direction :: FileDirection).
+String -> File content direction
+File String
+upFp))
+
+readVotingProceduresFile :: ()
+  => ConwayEraOnwards era
+  -> VoteFile In
+  -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFile :: forall era.
+ConwayEraOnwards era
+-> VoteFile 'In -> IO (Either VoteError (VotingProcedures era))
+readVotingProceduresFile ConwayEraOnwards era
+w VoteFile 'In
+fp =
+  forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w
+    forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first FileError TextEnvelopeError -> VoteError
+VoteErrorFile forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope forall era. AsType (VotingProcedures era)
+AsVotingProcedures VoteFile 'In
+fp
+
+data ConstitutionError
+  = ConstitutionErrorFile (FileError TextEnvelopeError)
+  | ConstitutionNotSupportedInEra AnyCardanoEra
+  | ConstitutionNotUnicodeError Text.UnicodeException
+  deriving Int -> ConstitutionError -> ShowS
+[ConstitutionError] -> ShowS
+ConstitutionError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ConstitutionError] -> ShowS
+$cshowList :: [ConstitutionError] -> ShowS
+show :: ConstitutionError -> String
+$cshow :: ConstitutionError -> String
+showsPrec :: Int -> ConstitutionError -> ShowS
+$cshowsPrec :: Int -> ConstitutionError -> ShowS
+Show
+
+data ProposalError
+  = ProposalErrorFile (FileError TextEnvelopeError)
+  | ProposalNotSupportedInEra AnyCardanoEra
+  | ProposalNotUnicodeError Text.UnicodeException
+  deriving Int -> ProposalError -> ShowS
+[ProposalError] -> ShowS
+ProposalError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ProposalError] -> ShowS
+$cshowList :: [ProposalError] -> ShowS
+show :: ProposalError -> String
+$cshow :: ProposalError -> String
+showsPrec :: Int -> ProposalError -> ShowS
+$cshowsPrec :: Int -> ProposalError -> ShowS
+Show
+
+readTxGovernanceActions
+  :: CardanoEra era
+  -> [ProposalFile In]
+  -> IO (Either ConstitutionError [Proposal era])
+readTxGovernanceActions :: forall era.
+CardanoEra era
+-> [File () 'In] -> IO (Either ConstitutionError [Proposal era])
+readTxGovernanceActions CardanoEra era
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right []
+readTxGovernanceActions CardanoEra era
+era [File () 'In]
+files = forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+  ConwayEraOnwards era
+w <- forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x a. Monad m => x -> Maybe a -> ExceptT x m a
+hoistMaybe (AnyCardanoEra -> ConstitutionError
+ConstitutionNotSupportedInEra forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+  forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (m :: * -> *) a.
+(Traversable t, Monad m) =>
+t (m a) -> m (t a)
+sequence forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first FileError TextEnvelopeError -> ConstitutionError
+ConstitutionErrorFile) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era.
+ConwayEraOnwards era
+-> File () 'In
+-> IO (Either (FileError TextEnvelopeError) (Proposal era))
+readProposal ConwayEraOnwards era
+w) [File () 'In]
+files
+
+readProposal
+  :: ConwayEraOnwards era
+  -> ProposalFile In
+  -> IO (Either (FileError TextEnvelopeError) (Proposal era))
+readProposal :: forall era.
+ConwayEraOnwards era
+-> File () 'In
+-> IO (Either (FileError TextEnvelopeError) (Proposal era))
+readProposal ConwayEraOnwards era
+w File () 'In
+fp =
+    forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+w (forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError TextEnvelopeError) a)
+readFileTextEnvelope forall era. AsType (Proposal era)
+AsProposal File () 'In
+fp)
+
+constitutionHashSourceToHash :: ()
+  => ConstitutionHashSource
+  -> ExceptT ConstitutionError IO (Ledger.SafeHash Ledger.StandardCrypto Ledger.AnchorData)
+constitutionHashSourceToHash :: ConstitutionHashSource
+-> ExceptT
+     ConstitutionError IO (SafeHash StandardCrypto AnchorData)
+constitutionHashSourceToHash ConstitutionHashSource
+constitutionHashSource = do
+  case ConstitutionHashSource
+constitutionHashSource of
+    ConstitutionHashSourceFile File ConstitutionText 'In
+fp  -> do
+      ByteString
+cBs <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+BS.readFile forall a b. (a -> b) -> a -> b
+$ forall content (direction :: FileDirection).
+File content direction -> String
+unFile File ConstitutionText 'In
+fp
+      Text
+_utf8EncodedText <- forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT UnicodeException -> ConstitutionError
+ConstitutionNotUnicodeError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ ByteString -> Either UnicodeException Text
+Text.decodeUtf8' ByteString
+cBs
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. Crypto c => AnchorData -> SafeHash c AnchorData
+Ledger.hashAnchorData forall a b. (a -> b) -> a -> b
+$ ByteString -> AnchorData
+Ledger.AnchorData ByteString
+cBs
+
+    ConstitutionHashSourceText Text
+c -> do
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. Crypto c => AnchorData -> SafeHash c AnchorData
+Ledger.hashAnchorData forall a b. (a -> b) -> a -> b
+$ ByteString -> AnchorData
+Ledger.AnchorData forall a b. (a -> b) -> a -> b
+$ Text -> ByteString
+Text.encodeUtf8 Text
+c
+
+    ConstitutionHashSourceHash SafeHash StandardCrypto AnchorData
+h ->
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure SafeHash StandardCrypto AnchorData
+h
+
+-- Misc
+
+readFileInAnyCardanoEra
+  :: ( HasTextEnvelope (thing ByronEra)
+     , HasTextEnvelope (thing ShelleyEra)
+     , HasTextEnvelope (thing AllegraEra)
+     , HasTextEnvelope (thing MaryEra)
+     , HasTextEnvelope (thing AlonzoEra)
+     , HasTextEnvelope (thing BabbageEra)
+     , HasTextEnvelope (thing ConwayEra)
+     )
+  => (forall era. AsType era -> AsType (thing era))
+  -> FileOrPipe
+  -> IO (Either (FileError TextEnvelopeError) (InAnyCardanoEra thing))
+readFileInAnyCardanoEra :: forall (thing :: * -> *).
+(HasTextEnvelope (thing ByronEra),
+ HasTextEnvelope (thing ShelleyEra),
+ HasTextEnvelope (thing AllegraEra),
+ HasTextEnvelope (thing MaryEra), HasTextEnvelope (thing AlonzoEra),
+ HasTextEnvelope (thing BabbageEra),
+ HasTextEnvelope (thing ConwayEra)) =>
+(forall era. AsType era -> AsType (thing era))
+-> FileOrPipe
+-> IO
+     (Either (FileError TextEnvelopeError) (InAnyCardanoEra thing))
+readFileInAnyCardanoEra forall era. AsType era -> AsType (thing era)
+asThing =
+ forall b.
+[FromSomeType HasTextEnvelope b]
+-> FileOrPipe -> IO (Either (FileError TextEnvelopeError) b)
+readFileOrPipeTextEnvelopeAnyOf
+   [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType ByronEra
+AsByronEra)   (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra ByronEra
+ByronEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType ShelleyEra
+AsShelleyEra) (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra ShelleyEra
+ShelleyEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType AllegraEra
+AsAllegraEra) (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra AllegraEra
+AllegraEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType MaryEra
+AsMaryEra)    (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra MaryEra
+MaryEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType AlonzoEra
+AsAlonzoEra)  (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra AlonzoEra
+AlonzoEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType BabbageEra
+AsBabbageEra) (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra BabbageEra
+BabbageEra)
+   , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall era. AsType era -> AsType (thing era)
+asThing AsType ConwayEra
+AsConwayEra)  (forall era (thing :: * -> *).
+Typeable era =>
+CardanoEra era -> thing era -> InAnyCardanoEra thing
+InAnyCardanoEra CardanoEra ConwayEra
+ConwayEra)
+   ]
+
+-- | We need a type for handling files that may be actually be things like
+-- pipes. Currently the CLI makes no guarantee that a "file" will only
+-- be read once. This is a problem for a user who who expects to be able to pass
+-- a pipe. To handle this, we have a type for representing either files or pipes
+-- where the contents will be saved in memory if what we're reading is a pipe (so
+-- it can be re-read later). Unfortunately this means we can't easily stream data
+-- from pipes, but at present that's not an issue.
+data FileOrPipe = FileOrPipe FilePath (IORef (Maybe LBS.ByteString))
+
+
+instance Show FileOrPipe where
+    show :: FileOrPipe -> String
+show (FileOrPipe String
+fp IORef (Maybe ByteString)
+_) = forall a. Show a => a -> String
+show String
+fp
+
+fileOrPipe :: FilePath -> IO FileOrPipe
+fileOrPipe :: String -> IO FileOrPipe
+fileOrPipe String
+fp = String -> IORef (Maybe ByteString) -> FileOrPipe
+FileOrPipe String
+fp forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. a -> IO (IORef a)
+newIORef forall a. Maybe a
+Nothing
+
+-- | Get the path backing a FileOrPipe. This should primarily be used when
+-- generating error messages for a user. A user should not call directly
+-- call a function like readFile on the result of this function
+fileOrPipePath :: FileOrPipe -> FilePath
+fileOrPipePath :: FileOrPipe -> String
+fileOrPipePath (FileOrPipe String
+fp IORef (Maybe ByteString)
+_) = String
+fp
+
+fileOrPipeCache :: FileOrPipe -> IO (Maybe LBS.ByteString)
+fileOrPipeCache :: FileOrPipe -> IO (Maybe ByteString)
+fileOrPipeCache (FileOrPipe String
+_ IORef (Maybe ByteString)
+c) = forall a. IORef a -> IO a
+readIORef IORef (Maybe ByteString)
+c
+
+-- | Get the contents of a file or pipe. This function reads the entire
+-- contents of the file or pipe, and is blocking.
+readFileOrPipe :: FileOrPipe -> IO LBS.ByteString
+readFileOrPipe :: FileOrPipe -> IO ByteString
+readFileOrPipe (FileOrPipe String
+fp IORef (Maybe ByteString)
+cacheRef) = do
+    Maybe ByteString
+cached <- forall a. IORef a -> IO a
+readIORef IORef (Maybe ByteString)
+cacheRef
+    case Maybe ByteString
+cached of
+      Just ByteString
+dat -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ByteString
+dat
+      Maybe ByteString
+Nothing -> forall a b c. IO a -> (a -> IO b) -> (a -> IO c) -> IO c
+bracket
+        (String -> IOMode -> IO Handle
+openFileBlocking String
+fp IOMode
+ReadMode)
+        Handle -> IO ()
+hClose
+        (\Handle
+handle -> do
+          -- An arbitrary block size.
+          let blockSize :: Int
+blockSize = Int
+4096
+          let go :: Builder -> IO Builder
+go Builder
+acc = do
+                ByteString
+next <- Handle -> Int -> IO ByteString
+BS.hGet Handle
+handle Int
+blockSize
+                if ByteString -> Bool
+BS.null ByteString
+next
+                then forall (f :: * -> *) a. Applicative f => a -> f a
+pure Builder
+acc
+                else Builder -> IO Builder
+go (Builder
+acc forall a. Semigroup a => a -> a -> a
+<> ByteString -> Builder
+Builder.byteString ByteString
+next)
+          Builder
+contents <- Builder -> IO Builder
+go forall a. Monoid a => a
+mempty
+          let dat :: ByteString
+dat = Builder -> ByteString
+Builder.toLazyByteString Builder
+contents
+          -- If our file is not seekable, it's likely a pipe, so we need to
+          -- save the result for subsequent calls
+          Bool
+seekable <- Handle -> IO Bool
+hIsSeekable Handle
+handle
+          forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless Bool
+seekable (forall a. IORef a -> a -> IO ()
+writeIORef IORef (Maybe ByteString)
+cacheRef (forall a. a -> Maybe a
+Just ByteString
+dat))
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure ByteString
+dat)
+
+readFileOrPipeTextEnvelopeAnyOf
+  :: [FromSomeType HasTextEnvelope b]
+  -> FileOrPipe
+  -> IO (Either (FileError TextEnvelopeError) b)
+readFileOrPipeTextEnvelopeAnyOf :: forall b.
+[FromSomeType HasTextEnvelope b]
+-> FileOrPipe -> IO (Either (FileError TextEnvelopeError) b)
+readFileOrPipeTextEnvelopeAnyOf [FromSomeType HasTextEnvelope b]
+types FileOrPipe
+file = do
+    let path :: String
+path = FileOrPipe -> String
+fileOrPipePath FileOrPipe
+file
+    forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+      ByteString
+content <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (forall e. String -> IOException -> FileError e
+FileIOError String
+path) forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO ByteString
+readFileOrPipe FileOrPipe
+file
+      forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (forall e. String -> e -> FileError e
+FileError String
+path) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ do
+        TextEnvelope
+te <- forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first String -> TextEnvelopeError
+TextEnvelopeAesonDecodeError forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+content
+        forall b.
+[FromSomeType HasTextEnvelope b]
+-> TextEnvelope -> Either TextEnvelopeError b
+deserialiseFromTextEnvelopeAnyOf [FromSomeType HasTextEnvelope b]
+types TextEnvelope
+te
+
+readFileOrPipeTextEnvelopeCddlAnyOf
+  :: [FromSomeTypeCDDL TextEnvelopeCddl b]
+  -> FileOrPipe
+  -> IO (Either (FileError TextEnvelopeCddlError) b)
+readFileOrPipeTextEnvelopeCddlAnyOf :: forall b.
+[FromSomeTypeCDDL TextEnvelopeCddl b]
+-> FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) b)
+readFileOrPipeTextEnvelopeCddlAnyOf [FromSomeTypeCDDL TextEnvelopeCddl b]
+types FileOrPipe
+file = do
+  let path :: String
+path = FileOrPipe -> String
+fileOrPipePath FileOrPipe
+file
+  forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+    TextEnvelopeCddl
+te <- forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$ FileOrPipe
+-> IO (Either (FileError TextEnvelopeCddlError) TextEnvelopeCddl)
+readTextEnvelopeCddlFromFileOrPipe FileOrPipe
+file
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (forall e. String -> e -> FileError e
+FileError String
+path) forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ do
+      forall b.
+[FromSomeTypeCDDL TextEnvelopeCddl b]
+-> TextEnvelopeCddl -> Either TextEnvelopeCddlError b
+deserialiseFromTextEnvelopeCddlAnyOf [FromSomeTypeCDDL TextEnvelopeCddl b]
+types TextEnvelopeCddl
+te
+
+readTextEnvelopeCddlFromFileOrPipe
+  :: FileOrPipe
+  -> IO (Either (FileError TextEnvelopeCddlError) TextEnvelopeCddl)
+readTextEnvelopeCddlFromFileOrPipe :: FileOrPipe
+-> IO (Either (FileError TextEnvelopeCddlError) TextEnvelopeCddl)
+readTextEnvelopeCddlFromFileOrPipe FileOrPipe
+file = do
+  let path :: String
+path = FileOrPipe -> String
+fileOrPipePath FileOrPipe
+file
+  forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT forall a b. (a -> b) -> a -> b
+$ do
+    ByteString
+bs <- forall (m :: * -> *) x a.
+MonadIO m =>
+(IOException -> x) -> IO a -> ExceptT x m a
+handleIOExceptT (forall e. String -> IOException -> FileError e
+FileIOError String
+path) forall a b. (a -> b) -> a -> b
+$
+            FileOrPipe -> IO ByteString
+readFileOrPipe FileOrPipe
+file
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (forall e. String -> e -> FileError e
+FileError String
+path forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> String -> TextEnvelopeCddlError
+TextEnvelopeCddlAesonDecodeError String
+path)
+      forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) x a. Monad m => Either x a -> ExceptT x m a
+hoistEither forall a b. (a -> b) -> a -> b
+$ forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode' ByteString
+bs
+
+----------------------------------------------------------------------------------------------------
+
+getStakeCredentialFromVerifier :: ()
+  => StakeVerifier
+  -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromVerifier :: StakeVerifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromVerifier = \case
+  StakeVerifierScriptFile (ScriptFile String
+sFile) -> do
+    ScriptInAnyLang ScriptLanguage lang
+_ Script lang
+script <-
+      String -> ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang
+readFileScriptInAnyLang String
+sFile
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError ScriptDecodeError -> StakeCredentialError
+StakeCredentialScriptDecodeError
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ ScriptHash -> StakeCredential
+StakeCredentialByScript forall a b. (a -> b) -> a -> b
+$ forall lang. Script lang -> ScriptHash
+hashScript Script lang
+script
+
+  StakeVerifierKey VerificationKeyOrFile StakeKey
+stakeVerKeyOrFile -> do
+    VerificationKey StakeKey
+stakeVerKey <-
+      forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType StakeKey
+AsStakeKey VerificationKeyOrFile StakeKey
+stakeVerKeyOrFile)
+        forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT FileError InputDecodeError -> StakeCredentialError
+StakeCredentialInputDecodeError
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ Hash StakeKey -> StakeCredential
+StakeCredentialByKey forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey StakeKey
+stakeVerKey
+
+getStakeCredentialFromIdentifier :: ()
+  => StakeIdentifier
+  -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier :: StakeIdentifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromIdentifier = \case
+  StakeIdentifierAddress StakeAddress
+stakeAddr -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ StakeAddress -> StakeCredential
+stakeAddressCredential StakeAddress
+stakeAddr
+  StakeIdentifierVerifier StakeVerifier
+stakeVerifier -> StakeVerifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromVerifier StakeVerifier
+stakeVerifier
+
+getStakeAddressFromVerifier :: ()
+  => NetworkId
+  -> StakeVerifier
+  -> ExceptT StakeCredentialError IO StakeAddress
+getStakeAddressFromVerifier :: NetworkId
+-> StakeVerifier -> ExceptT StakeCredentialError IO StakeAddress
+getStakeAddressFromVerifier NetworkId
+networkId StakeVerifier
+stakeVerifier =
+  NetworkId -> StakeCredential -> StakeAddress
+makeStakeAddress NetworkId
+networkId forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> StakeVerifier -> ExceptT StakeCredentialError IO StakeCredential
+getStakeCredentialFromVerifier StakeVerifier
+stakeVerifier
+
+getDRepCredentialFromVerKeyHashOrFile :: ()
+  => VerificationKeyOrHashOrFile DRepKey
+  -> ExceptT (FileError InputDecodeError) IO (Ledger.Credential Ledger.DRepRole Ledger.StandardCrypto)
+getDRepCredentialFromVerKeyHashOrFile :: VerificationKeyOrHashOrFile DRepKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'DRepRole StandardCrypto)
+getDRepCredentialFromVerKeyHashOrFile = \case
+  VerificationKeyOrFile VerificationKeyOrFile DRepKey
+verKeyOrFile -> do
+    VerificationKey DRepKey
+drepVerKey <-
+      forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType DRepKey
+AsDRepKey VerificationKeyOrFile DRepKey
+verKeyOrFile)
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Hash DRepKey -> KeyHash 'DRepRole StandardCrypto
+unDRepKeyHash forall a b. (a -> b) -> a -> b
+$ forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey DRepKey
+drepVerKey
+  VerificationKeyHash Hash DRepKey
+kh -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj forall a b. (a -> b) -> a -> b
+$ Hash DRepKey -> KeyHash 'DRepRole StandardCrypto
+unDRepKeyHash Hash DRepKey
+kh
+
+getCommitteeColdCredentialFromVerKeyHashOrFile :: ()
+  => VerificationKeyOrHashOrFile CommitteeColdKey
+  -> ExceptT (FileError InputDecodeError) IO (Ledger.Credential Ledger.ColdCommitteeRole Ledger.StandardCrypto)
+getCommitteeColdCredentialFromVerKeyHashOrFile :: VerificationKeyOrHashOrFile CommitteeColdKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'ColdCommitteeRole StandardCrypto)
+getCommitteeColdCredentialFromVerKeyHashOrFile = \case
+  VerificationKeyOrFile VerificationKeyOrFile CommitteeColdKey
+verKeyOrFile -> do
+    VerificationKey CommitteeColdKey
+commmitteeColdVerKey <-
+      forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType CommitteeColdKey
+AsCommitteeColdKey VerificationKeyOrFile CommitteeColdKey
+verKeyOrFile)
+    let CommitteeColdKeyHash KeyHash 'ColdCommitteeRole StandardCrypto
+kh = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey CommitteeColdKey
+commmitteeColdVerKey
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'ColdCommitteeRole StandardCrypto
+kh
+  VerificationKeyHash (CommitteeColdKeyHash KeyHash 'ColdCommitteeRole StandardCrypto
+kh) -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'ColdCommitteeRole StandardCrypto
+kh
+
+getCommitteeHotCredentialFromVerKeyHashOrFile :: ()
+  => VerificationKeyOrHashOrFile CommitteeHotKey
+  -> ExceptT (FileError InputDecodeError) IO (Ledger.Credential Ledger.HotCommitteeRole Ledger.StandardCrypto)
+getCommitteeHotCredentialFromVerKeyHashOrFile :: VerificationKeyOrHashOrFile CommitteeHotKey
+-> ExceptT
+     (FileError InputDecodeError)
+     IO
+     (Credential 'HotCommitteeRole StandardCrypto)
+getCommitteeHotCredentialFromVerKeyHashOrFile = \case
+  VerificationKeyOrFile VerificationKeyOrFile CommitteeHotKey
+verKeyOrFile -> do
+    VerificationKey CommitteeHotKey
+commmitteeHotVerKey <-
+      forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
+ExceptT (forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType CommitteeHotKey
+AsCommitteeHotKey VerificationKeyOrFile CommitteeHotKey
+verKeyOrFile)
+    let CommitteeHotKeyHash KeyHash 'HotCommitteeRole StandardCrypto
+kh = forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash VerificationKey CommitteeHotKey
+commmitteeHotVerKey
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'HotCommitteeRole StandardCrypto
+kh
+  VerificationKeyHash (CommitteeHotKeyHash KeyHash 'HotCommitteeRole StandardCrypto
+kh) -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'HotCommitteeRole StandardCrypto
+kh
+
+data ReadSafeHashError
+  = ReadSafeHashErrorNotHex ByteString String
+  | ReadSafeHashErrorInvalidHash Text
+
+renderReadSafeHashError :: ReadSafeHashError -> Text
+renderReadSafeHashError :: ReadSafeHashError -> Text
+renderReadSafeHashError = \case
+  ReadSafeHashErrorNotHex ByteString
+bs String
+err ->
+    Text
+"Error reading anchor data hash: Invalid hex: " forall a. Semigroup a => a -> a -> a
+<> ByteString -> Text
+Text.decodeUtf8 ByteString
+bs forall a. Semigroup a => a -> a -> a
+<> Text
+"\n" forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+err
+  ReadSafeHashErrorInvalidHash Text
+err ->
+    Text
+"Error reading anchor data hash: " forall a. Semigroup a => a -> a -> a
+<> Text
+err
+
+readHexAsSafeHash :: ()
+  => Text
+  -> Either ReadSafeHashError (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+readHexAsSafeHash :: Text
+-> Either ReadSafeHashError (SafeHash StandardCrypto AnchorData)
+readHexAsSafeHash Text
+hex = do
+  let bs :: ByteString
+bs = Text -> ByteString
+Text.encodeUtf8 Text
+hex
+
+  ByteString
+raw <- ByteString -> Either String ByteString
+Base16.decode ByteString
+bs forall a b. a -> (a -> b) -> b
+& forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (ByteString -> String -> ReadSafeHashError
+ReadSafeHashErrorNotHex ByteString
+bs)
+
+  case forall h a. HashAlgorithm h => ByteString -> Maybe (Hash h a)
+Crypto.hashFromBytes ByteString
+raw of
+    Just Hash Blake2b_256 AnchorData
+a -> forall a b. b -> Either a b
+Right (forall c index. Hash (HASH c) index -> SafeHash c index
+L.unsafeMakeSafeHash Hash Blake2b_256 AnchorData
+a)
+    Maybe (Hash Blake2b_256 AnchorData)
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ Text -> ReadSafeHashError
+ReadSafeHashErrorInvalidHash Text
+"Unable to read hash"
+
+readSafeHash :: Opt.ReadM (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+readSafeHash :: ReadM (SafeHash StandardCrypto AnchorData)
+readSafeHash =
+  forall a. (String -> Either String a) -> ReadM a
+Opt.eitherReader forall a b. (a -> b) -> a -> b
+$ \String
+s ->
+    Text
+-> Either ReadSafeHashError (SafeHash StandardCrypto AnchorData)
+readHexAsSafeHash (String -> Text
+Text.pack String
+s)
+      forall a b. a -> (a -> b) -> b
+& forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first (Text -> String
+Text.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ReadSafeHashError -> Text
+renderReadSafeHashError)
+
+scriptHashReader :: Opt.ReadM ScriptHash
+scriptHashReader :: ReadM ScriptHash
+scriptHashReader = forall a. (String -> Either String a) -> ReadM a
+Opt.eitherReader forall a b. (a -> b) -> a -> b
+$ forall a b. b -> Either a b
+Right forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. IsString a => String -> a
+fromString
+
+readVoteDelegationTarget :: ()
+  => VoteDelegationTarget
+  -> ExceptT DelegationError IO (L.DRep Ledger.StandardCrypto)
+readVoteDelegationTarget :: VoteDelegationTarget
+-> ExceptT DelegationError IO (DRep StandardCrypto)
+readVoteDelegationTarget VoteDelegationTarget
+voteDelegationTarget =
+  case VoteDelegationTarget
+voteDelegationTarget of
+    VoteDelegationTargetOfDRep DRepHashSource
+drepHashSource -> do
+      Credential 'DRepRole StandardCrypto
+drepHash <- case DRepHashSource
+drepHashSource of
+        DRepHashSourceScript (ScriptHash ScriptHash StandardCrypto
+scriptHash) ->
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. ScriptHash c -> Credential kr c
+Ledger.ScriptHashObj ScriptHash StandardCrypto
+scriptHash
+        DRepHashSourceVerificationKey VerificationKeyOrHashOrFile DRepKey
+drepVKeyOrHashOrFile -> do
+          DRepKeyHash KeyHash 'DRepRole StandardCrypto
+drepKeyHash <-
+            forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType DRepKey
+AsDRepKey VerificationKeyOrHashOrFile DRepKey
+drepVKeyOrHashOrFile)
+              forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> DelegationError
+DelegationDRepReadError)
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+Ledger.KeyHashObj KeyHash 'DRepRole StandardCrypto
+drepKeyHash
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall c. Credential 'DRepRole c -> DRep c
+L.DRepCredential Credential 'DRepRole StandardCrypto
+drepHash
+    VoteDelegationTarget
+VoteDelegationTargetOfAbstain ->
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall c. DRep c
+L.DRepAlwaysAbstain
+    VoteDelegationTarget
+VoteDelegationTargetOfNoConfidence ->
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall c. DRep c
+L.DRepAlwaysNoConfidence
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Render.html b/cardano-cli/lib/src/Cardano.CLI.Render.html new file mode 100644 index 0000000000..be4d70f16c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Render.html @@ -0,0 +1,142 @@ +
{- HLINT ignore "Redundant id" -}
+
+module Cardano.CLI.Render
+  ( customRenderHelp
+  ) where
+
+import           Cardano.Api (textShow)
+
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           Options.Applicative
+import           Options.Applicative.Help.Ann
+import           Options.Applicative.Help.Types (helpText, renderHelp)
+import           Prettyprinter
+import           Prettyprinter.Render.Util.SimpleDocTree
+import qualified System.Environment as IO
+import qualified System.IO.Unsafe as IO
+
+cliHelpTraceEnabled :: Bool
+cliHelpTraceEnabled :: Bool
+cliHelpTraceEnabled = forall a. IO a -> a
+IO.unsafePerformIO forall a b. (a -> b) -> a -> b
+$ do
+  Maybe String
+mValue <- String -> IO (Maybe String)
+IO.lookupEnv String
+"CLI_HELP_TRACE"
+  forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ Maybe String
+mValue forall a. Eq a => a -> a -> Bool
+== forall a. a -> Maybe a
+Just String
+"1"
+{-# NOINLINE cliHelpTraceEnabled #-}
+
+-- | Convert a help text to 'String'.  When the CLI_HELP_TRACE environment variable is set
+-- to '1', the output will be in HTML so that it can be viewed in a browser where developer
+-- tools can be used to inspect tracing that aids in describing the structure of the output
+-- document.
+customRenderHelp :: Int -> ParserHelp -> String
+customRenderHelp :: Int -> ParserHelp -> String
+customRenderHelp = if Bool
+cliHelpTraceEnabled
+  then Int -> ParserHelp -> String
+customRenderHelpAsHtml
+  else Int -> ParserHelp -> String
+customRenderHelpAsAnsi
+
+customRenderHelpAsHtml :: Int -> ParserHelp -> String
+customRenderHelpAsHtml :: Int -> ParserHelp -> String
+customRenderHelpAsHtml Int
+cols
+  = Text -> String
+T.unpack
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> Text
+wrapper
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall out ann.
+Monoid out =>
+(Text -> out) -> (ann -> out -> out) -> SimpleDocTree ann -> out
+renderSimplyDecorated forall a. a -> a
+id Ann -> Text -> Text
+renderElement
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall ann. SimpleDocStream ann -> SimpleDocTree ann
+treeForm
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall ann. LayoutOptions -> Doc ann -> SimpleDocStream ann
+layoutSmart (PageWidth -> LayoutOptions
+LayoutOptions (Int -> Double -> PageWidth
+AvailablePerLine Int
+cols Double
+1.0))
+  forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ParserHelp -> Doc
+helpText
+  where
+    renderElement :: Ann -> Text -> Text
+    renderElement :: Ann -> Text -> Text
+renderElement Ann
+ann Text
+x = if Bool
+cliHelpTraceEnabled
+      then case Ann
+ann of
+        AnnTrace Int
+_ String
+name -> Text
+"<span name=" forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow String
+name forall a. Semigroup a => a -> a -> a
+<> Text
+">" forall a. Semigroup a => a -> a -> a
+<> Text
+x forall a. Semigroup a => a -> a -> a
+<> Text
+"</span>"
+        AnnStyle SetStyle
+_ -> Text
+x
+      else Text
+x
+    wrapper :: Text -> Text
+wrapper = if Bool
+cliHelpTraceEnabled
+      then forall a. a -> a
+id
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Text
+"<html>\n" forall a. Semigroup a => a -> a -> a
+<>)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Text
+"<body>\n" forall a. Semigroup a => a -> a -> a
+<>)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Text
+"<pre>\n" forall a. Semigroup a => a -> a -> a
+<>)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a. Semigroup a => a -> a -> a
+<> Text
+"\n</html>")
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a. Semigroup a => a -> a -> a
+<> Text
+"\n</body>")
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (forall a. Semigroup a => a -> a -> a
+<> Text
+"\n</pre>")
+      else forall a. a -> a
+id
+
+customRenderHelpAsAnsi :: Int -> ParserHelp -> String
+customRenderHelpAsAnsi :: Int -> ParserHelp -> String
+customRenderHelpAsAnsi = Int -> ParserHelp -> String
+renderHelp
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Run.Ping.html b/cardano-cli/lib/src/Cardano.CLI.Run.Ping.html new file mode 100644 index 0000000000..c7719d7390 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Run.Ping.html @@ -0,0 +1,629 @@ +
{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE TypeApplications #-}
+
+{- HLINT ignore "Move brackets to avoid $" -}
+
+module Cardano.CLI.Run.Ping
+  ( PingCmd(..)
+  , PingClientCmdError(..)
+  , renderPingClientCmdError
+  , runPingCmd
+  , parsePingCmd
+  ) where
+
+import qualified Cardano.Network.Ping as CNP
+
+import           Control.Applicative ((<|>))
+import           Control.Concurrent.Class.MonadSTM.Strict (StrictTMVar)
+import qualified Control.Concurrent.Class.MonadSTM.Strict as STM
+import           Control.Exception (SomeException)
+import           Control.Monad (forM, unless)
+import           Control.Monad.Class.MonadAsync (MonadAsync (async, wait, waitCatch))
+import           Control.Monad.IO.Class (liftIO)
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (left)
+import           Control.Tracer (Tracer (..))
+import           Data.List (foldl')
+import qualified Data.List as L
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           Data.Word (Word32)
+import           Network.Socket (AddrInfo)
+import qualified Network.Socket as Socket
+import qualified Options.Applicative as Opt
+import qualified Prettyprinter as PP
+import qualified System.Exit as IO
+import qualified System.IO as IO
+
+newtype PingClientCmdError = PingClientCmdError [(AddrInfo, SomeException)]
+
+data EndPoint = HostEndPoint String | UnixSockEndPoint String deriving (EndPoint -> EndPoint -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: EndPoint -> EndPoint -> Bool
+$c/= :: EndPoint -> EndPoint -> Bool
+== :: EndPoint -> EndPoint -> Bool
+$c== :: EndPoint -> EndPoint -> Bool
+Eq, Int -> EndPoint -> ShowS
+[EndPoint] -> ShowS
+EndPoint -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [EndPoint] -> ShowS
+$cshowList :: [EndPoint] -> ShowS
+show :: EndPoint -> String
+$cshow :: EndPoint -> String
+showsPrec :: Int -> EndPoint -> ShowS
+$cshowsPrec :: Int -> EndPoint -> ShowS
+Show)
+
+maybeHostEndPoint :: EndPoint -> Maybe String
+maybeHostEndPoint :: EndPoint -> Maybe String
+maybeHostEndPoint = \case
+  HostEndPoint String
+host -> forall a. a -> Maybe a
+Just String
+host
+  UnixSockEndPoint String
+_ -> forall a. Maybe a
+Nothing
+
+maybeUnixSockEndPoint :: EndPoint -> Maybe String
+maybeUnixSockEndPoint :: EndPoint -> Maybe String
+maybeUnixSockEndPoint = \case
+  HostEndPoint String
+_ -> forall a. Maybe a
+Nothing
+  UnixSockEndPoint String
+sock -> forall a. a -> Maybe a
+Just String
+sock
+
+data PingCmd = PingCmd
+  { PingCmd -> Word32
+pingCmdCount           :: !Word32
+  , PingCmd -> EndPoint
+pingCmdEndPoint        :: !EndPoint
+  , PingCmd -> String
+pingCmdPort            :: !String
+  , PingCmd -> Word32
+pingCmdMagic           :: !Word32
+  , PingCmd -> Bool
+pingCmdJson            :: !Bool
+  , PingCmd -> Bool
+pingCmdQuiet           :: !Bool
+  , PingCmd -> Bool
+pingOptsHandshakeQuery :: !Bool
+  } deriving (PingCmd -> PingCmd -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: PingCmd -> PingCmd -> Bool
+$c/= :: PingCmd -> PingCmd -> Bool
+== :: PingCmd -> PingCmd -> Bool
+$c== :: PingCmd -> PingCmd -> Bool
+Eq, Int -> PingCmd -> ShowS
+[PingCmd] -> ShowS
+PingCmd -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [PingCmd] -> ShowS
+$cshowList :: [PingCmd] -> ShowS
+show :: PingCmd -> String
+$cshow :: PingCmd -> String
+showsPrec :: Int -> PingCmd -> ShowS
+$cshowsPrec :: Int -> PingCmd -> ShowS
+Show)
+
+pingClient :: Tracer IO CNP.LogMsg -> Tracer IO String -> PingCmd -> [CNP.NodeVersion] -> AddrInfo -> IO ()
+pingClient :: Tracer IO LogMsg
+-> Tracer IO String
+-> PingCmd
+-> [NodeVersion]
+-> AddrInfo
+-> IO ()
+pingClient Tracer IO LogMsg
+stdout Tracer IO String
+stderr PingCmd
+cmd = Tracer IO LogMsg
+-> Tracer IO String
+-> PingOpts
+-> [NodeVersion]
+-> AddrInfo
+-> IO ()
+CNP.pingClient Tracer IO LogMsg
+stdout Tracer IO String
+stderr PingOpts
+opts
+  where opts :: PingOpts
+opts = CNP.PingOpts
+          { pingOptsQuiet :: Bool
+CNP.pingOptsQuiet          = PingCmd -> Bool
+pingCmdQuiet PingCmd
+cmd
+          , pingOptsJson :: Bool
+CNP.pingOptsJson           = PingCmd -> Bool
+pingCmdJson PingCmd
+cmd
+          , pingOptsCount :: Word32
+CNP.pingOptsCount          = PingCmd -> Word32
+pingCmdCount PingCmd
+cmd
+          , pingOptsHost :: Maybe String
+CNP.pingOptsHost           = EndPoint -> Maybe String
+maybeHostEndPoint (PingCmd -> EndPoint
+pingCmdEndPoint PingCmd
+cmd)
+          , pingOptsUnixSock :: Maybe String
+CNP.pingOptsUnixSock       = EndPoint -> Maybe String
+maybeUnixSockEndPoint (PingCmd -> EndPoint
+pingCmdEndPoint PingCmd
+cmd)
+          , pingOptsPort :: String
+CNP.pingOptsPort           = PingCmd -> String
+pingCmdPort PingCmd
+cmd
+          , pingOptsMagic :: Word32
+CNP.pingOptsMagic          = PingCmd -> Word32
+pingCmdMagic PingCmd
+cmd
+          , pingOptsHandshakeQuery :: Bool
+CNP.pingOptsHandshakeQuery = PingCmd -> Bool
+pingOptsHandshakeQuery PingCmd
+cmd
+          }
+
+runPingCmd :: PingCmd -> ExceptT PingClientCmdError IO ()
+runPingCmd :: PingCmd -> ExceptT PingClientCmdError IO ()
+runPingCmd PingCmd
+options = do
+  let hints :: AddrInfo
+hints = AddrInfo
+Socket.defaultHints { addrSocketType :: SocketType
+Socket.addrSocketType = SocketType
+Socket.Stream }
+
+  StrictTMVar IO LogMsg
+msgQueue <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall (m :: * -> *) a. MonadSTM m => m (StrictTMVar m a)
+STM.newEmptyTMVarIO
+
+  -- 'addresses' are all the endpoints to connect to and 'versions' are the node protocol versions
+  -- to ping with.
+  ([AddrInfo]
+addresses, [NodeVersion]
+versions) <- case PingCmd -> EndPoint
+pingCmdEndPoint PingCmd
+options of
+    HostEndPoint String
+host -> do
+      [AddrInfo]
+addrs <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ Maybe AddrInfo -> Maybe String -> Maybe String -> IO [AddrInfo]
+Socket.getAddrInfo (forall a. a -> Maybe a
+Just AddrInfo
+hints) (forall a. a -> Maybe a
+Just String
+host) (forall a. a -> Maybe a
+Just (PingCmd -> String
+pingCmdPort PingCmd
+options))
+      forall (m :: * -> *) a. Monad m => a -> m a
+return ([AddrInfo]
+addrs, Word32 -> [NodeVersion]
+CNP.supportedNodeToNodeVersions forall a b. (a -> b) -> a -> b
+$ PingCmd -> Word32
+pingCmdMagic PingCmd
+options)
+    UnixSockEndPoint String
+fname -> do
+      let addr :: AddrInfo
+addr = [AddrInfoFlag]
+-> Family
+-> SocketType
+-> ProtocolNumber
+-> SockAddr
+-> Maybe String
+-> AddrInfo
+Socket.AddrInfo
+            [] Family
+Socket.AF_UNIX SocketType
+Socket.Stream
+            ProtocolNumber
+Socket.defaultProtocol (String -> SockAddr
+Socket.SockAddrUnix String
+fname) forall a. Maybe a
+Nothing
+      forall (m :: * -> *) a. Monad m => a -> m a
+return ([AddrInfo
+addr], Word32 -> [NodeVersion]
+CNP.supportedNodeToClientVersions forall a b. (a -> b) -> a -> b
+$ PingCmd -> Word32
+pingCmdMagic PingCmd
+options)
+
+  -- Logger async thread handle
+  Async ()
+laid <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) a. MonadAsync m => m a -> m (Async m a)
+async forall a b. (a -> b) -> a -> b
+$ StrictTMVar IO LogMsg -> Bool -> Bool -> IO ()
+CNP.logger StrictTMVar IO LogMsg
+msgQueue (PingCmd -> Bool
+pingCmdJson PingCmd
+options) (PingCmd -> Bool
+pingOptsHandshakeQuery PingCmd
+options)
+  -- Ping client thread handles
+  [Async ()]
+caids <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+t a -> (a -> m b) -> m (t b)
+forM [AddrInfo]
+addresses forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) a. MonadAsync m => m a -> m (Async m a)
+async forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Tracer IO LogMsg
+-> Tracer IO String
+-> PingCmd
+-> [NodeVersion]
+-> AddrInfo
+-> IO ()
+pingClient (forall (m :: * -> *) a. (a -> m ()) -> Tracer m a
+Tracer forall a b. (a -> b) -> a -> b
+$ StrictTMVar IO LogMsg -> LogMsg -> IO ()
+doLog StrictTMVar IO LogMsg
+msgQueue) (forall (m :: * -> *) a. (a -> m ()) -> Tracer m a
+Tracer String -> IO ()
+doErrLog) PingCmd
+options [NodeVersion]
+versions
+  [(AddrInfo, Either SomeException ())]
+res <- forall a b. [a] -> [b] -> [(a, b)]
+L.zip [AddrInfo]
+addresses forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) a.
+MonadAsync m =>
+Async m a -> m (Either SomeException a)
+waitCatch) [Async ()]
+caids
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ StrictTMVar IO LogMsg -> LogMsg -> IO ()
+doLog StrictTMVar IO LogMsg
+msgQueue LogMsg
+CNP.LogEnd
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a. MonadAsync m => Async m a -> m a
+wait Async ()
+laid
+
+  -- Collect errors 'es' from failed pings and 'addrs' from successful pings.
+  let ([(AddrInfo, SomeException)]
+es, [AddrInfo]
+addrs) = forall (t :: * -> *) b a.
+Foldable t =>
+(b -> a -> b) -> b -> t a -> b
+foldl' ([(AddrInfo, SomeException)], [AddrInfo])
+-> (AddrInfo, Either SomeException ())
+-> ([(AddrInfo, SomeException)], [AddrInfo])
+partition ([],[]) [(AddrInfo, Either SomeException ())]
+res
+
+  -- Report any errors
+  case ([(AddrInfo, SomeException)]
+es, [AddrInfo]
+addrs) of
+    ([], [AddrInfo]
+_) -> forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a. IO a
+IO.exitSuccess
+    ([(AddrInfo, SomeException)]
+_, []) -> forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall a b. (a -> b) -> a -> b
+$ [(AddrInfo, SomeException)] -> PingClientCmdError
+PingClientCmdError [(AddrInfo, SomeException)]
+es
+    ([(AddrInfo, SomeException)]
+_, [AddrInfo]
+_) -> do
+      forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
+unless (PingCmd -> Bool
+pingCmdQuiet PingCmd
+options) forall a b. (a -> b) -> a -> b
+$ forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+(a -> m b) -> t a -> m ()
+mapM_ (forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => Handle -> a -> IO ()
+IO.hPrint Handle
+IO.stderr) [(AddrInfo, SomeException)]
+es
+      forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a. IO a
+IO.exitSuccess
+
+  where
+    partition :: ([(AddrInfo, SomeException)], [AddrInfo])
+              -> (AddrInfo, Either SomeException ())
+              -> ([(AddrInfo, SomeException)], [AddrInfo])
+    partition :: ([(AddrInfo, SomeException)], [AddrInfo])
+-> (AddrInfo, Either SomeException ())
+-> ([(AddrInfo, SomeException)], [AddrInfo])
+partition ([(AddrInfo, SomeException)]
+es, [AddrInfo]
+as) (AddrInfo
+a, Left SomeException
+e)  = ((AddrInfo
+a, SomeException
+e) forall a. a -> [a] -> [a]
+: [(AddrInfo, SomeException)]
+es, [AddrInfo]
+as)
+    partition ([(AddrInfo, SomeException)]
+es, [AddrInfo]
+as) (AddrInfo
+a, Right ()
+_) = ([(AddrInfo, SomeException)]
+es, AddrInfo
+a forall a. a -> [a] -> [a]
+: [AddrInfo]
+as)
+
+    doLog :: StrictTMVar IO CNP.LogMsg -> CNP.LogMsg -> IO ()
+    doLog :: StrictTMVar IO LogMsg -> LogMsg -> IO ()
+doLog StrictTMVar IO LogMsg
+msgQueue LogMsg
+msg = forall (m :: * -> *) a.
+(MonadSTM m, HasCallStack) =>
+STM m a -> m a
+STM.atomically forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *) a.
+MonadSTM m =>
+StrictTMVar m a -> a -> STM m ()
+STM.putTMVar StrictTMVar IO LogMsg
+msgQueue LogMsg
+msg
+
+    doErrLog :: String -> IO ()
+    doErrLog :: String -> IO ()
+doErrLog = Handle -> String -> IO ()
+IO.hPutStrLn Handle
+IO.stderr
+
+renderPingClientCmdError :: PingClientCmdError -> Text
+renderPingClientCmdError :: PingClientCmdError -> Text
+renderPingClientCmdError = \case
+  PingClientCmdError [(AddrInfo, SomeException)]
+es -> Text -> [Text] -> Text
+T.intercalate Text
+"\n" forall a b. (a -> b) -> a -> b
+$ String -> Text
+T.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. Show a => a -> String
+show forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [(AddrInfo, SomeException)]
+es
+
+parsePingCmd :: Opt.Parser PingCmd
+parsePingCmd :: Parser PingCmd
+parsePingCmd = forall a. Mod CommandFields a -> Parser a
+Opt.hsubparser forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+  [ forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"ping"
+  , forall a. String -> ParserInfo a -> Mod CommandFields a
+Opt.command String
+"ping" forall a b. (a -> b) -> a -> b
+$ forall a. Parser a -> InfoMod a -> ParserInfo a
+Opt.info Parser PingCmd
+pPing forall a b. (a -> b) -> a -> b
+$ forall a. Maybe Doc -> InfoMod a
+Opt.progDescDoc forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall a ann. Pretty a => a -> Doc ann
+PP.pretty @String String
+"Ping a cardano node either using node-to-node or node-to-client protocol. "
+    , forall a ann. Pretty a => a -> Doc ann
+PP.pretty @String String
+"It negotiates a handshake and keeps sending keep alive messages."
+    ]
+  ]
+
+pHost :: Opt.Parser String
+pHost :: Parser String
+pHost =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"host"
+    , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'h'
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"HOST"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Hostname/IP, e.g. relay.iohk.example."
+    ]
+
+pUnixSocket :: Opt.Parser String
+pUnixSocket :: Parser String
+pUnixSocket =
+  forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"unixsock"
+    , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'u'
+    , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"SOCKET"
+    , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Unix socket, e.g. file.socket."
+    ]
+
+pEndPoint :: Opt.Parser EndPoint
+pEndPoint :: Parser EndPoint
+pEndPoint = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap String -> EndPoint
+HostEndPoint Parser String
+pHost forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
+<|> forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap String -> EndPoint
+UnixSockEndPoint Parser String
+pUnixSocket
+
+pPing :: Opt.Parser PingCmd
+pPing :: Parser PingCmd
+pPing = Word32
+-> EndPoint -> String -> Word32 -> Bool -> Bool -> Bool -> PingCmd
+PingCmd
+  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> ( forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"count"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'c'
+        , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"COUNT"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Stop after sending count requests and receiving count responses.  "
+          , String
+"If this option is not specified, ping will operate until interrupted.  "
+          ]
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value forall a. Bounded a => a
+maxBound
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> Parser EndPoint
+pEndPoint
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> ( forall s. IsString s => Mod OptionFields s -> Parser s
+Opt.strOption forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"port"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'p'
+        , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"PORT"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Port number, e.g. 1234."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value String
+"3001"
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> ( forall a. ReadM a -> Mod OptionFields a -> Parser a
+Opt.option forall a. Read a => ReadM a
+Opt.auto forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"magic"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'m'
+        , forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
+Opt.metavar String
+"MAGIC"
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Network magic."
+        , forall (f :: * -> *) a. HasValue f => a -> Mod f a
+Opt.value Word32
+CNP.mainnetMagic
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> ( Mod FlagFields Bool -> Parser Bool
+Opt.switch forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"json"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'j'
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"JSON output flag."
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> ( Mod FlagFields Bool -> Parser Bool
+Opt.switch forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"quiet"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'q'
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Quiet flag, CSV/JSON only output"
+        ]
+      )
+  forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> ( Mod FlagFields Bool -> Parser Bool
+Opt.switch forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ forall (f :: * -> *) a. HasName f => String -> Mod f a
+Opt.long String
+"query-versions"
+        , forall (f :: * -> *) a. HasName f => Char -> Mod f a
+Opt.short Char
+'Q'
+        , forall (f :: * -> *) a. String -> Mod f a
+Opt.help String
+"Query the supported protocol versions using the handshake protocol and terminate the connection."
+        ]
+      )
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Run.html b/cardano-cli/lib/src/Cardano.CLI.Run.html new file mode 100644 index 0000000000..0382d4e8c9 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Run.html @@ -0,0 +1,300 @@ +
{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+-- | Dispatch for running all the CLI commands
+module Cardano.CLI.Run
+  ( ClientCommand(..)
+  , ClientCommandErrors
+  , renderClientCommandError
+  , runClientCommand
+  ) where
+
+import           Cardano.CLI.Byron.Commands (ByronCommand)
+import           Cardano.CLI.Byron.Run (ByronClientCmdError, renderByronClientCmdError,
+                   runByronClientCommand)
+import           Cardano.CLI.EraBased.Commands
+import           Cardano.CLI.EraBased.Run
+import           Cardano.CLI.IO.GitRev (gitRev)
+import           Cardano.CLI.Legacy.Commands
+import           Cardano.CLI.Legacy.Run (runLegacyCmds)
+import           Cardano.CLI.Render (customRenderHelp)
+import           Cardano.CLI.Run.Ping (PingClientCmdError (..), PingCmd (..),
+                   renderPingClientCmdError, runPingCmd)
+import           Cardano.CLI.Types.Errors.CmdError
+
+import           Control.Monad (forM_)
+import           Control.Monad.IO.Unlift (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (firstExceptT)
+import qualified Data.List as L
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
+import           Data.Version (showVersion)
+import           Options.Applicative.Help.Core
+import           Options.Applicative.Types (OptReader (..), Option (..), Parser (..),
+                   ParserInfo (..), ParserPrefs (..))
+import           System.Info (arch, compilerName, compilerVersion, os)
+import qualified System.IO as IO
+
+import           Paths_cardano_cli (version)
+
+-- | Sub-commands of 'cardano-cli'.
+data ClientCommand =
+    AnyEraCommand AnyEraCommand
+
+    -- | Byron Related Commands
+  | ByronCommand ByronCommand
+
+    -- | Legacy shelley-based Commands
+  | LegacyCmds LegacyCmds
+
+  | CliPingCommand PingCmd
+
+  | forall a. Help ParserPrefs (ParserInfo a)
+  | DisplayVersion
+
+data ClientCommandErrors
+  = ByronClientError ByronClientCmdError
+  | CmdError Text CmdError
+  | PingClientError PingClientCmdError
+
+runClientCommand :: ClientCommand -> ExceptT ClientCommandErrors IO ()
+runClientCommand :: ClientCommand -> ExceptT ClientCommandErrors IO ()
+runClientCommand = \case
+  AnyEraCommand AnyEraCommand
+cmds ->
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (Text -> CmdError -> ClientCommandErrors
+CmdError (AnyEraCommand -> Text
+renderAnyEraCommand AnyEraCommand
+cmds)) forall a b. (a -> b) -> a -> b
+$ AnyEraCommand -> ExceptT CmdError IO ()
+runAnyEraCommand AnyEraCommand
+cmds
+  ByronCommand ByronCommand
+cmds ->
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT ByronClientCmdError -> ClientCommandErrors
+ByronClientError forall a b. (a -> b) -> a -> b
+$ ByronCommand -> ExceptT ByronClientCmdError IO ()
+runByronClientCommand ByronCommand
+cmds
+  LegacyCmds LegacyCmds
+cmds ->
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT (Text -> CmdError -> ClientCommandErrors
+CmdError (LegacyCmds -> Text
+renderLegacyCommand LegacyCmds
+cmds)) forall a b. (a -> b) -> a -> b
+$ LegacyCmds -> ExceptT CmdError IO ()
+runLegacyCmds LegacyCmds
+cmds
+  CliPingCommand PingCmd
+cmds ->
+    forall (m :: * -> *) x y a.
+Functor m =>
+(x -> y) -> ExceptT x m a -> ExceptT y m a
+firstExceptT PingClientCmdError -> ClientCommandErrors
+PingClientError forall a b. (a -> b) -> a -> b
+$ PingCmd -> ExceptT PingClientCmdError IO ()
+runPingCmd PingCmd
+cmds
+  Help ParserPrefs
+pprefs ParserInfo a
+allParserInfo ->
+    forall a.
+ParserPrefs -> ParserInfo a -> ExceptT ClientCommandErrors IO ()
+runHelp ParserPrefs
+pprefs ParserInfo a
+allParserInfo
+  ClientCommand
+DisplayVersion ->
+    ExceptT ClientCommandErrors IO ()
+runDisplayVersion
+
+renderClientCommandError :: ClientCommandErrors -> Text
+renderClientCommandError :: ClientCommandErrors -> Text
+renderClientCommandError = \case
+  CmdError Text
+cmdText CmdError
+err ->
+    Text -> CmdError -> Text
+renderCmdError Text
+cmdText CmdError
+err
+  ByronClientError ByronClientCmdError
+err ->
+    ByronClientCmdError -> Text
+renderByronClientCmdError ByronClientCmdError
+err
+  PingClientError PingClientCmdError
+err ->
+    PingClientCmdError -> Text
+renderPingClientCmdError PingClientCmdError
+err
+
+runDisplayVersion :: ExceptT ClientCommandErrors IO ()
+runDisplayVersion :: ExceptT ClientCommandErrors IO ()
+runDisplayVersion = do
+  forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Text -> IO ()
+Text.putStrLn forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ Text
+"cardano-cli ", Version -> Text
+renderVersion Version
+version
+    , Text
+" - ", String -> Text
+Text.pack String
+os, Text
+"-", String -> Text
+Text.pack String
+arch
+    , Text
+" - ", String -> Text
+Text.pack String
+compilerName, Text
+"-", Version -> Text
+renderVersion Version
+compilerVersion
+    , Text
+"\ngit rev ", Text
+gitRev
+    ]
+  where
+    renderVersion :: Version -> Text
+renderVersion = String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Version -> String
+showVersion
+
+
+helpAll :: ParserPrefs -> String -> [String] -> ParserInfo a -> IO ()
+helpAll :: forall a.
+ParserPrefs -> String -> [String] -> ParserInfo a -> IO ()
+helpAll ParserPrefs
+pprefs String
+progn [String]
+rnames ParserInfo a
+parserInfo = do
+  String -> IO ()
+IO.putStrLn forall a b. (a -> b) -> a -> b
+$ Int -> ParserHelp -> String
+customRenderHelp Int
+80 (ParserInfo a -> ParserHelp
+usage_help ParserInfo a
+parserInfo)
+  String -> IO ()
+IO.putStrLn String
+""
+  forall a. Parser a -> IO ()
+go (forall a. ParserInfo a -> Parser a
+infoParser ParserInfo a
+parserInfo)
+  where
+    go :: Parser a -> IO ()
+    go :: forall a. Parser a -> IO ()
+go Parser a
+p = case Parser a
+p of
+      NilP Maybe a
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+      OptP Option a
+optP -> case forall a. Option a -> OptReader a
+optMain Option a
+optP of
+        CmdReader Maybe String
+_ [(String, ParserInfo a)]
+cs -> do
+          forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [(String, ParserInfo a)]
+cs forall a b. (a -> b) -> a -> b
+$ \(String
+c, ParserInfo a
+subParserInfo) ->
+              forall a.
+ParserPrefs -> String -> [String] -> ParserInfo a -> IO ()
+helpAll ParserPrefs
+pprefs String
+progn (String
+cforall a. a -> [a] -> [a]
+:[String]
+rnames) ParserInfo a
+subParserInfo
+        OptReader a
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return ()
+      AltP Parser a
+pa Parser a
+pb -> forall a. Parser a -> IO ()
+go Parser a
+pa forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
+>> forall a. Parser a -> IO ()
+go Parser a
+pb
+      MultP Parser (x -> a)
+pf Parser x
+px -> forall a. Parser a -> IO ()
+go Parser (x -> a)
+pf forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
+>> forall a. Parser a -> IO ()
+go Parser x
+px
+      BindP Parser x
+pa x -> Parser a
+_ -> forall a. Parser a -> IO ()
+go Parser x
+pa
+    usage_help :: ParserInfo a -> ParserHelp
+usage_help ParserInfo a
+i =
+      forall a. Monoid a => [a] -> a
+mconcat
+        [ Chunk Doc -> ParserHelp
+usageHelp (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. ParserPrefs -> Parser a -> String -> Doc
+parserUsage ParserPrefs
+pprefs (forall a. ParserInfo a -> Parser a
+infoParser ParserInfo a
+i) forall b c a. (b -> c) -> (a -> b) -> a -> c
+. [String] -> String
+L.unwords forall a b. (a -> b) -> a -> b
+$ String
+progn forall a. a -> [a] -> [a]
+: forall a. [a] -> [a]
+reverse [String]
+rnames)
+        , Chunk Doc -> ParserHelp
+descriptionHelp (forall a. ParserInfo a -> Chunk Doc
+infoProgDesc ParserInfo a
+i)
+        ]
+
+runHelp :: ParserPrefs -> ParserInfo a -> ExceptT ClientCommandErrors IO ()
+runHelp :: forall a.
+ParserPrefs -> ParserInfo a -> ExceptT ClientCommandErrors IO ()
+runHelp ParserPrefs
+pprefs ParserInfo a
+allParserInfo = forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ forall a.
+ParserPrefs -> String -> [String] -> ParserInfo a -> IO ()
+helpAll ParserPrefs
+pprefs String
+"cardano-cli" [] ParserInfo a
+allParserInfo
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.TopHandler.html b/cardano-cli/lib/src/Cardano.CLI.TopHandler.html new file mode 100644 index 0000000000..76a9c5dd4f --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.TopHandler.html @@ -0,0 +1,166 @@ +
module Cardano.CLI.TopHandler
+  ( toplevelExceptionHandler
+  ) where
+
+-- The code in this module derives from multiple authors over many years.
+-- It is all under the BSD3 license below.
+--
+-- Copyright (c) 2019 Input Output Global Inc (IOG).
+--               2017 Edward Z. Yang
+--               2015 Edsko de Vries
+--               2009 Duncan Coutts
+--               2007 Galois Inc.
+--               2003 Isaac Jones, Simon Marlow
+--
+-- Copyright (c) 2003-2017, Cabal Development Team.
+-- See the AUTHORS file for the full list of copyright holders.
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions are
+-- met:
+--
+--     * Redistributions of source code must retain the above copyright
+--       notice, this list of conditions and the following disclaimer.
+--
+--     * Redistributions in binary form must reproduce the above
+--       copyright notice, this list of conditions and the following
+--       disclaimer in the documentation and/or other materials provided
+--       with the distribution.
+--
+--     * Neither the name of Isaac Jones nor the names of other
+--       contributors may be used to endorse or promote products derived
+--       from this software without specific prior written permission.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+-- OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+-- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+-- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+-- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+-- OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+import           Prelude
+
+import           Control.Exception
+import           System.Environment
+import           System.Exit
+import           System.IO
+
+
+-- | An exception handler to use for a program top level, as an alternative to
+-- the default top level handler provided by GHC.
+--
+-- Use like:
+--
+-- > main :: IO ()
+-- > main = toplevelExceptionHandler $ do
+-- >   ...
+--
+toplevelExceptionHandler :: IO a -> IO a
+toplevelExceptionHandler :: forall a. IO a -> IO a
+toplevelExceptionHandler IO a
+prog = do
+    -- Use line buffering in case we have to print big error messages, because
+    -- by default stderr to a terminal device is NoBuffering which is slow.
+    Handle -> BufferMode -> IO ()
+hSetBuffering Handle
+stderr BufferMode
+LineBuffering
+    forall a. IO a -> [Handler a] -> IO a
+catches IO a
+prog [
+        forall a e. Exception e => (e -> IO a) -> Handler a
+Handler forall a. SomeAsyncException -> IO a
+rethrowAsyncExceptions
+      , forall a e. Exception e => (e -> IO a) -> Handler a
+Handler forall a. ExitCode -> IO a
+rethrowExitCode
+      , forall a e. Exception e => (e -> IO a) -> Handler a
+Handler forall a. SomeException -> IO a
+handleSomeException
+      ]
+  where
+    -- Let async exceptions rise to the top for the default GHC top-handler.
+    -- This includes things like CTRL-C.
+    rethrowAsyncExceptions :: SomeAsyncException -> IO a
+    rethrowAsyncExceptions :: forall a. SomeAsyncException -> IO a
+rethrowAsyncExceptions = forall e a. Exception e => e -> IO a
+throwIO
+
+    -- We don't want to print ExitCode, and it should be handled by the default
+    -- top handler because that sets the actual OS process exit code.
+    rethrowExitCode :: ExitCode -> IO a
+    rethrowExitCode :: forall a. ExitCode -> IO a
+rethrowExitCode = forall e a. Exception e => e -> IO a
+throwIO
+
+    -- Print all other exceptions
+    handleSomeException :: SomeException -> IO a
+    handleSomeException :: forall a. SomeException -> IO a
+handleSomeException SomeException
+e = do
+      Handle -> IO ()
+hFlush Handle
+stdout
+      String
+progname <- IO String
+getProgName
+      Handle -> String -> IO ()
+hPutStr Handle
+stderr (String -> SomeException -> String
+renderSomeException String
+progname SomeException
+e)
+      forall e a. Exception e => e -> IO a
+throwIO (Int -> ExitCode
+ExitFailure Int
+1)
+
+    -- Print the human-readable output of 'displayException' if it differs
+    -- from the default output (of 'show'), so that the user/sysadmin
+    -- sees something readable in the log.
+    renderSomeException :: String -> SomeException -> String
+    renderSomeException :: String -> SomeException -> String
+renderSomeException String
+progname SomeException
+e
+      | String
+showOutput forall a. Eq a => a -> a -> Bool
+/= String
+displayOutput
+      = String
+showOutput forall a. [a] -> [a] -> [a]
+++ String
+"\n\n" forall a. [a] -> [a] -> [a]
+++ String
+progname forall a. [a] -> [a] -> [a]
+++ String
+": " forall a. [a] -> [a] -> [a]
+++ String
+displayOutput
+
+      | Bool
+otherwise
+      = String
+"\n" forall a. [a] -> [a] -> [a]
+++ String
+progname forall a. [a] -> [a] -> [a]
+++ String
+": " forall a. [a] -> [a] -> [a]
+++ String
+showOutput
+      where
+        showOutput :: String
+showOutput    = forall a. Show a => a -> String
+show SomeException
+e
+        displayOutput :: String
+displayOutput = forall e. Exception e => e -> String
+displayException SomeException
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Common.html b/cardano-cli/lib/src/Cardano.CLI.Types.Common.html new file mode 100644 index 0000000000..c7792c4266 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Common.html @@ -0,0 +1,1535 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE StandaloneDeriving #-}
+
+module Cardano.CLI.Types.Common
+  ( AllOrOnly(..)
+  , AddressKeyType(..)
+  , BalanceTxExecUnits (..)
+  , BlockId(..)
+  , ByronKeyFormat(..)
+  , ByronKeyType(..)
+  , CardanoAddressKeyType(..)
+  , CBORObject (..)
+  , CertificateFile (..)
+  , ConstitutionHashSource(..)
+  , ConstitutionText(..)
+  , ConstitutionUrl(..)
+  , CurrentKesPeriod (..)
+  , EpochLeadershipSchedule (..)
+  , File(..)
+  , FileDirection (..)
+  , GenesisDir(..)
+  , GenesisFile (..)
+  , GenesisKeyFile(..)
+  , GovernanceActionViewOutputFormat(..)
+  , InputTxBodyOrTxFile (..)
+  , KeyOutputFormat(..)
+  , MetadataFile(..)
+  , OpCertCounter
+  , OpCertCounterFile
+  , OpCertEndingKesPeriod (..)
+  , OpCertIntervalInformation (..)
+  , OpCertNodeAndOnDiskCounterInformation (..)
+  , OpCertNodeStateCounter (..)
+  , OpCertOnDiskCounter (..)
+  , OpCertStartingKesPeriod (..)
+  , Params (..)
+  , ParserFileDirection (..)
+  , IdOutputFormat (..)
+  , PrivKeyFile(..)
+  , ProposalFile
+  , ProposalText(..)
+  , ProposalUrl(..)
+  , ProtocolParamsFile(..)
+  , ReferenceScriptAnyEra (..)
+  , RequiredSigner (..)
+  , ScriptDataOrFile (..)
+  , ScriptDatumOrFile (..)
+  , ScriptFile (..)
+  , ScriptRedeemerOrFile
+  , ScriptWitnessFiles (..)
+  , SigningKeyFile
+  , SlotsTillKesKeyExpiry (..)
+  , SomeKeyFile(..)
+  , StakePoolMetadataFile
+  , TransferDirection(..)
+  , TxBodyFile
+  , TxBuildOutputOptions(..)
+  , TxByronWitnessCount(..)
+  , TxFile
+  , TxInCount(..)
+  , TxMempoolQuery (..)
+  , TxOutAnyEra (..)
+  , TxOutChangeAddress (..)
+  , TxOutCount(..)
+  , TxOutDatumAnyEra (..)
+  , TxShelleyWitnessCount(..)
+  , TxViewOutputFormat(..)
+  , UpdateProposalFile (..)
+  , VerificationKeyBase64(..)
+  , VerificationKeyFile
+  , VoteUrl(..)
+  , VoteText(..)
+  , VoteHashSource(..)
+  , WitnessFile(..)
+  , WitnessSigningData(..)
+  , DRepMetadataFile
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as L
+
+import qualified Cardano.Chain.Slotting as Byron
+import qualified Cardano.Ledger.BaseTypes as L
+import qualified Cardano.Ledger.Crypto as Crypto
+import qualified Cardano.Ledger.SafeHash as L
+import           Cardano.Ledger.Shelley.TxBody (PoolParams (..))
+
+import           Data.Aeson (FromJSON (..), ToJSON (..), object, pairs, (.=))
+import qualified Data.Aeson as Aeson
+import           Data.String (IsString)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import           Data.Word (Word64)
+
+-- | Determines the direction in which the MIR certificate will transfer ADA.
+data TransferDirection =
+    TransferToReserves
+  | TransferToTreasury
+  deriving Int -> TransferDirection -> ShowS
+[TransferDirection] -> ShowS
+TransferDirection -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TransferDirection] -> ShowS
+$cshowList :: [TransferDirection] -> ShowS
+show :: TransferDirection -> String
+$cshow :: TransferDirection -> String
+showsPrec :: Int -> TransferDirection -> ShowS
+$cshowsPrec :: Int -> TransferDirection -> ShowS
+Show
+
+data OpCertCounter
+
+newtype ConstitutionUrl = ConstitutionUrl
+  { ConstitutionUrl -> Url
+unConstitutionUrl :: L.Url
+  } deriving (ConstitutionUrl -> ConstitutionUrl -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ConstitutionUrl -> ConstitutionUrl -> Bool
+$c/= :: ConstitutionUrl -> ConstitutionUrl -> Bool
+== :: ConstitutionUrl -> ConstitutionUrl -> Bool
+$c== :: ConstitutionUrl -> ConstitutionUrl -> Bool
+Eq, Int -> ConstitutionUrl -> ShowS
+[ConstitutionUrl] -> ShowS
+ConstitutionUrl -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ConstitutionUrl] -> ShowS
+$cshowList :: [ConstitutionUrl] -> ShowS
+show :: ConstitutionUrl -> String
+$cshow :: ConstitutionUrl -> String
+showsPrec :: Int -> ConstitutionUrl -> ShowS
+$cshowsPrec :: Int -> ConstitutionUrl -> ShowS
+Show)
+
+newtype ConstitutionText = ConstitutionText
+  { ConstitutionText -> Text
+unConstitutionText :: Text
+  } deriving (ConstitutionText -> ConstitutionText -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ConstitutionText -> ConstitutionText -> Bool
+$c/= :: ConstitutionText -> ConstitutionText -> Bool
+== :: ConstitutionText -> ConstitutionText -> Bool
+$c== :: ConstitutionText -> ConstitutionText -> Bool
+Eq, Int -> ConstitutionText -> ShowS
+[ConstitutionText] -> ShowS
+ConstitutionText -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ConstitutionText] -> ShowS
+$cshowList :: [ConstitutionText] -> ShowS
+show :: ConstitutionText -> String
+$cshow :: ConstitutionText -> String
+showsPrec :: Int -> ConstitutionText -> ShowS
+$cshowsPrec :: Int -> ConstitutionText -> ShowS
+Show)
+
+data ConstitutionHashSource
+  = ConstitutionHashSourceFile (File ConstitutionText In)
+  | ConstitutionHashSourceText Text
+  | ConstitutionHashSourceHash (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+  deriving Int -> ConstitutionHashSource -> ShowS
+[ConstitutionHashSource] -> ShowS
+ConstitutionHashSource -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ConstitutionHashSource] -> ShowS
+$cshowList :: [ConstitutionHashSource] -> ShowS
+show :: ConstitutionHashSource -> String
+$cshow :: ConstitutionHashSource -> String
+showsPrec :: Int -> ConstitutionHashSource -> ShowS
+$cshowsPrec :: Int -> ConstitutionHashSource -> ShowS
+Show
+
+newtype ProposalUrl = ProposalUrl
+  { ProposalUrl -> Url
+unProposalUrl :: L.Url
+  } deriving (ProposalUrl -> ProposalUrl -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ProposalUrl -> ProposalUrl -> Bool
+$c/= :: ProposalUrl -> ProposalUrl -> Bool
+== :: ProposalUrl -> ProposalUrl -> Bool
+$c== :: ProposalUrl -> ProposalUrl -> Bool
+Eq, Int -> ProposalUrl -> ShowS
+[ProposalUrl] -> ShowS
+ProposalUrl -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ProposalUrl] -> ShowS
+$cshowList :: [ProposalUrl] -> ShowS
+show :: ProposalUrl -> String
+$cshow :: ProposalUrl -> String
+showsPrec :: Int -> ProposalUrl -> ShowS
+$cshowsPrec :: Int -> ProposalUrl -> ShowS
+Show)
+
+newtype ProposalText = ProposalText
+  { ProposalText -> Text
+unProposalText :: Text
+  } deriving (ProposalText -> ProposalText -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ProposalText -> ProposalText -> Bool
+$c/= :: ProposalText -> ProposalText -> Bool
+== :: ProposalText -> ProposalText -> Bool
+$c== :: ProposalText -> ProposalText -> Bool
+Eq, Int -> ProposalText -> ShowS
+[ProposalText] -> ShowS
+ProposalText -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ProposalText] -> ShowS
+$cshowList :: [ProposalText] -> ShowS
+show :: ProposalText -> String
+$cshow :: ProposalText -> String
+showsPrec :: Int -> ProposalText -> ShowS
+$cshowsPrec :: Int -> ProposalText -> ShowS
+Show)
+
+newtype VoteUrl = VoteUrl
+  { VoteUrl -> Url
+unVoteUrl :: L.Url
+  } deriving (VoteUrl -> VoteUrl -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: VoteUrl -> VoteUrl -> Bool
+$c/= :: VoteUrl -> VoteUrl -> Bool
+== :: VoteUrl -> VoteUrl -> Bool
+$c== :: VoteUrl -> VoteUrl -> Bool
+Eq, Int -> VoteUrl -> ShowS
+[VoteUrl] -> ShowS
+VoteUrl -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VoteUrl] -> ShowS
+$cshowList :: [VoteUrl] -> ShowS
+show :: VoteUrl -> String
+$cshow :: VoteUrl -> String
+showsPrec :: Int -> VoteUrl -> ShowS
+$cshowsPrec :: Int -> VoteUrl -> ShowS
+Show)
+
+newtype VoteText = VoteText
+  { VoteText -> Text
+unVoteText :: Text
+  } deriving (VoteText -> VoteText -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: VoteText -> VoteText -> Bool
+$c/= :: VoteText -> VoteText -> Bool
+== :: VoteText -> VoteText -> Bool
+$c== :: VoteText -> VoteText -> Bool
+Eq, Int -> VoteText -> ShowS
+[VoteText] -> ShowS
+VoteText -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VoteText] -> ShowS
+$cshowList :: [VoteText] -> ShowS
+show :: VoteText -> String
+$cshow :: VoteText -> String
+showsPrec :: Int -> VoteText -> ShowS
+$cshowsPrec :: Int -> VoteText -> ShowS
+Show)
+
+data VoteHashSource
+  = VoteHashSourceFile (File VoteText In)
+  | VoteHashSourceText Text
+  | VoteHashSourceHash (L.SafeHash Crypto.StandardCrypto L.AnchorData)
+  deriving Int -> VoteHashSource -> ShowS
+[VoteHashSource] -> ShowS
+VoteHashSource -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VoteHashSource] -> ShowS
+$cshowList :: [VoteHashSource] -> ShowS
+show :: VoteHashSource -> String
+$cshow :: VoteHashSource -> String
+showsPrec :: Int -> VoteHashSource -> ShowS
+$cshowsPrec :: Int -> VoteHashSource -> ShowS
+Show
+
+-- | Specify whether to render the script cost as JSON
+-- in the cli's build command.
+data TxBuildOutputOptions = OutputScriptCostOnly (File () Out)
+                          | OutputTxBodyOnly (TxBodyFile Out)
+                          deriving Int -> TxBuildOutputOptions -> ShowS
+[TxBuildOutputOptions] -> ShowS
+TxBuildOutputOptions -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxBuildOutputOptions] -> ShowS
+$cshowList :: [TxBuildOutputOptions] -> ShowS
+show :: TxBuildOutputOptions -> String
+$cshow :: TxBuildOutputOptions -> String
+showsPrec :: Int -> TxBuildOutputOptions -> ShowS
+$cshowsPrec :: Int -> TxBuildOutputOptions -> ShowS
+Show
+
+
+-- | Specify what the CBOR file is
+-- i.e a block, a tx, etc
+data CBORObject = CBORBlockByron Byron.EpochSlots
+                | CBORDelegationCertificateByron
+                | CBORTxByron
+                | CBORUpdateProposalByron
+                | CBORVoteByron
+                deriving Int -> CBORObject -> ShowS
+[CBORObject] -> ShowS
+CBORObject -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CBORObject] -> ShowS
+$cshowList :: [CBORObject] -> ShowS
+show :: CBORObject -> String
+$cshow :: CBORObject -> String
+showsPrec :: Int -> CBORObject -> ShowS
+$cshowsPrec :: Int -> CBORObject -> ShowS
+Show
+
+-- Encompasses stake certificates, stake pool certificates,
+-- genesis delegate certificates and MIR certificates.
+newtype CertificateFile = CertificateFile { CertificateFile -> String
+unCertificateFile :: FilePath }
+                          deriving newtype (CertificateFile -> CertificateFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: CertificateFile -> CertificateFile -> Bool
+$c/= :: CertificateFile -> CertificateFile -> Bool
+== :: CertificateFile -> CertificateFile -> Bool
+$c== :: CertificateFile -> CertificateFile -> Bool
+Eq, Int -> CertificateFile -> ShowS
+[CertificateFile] -> ShowS
+CertificateFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CertificateFile] -> ShowS
+$cshowList :: [CertificateFile] -> ShowS
+show :: CertificateFile -> String
+$cshow :: CertificateFile -> String
+showsPrec :: Int -> CertificateFile -> ShowS
+$cshowsPrec :: Int -> CertificateFile -> ShowS
+Show)
+
+newtype CurrentKesPeriod = CurrentKesPeriod { CurrentKesPeriod -> Word64
+unCurrentKesPeriod :: Word64 } deriving (CurrentKesPeriod -> CurrentKesPeriod -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: CurrentKesPeriod -> CurrentKesPeriod -> Bool
+$c/= :: CurrentKesPeriod -> CurrentKesPeriod -> Bool
+== :: CurrentKesPeriod -> CurrentKesPeriod -> Bool
+$c== :: CurrentKesPeriod -> CurrentKesPeriod -> Bool
+Eq, Int -> CurrentKesPeriod -> ShowS
+[CurrentKesPeriod] -> ShowS
+CurrentKesPeriod -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CurrentKesPeriod] -> ShowS
+$cshowList :: [CurrentKesPeriod] -> ShowS
+show :: CurrentKesPeriod -> String
+$cshow :: CurrentKesPeriod -> String
+showsPrec :: Int -> CurrentKesPeriod -> ShowS
+$cshowsPrec :: Int -> CurrentKesPeriod -> ShowS
+Show)
+
+instance ToJSON CurrentKesPeriod where
+  toJSON :: CurrentKesPeriod -> Value
+toJSON (CurrentKesPeriod Word64
+k) = forall a. ToJSON a => a -> Value
+toJSON Word64
+k
+
+instance FromJSON CurrentKesPeriod where
+  parseJSON :: Value -> Parser CurrentKesPeriod
+parseJSON Value
+v = Word64 -> CurrentKesPeriod
+CurrentKesPeriod forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+newtype GenesisFile = GenesisFile
+  { GenesisFile -> String
+unGenesisFile :: FilePath }
+  deriving stock (GenesisFile -> GenesisFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: GenesisFile -> GenesisFile -> Bool
+$c/= :: GenesisFile -> GenesisFile -> Bool
+== :: GenesisFile -> GenesisFile -> Bool
+$c== :: GenesisFile -> GenesisFile -> Bool
+Eq, Eq GenesisFile
+GenesisFile -> GenesisFile -> Bool
+GenesisFile -> GenesisFile -> Ordering
+GenesisFile -> GenesisFile -> GenesisFile
+forall a.
+Eq a
+-> (a -> a -> Ordering)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> Bool)
+-> (a -> a -> a)
+-> (a -> a -> a)
+-> Ord a
+min :: GenesisFile -> GenesisFile -> GenesisFile
+$cmin :: GenesisFile -> GenesisFile -> GenesisFile
+max :: GenesisFile -> GenesisFile -> GenesisFile
+$cmax :: GenesisFile -> GenesisFile -> GenesisFile
+>= :: GenesisFile -> GenesisFile -> Bool
+$c>= :: GenesisFile -> GenesisFile -> Bool
+> :: GenesisFile -> GenesisFile -> Bool
+$c> :: GenesisFile -> GenesisFile -> Bool
+<= :: GenesisFile -> GenesisFile -> Bool
+$c<= :: GenesisFile -> GenesisFile -> Bool
+< :: GenesisFile -> GenesisFile -> Bool
+$c< :: GenesisFile -> GenesisFile -> Bool
+compare :: GenesisFile -> GenesisFile -> Ordering
+$ccompare :: GenesisFile -> GenesisFile -> Ordering
+Ord)
+  deriving newtype (String -> GenesisFile
+forall a. (String -> a) -> IsString a
+fromString :: String -> GenesisFile
+$cfromString :: String -> GenesisFile
+IsString, Int -> GenesisFile -> ShowS
+[GenesisFile] -> ShowS
+GenesisFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisFile] -> ShowS
+$cshowList :: [GenesisFile] -> ShowS
+show :: GenesisFile -> String
+$cshow :: GenesisFile -> String
+showsPrec :: Int -> GenesisFile -> ShowS
+$cshowsPrec :: Int -> GenesisFile -> ShowS
+Show)
+
+data OpCertNodeAndOnDiskCounterInformation
+  -- | The on disk operational certificate has a counter
+  -- that is equal to its corresponding counter in the
+  -- node state. The on disk operational certificate therefore
+  -- has a valid counter.
+  = OpCertOnDiskCounterEqualToNodeState
+      OpCertOnDiskCounter
+      OpCertNodeStateCounter
+  -- | The on disk operational certificate has a counter
+  -- that is ahead of the counter in the node state by 1.
+  -- The on disk operational certificate is invalid in
+  -- this case.
+  | OpCertOnDiskCounterAheadOfNodeState
+      OpCertOnDiskCounter
+      OpCertNodeStateCounter
+  -- | The on disk operational certificate has a counter
+  -- that is less than the counter in the node state. The
+  -- on disk operational certificate is invalid in this case.
+  | OpCertOnDiskCounterTooFarAheadOfNodeState
+      OpCertOnDiskCounter
+      OpCertNodeStateCounter
+  -- | The corresponding counter for operational certificate
+  -- was not found in the node state. This means the relevant
+  -- stake pool has not minted a block yet. When the stake pool
+  -- has minted a block the corresponding operational certificate's
+  -- counter will be present in the node state.
+  | OpCertOnDiskCounterBehindNodeState
+      OpCertOnDiskCounter
+      OpCertNodeStateCounter
+  -- | The on disk operational certificate has a counter
+  -- that is ahead of the counter in the node state by more
+  -- than 1. The on disk operational certificate is invalid in
+  -- this case.
+  | OpCertNoBlocksMintedYet
+      OpCertOnDiskCounter
+  deriving (OpCertNodeAndOnDiskCounterInformation
+-> OpCertNodeAndOnDiskCounterInformation -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertNodeAndOnDiskCounterInformation
+-> OpCertNodeAndOnDiskCounterInformation -> Bool
+$c/= :: OpCertNodeAndOnDiskCounterInformation
+-> OpCertNodeAndOnDiskCounterInformation -> Bool
+== :: OpCertNodeAndOnDiskCounterInformation
+-> OpCertNodeAndOnDiskCounterInformation -> Bool
+$c== :: OpCertNodeAndOnDiskCounterInformation
+-> OpCertNodeAndOnDiskCounterInformation -> Bool
+Eq, Int -> OpCertNodeAndOnDiskCounterInformation -> ShowS
+[OpCertNodeAndOnDiskCounterInformation] -> ShowS
+OpCertNodeAndOnDiskCounterInformation -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertNodeAndOnDiskCounterInformation] -> ShowS
+$cshowList :: [OpCertNodeAndOnDiskCounterInformation] -> ShowS
+show :: OpCertNodeAndOnDiskCounterInformation -> String
+$cshow :: OpCertNodeAndOnDiskCounterInformation -> String
+showsPrec :: Int -> OpCertNodeAndOnDiskCounterInformation -> ShowS
+$cshowsPrec :: Int -> OpCertNodeAndOnDiskCounterInformation -> ShowS
+Show)
+
+newtype OpCertOnDiskCounter = OpCertOnDiskCounter { OpCertOnDiskCounter -> Word64
+unOpCertOnDiskCounter :: Word64 }
+                              deriving (OpCertOnDiskCounter -> OpCertOnDiskCounter -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertOnDiskCounter -> OpCertOnDiskCounter -> Bool
+$c/= :: OpCertOnDiskCounter -> OpCertOnDiskCounter -> Bool
+== :: OpCertOnDiskCounter -> OpCertOnDiskCounter -> Bool
+$c== :: OpCertOnDiskCounter -> OpCertOnDiskCounter -> Bool
+Eq, Int -> OpCertOnDiskCounter -> ShowS
+[OpCertOnDiskCounter] -> ShowS
+OpCertOnDiskCounter -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertOnDiskCounter] -> ShowS
+$cshowList :: [OpCertOnDiskCounter] -> ShowS
+show :: OpCertOnDiskCounter -> String
+$cshow :: OpCertOnDiskCounter -> String
+showsPrec :: Int -> OpCertOnDiskCounter -> ShowS
+$cshowsPrec :: Int -> OpCertOnDiskCounter -> ShowS
+Show)
+
+instance ToJSON OpCertOnDiskCounter where
+  toJSON :: OpCertOnDiskCounter -> Value
+toJSON (OpCertOnDiskCounter Word64
+k) = forall a. ToJSON a => a -> Value
+toJSON Word64
+k
+
+instance FromJSON OpCertOnDiskCounter where
+  parseJSON :: Value -> Parser OpCertOnDiskCounter
+parseJSON Value
+v = Word64 -> OpCertOnDiskCounter
+OpCertOnDiskCounter forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+newtype OpCertNodeStateCounter = OpCertNodeStateCounter { OpCertNodeStateCounter -> Word64
+unOpCertNodeStateCounter :: Word64 }
+                                 deriving (OpCertNodeStateCounter -> OpCertNodeStateCounter -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertNodeStateCounter -> OpCertNodeStateCounter -> Bool
+$c/= :: OpCertNodeStateCounter -> OpCertNodeStateCounter -> Bool
+== :: OpCertNodeStateCounter -> OpCertNodeStateCounter -> Bool
+$c== :: OpCertNodeStateCounter -> OpCertNodeStateCounter -> Bool
+Eq, Int -> OpCertNodeStateCounter -> ShowS
+[OpCertNodeStateCounter] -> ShowS
+OpCertNodeStateCounter -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertNodeStateCounter] -> ShowS
+$cshowList :: [OpCertNodeStateCounter] -> ShowS
+show :: OpCertNodeStateCounter -> String
+$cshow :: OpCertNodeStateCounter -> String
+showsPrec :: Int -> OpCertNodeStateCounter -> ShowS
+$cshowsPrec :: Int -> OpCertNodeStateCounter -> ShowS
+Show)
+
+instance ToJSON OpCertNodeStateCounter where
+  toJSON :: OpCertNodeStateCounter -> Value
+toJSON (OpCertNodeStateCounter Word64
+k) = forall a. ToJSON a => a -> Value
+toJSON Word64
+k
+
+instance FromJSON OpCertNodeStateCounter where
+  parseJSON :: Value -> Parser OpCertNodeStateCounter
+parseJSON Value
+v = Word64 -> OpCertNodeStateCounter
+OpCertNodeStateCounter forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+newtype OpCertStartingKesPeriod = OpCertStartingKesPeriod { OpCertStartingKesPeriod -> Word64
+unOpCertStartingKesPeriod :: Word64 }
+                                  deriving (OpCertStartingKesPeriod -> OpCertStartingKesPeriod -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertStartingKesPeriod -> OpCertStartingKesPeriod -> Bool
+$c/= :: OpCertStartingKesPeriod -> OpCertStartingKesPeriod -> Bool
+== :: OpCertStartingKesPeriod -> OpCertStartingKesPeriod -> Bool
+$c== :: OpCertStartingKesPeriod -> OpCertStartingKesPeriod -> Bool
+Eq, Int -> OpCertStartingKesPeriod -> ShowS
+[OpCertStartingKesPeriod] -> ShowS
+OpCertStartingKesPeriod -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertStartingKesPeriod] -> ShowS
+$cshowList :: [OpCertStartingKesPeriod] -> ShowS
+show :: OpCertStartingKesPeriod -> String
+$cshow :: OpCertStartingKesPeriod -> String
+showsPrec :: Int -> OpCertStartingKesPeriod -> ShowS
+$cshowsPrec :: Int -> OpCertStartingKesPeriod -> ShowS
+Show)
+
+instance ToJSON OpCertStartingKesPeriod where
+  toJSON :: OpCertStartingKesPeriod -> Value
+toJSON (OpCertStartingKesPeriod Word64
+k) = forall a. ToJSON a => a -> Value
+toJSON Word64
+k
+
+instance FromJSON OpCertStartingKesPeriod where
+  parseJSON :: Value -> Parser OpCertStartingKesPeriod
+parseJSON Value
+v = Word64 -> OpCertStartingKesPeriod
+OpCertStartingKesPeriod forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+newtype OpCertEndingKesPeriod = OpCertEndingKesPeriod { OpCertEndingKesPeriod -> Word64
+unOpCertEndingKesPeriod :: Word64 }
+                                deriving (OpCertEndingKesPeriod -> OpCertEndingKesPeriod -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertEndingKesPeriod -> OpCertEndingKesPeriod -> Bool
+$c/= :: OpCertEndingKesPeriod -> OpCertEndingKesPeriod -> Bool
+== :: OpCertEndingKesPeriod -> OpCertEndingKesPeriod -> Bool
+$c== :: OpCertEndingKesPeriod -> OpCertEndingKesPeriod -> Bool
+Eq, Int -> OpCertEndingKesPeriod -> ShowS
+[OpCertEndingKesPeriod] -> ShowS
+OpCertEndingKesPeriod -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertEndingKesPeriod] -> ShowS
+$cshowList :: [OpCertEndingKesPeriod] -> ShowS
+show :: OpCertEndingKesPeriod -> String
+$cshow :: OpCertEndingKesPeriod -> String
+showsPrec :: Int -> OpCertEndingKesPeriod -> ShowS
+$cshowsPrec :: Int -> OpCertEndingKesPeriod -> ShowS
+Show)
+
+instance ToJSON OpCertEndingKesPeriod where
+  toJSON :: OpCertEndingKesPeriod -> Value
+toJSON (OpCertEndingKesPeriod Word64
+k) = forall a. ToJSON a => a -> Value
+toJSON Word64
+k
+
+instance FromJSON OpCertEndingKesPeriod where
+  parseJSON :: Value -> Parser OpCertEndingKesPeriod
+parseJSON Value
+v = Word64 -> OpCertEndingKesPeriod
+OpCertEndingKesPeriod forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+data OpCertIntervalInformation
+  = OpCertWithinInterval
+      OpCertStartingKesPeriod
+      OpCertEndingKesPeriod
+      CurrentKesPeriod
+      SlotsTillKesKeyExpiry
+  | OpCertStartingKesPeriodIsInTheFuture
+      OpCertStartingKesPeriod
+      OpCertEndingKesPeriod
+      CurrentKesPeriod
+  | OpCertExpired
+      OpCertStartingKesPeriod
+      OpCertEndingKesPeriod
+      CurrentKesPeriod
+  | OpCertSomeOtherError -- ^ Shouldn't be possible
+      OpCertStartingKesPeriod
+      OpCertEndingKesPeriod
+      CurrentKesPeriod
+  deriving (OpCertIntervalInformation -> OpCertIntervalInformation -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: OpCertIntervalInformation -> OpCertIntervalInformation -> Bool
+$c/= :: OpCertIntervalInformation -> OpCertIntervalInformation -> Bool
+== :: OpCertIntervalInformation -> OpCertIntervalInformation -> Bool
+$c== :: OpCertIntervalInformation -> OpCertIntervalInformation -> Bool
+Eq, Int -> OpCertIntervalInformation -> ShowS
+[OpCertIntervalInformation] -> ShowS
+OpCertIntervalInformation -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [OpCertIntervalInformation] -> ShowS
+$cshowList :: [OpCertIntervalInformation] -> ShowS
+show :: OpCertIntervalInformation -> String
+$cshow :: OpCertIntervalInformation -> String
+showsPrec :: Int -> OpCertIntervalInformation -> ShowS
+$cshowsPrec :: Int -> OpCertIntervalInformation -> ShowS
+Show)
+
+instance FromJSON GenesisFile where
+  parseJSON :: Value -> Parser GenesisFile
+parseJSON (Aeson.String Text
+genFp) = forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. String -> GenesisFile
+GenesisFile forall a b. (a -> b) -> a -> b
+$ Text -> String
+Text.unpack Text
+genFp
+  parseJSON Value
+invalid = forall a. HasCallStack => String -> a
+error forall a b. (a -> b) -> a -> b
+$ String
+"Parsing of GenesisFile failed due to type mismatch. "
+                           forall a. Semigroup a => a -> a -> a
+<> String
+"Encountered: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Value
+invalid
+
+-- | Some entities such as stake pools and dreps have a notion of an ID and that id can be
+-- encoded as either a bech32 or hex string.  This type is used to specify which encoding
+-- to use.
+data IdOutputFormat
+  = IdOutputFormatHex
+  | IdOutputFormatBech32
+  deriving (IdOutputFormat -> IdOutputFormat -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: IdOutputFormat -> IdOutputFormat -> Bool
+$c/= :: IdOutputFormat -> IdOutputFormat -> Bool
+== :: IdOutputFormat -> IdOutputFormat -> Bool
+$c== :: IdOutputFormat -> IdOutputFormat -> Bool
+Eq, Int -> IdOutputFormat -> ShowS
+[IdOutputFormat] -> ShowS
+IdOutputFormat -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [IdOutputFormat] -> ShowS
+$cshowList :: [IdOutputFormat] -> ShowS
+show :: IdOutputFormat -> String
+$cshow :: IdOutputFormat -> String
+showsPrec :: Int -> IdOutputFormat -> ShowS
+$cshowsPrec :: Int -> IdOutputFormat -> ShowS
+Show)
+
+data KeyOutputFormat
+  = KeyOutputFormatTextEnvelope
+  | KeyOutputFormatBech32
+  deriving (KeyOutputFormat -> KeyOutputFormat -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: KeyOutputFormat -> KeyOutputFormat -> Bool
+$c/= :: KeyOutputFormat -> KeyOutputFormat -> Bool
+== :: KeyOutputFormat -> KeyOutputFormat -> Bool
+$c== :: KeyOutputFormat -> KeyOutputFormat -> Bool
+Eq, Int -> KeyOutputFormat -> ShowS
+[KeyOutputFormat] -> ShowS
+KeyOutputFormat -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyOutputFormat] -> ShowS
+$cshowList :: [KeyOutputFormat] -> ShowS
+show :: KeyOutputFormat -> String
+$cshow :: KeyOutputFormat -> String
+showsPrec :: Int -> KeyOutputFormat -> ShowS
+$cshowsPrec :: Int -> KeyOutputFormat -> ShowS
+Show)
+
+data AllOrOnly a = All | Only a deriving (AllOrOnly a -> AllOrOnly a -> Bool
+forall a. Eq a => AllOrOnly a -> AllOrOnly a -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: AllOrOnly a -> AllOrOnly a -> Bool
+$c/= :: forall a. Eq a => AllOrOnly a -> AllOrOnly a -> Bool
+== :: AllOrOnly a -> AllOrOnly a -> Bool
+$c== :: forall a. Eq a => AllOrOnly a -> AllOrOnly a -> Bool
+Eq, Int -> AllOrOnly a -> ShowS
+forall a. Show a => Int -> AllOrOnly a -> ShowS
+forall a. Show a => [AllOrOnly a] -> ShowS
+forall a. Show a => AllOrOnly a -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AllOrOnly a] -> ShowS
+$cshowList :: forall a. Show a => [AllOrOnly a] -> ShowS
+show :: AllOrOnly a -> String
+$cshow :: forall a. Show a => AllOrOnly a -> String
+showsPrec :: Int -> AllOrOnly a -> ShowS
+$cshowsPrec :: forall a. Show a => Int -> AllOrOnly a -> ShowS
+Show)
+
+-- | This data structure is used to allow nicely formatted output in the query pool-params command.
+-- params are the current pool parameter settings, futureparams are new parameters, retiringEpoch is the
+-- epoch that has been set for pool retirement.  Any of these may be Nothing.
+data Params crypto = Params
+  { forall crypto. Params crypto -> Maybe (PoolParams crypto)
+poolParameters :: Maybe (PoolParams crypto)
+  , forall crypto. Params crypto -> Maybe (PoolParams crypto)
+futurePoolParameters :: Maybe (PoolParams crypto)
+  , forall crypto. Params crypto -> Maybe EpochNo
+retiringEpoch :: Maybe EpochNo
+  } deriving Int -> Params crypto -> ShowS
+forall crypto. Int -> Params crypto -> ShowS
+forall crypto. [Params crypto] -> ShowS
+forall crypto. Params crypto -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [Params crypto] -> ShowS
+$cshowList :: forall crypto. [Params crypto] -> ShowS
+show :: Params crypto -> String
+$cshow :: forall crypto. Params crypto -> String
+showsPrec :: Int -> Params crypto -> ShowS
+$cshowsPrec :: forall crypto. Int -> Params crypto -> ShowS
+Show
+
+-- | Pretty printing for pool parameters
+instance Crypto.Crypto crypto =>  ToJSON (Params crypto) where
+  toJSON :: Params crypto -> Value
+toJSON (Params Maybe (PoolParams crypto)
+p Maybe (PoolParams crypto)
+fp Maybe EpochNo
+r) = [Pair] -> Value
+object
+    [ Key
+"poolParams" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe (PoolParams crypto)
+p
+    , Key
+"futurePoolParams" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe (PoolParams crypto)
+fp
+    , Key
+"retiring" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe EpochNo
+r
+    ]
+
+  toEncoding :: Params crypto -> Encoding
+toEncoding (Params Maybe (PoolParams crypto)
+p Maybe (PoolParams crypto)
+fp Maybe EpochNo
+r) = Series -> Encoding
+pairs forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+    [ Key
+"poolParams" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe (PoolParams crypto)
+p
+    , Key
+"futurePoolParams" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe (PoolParams crypto)
+fp
+    , Key
+"retiring" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe EpochNo
+r
+    ]
+
+type SigningKeyFile = File (SigningKey ())
+
+type ProposalFile = File ()
+
+newtype UpdateProposalFile = UpdateProposalFile { UpdateProposalFile -> String
+unUpdateProposalFile :: FilePath }
+                             deriving newtype (UpdateProposalFile -> UpdateProposalFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: UpdateProposalFile -> UpdateProposalFile -> Bool
+$c/= :: UpdateProposalFile -> UpdateProposalFile -> Bool
+== :: UpdateProposalFile -> UpdateProposalFile -> Bool
+$c== :: UpdateProposalFile -> UpdateProposalFile -> Bool
+Eq, Int -> UpdateProposalFile -> ShowS
+[UpdateProposalFile] -> ShowS
+UpdateProposalFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [UpdateProposalFile] -> ShowS
+$cshowList :: [UpdateProposalFile] -> ShowS
+show :: UpdateProposalFile -> String
+$cshow :: UpdateProposalFile -> String
+showsPrec :: Int -> UpdateProposalFile -> ShowS
+$cshowsPrec :: Int -> UpdateProposalFile -> ShowS
+Show)
+
+type VerificationKeyFile = File (VerificationKey ())
+
+newtype ScriptFile = ScriptFile { ScriptFile -> String
+unScriptFile :: FilePath }
+                     deriving (ScriptFile -> ScriptFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ScriptFile -> ScriptFile -> Bool
+$c/= :: ScriptFile -> ScriptFile -> Bool
+== :: ScriptFile -> ScriptFile -> Bool
+$c== :: ScriptFile -> ScriptFile -> Bool
+Eq, Int -> ScriptFile -> ShowS
+[ScriptFile] -> ShowS
+ScriptFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ScriptFile] -> ShowS
+$cshowList :: [ScriptFile] -> ShowS
+show :: ScriptFile -> String
+$cshow :: ScriptFile -> String
+showsPrec :: Int -> ScriptFile -> ShowS
+$cshowsPrec :: Int -> ScriptFile -> ShowS
+Show)
+
+data ScriptDataOrFile = ScriptDataCborFile  FilePath   -- ^ By reference to a CBOR file
+                      | ScriptDataJsonFile  FilePath   -- ^ By reference to a JSON file
+                      | ScriptDataValue     HashableScriptData -- ^ By value
+  deriving (ScriptDataOrFile -> ScriptDataOrFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ScriptDataOrFile -> ScriptDataOrFile -> Bool
+$c/= :: ScriptDataOrFile -> ScriptDataOrFile -> Bool
+== :: ScriptDataOrFile -> ScriptDataOrFile -> Bool
+$c== :: ScriptDataOrFile -> ScriptDataOrFile -> Bool
+Eq, Int -> ScriptDataOrFile -> ShowS
+[ScriptDataOrFile] -> ShowS
+ScriptDataOrFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ScriptDataOrFile] -> ShowS
+$cshowList :: [ScriptDataOrFile] -> ShowS
+show :: ScriptDataOrFile -> String
+$cshow :: ScriptDataOrFile -> String
+showsPrec :: Int -> ScriptDataOrFile -> ShowS
+$cshowsPrec :: Int -> ScriptDataOrFile -> ShowS
+Show)
+
+type ScriptRedeemerOrFile = ScriptDataOrFile
+
+-- | This type is like 'ScriptWitness', but the file paths from which to load
+-- the script witness data representation.
+--
+-- It is era-independent, but witness context-dependent.
+--
+data ScriptWitnessFiles witctx where
+     SimpleScriptWitnessFile  :: ScriptFile
+                              -> ScriptWitnessFiles witctx
+
+     PlutusScriptWitnessFiles :: ScriptFile
+                              -> ScriptDatumOrFile witctx
+                              -> ScriptRedeemerOrFile
+                              -> ExecutionUnits
+                              -> ScriptWitnessFiles witctx
+
+     -- TODO: Need to figure out how to exclude PlutusV1 scripts at the type level
+     PlutusReferenceScriptWitnessFiles
+       :: TxIn
+       -> AnyScriptLanguage
+       -> ScriptDatumOrFile witctx
+       -> ScriptRedeemerOrFile
+       -> ExecutionUnits
+       -> Maybe PolicyId -- ^ For minting reference scripts
+       -> ScriptWitnessFiles witctx
+
+     SimpleReferenceScriptWitnessFiles
+       :: TxIn
+       -> AnyScriptLanguage
+       -> Maybe PolicyId -- ^ For minting reference scripts
+       -> ScriptWitnessFiles witctx
+
+
+deriving instance Show (ScriptWitnessFiles witctx)
+
+data ScriptDatumOrFile witctx where
+     ScriptDatumOrFileForTxIn    :: ScriptDataOrFile
+                                 -> ScriptDatumOrFile WitCtxTxIn
+     InlineDatumPresentAtTxIn    :: ScriptDatumOrFile WitCtxTxIn
+
+     NoScriptDatumOrFileForMint  :: ScriptDatumOrFile WitCtxMint
+     NoScriptDatumOrFileForStake :: ScriptDatumOrFile WitCtxStake
+
+deriving instance Show (ScriptDatumOrFile witctx)
+
+newtype SlotsTillKesKeyExpiry = SlotsTillKesKeyExpiry { SlotsTillKesKeyExpiry -> SlotNo
+unSlotsTillKesKeyExpiry :: SlotNo }
+                                deriving (SlotsTillKesKeyExpiry -> SlotsTillKesKeyExpiry -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: SlotsTillKesKeyExpiry -> SlotsTillKesKeyExpiry -> Bool
+$c/= :: SlotsTillKesKeyExpiry -> SlotsTillKesKeyExpiry -> Bool
+== :: SlotsTillKesKeyExpiry -> SlotsTillKesKeyExpiry -> Bool
+$c== :: SlotsTillKesKeyExpiry -> SlotsTillKesKeyExpiry -> Bool
+Eq, Int -> SlotsTillKesKeyExpiry -> ShowS
+[SlotsTillKesKeyExpiry] -> ShowS
+SlotsTillKesKeyExpiry -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [SlotsTillKesKeyExpiry] -> ShowS
+$cshowList :: [SlotsTillKesKeyExpiry] -> ShowS
+show :: SlotsTillKesKeyExpiry -> String
+$cshow :: SlotsTillKesKeyExpiry -> String
+showsPrec :: Int -> SlotsTillKesKeyExpiry -> ShowS
+$cshowsPrec :: Int -> SlotsTillKesKeyExpiry -> ShowS
+Show)
+
+instance ToJSON SlotsTillKesKeyExpiry where
+  toJSON :: SlotsTillKesKeyExpiry -> Value
+toJSON (SlotsTillKesKeyExpiry SlotNo
+k) = forall a. ToJSON a => a -> Value
+toJSON SlotNo
+k
+
+instance FromJSON SlotsTillKesKeyExpiry where
+  parseJSON :: Value -> Parser SlotsTillKesKeyExpiry
+parseJSON Value
+v = SlotNo -> SlotsTillKesKeyExpiry
+SlotsTillKesKeyExpiry forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. FromJSON a => Value -> Parser a
+parseJSON Value
+v
+
+-- | A TxOut value that is the superset of possibilities for any era: any
+-- address type and allowing multi-asset values. This is used as the type for
+-- values passed on the command line. It can be converted into the
+-- era-dependent 'TxOutValue' type.
+--
+data TxOutAnyEra = TxOutAnyEra
+                     AddressAny
+                     Value
+                     TxOutDatumAnyEra
+                     ReferenceScriptAnyEra
+  deriving (TxOutAnyEra -> TxOutAnyEra -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: TxOutAnyEra -> TxOutAnyEra -> Bool
+$c/= :: TxOutAnyEra -> TxOutAnyEra -> Bool
+== :: TxOutAnyEra -> TxOutAnyEra -> Bool
+$c== :: TxOutAnyEra -> TxOutAnyEra -> Bool
+Eq, Int -> TxOutAnyEra -> ShowS
+[TxOutAnyEra] -> ShowS
+TxOutAnyEra -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxOutAnyEra] -> ShowS
+$cshowList :: [TxOutAnyEra] -> ShowS
+show :: TxOutAnyEra -> String
+$cshow :: TxOutAnyEra -> String
+showsPrec :: Int -> TxOutAnyEra -> ShowS
+$cshowsPrec :: Int -> TxOutAnyEra -> ShowS
+Show)
+
+data TxOutDatumAnyEra = TxOutDatumByHashOnly (Hash ScriptData)
+                      | TxOutDatumByHashOf    ScriptDataOrFile
+                      | TxOutDatumByValue     ScriptDataOrFile
+                      | TxOutInlineDatumByValue ScriptDataOrFile
+                      | TxOutDatumByNone
+  deriving (TxOutDatumAnyEra -> TxOutDatumAnyEra -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: TxOutDatumAnyEra -> TxOutDatumAnyEra -> Bool
+$c/= :: TxOutDatumAnyEra -> TxOutDatumAnyEra -> Bool
+== :: TxOutDatumAnyEra -> TxOutDatumAnyEra -> Bool
+$c== :: TxOutDatumAnyEra -> TxOutDatumAnyEra -> Bool
+Eq, Int -> TxOutDatumAnyEra -> ShowS
+[TxOutDatumAnyEra] -> ShowS
+TxOutDatumAnyEra -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxOutDatumAnyEra] -> ShowS
+$cshowList :: [TxOutDatumAnyEra] -> ShowS
+show :: TxOutDatumAnyEra -> String
+$cshow :: TxOutDatumAnyEra -> String
+showsPrec :: Int -> TxOutDatumAnyEra -> ShowS
+$cshowsPrec :: Int -> TxOutDatumAnyEra -> ShowS
+Show)
+
+data ReferenceScriptAnyEra
+  = ReferenceScriptAnyEraNone
+  | ReferenceScriptAnyEra FilePath
+  deriving (ReferenceScriptAnyEra -> ReferenceScriptAnyEra -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ReferenceScriptAnyEra -> ReferenceScriptAnyEra -> Bool
+$c/= :: ReferenceScriptAnyEra -> ReferenceScriptAnyEra -> Bool
+== :: ReferenceScriptAnyEra -> ReferenceScriptAnyEra -> Bool
+$c== :: ReferenceScriptAnyEra -> ReferenceScriptAnyEra -> Bool
+Eq, Int -> ReferenceScriptAnyEra -> ShowS
+[ReferenceScriptAnyEra] -> ShowS
+ReferenceScriptAnyEra -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ReferenceScriptAnyEra] -> ShowS
+$cshowList :: [ReferenceScriptAnyEra] -> ShowS
+show :: ReferenceScriptAnyEra -> String
+$cshow :: ReferenceScriptAnyEra -> String
+showsPrec :: Int -> ReferenceScriptAnyEra -> ShowS
+$cshowsPrec :: Int -> ReferenceScriptAnyEra -> ShowS
+Show)
+
+-- | A partially-specified transaction output indented to use as a change
+-- output.
+--
+-- It does not specify a value, since this will be worked out automatically.
+--
+-- It does not use any script data hash, since that's generally not used for
+-- change outputs.
+--
+newtype TxOutChangeAddress = TxOutChangeAddress AddressAny
+  deriving (TxOutChangeAddress -> TxOutChangeAddress -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: TxOutChangeAddress -> TxOutChangeAddress -> Bool
+$c/= :: TxOutChangeAddress -> TxOutChangeAddress -> Bool
+== :: TxOutChangeAddress -> TxOutChangeAddress -> Bool
+$c== :: TxOutChangeAddress -> TxOutChangeAddress -> Bool
+Eq, Int -> TxOutChangeAddress -> ShowS
+[TxOutChangeAddress] -> ShowS
+TxOutChangeAddress -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxOutChangeAddress] -> ShowS
+$cshowList :: [TxOutChangeAddress] -> ShowS
+show :: TxOutChangeAddress -> String
+$cshow :: TxOutChangeAddress -> String
+showsPrec :: Int -> TxOutChangeAddress -> ShowS
+$cshowsPrec :: Int -> TxOutChangeAddress -> ShowS
+Show)
+
+-- | A flag that differentiates between automatically
+-- and manually balancing a tx.
+data BalanceTxExecUnits = AutoBalance | ManualBalance
+
+-- | Plutus script required signers
+data RequiredSigner
+ = RequiredSignerSkeyFile (SigningKeyFile In)
+ | RequiredSignerHash (Hash PaymentKey)
+ deriving Int -> RequiredSigner -> ShowS
+[RequiredSigner] -> ShowS
+RequiredSigner -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [RequiredSigner] -> ShowS
+$cshowList :: [RequiredSigner] -> ShowS
+show :: RequiredSigner -> String
+$cshow :: RequiredSigner -> String
+showsPrec :: Int -> RequiredSigner -> ShowS
+$cshowsPrec :: Int -> RequiredSigner -> ShowS
+Show
+
+-- | Which leadership schedule we are interested in.
+-- TODO: Implement Previous and Next epochs
+data EpochLeadershipSchedule
+  = CurrentEpoch
+  | NextEpoch
+  deriving Int -> EpochLeadershipSchedule -> ShowS
+[EpochLeadershipSchedule] -> ShowS
+EpochLeadershipSchedule -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [EpochLeadershipSchedule] -> ShowS
+$cshowList :: [EpochLeadershipSchedule] -> ShowS
+show :: EpochLeadershipSchedule -> String
+$cshow :: EpochLeadershipSchedule -> String
+showsPrec :: Int -> EpochLeadershipSchedule -> ShowS
+$cshowsPrec :: Int -> EpochLeadershipSchedule -> ShowS
+Show
+
+type TxBodyFile = File (TxBody ())
+
+type TxFile = File (Tx ())
+
+data TxMempoolQuery =
+      TxMempoolQueryTxExists TxId
+    | TxMempoolQueryNextTx
+    | TxMempoolQueryInfo
+  deriving Int -> TxMempoolQuery -> ShowS
+[TxMempoolQuery] -> ShowS
+TxMempoolQuery -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxMempoolQuery] -> ShowS
+$cshowList :: [TxMempoolQuery] -> ShowS
+show :: TxMempoolQuery -> String
+$cshow :: TxMempoolQuery -> String
+showsPrec :: Int -> TxMempoolQuery -> ShowS
+$cshowsPrec :: Int -> TxMempoolQuery -> ShowS
+Show
+
+data TxViewOutputFormat
+  = TxViewOutputFormatJson
+  | TxViewOutputFormatYaml
+  deriving Int -> TxViewOutputFormat -> ShowS
+[TxViewOutputFormat] -> ShowS
+TxViewOutputFormat -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxViewOutputFormat] -> ShowS
+$cshowList :: [TxViewOutputFormat] -> ShowS
+show :: TxViewOutputFormat -> String
+$cshow :: TxViewOutputFormat -> String
+showsPrec :: Int -> TxViewOutputFormat -> ShowS
+$cshowsPrec :: Int -> TxViewOutputFormat -> ShowS
+Show
+
+data GovernanceActionViewOutputFormat
+  = GovernanceActionViewOutputFormatJson
+  | GovernanceActionViewOutputFormatYaml
+  deriving Int -> GovernanceActionViewOutputFormat -> ShowS
+[GovernanceActionViewOutputFormat] -> ShowS
+GovernanceActionViewOutputFormat -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionViewOutputFormat] -> ShowS
+$cshowList :: [GovernanceActionViewOutputFormat] -> ShowS
+show :: GovernanceActionViewOutputFormat -> String
+$cshow :: GovernanceActionViewOutputFormat -> String
+showsPrec :: Int -> GovernanceActionViewOutputFormat -> ShowS
+$cshowsPrec :: Int -> GovernanceActionViewOutputFormat -> ShowS
+Show
+--
+-- Shelley CLI flag/option data types
+--
+
+newtype ProtocolParamsFile
+  = ProtocolParamsFile FilePath
+  deriving (Int -> ProtocolParamsFile -> ShowS
+[ProtocolParamsFile] -> ShowS
+ProtocolParamsFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ProtocolParamsFile] -> ShowS
+$cshowList :: [ProtocolParamsFile] -> ShowS
+show :: ProtocolParamsFile -> String
+$cshow :: ProtocolParamsFile -> String
+showsPrec :: Int -> ProtocolParamsFile -> ShowS
+$cshowsPrec :: Int -> ProtocolParamsFile -> ShowS
+Show, ProtocolParamsFile -> ProtocolParamsFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ProtocolParamsFile -> ProtocolParamsFile -> Bool
+$c/= :: ProtocolParamsFile -> ProtocolParamsFile -> Bool
+== :: ProtocolParamsFile -> ProtocolParamsFile -> Bool
+$c== :: ProtocolParamsFile -> ProtocolParamsFile -> Bool
+Eq)
+
+newtype TxInCount
+  = TxInCount Int
+  deriving Int -> TxInCount -> ShowS
+[TxInCount] -> ShowS
+TxInCount -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxInCount] -> ShowS
+$cshowList :: [TxInCount] -> ShowS
+show :: TxInCount -> String
+$cshow :: TxInCount -> String
+showsPrec :: Int -> TxInCount -> ShowS
+$cshowsPrec :: Int -> TxInCount -> ShowS
+Show
+
+newtype TxOutCount
+  = TxOutCount Int
+  deriving Int -> TxOutCount -> ShowS
+[TxOutCount] -> ShowS
+TxOutCount -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxOutCount] -> ShowS
+$cshowList :: [TxOutCount] -> ShowS
+show :: TxOutCount -> String
+$cshow :: TxOutCount -> String
+showsPrec :: Int -> TxOutCount -> ShowS
+$cshowsPrec :: Int -> TxOutCount -> ShowS
+Show
+
+newtype TxShelleyWitnessCount
+  = TxShelleyWitnessCount Int
+  deriving Int -> TxShelleyWitnessCount -> ShowS
+[TxShelleyWitnessCount] -> ShowS
+TxShelleyWitnessCount -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxShelleyWitnessCount] -> ShowS
+$cshowList :: [TxShelleyWitnessCount] -> ShowS
+show :: TxShelleyWitnessCount -> String
+$cshow :: TxShelleyWitnessCount -> String
+showsPrec :: Int -> TxShelleyWitnessCount -> ShowS
+$cshowsPrec :: Int -> TxShelleyWitnessCount -> ShowS
+Show
+
+newtype TxByronWitnessCount
+  = TxByronWitnessCount Int
+  deriving Int -> TxByronWitnessCount -> ShowS
+[TxByronWitnessCount] -> ShowS
+TxByronWitnessCount -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxByronWitnessCount] -> ShowS
+$cshowList :: [TxByronWitnessCount] -> ShowS
+show :: TxByronWitnessCount -> String
+$cshow :: TxByronWitnessCount -> String
+showsPrec :: Int -> TxByronWitnessCount -> ShowS
+$cshowsPrec :: Int -> TxByronWitnessCount -> ShowS
+Show
+
+newtype BlockId
+  = BlockId String -- Probably not a String
+  deriving Int -> BlockId -> ShowS
+[BlockId] -> ShowS
+BlockId -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [BlockId] -> ShowS
+$cshowList :: [BlockId] -> ShowS
+show :: BlockId -> String
+$cshow :: BlockId -> String
+showsPrec :: Int -> BlockId -> ShowS
+$cshowsPrec :: Int -> BlockId -> ShowS
+Show
+
+newtype GenesisKeyFile
+  = GenesisKeyFile FilePath
+  deriving Int -> GenesisKeyFile -> ShowS
+[GenesisKeyFile] -> ShowS
+GenesisKeyFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisKeyFile] -> ShowS
+$cshowList :: [GenesisKeyFile] -> ShowS
+show :: GenesisKeyFile -> String
+$cshow :: GenesisKeyFile -> String
+showsPrec :: Int -> GenesisKeyFile -> ShowS
+$cshowsPrec :: Int -> GenesisKeyFile -> ShowS
+Show
+
+data MetadataFile = MetadataFileJSON (File () In)
+                  | MetadataFileCBOR (File () In)
+
+  deriving Int -> MetadataFile -> ShowS
+[MetadataFile] -> ShowS
+MetadataFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [MetadataFile] -> ShowS
+$cshowList :: [MetadataFile] -> ShowS
+show :: MetadataFile -> String
+$cshow :: MetadataFile -> String
+showsPrec :: Int -> MetadataFile -> ShowS
+$cshowsPrec :: Int -> MetadataFile -> ShowS
+Show
+
+type StakePoolMetadataFile = File StakePoolMetadata
+
+type DRepMetadataFile = File DRepMetadata
+
+newtype GenesisDir
+  = GenesisDir FilePath
+  deriving Int -> GenesisDir -> ShowS
+[GenesisDir] -> ShowS
+GenesisDir -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisDir] -> ShowS
+$cshowList :: [GenesisDir] -> ShowS
+show :: GenesisDir -> String
+$cshow :: GenesisDir -> String
+showsPrec :: Int -> GenesisDir -> ShowS
+$cshowsPrec :: Int -> GenesisDir -> ShowS
+Show
+
+-- | Either a verification or signing key, used for conversions and other
+-- commands that make sense for both.
+--
+data SomeKeyFile direction
+  = AVerificationKeyFile (VerificationKeyFile direction)
+  | ASigningKeyFile (SigningKeyFile direction)
+  deriving Int -> SomeKeyFile direction -> ShowS
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+forall (direction :: FileDirection).
+Int -> SomeKeyFile direction -> ShowS
+forall (direction :: FileDirection).
+[SomeKeyFile direction] -> ShowS
+forall (direction :: FileDirection).
+SomeKeyFile direction -> String
+showList :: [SomeKeyFile direction] -> ShowS
+$cshowList :: forall (direction :: FileDirection).
+[SomeKeyFile direction] -> ShowS
+show :: SomeKeyFile direction -> String
+$cshow :: forall (direction :: FileDirection).
+SomeKeyFile direction -> String
+showsPrec :: Int -> SomeKeyFile direction -> ShowS
+$cshowsPrec :: forall (direction :: FileDirection).
+Int -> SomeKeyFile direction -> ShowS
+Show
+
+data AddressKeyType
+  = AddressKeyShelley
+  | AddressKeyShelleyExtended
+  | AddressKeyByron
+  deriving Int -> AddressKeyType -> ShowS
+[AddressKeyType] -> ShowS
+AddressKeyType -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AddressKeyType] -> ShowS
+$cshowList :: [AddressKeyType] -> ShowS
+show :: AddressKeyType -> String
+$cshow :: AddressKeyType -> String
+showsPrec :: Int -> AddressKeyType -> ShowS
+$cshowsPrec :: Int -> AddressKeyType -> ShowS
+Show
+
+data ByronKeyType
+  = ByronPaymentKey  ByronKeyFormat
+  | ByronGenesisKey  ByronKeyFormat
+  | ByronDelegateKey ByronKeyFormat
+  deriving Int -> ByronKeyType -> ShowS
+[ByronKeyType] -> ShowS
+ByronKeyType -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ByronKeyType] -> ShowS
+$cshowList :: [ByronKeyType] -> ShowS
+show :: ByronKeyType -> String
+$cshow :: ByronKeyType -> String
+showsPrec :: Int -> ByronKeyType -> ShowS
+$cshowsPrec :: Int -> ByronKeyType -> ShowS
+Show
+
+data ByronKeyFormat = NonLegacyByronKeyFormat
+                    | LegacyByronKeyFormat
+  deriving Int -> ByronKeyFormat -> ShowS
+[ByronKeyFormat] -> ShowS
+ByronKeyFormat -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ByronKeyFormat] -> ShowS
+$cshowList :: [ByronKeyFormat] -> ShowS
+show :: ByronKeyFormat -> String
+$cshow :: ByronKeyFormat -> String
+showsPrec :: Int -> ByronKeyFormat -> ShowS
+$cshowsPrec :: Int -> ByronKeyFormat -> ShowS
+Show
+
+-- | The type of @cardano-address@ key.
+data CardanoAddressKeyType
+  = CardanoAddressShelleyPaymentKey
+  | CardanoAddressShelleyStakeKey
+  | CardanoAddressIcarusPaymentKey
+  | CardanoAddressByronPaymentKey
+  deriving Int -> CardanoAddressKeyType -> ShowS
+[CardanoAddressKeyType] -> ShowS
+CardanoAddressKeyType -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CardanoAddressKeyType] -> ShowS
+$cshowList :: [CardanoAddressKeyType] -> ShowS
+show :: CardanoAddressKeyType -> String
+$cshow :: CardanoAddressKeyType -> String
+showsPrec :: Int -> CardanoAddressKeyType -> ShowS
+$cshowsPrec :: Int -> CardanoAddressKeyType -> ShowS
+Show
+
+type OpCertCounterFile = File OpCertCounter
+
+newtype PrivKeyFile
+  = PrivKeyFile FilePath
+  deriving Int -> PrivKeyFile -> ShowS
+[PrivKeyFile] -> ShowS
+PrivKeyFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [PrivKeyFile] -> ShowS
+$cshowList :: [PrivKeyFile] -> ShowS
+show :: PrivKeyFile -> String
+$cshow :: PrivKeyFile -> String
+showsPrec :: Int -> PrivKeyFile -> ShowS
+$cshowsPrec :: Int -> PrivKeyFile -> ShowS
+Show
+
+newtype WitnessFile
+  = WitnessFile FilePath
+  deriving Int -> WitnessFile -> ShowS
+[WitnessFile] -> ShowS
+WitnessFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [WitnessFile] -> ShowS
+$cshowList :: [WitnessFile] -> ShowS
+show :: WitnessFile -> String
+$cshow :: WitnessFile -> String
+showsPrec :: Int -> WitnessFile -> ShowS
+$cshowsPrec :: Int -> WitnessFile -> ShowS
+Show
+
+-- | A raw verification key given in Base64, and decoded into a ByteString.
+newtype VerificationKeyBase64
+  = VerificationKeyBase64 String
+  deriving Int -> VerificationKeyBase64 -> ShowS
+[VerificationKeyBase64] -> ShowS
+VerificationKeyBase64 -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VerificationKeyBase64] -> ShowS
+$cshowList :: [VerificationKeyBase64] -> ShowS
+show :: VerificationKeyBase64 -> String
+$cshow :: VerificationKeyBase64 -> String
+showsPrec :: Int -> VerificationKeyBase64 -> ShowS
+$cshowsPrec :: Int -> VerificationKeyBase64 -> ShowS
+Show
+
+-- | Data required to construct a witness.
+data WitnessSigningData
+  = KeyWitnessSigningData
+      !(SigningKeyFile In)
+      -- ^ Path to a file that should contain a signing key.
+      !(Maybe (Address ByronAddr))
+      -- ^ An optionally specified Byron address.
+      --
+      -- If specified, both the network ID and derivation path are extracted
+      -- from the address and used in the construction of the Byron witness.
+  deriving Int -> WitnessSigningData -> ShowS
+[WitnessSigningData] -> ShowS
+WitnessSigningData -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [WitnessSigningData] -> ShowS
+$cshowList :: [WitnessSigningData] -> ShowS
+show :: WitnessSigningData -> String
+$cshow :: WitnessSigningData -> String
+showsPrec :: Int -> WitnessSigningData -> ShowS
+$cshowsPrec :: Int -> WitnessSigningData -> ShowS
+Show
+
+data InputTxBodyOrTxFile = InputTxBodyFile (TxBodyFile In) | InputTxFile (TxFile In)
+  deriving Int -> InputTxBodyOrTxFile -> ShowS
+[InputTxBodyOrTxFile] -> ShowS
+InputTxBodyOrTxFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [InputTxBodyOrTxFile] -> ShowS
+$cshowList :: [InputTxBodyOrTxFile] -> ShowS
+show :: InputTxBodyOrTxFile -> String
+$cshow :: InputTxBodyOrTxFile -> String
+showsPrec :: Int -> InputTxBodyOrTxFile -> ShowS
+$cshowsPrec :: Int -> InputTxBodyOrTxFile -> ShowS
+Show
+
+data ParserFileDirection
+  = Input
+  | Output
+  deriving (ParserFileDirection -> ParserFileDirection -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: ParserFileDirection -> ParserFileDirection -> Bool
+$c/= :: ParserFileDirection -> ParserFileDirection -> Bool
+== :: ParserFileDirection -> ParserFileDirection -> Bool
+$c== :: ParserFileDirection -> ParserFileDirection -> Bool
+Eq, Int -> ParserFileDirection -> ShowS
+[ParserFileDirection] -> ShowS
+ParserFileDirection -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ParserFileDirection] -> ShowS
+$cshowList :: [ParserFileDirection] -> ShowS
+show :: ParserFileDirection -> String
+$cshow :: ParserFileDirection -> String
+showsPrec :: Int -> ParserFileDirection -> ShowS
+$cshowsPrec :: Int -> ParserFileDirection -> ShowS
+Show)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressCmdError.html new file mode 100644 index 0000000000..5729138cd2 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressCmdError.html @@ -0,0 +1,83 @@ +
{-# LANGUAGE CPP #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.AddressCmdError
+  ( AddressCmdError(..)
+  , renderAddressCmdError
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Errors.AddressInfoError
+import           Cardano.CLI.Types.Key (VerificationKeyTextOrFileError (..),
+                   renderVerificationKeyTextOrFileError)
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data AddressCmdError
+  = AddressCmdAddressInfoError !AddressInfoError
+  | AddressCmdReadKeyFileError !(FileError InputDecodeError)
+  | AddressCmdReadScriptFileError !(FileError ScriptDecodeError)
+  | AddressCmdVerificationKeyTextOrFileError !VerificationKeyTextOrFileError
+  | AddressCmdWriteFileError !(FileError ())
+  | AddressCmdExpectedPaymentVerificationKey SomeAddressVerificationKey
+  deriving Int -> AddressCmdError -> ShowS
+[AddressCmdError] -> ShowS
+AddressCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AddressCmdError] -> ShowS
+$cshowList :: [AddressCmdError] -> ShowS
+show :: AddressCmdError -> String
+$cshow :: AddressCmdError -> String
+showsPrec :: Int -> AddressCmdError -> ShowS
+$cshowsPrec :: Int -> AddressCmdError -> ShowS
+Show
+
+renderAddressCmdError :: AddressCmdError -> Text
+renderAddressCmdError :: AddressCmdError -> Text
+renderAddressCmdError AddressCmdError
+err =
+  case AddressCmdError
+err of
+    AddressCmdAddressInfoError AddressInfoError
+addrInfoErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError AddressInfoError
+addrInfoErr)
+    AddressCmdReadKeyFileError FileError InputDecodeError
+fileErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileErr)
+    AddressCmdVerificationKeyTextOrFileError VerificationKeyTextOrFileError
+vkTextOrFileErr ->
+      VerificationKeyTextOrFileError -> Text
+renderVerificationKeyTextOrFileError VerificationKeyTextOrFileError
+vkTextOrFileErr
+    AddressCmdReadScriptFileError FileError ScriptDecodeError
+fileErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ScriptDecodeError
+fileErr)
+    AddressCmdWriteFileError FileError ()
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ()
+fileErr)
+    AddressCmdExpectedPaymentVerificationKey SomeAddressVerificationKey
+someAddress ->
+      Text
+"Expected payment verification key but got: " forall a. Semigroup a => a -> a -> a
+<> SomeAddressVerificationKey -> Text
+renderSomeAddressVerificationKey SomeAddressVerificationKey
+someAddress
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressInfoError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressInfoError.html new file mode 100644 index 0000000000..31e6adb605 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.AddressInfoError.html @@ -0,0 +1,32 @@ +
module Cardano.CLI.Types.Errors.AddressInfoError
+  ( AddressInfoError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Data.Text (Text)
+
+newtype AddressInfoError = ShelleyAddressInvalid Text
+  deriving Int -> AddressInfoError -> ShowS
+[AddressInfoError] -> ShowS
+AddressInfoError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AddressInfoError] -> ShowS
+$cshowList :: [AddressInfoError] -> ShowS
+show :: AddressInfoError -> String
+$cshow :: AddressInfoError -> String
+showsPrec :: Int -> AddressInfoError -> ShowS
+$cshowsPrec :: Int -> AddressInfoError -> ShowS
+Show
+
+instance Error AddressInfoError where
+  displayError :: AddressInfoError -> String
+displayError (ShelleyAddressInvalid Text
+addrTxt) =
+    String
+"Invalid address: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Text
+addrTxt
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.BootstrapWitnessError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.BootstrapWitnessError.html new file mode 100644 index 0000000000..ee823a5e46 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.BootstrapWitnessError.html @@ -0,0 +1,43 @@ +
module Cardano.CLI.Types.Errors.BootstrapWitnessError
+  ( BootstrapWitnessError(..)
+  , renderBootstrapWitnessError
+  ) where
+
+import           Data.Text (Text)
+
+-- | Error constructing a Shelley bootstrap witness (i.e. a Byron key witness
+-- in the Shelley era).
+data BootstrapWitnessError
+  = MissingNetworkIdOrByronAddressError
+  -- ^ Neither a network ID nor a Byron address were provided to construct the
+  -- Shelley bootstrap witness. One or the other is required.
+  deriving Int -> BootstrapWitnessError -> ShowS
+[BootstrapWitnessError] -> ShowS
+BootstrapWitnessError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [BootstrapWitnessError] -> ShowS
+$cshowList :: [BootstrapWitnessError] -> ShowS
+show :: BootstrapWitnessError -> String
+$cshow :: BootstrapWitnessError -> String
+showsPrec :: Int -> BootstrapWitnessError -> ShowS
+$cshowsPrec :: Int -> BootstrapWitnessError -> ShowS
+Show
+
+-- | Render an error message for a 'BootstrapWitnessError'.
+renderBootstrapWitnessError :: BootstrapWitnessError -> Text
+renderBootstrapWitnessError :: BootstrapWitnessError -> Text
+renderBootstrapWitnessError BootstrapWitnessError
+MissingNetworkIdOrByronAddressError =
+  Text
+"Transactions witnessed by a Byron signing key must be accompanied by a "
+    forall a. Semigroup a => a -> a -> a
+<> Text
+"network ID. Either provide a network ID or provide a Byron "
+    forall a. Semigroup a => a -> a -> a
+<> Text
+"address with each Byron signing key (network IDs can be derived "
+    forall a. Semigroup a => a -> a -> a
+<> Text
+"from Byron addresses)."
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError.html new file mode 100644 index 0000000000..f0662861f7 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError.html @@ -0,0 +1,72 @@ +
module Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
+  ( CardanoAddressSigningKeyConversionError(..)
+  , renderCardanoAddressSigningKeyConversionError
+  ) where
+
+import           Cardano.Api
+
+import           Data.ByteString (ByteString)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+-- | An error that can occur while converting a @cardano-address@ extended
+-- signing key.
+data CardanoAddressSigningKeyConversionError
+  = CardanoAddressSigningKeyBech32DecodeError !Bech32DecodeError
+  -- ^ There was an error in decoding the string as Bech32.
+  | CardanoAddressSigningKeyDeserialisationError !ByteString
+  -- ^ There was an error in converting the @cardano-address@ extended signing
+  -- key.
+  deriving (Int -> CardanoAddressSigningKeyConversionError -> ShowS
+[CardanoAddressSigningKeyConversionError] -> ShowS
+CardanoAddressSigningKeyConversionError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [CardanoAddressSigningKeyConversionError] -> ShowS
+$cshowList :: [CardanoAddressSigningKeyConversionError] -> ShowS
+show :: CardanoAddressSigningKeyConversionError -> String
+$cshow :: CardanoAddressSigningKeyConversionError -> String
+showsPrec :: Int -> CardanoAddressSigningKeyConversionError -> ShowS
+$cshowsPrec :: Int -> CardanoAddressSigningKeyConversionError -> ShowS
+Show, CardanoAddressSigningKeyConversionError
+-> CardanoAddressSigningKeyConversionError -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: CardanoAddressSigningKeyConversionError
+-> CardanoAddressSigningKeyConversionError -> Bool
+$c/= :: CardanoAddressSigningKeyConversionError
+-> CardanoAddressSigningKeyConversionError -> Bool
+== :: CardanoAddressSigningKeyConversionError
+-> CardanoAddressSigningKeyConversionError -> Bool
+$c== :: CardanoAddressSigningKeyConversionError
+-> CardanoAddressSigningKeyConversionError -> Bool
+Eq)
+
+instance Error CardanoAddressSigningKeyConversionError where
+  displayError :: CardanoAddressSigningKeyConversionError -> String
+displayError = Text -> String
+Text.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. CardanoAddressSigningKeyConversionError -> Text
+renderCardanoAddressSigningKeyConversionError
+
+-- | Render an error message for a 'CardanoAddressSigningKeyConversionError'.
+renderCardanoAddressSigningKeyConversionError
+  :: CardanoAddressSigningKeyConversionError
+  -> Text
+renderCardanoAddressSigningKeyConversionError :: CardanoAddressSigningKeyConversionError -> Text
+renderCardanoAddressSigningKeyConversionError CardanoAddressSigningKeyConversionError
+err =
+  case CardanoAddressSigningKeyConversionError
+err of
+    CardanoAddressSigningKeyBech32DecodeError Bech32DecodeError
+decErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError Bech32DecodeError
+decErr)
+    CardanoAddressSigningKeyDeserialisationError ByteString
+_bs ->
+      -- Sensitive data, such as the signing key, is purposely not included in
+      -- the error message.
+      Text
+"Error deserialising cardano-address signing key."
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CmdError.html new file mode 100644 index 0000000000..be6b8041f3 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.CmdError.html @@ -0,0 +1,168 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.CmdError
+  ( CmdError(..)
+  , renderCmdError
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.DelegationError
+import           Cardano.CLI.Types.Errors.GovernanceActionsError
+import           Cardano.CLI.Types.Errors.GovernanceCmdError
+import           Cardano.CLI.Types.Errors.GovernanceCommitteeError
+import           Cardano.CLI.Types.Errors.GovernanceQueryError
+import           Cardano.CLI.Types.Errors.GovernanceVoteCmdError
+import           Cardano.CLI.Types.Errors.RegistrationError
+import           Cardano.CLI.Types.Errors.AddressCmdError
+import           Cardano.CLI.Types.Errors.GenesisCmdError
+import           Cardano.CLI.Types.Errors.KeyCmdError
+import           Cardano.CLI.Types.Errors.NodeCmdError
+import           Cardano.CLI.Types.Errors.QueryCmdError
+import           Cardano.CLI.Types.Errors.StakeAddressCmdError
+import           Cardano.CLI.Types.Errors.TextViewFileError
+import           Cardano.CLI.Types.Errors.TxCmdError
+import           Cardano.CLI.Types.Errors.StakePoolCmdError
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data CmdError
+  = CmdAddressError               !AddressCmdError
+  | CmdEraDelegationError         !DelegationError
+  | CmdGenesisError               !GenesisCmdError
+  | CmdGovernanceActionError      !GovernanceActionsError
+  | CmdGovernanceCmdError         !GovernanceCmdError
+  | CmdGovernanceCommitteeError   !GovernanceCommitteeError
+  | CmdGovernanceQueryError       !GovernanceQueryError
+  | CmdGovernanceVoteError        !GovernanceVoteCmdError
+  | CmdKeyError                   !KeyCmdError
+  | CmdNodeError                  !NodeCmdError
+  | CmdQueryError                 !QueryCmdError
+  | CmdRegistrationError          !RegistrationError
+  | CmdStakeAddressError          !StakeAddressCmdError
+  | CmdStakePoolError             !StakePoolCmdError
+  | CmdTextViewError              !TextViewFileError
+  | CmdTransactionError           !TxCmdError
+
+renderCmdError :: Text -> CmdError -> Text
+renderCmdError :: Text -> CmdError -> Text
+renderCmdError Text
+cmdText = \case
+  CmdAddressError               AddressCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError AddressCmdError -> Text
+renderAddressCmdError AddressCmdError
+e
+  CmdEraDelegationError         DelegationError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) DelegationError
+e
+  CmdGenesisError               GenesisCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GenesisCmdError
+e
+  CmdGovernanceActionError      GovernanceActionsError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GovernanceActionsError
+e
+  CmdGovernanceCmdError         GovernanceCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GovernanceCmdError
+e
+  CmdGovernanceCommitteeError   GovernanceCommitteeError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GovernanceCommitteeError
+e
+  CmdGovernanceQueryError       GovernanceQueryError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GovernanceQueryError
+e
+  CmdGovernanceVoteError        GovernanceVoteCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) GovernanceVoteCmdError
+e
+  CmdKeyError                   KeyCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError KeyCmdError -> Text
+renderKeyCmdError KeyCmdError
+e
+  CmdNodeError                  NodeCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError NodeCmdError -> Text
+renderNodeCmdError NodeCmdError
+e
+  CmdQueryError                 QueryCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError QueryCmdError -> Text
+renderQueryCmdError QueryCmdError
+e
+  CmdRegistrationError          RegistrationError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) RegistrationError
+e
+  CmdStakeAddressError          StakeAddressCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError (String -> Text
+Text.pack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError) StakeAddressCmdError
+e
+  CmdStakePoolError             StakePoolCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError StakePoolCmdError -> Text
+renderStakePoolCmdError StakePoolCmdError
+e
+  CmdTextViewError              TextViewFileError
+e -> forall a. (a -> Text) -> a -> Text
+renderError TextViewFileError -> Text
+renderTextViewFileError TextViewFileError
+e
+  CmdTransactionError           TxCmdError
+e -> forall a. (a -> Text) -> a -> Text
+renderError TxCmdError -> Text
+renderTxCmdError TxCmdError
+e
+  where
+    renderError :: (a -> Text) -> a -> Text
+    renderError :: forall a. (a -> Text) -> a -> Text
+renderError a -> Text
+renderer a
+shelCliCmdErr =
+      forall a. Monoid a => [a] -> a
+mconcat
+        [ Text
+"Command failed: "
+        , Text
+cmdText
+        , Text
+"  Error: "
+        , a -> Text
+renderer a
+shelCliCmdErr
+        ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.DelegationError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.DelegationError.html new file mode 100644 index 0000000000..ba54d6dd3b --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.DelegationError.html @@ -0,0 +1,70 @@ +
{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.DelegationError
+  ( DelegationError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.StakeCredentialError
+
+import           GHC.Generics (Generic)
+
+data DelegationError
+  = DelegationReadError !(FileError InputDecodeError)
+  | DelegationCertificateWriteFileError !(FileError ())
+  | DelegationDRepReadError !(FileError InputDecodeError)
+  | DelegationStakeCredentialError !StakeCredentialError
+  deriving (Int -> DelegationError -> ShowS
+[DelegationError] -> ShowS
+DelegationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [DelegationError] -> ShowS
+$cshowList :: [DelegationError] -> ShowS
+show :: DelegationError -> String
+$cshow :: DelegationError -> String
+showsPrec :: Int -> DelegationError -> ShowS
+$cshowsPrec :: Int -> DelegationError -> ShowS
+Show, forall x. Rep DelegationError x -> DelegationError
+forall x. DelegationError -> Rep DelegationError x
+forall a.
+(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
+$cto :: forall x. Rep DelegationError x -> DelegationError
+$cfrom :: forall x. DelegationError -> Rep DelegationError x
+Generic)
+
+instance Error DelegationError where
+  displayError :: DelegationError -> String
+displayError = \case
+    DelegationReadError FileError InputDecodeError
+e ->
+      String
+"Cannot read delegation target: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    DelegationStakeCredentialError StakeCredentialError
+e ->
+      String
+"Cannot get stake credential: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError StakeCredentialError
+e
+    DelegationCertificateWriteFileError FileError ()
+e ->
+      String
+"Cannot write certificate: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+    DelegationDRepReadError FileError InputDecodeError
+e ->
+      String
+"Cannot read DRep key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GenesisCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GenesisCmdError.html new file mode 100644 index 0000000000..24285f80d3 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GenesisCmdError.html @@ -0,0 +1,240 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.GenesisCmdError
+  ( GenesisCmdError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Byron.Genesis as Byron
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.AddressCmdError
+import           Cardano.CLI.Types.Errors.NodeCmdError
+import           Cardano.CLI.Types.Errors.StakeAddressCmdError
+import           Cardano.CLI.Types.Errors.StakePoolCmdError
+
+import           Control.Exception (IOException)
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data GenesisCmdError
+  = GenesisCmdAesonDecodeError !FilePath !Text
+  | GenesisCmdGenesisFileReadError !(FileError IOException)
+  | GenesisCmdGenesisFileDecodeError !FilePath !Text
+  | GenesisCmdGenesisFileError !(FileError ())
+  | GenesisCmdFileError !(FileError ())
+  | GenesisCmdMismatchedGenesisKeyFiles [Int] [Int] [Int]
+  | GenesisCmdFilesNoIndex [FilePath]
+  | GenesisCmdFilesDupIndex [FilePath]
+  | GenesisCmdTextEnvReadFileError !(FileError TextEnvelopeError)
+  | GenesisCmdUnexpectedAddressVerificationKey !(VerificationKeyFile In) !Text !SomeAddressVerificationKey
+  | GenesisCmdTooFewPoolsForBulkCreds !Word !Word !Word
+  | GenesisCmdAddressCmdError !AddressCmdError
+  | GenesisCmdNodeCmdError !NodeCmdError
+  | GenesisCmdStakeAddressCmdError !StakeAddressCmdError
+  | GenesisCmdStakePoolCmdError !StakePoolCmdError
+  | GenesisCmdCostModelsError !FilePath
+  | GenesisCmdByronError !ByronGenesisError
+  | GenesisCmdStakePoolRelayFileError !FilePath !IOException
+  | GenesisCmdStakePoolRelayJsonDecodeError !FilePath !String
+  deriving Int -> GenesisCmdError -> ShowS
+[GenesisCmdError] -> ShowS
+GenesisCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GenesisCmdError] -> ShowS
+$cshowList :: [GenesisCmdError] -> ShowS
+show :: GenesisCmdError -> String
+$cshow :: GenesisCmdError -> String
+showsPrec :: Int -> GenesisCmdError -> ShowS
+$cshowsPrec :: Int -> GenesisCmdError -> ShowS
+Show
+
+instance Error GenesisCmdError where
+  displayError :: GenesisCmdError -> String
+displayError =
+    \case
+      GenesisCmdAesonDecodeError String
+fp Text
+decErr ->
+        String
+"Error while decoding Shelley genesis at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp forall a. Semigroup a => a -> a -> a
+<> String
+" Error: " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack Text
+decErr
+      GenesisCmdGenesisFileError FileError ()
+fe -> forall e. Error e => e -> String
+displayError FileError ()
+fe
+      GenesisCmdFileError FileError ()
+fe -> forall e. Error e => e -> String
+displayError FileError ()
+fe
+      GenesisCmdMismatchedGenesisKeyFiles [Int]
+gfiles [Int]
+dfiles [Int]
+vfiles ->
+        String
+"Mismatch between the files found:\n"
+          forall a. Semigroup a => a -> a -> a
+<> String
+"Genesis key file indexes:      " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show [Int]
+gfiles forall a. Semigroup a => a -> a -> a
+<> String
+"\n"
+          forall a. Semigroup a => a -> a -> a
+<> String
+"Delegate key file indexes:     " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show [Int]
+dfiles forall a. Semigroup a => a -> a -> a
+<> String
+"\n"
+          forall a. Semigroup a => a -> a -> a
+<> String
+"Delegate VRF key file indexes: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show [Int]
+vfiles
+      GenesisCmdFilesNoIndex [String]
+files ->
+        String
+"The genesis keys files are expected to have a numeric index but these do not:\n"
+          forall a. Semigroup a => a -> a -> a
+<> [String] -> String
+unlines [String]
+files
+      GenesisCmdFilesDupIndex [String]
+files ->
+        String
+"The genesis keys files are expected to have a unique numeric index but these do not:\n"
+          forall a. Semigroup a => a -> a -> a
+<> [String] -> String
+unlines [String]
+files
+      GenesisCmdTextEnvReadFileError FileError TextEnvelopeError
+fileErr -> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileErr
+      GenesisCmdUnexpectedAddressVerificationKey (File String
+file) Text
+expect SomeAddressVerificationKey
+got -> forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Unexpected address verification key type in file ", String
+file
+        , String
+", expected: ", Text -> String
+Text.unpack Text
+expect, String
+", got: ", Text -> String
+Text.unpack (SomeAddressVerificationKey -> Text
+renderSomeAddressVerificationKey SomeAddressVerificationKey
+got)
+        ]
+      GenesisCmdTooFewPoolsForBulkCreds Word
+pools Word
+files Word
+perPool -> forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Number of pools requested for generation (", forall a. Show a => a -> String
+show Word
+pools
+        , String
+") is insufficient to fill ", forall a. Show a => a -> String
+show Word
+files
+        , String
+" bulk files, with ", forall a. Show a => a -> String
+show Word
+perPool, String
+" pools per file."
+        ]
+      GenesisCmdAddressCmdError AddressCmdError
+e ->
+        Text -> String
+Text.unpack forall a b. (a -> b) -> a -> b
+$ AddressCmdError -> Text
+renderAddressCmdError AddressCmdError
+e
+      GenesisCmdNodeCmdError NodeCmdError
+e ->
+        Text -> String
+Text.unpack forall a b. (a -> b) -> a -> b
+$ NodeCmdError -> Text
+renderNodeCmdError NodeCmdError
+e
+      GenesisCmdStakePoolCmdError StakePoolCmdError
+e ->
+        Text -> String
+Text.unpack forall a b. (a -> b) -> a -> b
+$ StakePoolCmdError -> Text
+renderStakePoolCmdError StakePoolCmdError
+e
+      GenesisCmdStakeAddressCmdError StakeAddressCmdError
+e ->
+        forall e. Error e => e -> String
+displayError StakeAddressCmdError
+e
+      GenesisCmdCostModelsError String
+fp ->
+        String
+"Cost model is invalid: " forall a. Semigroup a => a -> a -> a
+<> String
+fp
+      GenesisCmdGenesisFileDecodeError String
+fp Text
+e ->
+       String
+"Error while decoding Shelley genesis at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp forall a. Semigroup a => a -> a -> a
+<>
+       String
+" Error: " forall a. Semigroup a => a -> a -> a
+<>  Text -> String
+Text.unpack Text
+e
+      GenesisCmdGenesisFileReadError FileError IOException
+e -> forall e. Error e => e -> String
+displayError FileError IOException
+e
+      GenesisCmdByronError ByronGenesisError
+e -> forall a. Show a => a -> String
+show ByronGenesisError
+e
+      GenesisCmdStakePoolRelayFileError String
+fp IOException
+e ->
+        String
+"Error occurred while reading the stake pool relay specification file: " forall a. Semigroup a => a -> a -> a
+<> String
+fp forall a. Semigroup a => a -> a -> a
+<>
+        String
+" Error: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show IOException
+e
+      GenesisCmdStakePoolRelayJsonDecodeError String
+fp String
+e ->
+        String
+"Error occurred while decoding the stake pool relay specification file: " forall a. Semigroup a => a -> a -> a
+<> String
+fp forall a. Semigroup a => a -> a -> a
+<>
+        String
+" Error: " forall a. Semigroup a => a -> a -> a
+<>  String
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceActionsError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceActionsError.html new file mode 100644 index 0000000000..f10e2120fd --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceActionsError.html @@ -0,0 +1,84 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.GovernanceActionsError
+  ( GovernanceActionsError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Read
+
+data GovernanceActionsError
+  = GovernanceActionsCmdConstitutionError ConstitutionError
+  | GovernanceActionsCmdProposalError ProposalError
+  | GovernanceActionsCmdReadFileError (FileError InputDecodeError)
+  | GovernanceActionsCmdReadTextEnvelopeFileError (FileError TextEnvelopeError)
+  | GovernanceActionsCmdWriteFileError (FileError ())
+  | GovernanceActionsValueUpdateProtocolParametersNotFound AnyShelleyBasedEra
+  deriving Int -> GovernanceActionsError -> ShowS
+[GovernanceActionsError] -> ShowS
+GovernanceActionsError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceActionsError] -> ShowS
+$cshowList :: [GovernanceActionsError] -> ShowS
+show :: GovernanceActionsError -> String
+$cshow :: GovernanceActionsError -> String
+showsPrec :: Int -> GovernanceActionsError -> ShowS
+$cshowsPrec :: Int -> GovernanceActionsError -> ShowS
+Show
+
+instance Error GovernanceActionsError where
+  displayError :: GovernanceActionsError -> String
+displayError = \case
+    GovernanceActionsCmdProposalError ProposalError
+e ->
+      String
+"Cannot read proposal: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ProposalError
+e -- TODO Conway render this properly
+    GovernanceActionsCmdConstitutionError ConstitutionError
+e ->
+      String
+"Cannot read constitution: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ConstitutionError
+e -- TODO Conway render this properly
+    GovernanceActionsCmdReadFileError FileError InputDecodeError
+e ->
+      String
+"Cannot read file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    GovernanceActionsCmdReadTextEnvelopeFileError FileError TextEnvelopeError
+e ->
+      String
+"Cannot read text envelope file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+    GovernanceActionsCmdWriteFileError FileError ()
+e ->
+      String
+"Cannot write file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+    GovernanceActionsValueUpdateProtocolParametersNotFound (AnyShelleyBasedEra ShelleyBasedEra era
+expectedShelleyEra) ->
+      forall a. Monoid a => [a] -> a
+mconcat
+        [ String
+"Protocol parameters update value for " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show (forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyBasedEra era
+expectedShelleyEra)
+        , String
+" was not found."
+        ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCmdError.html new file mode 100644 index 0000000000..b418723915 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCmdError.html @@ -0,0 +1,264 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.GovernanceCmdError where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.Binary (DecoderError)
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Errors.GovernanceHashError (GovernanceHashError)
+import           Cardano.CLI.Types.Errors.StakeAddressCmdError
+
+import qualified Data.List as List
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Builder as TL
+import qualified Formatting.Buildable as B
+
+data GovernanceCmdError
+  = -- Voting related
+    StakeCredGovCmdError StakeAddressCmdError
+  | VotingCredentialDecodeGovCmdEror DecoderError
+  | WriteFileError (FileError ())
+  | ReadFileError (FileError InputDecodeError)
+    -- Governance action related
+  | GovernanceCmdConstitutionError ConstitutionError
+  | GovernanceCmdHashError !GovernanceHashError
+  | GovernanceCmdProposalError ProposalError
+  | GovernanceCmdTextEnvReadError !(FileError TextEnvelopeError)
+  | GovernanceCmdCddlError !CddlError
+  | GovernanceCmdKeyReadError !(FileError InputDecodeError)
+  | GovernanceCmdCostModelReadError !(FileError ())
+  | GovernanceCmdTextEnvWriteError !(FileError ())
+  | GovernanceCmdEmptyUpdateProposalError
+  | GovernanceCmdMIRCertificateKeyRewardMistmach
+      !FilePath
+      !Int
+      -- ^ Number of stake verification keys
+      !Int
+      -- ^ Number of reward amounts
+  | GovernanceCmdCostModelsJsonDecodeErr !FilePath !Text
+  | GovernanceCmdEmptyCostModel !FilePath
+  | GovernanceCmdUnexpectedKeyType
+      ![TextEnvelopeType]
+      -- ^ Expected key types
+  | GovernanceCmdPollOutOfBoundAnswer
+      !Int
+      -- ^ Maximum answer index
+  | GovernanceCmdPollInvalidChoice
+  | GovernanceCmdDecoderError !DecoderError
+  | GovernanceCmdVerifyPollError !GovernancePollError
+  | GovernanceCmdWriteFileError !(FileError ())
+  | GovernanceCmdDRepMetadataValidationError !DRepMetadataValidationError
+  -- Legacy - remove me after cardano-cli transitions to new era based structure
+  | GovernanceCmdMIRCertNotSupportedInConway
+  | GovernanceCmdGenesisDelegationNotSupportedInConway
+  deriving Int -> GovernanceCmdError -> ShowS
+[GovernanceCmdError] -> ShowS
+GovernanceCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCmdError] -> ShowS
+$cshowList :: [GovernanceCmdError] -> ShowS
+show :: GovernanceCmdError -> String
+$cshow :: GovernanceCmdError -> String
+showsPrec :: Int -> GovernanceCmdError -> ShowS
+$cshowsPrec :: Int -> GovernanceCmdError -> ShowS
+Show
+
+instance Error GovernanceCmdError where
+  displayError :: GovernanceCmdError -> String
+displayError = \case
+    StakeCredGovCmdError StakeAddressCmdError
+stakeAddressCmdError ->
+      String
+"Stake credential error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError StakeAddressCmdError
+stakeAddressCmdError
+    VotingCredentialDecodeGovCmdEror DecoderError
+decoderError ->
+      String
+"Could not decode voting credential: " forall a. Semigroup a => a -> a -> a
+<> DecoderError -> String
+renderDecoderError DecoderError
+decoderError
+    WriteFileError FileError ()
+fileError ->
+      forall e. Error e => e -> String
+displayError FileError ()
+fileError
+    ReadFileError FileError InputDecodeError
+fileError ->
+      forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileError
+    GovernanceCmdConstitutionError ConstitutionError
+e ->
+      String
+"Constitution error " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ConstitutionError
+e -- TODO Conway render this properly
+    GovernanceCmdHashError GovernanceHashError
+e ->
+      String
+"Hash error " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError GovernanceHashError
+e
+    GovernanceCmdProposalError ProposalError
+e ->
+      String
+"Proposal error " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ProposalError
+e -- TODO Conway render this properly
+    GovernanceCmdTextEnvReadError FileError TextEnvelopeError
+fileError ->
+      String
+"Cannot read text envelope: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileError
+    GovernanceCmdCddlError CddlError
+cddlError ->
+      String
+"Reading transaction CDDL file error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError CddlError
+cddlError
+    GovernanceCmdKeyReadError FileError InputDecodeError
+fileError ->
+      String
+"Cannot read key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileError
+    GovernanceCmdCostModelReadError FileError ()
+fileError ->
+      String
+"Cannot read cost model: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+fileError
+    GovernanceCmdTextEnvWriteError FileError ()
+fileError ->
+      forall e. Error e => e -> String
+displayError FileError ()
+fileError
+    GovernanceCmdError
+GovernanceCmdEmptyUpdateProposalError ->
+      String
+"Empty update proposals are not allowed."
+    GovernanceCmdMIRCertificateKeyRewardMistmach String
+fp Int
+nStakeVerKeys Int
+nRewards ->
+      String
+"Error creating the MIR certificate at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp
+      forall a. Semigroup a => a -> a -> a
+<> String
+" The number of staking keys: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Int
+nStakeVerKeys
+      forall a. Semigroup a => a -> a -> a
+<> String
+" and the number of reward amounts: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Int
+nRewards
+      forall a. Semigroup a => a -> a -> a
+<> String
+" are not equivalent."
+    GovernanceCmdCostModelsJsonDecodeErr String
+fp Text
+msg ->
+      String
+"Error decoding cost model: " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack Text
+msg forall a. Semigroup a => a -> a -> a
+<> String
+" at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp
+    GovernanceCmdEmptyCostModel String
+fp ->
+      String
+"The decoded cost model was empty at: " forall a. Semigroup a => a -> a -> a
+<> String
+fp
+    GovernanceCmdUnexpectedKeyType [TextEnvelopeType]
+expectedTypes ->
+      String
+"Unexpected poll key type; expected one of: "
+      forall a. Semigroup a => a -> a -> a
+<> forall a. [a] -> [[a]] -> [a]
+List.intercalate String
+", " (forall a. Show a => a -> String
+show forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> [TextEnvelopeType]
+expectedTypes)
+    GovernanceCmdPollOutOfBoundAnswer Int
+maxIdx ->
+      String
+"Poll answer out of bounds. Choices are between 0 and " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Int
+maxIdx
+    GovernanceCmdError
+GovernanceCmdPollInvalidChoice ->
+      String
+"Invalid choice. Please choose from the available answers."
+    GovernanceCmdDecoderError DecoderError
+decoderError ->
+      String
+"Unable to decode metadata: " forall a. Semigroup a => a -> a -> a
+<> DecoderError -> String
+renderDecoderError DecoderError
+decoderError
+    GovernanceCmdVerifyPollError GovernancePollError
+pollError ->
+      Text -> String
+Text.unpack (GovernancePollError -> Text
+renderGovernancePollError GovernancePollError
+pollError)
+    GovernanceCmdWriteFileError FileError ()
+fileError ->
+      String
+"Cannot write file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+fileError
+    GovernanceCmdDRepMetadataValidationError DRepMetadataValidationError
+e ->
+      String
+"DRep metadata validation error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError DRepMetadataValidationError
+e
+    GovernanceCmdError
+GovernanceCmdMIRCertNotSupportedInConway ->
+      String
+"MIR certificates are not supported in Conway era onwards."
+    GovernanceCmdError
+GovernanceCmdGenesisDelegationNotSupportedInConway ->
+      String
+"Genesis delegation is not supported in Conway era onwards."
+    where
+      renderDecoderError :: DecoderError -> String
+renderDecoderError = Text -> String
+TL.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Builder -> Text
+TL.toLazyText forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall p. Buildable p => p -> Builder
+B.build
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCommitteeError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCommitteeError.html new file mode 100644 index 0000000000..7429044b06 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceCommitteeError.html @@ -0,0 +1,66 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.GovernanceCommitteeError
+  ( GovernanceCommitteeError(..)
+  ) where
+
+import           Cardano.Api
+
+data GovernanceCommitteeError
+  = GovernanceCommitteeCmdKeyDecodeError InputDecodeError
+  | GovernanceCommitteeCmdKeyReadError (FileError InputDecodeError)
+  | GovernanceCommitteeCmdTextEnvReadFileError (FileError TextEnvelopeError)
+  | GovernanceCommitteeCmdTextEnvWriteError (FileError ())
+  | GovernanceCommitteeCmdWriteFileError (FileError ())
+  deriving Int -> GovernanceCommitteeError -> ShowS
+[GovernanceCommitteeError] -> ShowS
+GovernanceCommitteeError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceCommitteeError] -> ShowS
+$cshowList :: [GovernanceCommitteeError] -> ShowS
+show :: GovernanceCommitteeError -> String
+$cshow :: GovernanceCommitteeError -> String
+showsPrec :: Int -> GovernanceCommitteeError -> ShowS
+$cshowsPrec :: Int -> GovernanceCommitteeError -> ShowS
+Show
+
+instance Error GovernanceCommitteeError where
+  displayError :: GovernanceCommitteeError -> String
+displayError = \case
+    GovernanceCommitteeCmdKeyDecodeError InputDecodeError
+e ->
+      String
+"Cannot decode key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError InputDecodeError
+e
+    GovernanceCommitteeCmdKeyReadError FileError InputDecodeError
+e ->
+      String
+"Cannot read key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    GovernanceCommitteeCmdWriteFileError FileError ()
+e ->
+      String
+"Cannot write file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+    GovernanceCommitteeCmdTextEnvReadFileError FileError TextEnvelopeError
+e ->
+      String
+"Cannot read text envelope file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+    GovernanceCommitteeCmdTextEnvWriteError FileError ()
+e ->
+      String
+"Cannot write text envelope file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceHashError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceHashError.html new file mode 100644 index 0000000000..eff5d38093 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceHashError.html @@ -0,0 +1,46 @@ +
{-# LANGUAGE LambdaCase #-}
+module Cardano.CLI.Types.Errors.GovernanceHashError
+  ( GovernanceHashError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.Prelude (Exception (displayException), IOException)
+
+data GovernanceHashError
+  = GovernanceHashReadFileError !FilePath !IOException
+  | GovernanceHashWriteFileError !(FileError ())
+  deriving Int -> GovernanceHashError -> ShowS
+[GovernanceHashError] -> ShowS
+GovernanceHashError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceHashError] -> ShowS
+$cshowList :: [GovernanceHashError] -> ShowS
+show :: GovernanceHashError -> String
+$cshow :: GovernanceHashError -> String
+showsPrec :: Int -> GovernanceHashError -> ShowS
+$cshowsPrec :: Int -> GovernanceHashError -> ShowS
+Show
+
+instance Error GovernanceHashError where
+  displayError :: GovernanceHashError -> String
+displayError = \case
+    GovernanceHashReadFileError String
+filepath IOException
+exc ->
+      String
+"Cannot read " forall a. Semigroup a => a -> a -> a
+<> String
+filepath forall a. Semigroup a => a -> a -> a
+<> String
+": " forall a. Semigroup a => a -> a -> a
+<> forall e. Exception e => e -> String
+displayException IOException
+exc
+    GovernanceHashWriteFileError FileError ()
+fileErr ->
+      forall e. Error e => e -> String
+displayError FileError ()
+fileErr
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceQueryError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceQueryError.html new file mode 100644 index 0000000000..d0b9ad9c5e --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceQueryError.html @@ -0,0 +1,76 @@ +
{-# LANGUAGE LambdaCase #-}
+module Cardano.CLI.Types.Errors.GovernanceQueryError where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Ouroboros.Consensus.Cardano.Block (EraMismatch)
+
+data GovernanceQueryError
+  = GovernanceQueryWriteFileError !(FileError ())
+  | GovernanceQueryAcqireFailureError !AcquiringFailure
+  | GovernanceQueryUnsupportedNtcVersion !UnsupportedNtcVersionError
+  | GovernanceQueryEraMismatch !EraMismatch
+  | GovernanceQueryDRepKeyError !(FileError InputDecodeError)
+  deriving Int -> GovernanceQueryError -> ShowS
+[GovernanceQueryError] -> ShowS
+GovernanceQueryError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceQueryError] -> ShowS
+$cshowList :: [GovernanceQueryError] -> ShowS
+show :: GovernanceQueryError -> String
+$cshow :: GovernanceQueryError -> String
+showsPrec :: Int -> GovernanceQueryError -> ShowS
+$cshowsPrec :: Int -> GovernanceQueryError -> ShowS
+Show
+
+instance Error GovernanceQueryError where
+  displayError :: GovernanceQueryError -> String
+displayError = \case
+    GovernanceQueryWriteFileError FileError ()
+err ->
+      forall e. Error e => e -> String
+displayError FileError ()
+err
+    GovernanceQueryAcqireFailureError AcquiringFailure
+err ->
+      forall a. Show a => a -> String
+show AcquiringFailure
+err
+    GovernanceQueryUnsupportedNtcVersion (UnsupportedNtcVersionError MinNodeToClientVersion
+minNtcVersion MinNodeToClientVersion
+ntcVersion) -> [String] -> String
+unlines
+      [ String
+"Unsupported feature for the node-to-client protocol version."
+      , String
+"This query requires at least " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show MinNodeToClientVersion
+minNtcVersion forall a. Semigroup a => a -> a -> a
+<> String
+" but the node negotiated " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show MinNodeToClientVersion
+ntcVersion forall a. Semigroup a => a -> a -> a
+<> String
+"."
+      , String
+"Later node versions support later protocol versions (but development protocol versions are not enabled in the node by default)."
+      ]
+    GovernanceQueryEraMismatch EraMismatch
+err ->
+      String
+"A query from a certain era was applied to a ledger from a different era: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show EraMismatch
+err
+    GovernanceQueryDRepKeyError FileError InputDecodeError
+err ->
+      String
+"Error reading delegation representative key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+err
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceVoteCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceVoteCmdError.html new file mode 100644 index 0000000000..f3b1fbad90 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.GovernanceVoteCmdError.html @@ -0,0 +1,81 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.GovernanceVoteCmdError where
+
+import           Cardano.Api.Shelley
+
+import           Cardano.Binary (DecoderError)
+import           Cardano.CLI.Read (VoteError)
+
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Builder as TL
+import qualified Formatting.Buildable as B
+
+data GovernanceVoteCmdError
+  = GovernanceVoteCmdReadVerificationKeyError !(FileError InputDecodeError)
+  | GovernanceVoteCmdReadVoteFileError !VoteError
+  | GovernanceVoteCmdCredentialDecodeError !DecoderError
+  | GovernanceVoteCmdWriteError !(FileError ())
+  | GovernanceVoteCmdReadVoteTextError !VoteError
+  deriving Int -> GovernanceVoteCmdError -> ShowS
+[GovernanceVoteCmdError] -> ShowS
+GovernanceVoteCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [GovernanceVoteCmdError] -> ShowS
+$cshowList :: [GovernanceVoteCmdError] -> ShowS
+show :: GovernanceVoteCmdError -> String
+$cshow :: GovernanceVoteCmdError -> String
+showsPrec :: Int -> GovernanceVoteCmdError -> ShowS
+$cshowsPrec :: Int -> GovernanceVoteCmdError -> ShowS
+Show
+
+instance Error GovernanceVoteCmdError where
+  displayError :: GovernanceVoteCmdError -> String
+displayError = \case
+    GovernanceVoteCmdReadVerificationKeyError FileError InputDecodeError
+e ->
+      String
+"Cannot read verification key: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    GovernanceVoteCmdReadVoteFileError VoteError
+e ->
+      String
+"Cannot read vote file: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError VoteError
+e
+    GovernanceVoteCmdCredentialDecodeError DecoderError
+e ->
+      String
+"Cannot decode voting credential: " forall a. Semigroup a => a -> a -> a
+<> DecoderError -> String
+renderDecoderError DecoderError
+e
+    GovernanceVoteCmdWriteError FileError ()
+e ->
+      String
+"Cannot write vote: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+    GovernanceVoteCmdReadVoteTextError VoteError
+e ->
+      String
+"Cannot read vote text: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError VoteError
+e
+    where
+      renderDecoderError :: DecoderError -> String
+renderDecoderError = Text -> String
+TL.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. Builder -> Text
+TL.toLazyText forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall p. Buildable p => p -> Builder
+B.build
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ItnKeyConversionError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ItnKeyConversionError.html new file mode 100644 index 0000000000..fc1552faef --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ItnKeyConversionError.html @@ -0,0 +1,83 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.ItnKeyConversionError
+  ( ItnKeyConversionError(..)
+  , renderConversionError
+  ) where
+
+import           Cardano.Api
+
+import           Control.Exception (Exception (..), IOException)
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+-- | An error that can occur while converting an Incentivized Testnet (ITN)
+-- key.
+data ItnKeyConversionError
+  = ItnKeyBech32DecodeError !Bech32DecodeError
+  | ItnReadBech32FileError !FilePath !IOException
+  | ItnSigningKeyDeserialisationError !ByteString
+  | ItnVerificationKeyDeserialisationError !ByteString
+  deriving Int -> ItnKeyConversionError -> ShowS
+[ItnKeyConversionError] -> ShowS
+ItnKeyConversionError -> FilePath
+forall a.
+(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
+showList :: [ItnKeyConversionError] -> ShowS
+$cshowList :: [ItnKeyConversionError] -> ShowS
+show :: ItnKeyConversionError -> FilePath
+$cshow :: ItnKeyConversionError -> FilePath
+showsPrec :: Int -> ItnKeyConversionError -> ShowS
+$cshowsPrec :: Int -> ItnKeyConversionError -> ShowS
+Show
+
+-- | Render an error message for an 'ItnKeyConversionError'.
+renderConversionError :: ItnKeyConversionError -> Text
+renderConversionError :: ItnKeyConversionError -> Text
+renderConversionError ItnKeyConversionError
+err =
+  case ItnKeyConversionError
+err of
+    ItnKeyBech32DecodeError Bech32DecodeError
+decErr ->
+      Text
+"Error decoding Bech32 key: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError Bech32DecodeError
+decErr)
+    ItnReadBech32FileError FilePath
+fp IOException
+readErr ->
+      Text
+"Error reading Bech32 key at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+fp
+                        forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Exception e => e -> FilePath
+displayException IOException
+readErr)
+    ItnSigningKeyDeserialisationError ByteString
+_sKey ->
+      -- Sensitive data, such as the signing key, is purposely not included in
+      -- the error message.
+      Text
+"Error deserialising signing key."
+    ItnVerificationKeyDeserialisationError ByteString
+vKey ->
+      Text
+"Error deserialising verification key: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow (ByteString -> FilePath
+BSC.unpack ByteString
+vKey)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.KeyCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.KeyCmdError.html new file mode 100644 index 0000000000..e69b16cdce --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.KeyCmdError.html @@ -0,0 +1,113 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.KeyCmdError
+  ( KeyCmdError(..)
+  , renderKeyCmdError
+  ) where
+
+import           Cardano.Api
+
+import qualified Cardano.CLI.Byron.Key as Byron
+import           Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
+import           Cardano.CLI.Types.Errors.ItnKeyConversionError
+import           Cardano.CLI.Types.Key
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data KeyCmdError
+  = KeyCmdReadFileError !(FileError TextEnvelopeError)
+  | KeyCmdReadKeyFileError !(FileError InputDecodeError)
+  | KeyCmdWriteFileError !(FileError ())
+  | KeyCmdByronKeyFailure !Byron.ByronKeyFailure
+  | KeyCmdByronKeyParseError
+      !Text
+      -- ^ Text representation of the parse error. Unfortunately, the actual
+      -- error type isn't exported.
+  | KeyCmdItnKeyConvError !ItnKeyConversionError
+  | KeyCmdWrongKeyTypeError
+  | KeyCmdCardanoAddressSigningKeyFileError
+      !(FileError CardanoAddressSigningKeyConversionError)
+  | KeyCmdNonLegacyKey !FilePath
+  | KeyCmdExpectedExtendedVerificationKey SomeAddressVerificationKey
+  | KeyCmdVerificationKeyReadError VerificationKeyTextOrFileError
+  deriving Int -> KeyCmdError -> ShowS
+[KeyCmdError] -> ShowS
+KeyCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [KeyCmdError] -> ShowS
+$cshowList :: [KeyCmdError] -> ShowS
+show :: KeyCmdError -> String
+$cshow :: KeyCmdError -> String
+showsPrec :: Int -> KeyCmdError -> ShowS
+$cshowsPrec :: Int -> KeyCmdError -> ShowS
+Show
+
+renderKeyCmdError :: KeyCmdError -> Text
+renderKeyCmdError :: KeyCmdError -> Text
+renderKeyCmdError KeyCmdError
+err =
+  case KeyCmdError
+err of
+    KeyCmdReadFileError FileError TextEnvelopeError
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileErr)
+    KeyCmdReadKeyFileError FileError InputDecodeError
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileErr)
+    KeyCmdWriteFileError FileError ()
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ()
+fileErr)
+    KeyCmdByronKeyFailure ByronKeyFailure
+e -> ByronKeyFailure -> Text
+Byron.renderByronKeyFailure ByronKeyFailure
+e
+    KeyCmdByronKeyParseError Text
+errTxt -> Text
+errTxt
+    KeyCmdItnKeyConvError ItnKeyConversionError
+convErr -> ItnKeyConversionError -> Text
+renderConversionError ItnKeyConversionError
+convErr
+    KeyCmdError
+KeyCmdWrongKeyTypeError ->
+      String -> Text
+Text.pack String
+"Please use a signing key file when converting ITN BIP32 or Extended keys"
+    KeyCmdCardanoAddressSigningKeyFileError FileError CardanoAddressSigningKeyConversionError
+fileErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError CardanoAddressSigningKeyConversionError
+fileErr)
+    KeyCmdNonLegacyKey String
+fp ->
+      Text
+"Signing key at: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" is not a legacy Byron signing key and should not need to be converted."
+    KeyCmdVerificationKeyReadError VerificationKeyTextOrFileError
+e -> VerificationKeyTextOrFileError -> Text
+renderVerificationKeyTextOrFileError VerificationKeyTextOrFileError
+e
+    KeyCmdExpectedExtendedVerificationKey SomeAddressVerificationKey
+someVerKey ->
+      Text
+"Expected an extended verification key but got: " forall a. Semigroup a => a -> a -> a
+<> SomeAddressVerificationKey -> Text
+renderSomeAddressVerificationKey SomeAddressVerificationKey
+someVerKey
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeCmdError.html new file mode 100644 index 0000000000..24b91f9a78 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeCmdError.html @@ -0,0 +1,83 @@ +
{-# LANGUAGE DataKinds #-}
+
+module Cardano.CLI.Types.Errors.NodeCmdError
+  ( NodeCmdError(..)
+  , renderNodeCmdError
+  ) where
+
+import           Cardano.Api
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+{- HLINT ignore "Reduce duplication" -}
+
+data NodeCmdError
+  = NodeCmdReadFileError !(FileError TextEnvelopeError)
+  | NodeCmdReadKeyFileError !(FileError InputDecodeError)
+  | NodeCmdWriteFileError !(FileError ())
+  | NodeCmdOperationalCertificateIssueError !OperationalCertIssueError
+  | NodeCmdVrfSigningKeyCreationError
+      FilePath
+      -- ^ Target path
+      FilePath
+      -- ^ Temp path
+  deriving Int -> NodeCmdError -> ShowS
+[NodeCmdError] -> ShowS
+NodeCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [NodeCmdError] -> ShowS
+$cshowList :: [NodeCmdError] -> ShowS
+show :: NodeCmdError -> String
+$cshow :: NodeCmdError -> String
+showsPrec :: Int -> NodeCmdError -> ShowS
+$cshowsPrec :: Int -> NodeCmdError -> ShowS
+Show
+
+renderNodeCmdError :: NodeCmdError -> Text
+renderNodeCmdError :: NodeCmdError -> Text
+renderNodeCmdError NodeCmdError
+err =
+  case NodeCmdError
+err of
+    NodeCmdVrfSigningKeyCreationError String
+targetPath String
+tempPath ->
+      String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Error creating VRF signing key file. Target path: " forall a. Semigroup a => a -> a -> a
+<> String
+targetPath
+      forall a. Semigroup a => a -> a -> a
+<> String
+" Temporary path: " forall a. Semigroup a => a -> a -> a
+<> String
+tempPath
+
+    NodeCmdReadFileError FileError TextEnvelopeError
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileErr)
+
+    NodeCmdReadKeyFileError FileError InputDecodeError
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileErr)
+
+    NodeCmdWriteFileError FileError ()
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ()
+fileErr)
+
+    NodeCmdOperationalCertificateIssueError OperationalCertIssueError
+issueErr ->
+      String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError OperationalCertIssueError
+issueErr)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeEraMismatchError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeEraMismatchError.html new file mode 100644 index 0000000000..fccd80aca9 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.NodeEraMismatchError.html @@ -0,0 +1,16 @@ +
{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.Types.Errors.NodeEraMismatchError
+  ( NodeEraMismatchError(..)
+  ) where
+
+import           Cardano.Api
+
+data NodeEraMismatchError = forall era nodeEra.
+  NodeEraMismatchError
+  { ()
+era           :: !(CardanoEra era)
+  , ()
+nodeEra       :: !(CardanoEra nodeEra)
+  }
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ProtocolParamsError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ProtocolParamsError.html new file mode 100644 index 0000000000..636420fac6 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ProtocolParamsError.html @@ -0,0 +1,41 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.ProtocolParamsError
+  ( ProtocolParamsError(..)
+  , renderProtocolParamsError
+  ) where
+
+import           Cardano.Api
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data ProtocolParamsError
+  = ProtocolParamsErrorFile (FileError ())
+  | ProtocolParamsErrorJSON !FilePath !Text
+
+renderProtocolParamsError :: ProtocolParamsError -> Text
+renderProtocolParamsError :: ProtocolParamsError -> Text
+renderProtocolParamsError (ProtocolParamsErrorFile FileError ()
+fileErr) =
+  String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError ()
+fileErr
+renderProtocolParamsError (ProtocolParamsErrorJSON String
+fp Text
+jsonErr) =
+  Text
+"Error while decoding the protocol parameters at: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack String
+fp forall a. Semigroup a => a -> a -> a
+<> Text
+" Error: " forall a. Semigroup a => a -> a -> a
+<> Text
+jsonErr
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdError.html new file mode 100644 index 0000000000..0ebd20fd1c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdError.html @@ -0,0 +1,235 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.QueryCmdError
+  ( QueryCmdError(..)
+  , renderQueryCmdError
+  ) where
+
+import           Cardano.Api hiding (QueryInShelleyBasedEra (..))
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..))
+
+import           Cardano.Binary (DecoderError)
+import           Cardano.CLI.Helpers (HelpersError (..), renderHelpersError)
+import           Cardano.CLI.Types.Errors.GenesisCmdError
+import           Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
+import           Ouroboros.Consensus.Cardano.Block as Consensus (EraMismatch (..))
+import qualified Ouroboros.Consensus.HardFork.History.Qry as Qry
+
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import           Data.Text.Lazy (toStrict)
+import           Data.Text.Lazy.Builder (toLazyText)
+import           Formatting.Buildable (build)
+
+{- HLINT ignore "Move brackets to avoid $" -}
+{- HLINT ignore "Redundant flip" -}
+
+data QueryCmdError
+  = QueryCmdLocalStateQueryError !QueryCmdLocalStateQueryError
+  | QueryCmdConvenienceError !QueryConvenienceError
+  | QueryCmdWriteFileError !(FileError ())
+  | QueryCmdHelpersError !HelpersError
+  | QueryCmdAcquireFailure !AcquiringFailure
+  | QueryCmdByronEra
+  | QueryCmdEraMismatch !EraMismatch
+  | QueryCmdPastHorizon !Qry.PastHorizonException
+  | QueryCmdSystemStartUnavailable
+  | QueryCmdGenesisReadError !GenesisCmdError
+  | QueryCmdLeaderShipError !LeadershipError
+  | QueryCmdTextEnvelopeReadError !(FileError TextEnvelopeError)
+  | QueryCmdTextReadError !(FileError InputDecodeError)
+  | QueryCmdOpCertCounterReadError !(FileError TextEnvelopeError)
+  | QueryCmdProtocolStateDecodeFailure !(LBS.ByteString, DecoderError)
+  | QueryCmdPoolStateDecodeError DecoderError
+  | QueryCmdStakeSnapshotDecodeError DecoderError
+  | QueryCmdUnsupportedNtcVersion !UnsupportedNtcVersionError
+  | QueryCmdProtocolParameterConversionError !ProtocolParametersConversionError
+  | QueryCmdDRepKeyError !(FileError InputDecodeError)
+  | QueryCmdCommitteeColdKeyError !(FileError InputDecodeError)
+  | QueryCmdCommitteeHotKeyError !(FileError InputDecodeError)
+  deriving Int -> QueryCmdError -> ShowS
+[QueryCmdError] -> ShowS
+QueryCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryCmdError] -> ShowS
+$cshowList :: [QueryCmdError] -> ShowS
+show :: QueryCmdError -> String
+$cshow :: QueryCmdError -> String
+showsPrec :: Int -> QueryCmdError -> ShowS
+$cshowsPrec :: Int -> QueryCmdError -> ShowS
+Show
+
+renderQueryCmdError :: QueryCmdError -> Text
+renderQueryCmdError :: QueryCmdError -> Text
+renderQueryCmdError = \case
+  QueryCmdLocalStateQueryError QueryCmdLocalStateQueryError
+lsqErr -> QueryCmdLocalStateQueryError -> Text
+renderLocalStateQueryError QueryCmdLocalStateQueryError
+lsqErr
+  QueryCmdWriteFileError FileError ()
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ()
+fileErr)
+  QueryCmdHelpersError HelpersError
+helpersErr -> HelpersError -> Text
+renderHelpersError HelpersError
+helpersErr
+  QueryCmdAcquireFailure AcquiringFailure
+acquireFail -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> String
+show AcquiringFailure
+acquireFail
+  QueryCmdError
+QueryCmdByronEra -> Text
+"This query cannot be used for the Byron era"
+  QueryCmdEraMismatch (EraMismatch Text
+ledgerEra Text
+queryEra) ->
+    Text
+"\nAn error mismatch occurred." forall a. Semigroup a => a -> a -> a
+<> Text
+"\nSpecified query era: " forall a. Semigroup a => a -> a -> a
+<> Text
+queryEra forall a. Semigroup a => a -> a -> a
+<>
+    Text
+"\nCurrent ledger era: " forall a. Semigroup a => a -> a -> a
+<> Text
+ledgerEra
+  QueryCmdPastHorizon PastHorizonException
+e -> Text
+"Past horizon: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow PastHorizonException
+e
+  QueryCmdError
+QueryCmdSystemStartUnavailable -> Text
+"System start unavailable"
+  QueryCmdGenesisReadError GenesisCmdError
+err' -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError GenesisCmdError
+err'
+  QueryCmdLeaderShipError LeadershipError
+e -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError LeadershipError
+e
+  QueryCmdTextEnvelopeReadError FileError TextEnvelopeError
+e -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+  QueryCmdTextReadError FileError InputDecodeError
+e -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+  QueryCmdOpCertCounterReadError FileError TextEnvelopeError
+e -> String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+e
+  QueryCmdProtocolStateDecodeFailure (ByteString
+_, DecoderError
+decErr) ->
+    Text
+"Failed to decode the protocol state: " forall a. Semigroup a => a -> a -> a
+<> Text -> Text
+toStrict (Builder -> Text
+toLazyText forall a b. (a -> b) -> a -> b
+$ forall p. Buildable p => p -> Builder
+build DecoderError
+decErr)
+  QueryCmdPoolStateDecodeError DecoderError
+decoderError ->
+    Text
+"Failed to decode PoolState.  Error: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show DecoderError
+decoderError)
+  QueryCmdStakeSnapshotDecodeError DecoderError
+decoderError ->
+    Text
+"Failed to decode StakeSnapshot.  Error: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall a. Show a => a -> String
+show DecoderError
+decoderError)
+  QueryCmdUnsupportedNtcVersion (UnsupportedNtcVersionError MinNodeToClientVersion
+minNtcVersion MinNodeToClientVersion
+ntcVersion) ->
+    Text
+"Unsupported feature for the node-to-client protocol version.\n" forall a. Semigroup a => a -> a -> a
+<>
+    Text
+"This query requires at least " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow MinNodeToClientVersion
+minNtcVersion forall a. Semigroup a => a -> a -> a
+<> Text
+" but the node negotiated " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow MinNodeToClientVersion
+ntcVersion forall a. Semigroup a => a -> a -> a
+<> Text
+".\n" forall a. Semigroup a => a -> a -> a
+<>
+    Text
+"Later node versions support later protocol versions (but development protocol versions are not enabled in the node by default)."
+  QueryCmdProtocolParameterConversionError ProtocolParametersConversionError
+ppce ->
+    String -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ String
+"Failed to convert protocol parameter: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError ProtocolParametersConversionError
+ppce
+  QueryCmdConvenienceError QueryConvenienceError
+qce -> QueryConvenienceError -> Text
+renderQueryConvenienceError QueryConvenienceError
+qce
+  QueryCmdDRepKeyError FileError InputDecodeError
+e ->
+    Text
+"Error reading delegation representative key: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e)
+  QueryCmdCommitteeColdKeyError FileError InputDecodeError
+e ->
+    Text
+"Error reading committee cold key: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e)
+  QueryCmdCommitteeHotKeyError FileError InputDecodeError
+e ->
+    Text
+"Error reading committee hot key: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError.html new file mode 100644 index 0000000000..6bc3561c5f --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError.html @@ -0,0 +1,54 @@ +
module Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
+  ( QueryCmdLocalStateQueryError(..)
+  , renderLocalStateQueryError
+  ) where
+
+import           Cardano.Api
+
+import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
+
+import           Data.Text (Text)
+
+-- | An error that can occur while querying a node's local state.
+newtype QueryCmdLocalStateQueryError
+  = EraMismatchError EraMismatch
+  -- ^ A query from a certain era was applied to a ledger from a different
+  -- era.
+  deriving (QueryCmdLocalStateQueryError
+-> QueryCmdLocalStateQueryError -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: QueryCmdLocalStateQueryError
+-> QueryCmdLocalStateQueryError -> Bool
+$c/= :: QueryCmdLocalStateQueryError
+-> QueryCmdLocalStateQueryError -> Bool
+== :: QueryCmdLocalStateQueryError
+-> QueryCmdLocalStateQueryError -> Bool
+$c== :: QueryCmdLocalStateQueryError
+-> QueryCmdLocalStateQueryError -> Bool
+Eq, Int -> QueryCmdLocalStateQueryError -> ShowS
+[QueryCmdLocalStateQueryError] -> ShowS
+QueryCmdLocalStateQueryError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryCmdLocalStateQueryError] -> ShowS
+$cshowList :: [QueryCmdLocalStateQueryError] -> ShowS
+show :: QueryCmdLocalStateQueryError -> String
+$cshow :: QueryCmdLocalStateQueryError -> String
+showsPrec :: Int -> QueryCmdLocalStateQueryError -> ShowS
+$cshowsPrec :: Int -> QueryCmdLocalStateQueryError -> ShowS
+Show)
+
+renderLocalStateQueryError :: QueryCmdLocalStateQueryError -> Text
+renderLocalStateQueryError :: QueryCmdLocalStateQueryError -> Text
+renderLocalStateQueryError QueryCmdLocalStateQueryError
+lsqErr =
+  case QueryCmdLocalStateQueryError
+lsqErr of
+    EraMismatchError EraMismatch
+err ->
+      Text
+"A query from a certain era was applied to a ledger from a different era: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow EraMismatch
+err
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.RegistrationError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.RegistrationError.html new file mode 100644 index 0000000000..1c8b66b0dc --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.RegistrationError.html @@ -0,0 +1,61 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.RegistrationError
+  ( RegistrationError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.StakeAddressRegistrationError
+import           Cardano.CLI.Types.Errors.StakeCredentialError
+
+data RegistrationError
+  = RegistrationReadError !(FileError InputDecodeError)
+  | RegistrationWriteFileError !(FileError ())
+  | RegistrationStakeCredentialError !StakeCredentialError
+  | RegistrationStakeError !StakeAddressRegistrationError
+  deriving Int -> RegistrationError -> ShowS
+[RegistrationError] -> ShowS
+RegistrationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [RegistrationError] -> ShowS
+$cshowList :: [RegistrationError] -> ShowS
+show :: RegistrationError -> String
+$cshow :: RegistrationError -> String
+showsPrec :: Int -> RegistrationError -> ShowS
+$cshowsPrec :: Int -> RegistrationError -> ShowS
+Show
+
+instance Error RegistrationError where
+  displayError :: RegistrationError -> String
+displayError = \case
+    RegistrationReadError FileError InputDecodeError
+e ->
+      String
+"Cannot read registration certificate: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    RegistrationWriteFileError FileError ()
+e ->
+      String
+"Cannot write registration certificate: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError FileError ()
+e
+    RegistrationStakeCredentialError StakeCredentialError
+e ->
+      String
+"Cannot read stake credential: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError StakeCredentialError
+e
+    RegistrationStakeError StakeAddressRegistrationError
+e ->
+      String
+"Stake address registation error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError StakeAddressRegistrationError
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ScriptDecodeError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ScriptDecodeError.html new file mode 100644 index 0000000000..0166f3f061 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.ScriptDecodeError.html @@ -0,0 +1,46 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.ScriptDecodeError
+  ( ScriptDecodeError(..)
+  ) where
+
+import           Cardano.Api
+
+--
+-- Handling decoding the variety of script languages and formats
+--
+
+data ScriptDecodeError =
+    ScriptDecodeTextEnvelopeError TextEnvelopeError
+  | ScriptDecodeSimpleScriptError JsonDecodeError
+  deriving Int -> ScriptDecodeError -> ShowS
+[ScriptDecodeError] -> ShowS
+ScriptDecodeError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ScriptDecodeError] -> ShowS
+$cshowList :: [ScriptDecodeError] -> ShowS
+show :: ScriptDecodeError -> String
+$cshow :: ScriptDecodeError -> String
+showsPrec :: Int -> ScriptDecodeError -> ShowS
+$cshowsPrec :: Int -> ScriptDecodeError -> ShowS
+Show
+
+instance Error ScriptDecodeError where
+  displayError :: ScriptDecodeError -> String
+displayError = \case
+    ScriptDecodeTextEnvelopeError TextEnvelopeError
+err ->
+      String
+"Error decoding script: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> String
+displayError TextEnvelopeError
+err
+    ScriptDecodeSimpleScriptError JsonDecodeError
+err ->
+      String
+"Syntax error in script: " forall a. [a] -> [a] -> [a]
+++ forall e. Error e => e -> String
+displayError JsonDecodeError
+err
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressCmdError.html new file mode 100644 index 0000000000..6f8f60a560 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressCmdError.html @@ -0,0 +1,61 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.StakeAddressCmdError
+  ( StakeAddressCmdError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.ScriptDecodeError
+import           Cardano.CLI.Types.Errors.StakeAddressRegistrationError
+import           Cardano.CLI.Types.Errors.StakeCredentialError
+import Cardano.CLI.Types.Errors.DelegationError
+
+data StakeAddressCmdError
+  = StakeAddressCmdReadKeyFileError !(FileError InputDecodeError)
+  | StakeAddressCmdReadScriptFileError !(FileError ScriptDecodeError)
+  | StakeAddressCmdStakeCredentialError !StakeCredentialError
+  | StakeAddressCmdWriteFileError !(FileError ())
+  | StakeAddressCmdDelegationError !DelegationError
+  | StakeAddressCmdRegistrationError !StakeAddressRegistrationError
+  deriving Int -> StakeAddressCmdError -> ShowS
+[StakeAddressCmdError] -> ShowS
+StakeAddressCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeAddressCmdError] -> ShowS
+$cshowList :: [StakeAddressCmdError] -> ShowS
+show :: StakeAddressCmdError -> String
+$cshow :: StakeAddressCmdError -> String
+showsPrec :: Int -> StakeAddressCmdError -> ShowS
+$cshowsPrec :: Int -> StakeAddressCmdError -> ShowS
+Show
+
+instance Error StakeAddressCmdError where
+  displayError :: StakeAddressCmdError -> String
+displayError = \case
+    StakeAddressCmdReadKeyFileError FileError InputDecodeError
+e       -> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+    StakeAddressCmdReadScriptFileError FileError ScriptDecodeError
+e    -> forall e. Error e => e -> String
+displayError FileError ScriptDecodeError
+e
+    StakeAddressCmdStakeCredentialError StakeCredentialError
+e   -> forall e. Error e => e -> String
+displayError StakeCredentialError
+e
+    StakeAddressCmdWriteFileError FileError ()
+e         -> forall e. Error e => e -> String
+displayError FileError ()
+e
+    StakeAddressCmdDelegationError DelegationError
+e        -> forall e. Error e => e -> String
+displayError DelegationError
+e
+    StakeAddressCmdRegistrationError StakeAddressRegistrationError
+e      -> forall e. Error e => e -> String
+displayError StakeAddressRegistrationError
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressDelegationError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressDelegationError.html new file mode 100644 index 0000000000..318c97159e --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressDelegationError.html @@ -0,0 +1,54 @@ +
{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.StakeAddressDelegationError
+  ( StakeAddressDelegationError(..)
+  ) where
+
+import           Cardano.Api
+
+import qualified Data.Text as Text
+
+newtype StakeAddressDelegationError = VoteDelegationNotSupported (EraInEon ShelleyToBabbageEra) deriving Int -> StakeAddressDelegationError -> ShowS
+[StakeAddressDelegationError] -> ShowS
+StakeAddressDelegationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeAddressDelegationError] -> ShowS
+$cshowList :: [StakeAddressDelegationError] -> ShowS
+show :: StakeAddressDelegationError -> String
+$cshow :: StakeAddressDelegationError -> String
+showsPrec :: Int -> StakeAddressDelegationError -> ShowS
+$cshowsPrec :: Int -> StakeAddressDelegationError -> ShowS
+Show
+
+instance Error StakeAddressDelegationError where
+  displayError :: StakeAddressDelegationError -> String
+displayError = \case
+    VoteDelegationNotSupported (EraInEon ShelleyToBabbageEra era
+eraInEon) -> String
+"Vote delegation not supported in " forall a. Semigroup a => a -> a -> a
+<> String
+eraTxt forall a. Semigroup a => a -> a -> a
+<> String
+" era."
+      where
+        cEra :: CardanoEra era
+cEra = forall (eon :: * -> *) era.
+ToCardanoEra eon =>
+eon era -> CardanoEra era
+toCardanoEra ShelleyToBabbageEra era
+eraInEon
+        eraTxt :: String
+eraTxt = forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+cEra forall a b. (a -> b) -> a -> b
+$ Text -> String
+Text.unpack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AnyCardanoEra -> Text
+renderEra forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+cEra
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressRegistrationError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressRegistrationError.html new file mode 100644 index 0000000000..53d8f33d42 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeAddressRegistrationError.html @@ -0,0 +1,29 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.StakeAddressRegistrationError
+  ( StakeAddressRegistrationError(..)
+  ) where
+
+import           Cardano.Api
+
+data StakeAddressRegistrationError = StakeAddressRegistrationDepositRequired
+  deriving Int -> StakeAddressRegistrationError -> ShowS
+[StakeAddressRegistrationError] -> ShowS
+StakeAddressRegistrationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeAddressRegistrationError] -> ShowS
+$cshowList :: [StakeAddressRegistrationError] -> ShowS
+show :: StakeAddressRegistrationError -> String
+$cshow :: StakeAddressRegistrationError -> String
+showsPrec :: Int -> StakeAddressRegistrationError -> ShowS
+$cshowsPrec :: Int -> StakeAddressRegistrationError -> ShowS
+Show
+
+instance Error StakeAddressRegistrationError where
+  displayError :: StakeAddressRegistrationError -> String
+displayError = \case
+    StakeAddressRegistrationError
+StakeAddressRegistrationDepositRequired -> String
+"Stake address deposit required."
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeCredentialError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeCredentialError.html new file mode 100644 index 0000000000..2e6c0353cc --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakeCredentialError.html @@ -0,0 +1,38 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.Errors.StakeCredentialError
+  ( StakeCredentialError(..)
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Types.Errors.ScriptDecodeError
+
+data StakeCredentialError
+  = StakeCredentialScriptDecodeError (FileError ScriptDecodeError)
+  | StakeCredentialInputDecodeError (FileError InputDecodeError)
+  deriving Int -> StakeCredentialError -> ShowS
+[StakeCredentialError] -> ShowS
+StakeCredentialError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeCredentialError] -> ShowS
+$cshowList :: [StakeCredentialError] -> ShowS
+show :: StakeCredentialError -> String
+$cshow :: StakeCredentialError -> String
+showsPrec :: Int -> StakeCredentialError -> ShowS
+$cshowsPrec :: Int -> StakeCredentialError -> ShowS
+Show
+
+instance Error StakeCredentialError where
+  displayError :: StakeCredentialError -> String
+displayError = \case
+    StakeCredentialScriptDecodeError FileError ScriptDecodeError
+e -> forall e. Error e => e -> String
+displayError FileError ScriptDecodeError
+e
+    StakeCredentialInputDecodeError FileError InputDecodeError
+e -> forall e. Error e => e -> String
+displayError FileError InputDecodeError
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakePoolCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakePoolCmdError.html new file mode 100644 index 0000000000..9a80a4c3ac --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.StakePoolCmdError.html @@ -0,0 +1,63 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+
+module Cardano.CLI.Types.Errors.StakePoolCmdError
+  ( StakePoolCmdError(..)
+  , renderStakePoolCmdError
+  ) where
+
+import           Cardano.Api
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data StakePoolCmdError
+  = StakePoolCmdReadFileError !(FileError TextEnvelopeError)
+  | StakePoolCmdReadKeyFileError !(FileError InputDecodeError)
+  | StakePoolCmdWriteFileError !(FileError ())
+  | StakePoolCmdMetadataValidationError !StakePoolMetadataValidationError
+  deriving Int -> StakePoolCmdError -> ShowS
+[StakePoolCmdError] -> ShowS
+StakePoolCmdError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakePoolCmdError] -> ShowS
+$cshowList :: [StakePoolCmdError] -> ShowS
+show :: StakePoolCmdError -> String
+$cshow :: StakePoolCmdError -> String
+showsPrec :: Int -> StakePoolCmdError -> ShowS
+$cshowsPrec :: Int -> StakePoolCmdError -> ShowS
+Show
+
+renderStakePoolCmdError :: StakePoolCmdError -> Text
+renderStakePoolCmdError :: StakePoolCmdError -> Text
+renderStakePoolCmdError = \case
+  StakePoolCmdMetadataValidationError StakePoolMetadataValidationError
+validationErr ->
+    Text
+"Error validating stake pool metadata: " forall a. Semigroup a => a -> a -> a
+<> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError StakePoolMetadataValidationError
+validationErr)
+  StakePoolCmdReadFileError FileError TextEnvelopeError
+fileErr ->
+    String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileErr)
+  StakePoolCmdReadKeyFileError FileError InputDecodeError
+fileErr ->
+    String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+fileErr)
+  StakePoolCmdWriteFileError FileError ()
+fileErr ->
+    String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError ()
+fileErr)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TextViewFileError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TextViewFileError.html new file mode 100644 index 0000000000..1bdea8cfcb --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TextViewFileError.html @@ -0,0 +1,49 @@ +
{-# LANGUAGE DataKinds #-}
+
+module Cardano.CLI.Types.Errors.TextViewFileError
+  ( TextViewFileError(..)
+  , renderTextViewFileError
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Helpers (HelpersError, renderHelpersError)
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+data TextViewFileError
+  = TextViewReadFileError (FileError TextEnvelopeError)
+  | TextViewCBORPrettyPrintError !HelpersError
+  deriving Int -> TextViewFileError -> ShowS
+[TextViewFileError] -> ShowS
+TextViewFileError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TextViewFileError] -> ShowS
+$cshowList :: [TextViewFileError] -> ShowS
+show :: TextViewFileError -> String
+$cshow :: TextViewFileError -> String
+showsPrec :: Int -> TextViewFileError -> ShowS
+$cshowsPrec :: Int -> TextViewFileError -> ShowS
+Show
+
+renderTextViewFileError :: TextViewFileError -> Text
+renderTextViewFileError :: TextViewFileError -> Text
+renderTextViewFileError TextViewFileError
+err =
+  case TextViewFileError
+err of
+    TextViewReadFileError FileError TextEnvelopeError
+fileErr -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError TextEnvelopeError
+fileErr)
+    TextViewCBORPrettyPrintError HelpersError
+hlprsErr ->
+      Text
+"Error pretty printing CBOR: " forall a. Semigroup a => a -> a -> a
+<> HelpersError -> Text
+renderHelpersError HelpersError
+hlprsErr
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxCmdError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxCmdError.html new file mode 100644 index 0000000000..50e701249d --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxCmdError.html @@ -0,0 +1,496 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.CLI.Types.Errors.TxCmdError
+  ( TxCmdError(..)
+  , renderTxCmdError
+  ) where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Read
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.BootstrapWitnessError
+import           Cardano.CLI.Types.Errors.NodeEraMismatchError
+import           Cardano.CLI.Types.Errors.ProtocolParamsError
+import           Cardano.CLI.Types.Errors.TxValidationError
+import           Cardano.CLI.Types.Output
+import           Cardano.CLI.Types.TxFeature
+import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
+
+import           Data.Text (Text)
+import qualified Data.Text as Text
+
+{- HLINT ignore "Use let" -}
+
+data TxCmdError
+  = TxCmdMetadataError MetadataError
+  | TxCmdVoteError VoteError
+  | TxCmdConstitutionError ConstitutionError
+  | TxCmdScriptWitnessError ScriptWitnessError
+  | TxCmdProtocolParamsError ProtocolParamsError
+  | TxCmdScriptFileError (FileError ScriptDecodeError)
+  | TxCmdReadTextViewFileError !(FileError TextEnvelopeError)
+  | TxCmdReadWitnessSigningDataError !ReadWitnessSigningDataError
+  | TxCmdWriteFileError !(FileError ())
+  | TxCmdBootstrapWitnessError !BootstrapWitnessError
+  | TxCmdTxSubmitError !Text
+  | TxCmdTxSubmitErrorEraMismatch !EraMismatch
+  | TxCmdTxFeatureMismatch !AnyCardanoEra !TxFeature
+  | TxCmdTxBodyError !TxBodyError
+  | TxCmdNotImplemented !Text
+  | TxCmdWitnessEraMismatch !AnyCardanoEra !AnyCardanoEra !WitnessFile
+  | TxCmdPolicyIdsMissing ![PolicyId]
+  | TxCmdPolicyIdsExcess  ![PolicyId]
+  | TxCmdByronEra
+  | TxCmdBalanceTxBody !TxBodyErrorAutoBalance
+  | TxCmdTxInsDoNotExist !TxInsExistError
+  | TxCmdPParamsErr !ProtocolParametersError
+  | TxCmdTextEnvCddlError
+      !(FileError TextEnvelopeError)
+      !(FileError TextEnvelopeCddlError)
+  | TxCmdTxExecUnitsErr !TransactionValidityError
+  | TxCmdPlutusScriptCostErr !PlutusScriptCostError
+  | TxCmdPParamExecutionUnitsNotAvailable
+  | TxCmdPlutusScriptsRequireCardanoMode
+  | TxCmdProtocolParametersNotPresentInTxBody
+  | TxCmdTxNodeEraMismatchError !NodeEraMismatchError
+  | TxCmdQueryConvenienceError !QueryConvenienceError
+  | TxCmdQueryNotScriptLocked !ScriptLockedTxInsError
+  | TxCmdScriptDataError !ScriptDataError
+  | TxCmdCddlError CddlError
+  | TxCmdCddlWitnessError CddlWitnessError
+  | TxCmdRequiredSignerError RequiredSignerError
+  -- Validation errors
+  | TxCmdAuxScriptsValidationError TxAuxScriptsValidationError
+  | TxCmdTotalCollateralValidationError TxTotalCollateralValidationError
+  | TxCmdReturnCollateralValidationError TxReturnCollateralValidationError
+  | TxCmdTxFeeValidationError TxFeeValidationError
+  | TxCmdTxValidityLowerBoundValidationError TxValidityLowerBoundValidationError
+  | TxCmdTxValidityUpperBoundValidationError TxValidityUpperBoundValidationError
+  | TxCmdRequiredSignersValidationError TxRequiredSignersValidationError
+  | TxCmdProtocolParametersValidationError TxProtocolParametersValidationError
+  | TxCmdTxWithdrawalsValidationError TxWithdrawalsValidationError
+  | TxCmdTxCertificatesValidationError TxCertificatesValidationError
+  | TxCmdTxUpdateProposalValidationError TxUpdateProposalValidationError
+  | TxCmdScriptValidityValidationError TxScriptValidityValidationError
+  | TxCmdProtocolParamsConverstionError ProtocolParametersConversionError
+
+renderTxCmdError :: TxCmdError -> Text
+renderTxCmdError :: TxCmdError -> Text
+renderTxCmdError TxCmdError
+err =
+  case TxCmdError
+err of
+    TxCmdProtocolParamsConverstionError ProtocolParametersConversionError
+err' ->
+      Text
+"Error while converting protocol parameters: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError ProtocolParametersConversionError
+err')
+    TxCmdVoteError VoteError
+voteErr -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> FilePath
+show VoteError
+voteErr
+    TxCmdConstitutionError ConstitutionError
+constErr -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall a. Show a => a -> FilePath
+show ConstitutionError
+constErr
+    TxCmdReadTextViewFileError FileError TextEnvelopeError
+fileErr -> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError FileError TextEnvelopeError
+fileErr)
+    TxCmdScriptFileError FileError ScriptDecodeError
+fileErr -> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError FileError ScriptDecodeError
+fileErr)
+    TxCmdReadWitnessSigningDataError ReadWitnessSigningDataError
+witSignDataErr ->
+      ReadWitnessSigningDataError -> Text
+renderReadWitnessSigningDataError ReadWitnessSigningDataError
+witSignDataErr
+    TxCmdWriteFileError FileError ()
+fileErr -> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError FileError ()
+fileErr)
+    TxCmdTxSubmitError Text
+res -> Text
+"Error while submitting tx: " forall a. Semigroup a => a -> a -> a
+<> Text
+res
+    TxCmdTxSubmitErrorEraMismatch EraMismatch{Text
+ledgerEraName :: EraMismatch -> Text
+ledgerEraName :: Text
+ledgerEraName, Text
+otherEraName :: EraMismatch -> Text
+otherEraName :: Text
+otherEraName} ->
+      Text
+"The era of the node and the tx do not match. " forall a. Semigroup a => a -> a -> a
+<>
+      Text
+"The node is running in the " forall a. Semigroup a => a -> a -> a
+<> Text
+ledgerEraName forall a. Semigroup a => a -> a -> a
+<>
+      Text
+" era, but the transaction is for the " forall a. Semigroup a => a -> a -> a
+<> Text
+otherEraName forall a. Semigroup a => a -> a -> a
+<> Text
+" era."
+    TxCmdBootstrapWitnessError BootstrapWitnessError
+sbwErr ->
+      BootstrapWitnessError -> Text
+renderBootstrapWitnessError BootstrapWitnessError
+sbwErr
+    TxCmdTxFeatureMismatch AnyCardanoEra
+era TxFeature
+TxFeatureImplicitFees ->
+      Text
+"An explicit transaction fee must be specified for " forall a. Semigroup a => a -> a -> a
+<>
+      AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era forall a. Semigroup a => a -> a -> a
+<> Text
+" era transactions."
+
+    TxCmdTxFeatureMismatch (AnyCardanoEra CardanoEra era
+ShelleyEra)
+                                  TxFeature
+TxFeatureValidityNoUpperBound ->
+      Text
+"A TTL must be specified for Shelley era transactions."
+
+    TxCmdTxFeatureMismatch AnyCardanoEra
+era TxFeature
+feature ->
+      TxFeature -> Text
+renderFeature TxFeature
+feature forall a. Semigroup a => a -> a -> a
+<> Text
+" cannot be used for " forall a. Semigroup a => a -> a -> a
+<> AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era forall a. Semigroup a => a -> a -> a
+<>
+      Text
+" era transactions."
+
+    TxCmdTxBodyError TxBodyError
+err' ->
+      Text
+"Transaction validaton error: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError TxBodyError
+err')
+
+    TxCmdNotImplemented Text
+msg ->
+      Text
+"Feature not yet implemented: " forall a. Semigroup a => a -> a -> a
+<> Text
+msg
+
+    TxCmdWitnessEraMismatch AnyCardanoEra
+era AnyCardanoEra
+era' (WitnessFile FilePath
+file) ->
+      Text
+"The era of a witness does not match the era of the transaction. " forall a. Semigroup a => a -> a -> a
+<>
+      Text
+"The transaction is for the " forall a. Semigroup a => a -> a -> a
+<> AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era forall a. Semigroup a => a -> a -> a
+<> Text
+" era, but the " forall a. Semigroup a => a -> a -> a
+<>
+      Text
+"witness in " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> Text
+textShow FilePath
+file forall a. Semigroup a => a -> a -> a
+<> Text
+" is for the " forall a. Semigroup a => a -> a -> a
+<> AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era' forall a. Semigroup a => a -> a -> a
+<> Text
+" era."
+
+    TxCmdPolicyIdsMissing [PolicyId]
+policyids -> forall a. Monoid a => [a] -> a
+mconcat
+      [ Text
+"The \"--mint\" flag specifies an asset with a policy Id, but no "
+      , Text
+"corresponding monetary policy script has been provided as a witness "
+      , Text
+"(via the \"--mint-script-file\" flag). The policy Id in question is: "
+      , Text -> [Text] -> Text
+Text.intercalate Text
+", " (forall a b. (a -> b) -> [a] -> [b]
+map forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText [PolicyId]
+policyids)
+      ]
+
+    TxCmdPolicyIdsExcess [PolicyId]
+policyids -> forall a. Monoid a => [a] -> a
+mconcat
+      [ Text
+"A script provided to witness minting does not correspond to the policy "
+      , Text
+"id of any asset specified in the \"--mint\" field. The script hash is: "
+      , Text -> [Text] -> Text
+Text.intercalate Text
+", " (forall a b. (a -> b) -> [a] -> [b]
+map forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText [PolicyId]
+policyids)
+      ]
+    TxCmdError
+TxCmdByronEra -> Text
+"This query cannot be used for the Byron era"
+    TxCmdBalanceTxBody TxBodyErrorAutoBalance
+err' -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxBodyErrorAutoBalance
+err'
+    TxCmdTxInsDoNotExist TxInsExistError
+e ->
+      TxInsExistError -> Text
+renderTxInsExistError TxInsExistError
+e
+    TxCmdPParamsErr ProtocolParametersError
+err' -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError ProtocolParametersError
+err'
+    TxCmdTextEnvCddlError FileError TextEnvelopeError
+textEnvErr FileError TextEnvelopeCddlError
+cddlErr -> forall a. Monoid a => [a] -> a
+mconcat
+      [ Text
+"Failed to decode neither the cli's serialisation format nor the ledger's "
+      , Text
+"CDDL serialisation format. TextEnvelope error: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError FileError TextEnvelopeError
+textEnvErr) forall a. Semigroup a => a -> a -> a
+<> Text
+"\n"
+      , Text
+"TextEnvelopeCddl error: " forall a. Semigroup a => a -> a -> a
+<> FilePath -> Text
+Text.pack (forall e. Error e => e -> FilePath
+displayError FileError TextEnvelopeCddlError
+cddlErr)
+      ]
+    TxCmdTxExecUnitsErr TransactionValidityError
+err' ->  FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TransactionValidityError
+err'
+    TxCmdPlutusScriptCostErr PlutusScriptCostError
+err'-> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError PlutusScriptCostError
+err'
+    TxCmdError
+TxCmdPParamExecutionUnitsNotAvailable -> forall a. Monoid a => [a] -> a
+mconcat
+      [ Text
+"Execution units not available in the protocol parameters. This is "
+      , Text
+"likely due to not being in the Alonzo era"
+      ]
+    TxCmdTxNodeEraMismatchError (NodeEraMismatchError CardanoEra era
+nodeEra CardanoEra nodeEra
+valueEra) ->
+      forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+nodeEra forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra nodeEra
+valueEra forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+        [ Text
+"Transactions can only be produced in the same era as the node. Requested era: "
+        , AnyCardanoEra -> Text
+renderEra (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra nodeEra
+valueEra) forall a. Semigroup a => a -> a -> a
+<> Text
+", node era: "
+        , AnyCardanoEra -> Text
+renderEra (forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+nodeEra) forall a. Semigroup a => a -> a -> a
+<> Text
+"."
+        ]
+    TxCmdQueryConvenienceError QueryConvenienceError
+e ->
+      QueryConvenienceError -> Text
+renderQueryConvenienceError QueryConvenienceError
+e
+    TxCmdQueryNotScriptLocked ScriptLockedTxInsError
+e ->
+      ScriptLockedTxInsError -> Text
+renderNotScriptLockedTxInsError ScriptLockedTxInsError
+e
+    TxCmdError
+TxCmdPlutusScriptsRequireCardanoMode ->
+      Text
+"Plutus scripts are only available in CardanoMode"
+    TxCmdError
+TxCmdProtocolParametersNotPresentInTxBody ->
+      Text
+"Protocol parameters were not found in transaction body"
+    TxCmdMetadataError MetadataError
+e -> MetadataError -> Text
+renderMetadataError MetadataError
+e
+    TxCmdScriptWitnessError ScriptWitnessError
+e -> ScriptWitnessError -> Text
+renderScriptWitnessError ScriptWitnessError
+e
+    TxCmdScriptDataError ScriptDataError
+e -> ScriptDataError -> Text
+renderScriptDataError ScriptDataError
+e
+    TxCmdProtocolParamsError ProtocolParamsError
+e -> ProtocolParamsError -> Text
+renderProtocolParamsError ProtocolParamsError
+e
+    TxCmdCddlError CddlError
+e -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError CddlError
+e
+    TxCmdCddlWitnessError CddlWitnessError
+e -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError CddlWitnessError
+e
+    TxCmdRequiredSignerError RequiredSignerError
+e -> FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError RequiredSignerError
+e
+    -- Validation errors
+    TxCmdAuxScriptsValidationError TxAuxScriptsValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxAuxScriptsValidationError
+e
+    TxCmdTotalCollateralValidationError TxTotalCollateralValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxTotalCollateralValidationError
+e
+    TxCmdReturnCollateralValidationError TxReturnCollateralValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxReturnCollateralValidationError
+e
+    TxCmdTxFeeValidationError TxFeeValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxFeeValidationError
+e
+    TxCmdTxValidityLowerBoundValidationError TxValidityLowerBoundValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxValidityLowerBoundValidationError
+e
+    TxCmdTxValidityUpperBoundValidationError TxValidityUpperBoundValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxValidityUpperBoundValidationError
+e
+    TxCmdRequiredSignersValidationError TxRequiredSignersValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxRequiredSignersValidationError
+e
+    TxCmdProtocolParametersValidationError TxProtocolParametersValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxProtocolParametersValidationError
+e
+    TxCmdTxWithdrawalsValidationError TxWithdrawalsValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxWithdrawalsValidationError
+e
+    TxCmdTxCertificatesValidationError TxCertificatesValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxCertificatesValidationError
+e
+    TxCmdTxUpdateProposalValidationError TxUpdateProposalValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxUpdateProposalValidationError
+e
+    TxCmdScriptValidityValidationError TxScriptValidityValidationError
+e ->
+      FilePath -> Text
+Text.pack forall a b. (a -> b) -> a -> b
+$ forall e. Error e => e -> FilePath
+displayError TxScriptValidityValidationError
+e
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxValidationError.html b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxValidationError.html new file mode 100644 index 0000000000..32a4106691 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Errors.TxValidationError.html @@ -0,0 +1,1128 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
+
+module Cardano.CLI.Types.Errors.TxValidationError
+  ( TxAuxScriptsValidationError(..)
+  , TxCertificatesValidationError(..)
+  , TxFeeValidationError(..)
+  , TxProtocolParametersValidationError
+  , TxScriptValidityValidationError(..)
+  , TxUpdateProposalValidationError(..)
+  , TxValidityLowerBoundValidationError(..)
+  , TxValidityUpperBoundValidationError(..)
+  , TxRequiredSignersValidationError
+  , TxReturnCollateralValidationError(..)
+  , TxTotalCollateralValidationError(..)
+  , TxWithdrawalsValidationError(..)
+  , validateProtocolParameters
+  , validateScriptSupportedInEra
+  , validateTxAuxScripts
+  , validateTxCertificates
+  , validateTxFee
+  , validateRequiredSigners
+  , validateTxReturnCollateral
+  , validateTxScriptValidity
+  , validateTxTotalCollateral
+  , validateTxValidityUpperBound
+  , validateTxValidityLowerBound
+  , validateTxWithdrawals
+  , validateUpdateProposalFile
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as L
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+
+import           Prelude
+
+import           Data.Bifunctor (first)
+import qualified Data.Map.Strict as Map
+import           Data.Maybe
+import qualified Data.Text as Text
+
+data ScriptLanguageValidationError
+  = ScriptLanguageValidationError AnyScriptLanguage AnyCardanoEra
+  deriving Int -> ScriptLanguageValidationError -> ShowS
+[ScriptLanguageValidationError] -> ShowS
+ScriptLanguageValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ScriptLanguageValidationError] -> ShowS
+$cshowList :: [ScriptLanguageValidationError] -> ShowS
+show :: ScriptLanguageValidationError -> String
+$cshow :: ScriptLanguageValidationError -> String
+showsPrec :: Int -> ScriptLanguageValidationError -> ShowS
+$cshowsPrec :: Int -> ScriptLanguageValidationError -> ShowS
+Show
+
+instance Error ScriptLanguageValidationError where
+  displayError :: ScriptLanguageValidationError -> String
+displayError (ScriptLanguageValidationError AnyScriptLanguage
+lang AnyCardanoEra
+era) =
+    String
+"The script language " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show AnyScriptLanguage
+lang forall a. Semigroup a => a -> a -> a
+<> String
+" is not supported in the " forall a. Semigroup a => a -> a -> a
+<>
+    Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era) forall a. Semigroup a => a -> a -> a
+<> String
+" era."
+
+validateScriptSupportedInEra
+  :: CardanoEra era
+  -> ScriptInAnyLang
+  -> Either ScriptLanguageValidationError (ScriptInEra era)
+validateScriptSupportedInEra :: forall era.
+CardanoEra era
+-> ScriptInAnyLang
+-> Either ScriptLanguageValidationError (ScriptInEra era)
+validateScriptSupportedInEra CardanoEra era
+era script :: ScriptInAnyLang
+script@(ScriptInAnyLang ScriptLanguage lang
+lang Script lang
+_) =
+  case forall era.
+CardanoEra era -> ScriptInAnyLang -> Maybe (ScriptInEra era)
+toScriptInEra CardanoEra era
+era ScriptInAnyLang
+script of
+    Maybe (ScriptInEra era)
+Nothing -> forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ AnyScriptLanguage -> AnyCardanoEra -> ScriptLanguageValidationError
+ScriptLanguageValidationError
+                        (forall lang. ScriptLanguage lang -> AnyScriptLanguage
+AnyScriptLanguage ScriptLanguage lang
+lang) (forall era. CardanoEra era -> AnyCardanoEra
+anyCardanoEra CardanoEra era
+era)
+    Just ScriptInEra era
+script' -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure ScriptInEra era
+script'
+
+
+data TxFeeValidationError
+  = TxFeatureImplicitFeesE AnyCardanoEra -- ^ Expected an explicit fee
+  | TxFeatureExplicitFeesE AnyCardanoEra -- ^ Expected an implicit fee
+  deriving Int -> TxFeeValidationError -> ShowS
+[TxFeeValidationError] -> ShowS
+TxFeeValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxFeeValidationError] -> ShowS
+$cshowList :: [TxFeeValidationError] -> ShowS
+show :: TxFeeValidationError -> String
+$cshow :: TxFeeValidationError -> String
+showsPrec :: Int -> TxFeeValidationError -> ShowS
+$cshowsPrec :: Int -> TxFeeValidationError -> ShowS
+Show
+
+instance Error TxFeeValidationError where
+  displayError :: TxFeeValidationError -> String
+displayError (TxFeatureImplicitFeesE AnyCardanoEra
+era) =
+    String
+"Implicit transaction fee not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+  displayError (TxFeatureExplicitFeesE AnyCardanoEra
+era) =
+    String
+"Explicit transaction fee not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+
+validateTxFee :: CardanoEra era
+              -> Maybe Lovelace
+              -> Either TxFeeValidationError (TxFee era)
+validateTxFee :: forall era.
+CardanoEra era
+-> Maybe Lovelace -> Either TxFeeValidationError (TxFee era)
+validateTxFee CardanoEra era
+era = \case
+  Maybe Lovelace
+Nothing ->
+    forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+      (forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era. ByronEraOnly era -> TxFee era
+TxFeeImplicit)
+      (forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$ forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AnyCardanoEra -> TxFeeValidationError
+TxFeatureImplicitFeesE forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+      CardanoEra era
+era
+  Just Lovelace
+fee ->
+    forall era a.
+(ByronEraOnly era -> a)
+-> (ShelleyBasedEraConstraints era => ShelleyBasedEra era -> a)
+-> CardanoEra era
+-> a
+caseByronOrShelleyBasedEra
+      (forall a b. a -> b -> a
+const forall a b. (a -> b) -> a -> b
+$ forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AnyCardanoEra -> TxFeeValidationError
+TxFeatureExplicitFeesE forall a b. (a -> b) -> a -> b
+$ forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era)
+      (\ShelleyBasedEra era
+w -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall era. ShelleyBasedEra era -> Lovelace -> TxFee era
+TxFeeExplicit ShelleyBasedEra era
+w Lovelace
+fee))
+      CardanoEra era
+era
+
+newtype TxTotalCollateralValidationError
+  = TxTotalCollateralNotSupported AnyCardanoEra
+  deriving Int -> TxTotalCollateralValidationError -> ShowS
+[TxTotalCollateralValidationError] -> ShowS
+TxTotalCollateralValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxTotalCollateralValidationError] -> ShowS
+$cshowList :: [TxTotalCollateralValidationError] -> ShowS
+show :: TxTotalCollateralValidationError -> String
+$cshow :: TxTotalCollateralValidationError -> String
+showsPrec :: Int -> TxTotalCollateralValidationError -> ShowS
+$cshowsPrec :: Int -> TxTotalCollateralValidationError -> ShowS
+Show
+
+instance Error TxTotalCollateralValidationError where
+  displayError :: TxTotalCollateralValidationError -> String
+displayError (TxTotalCollateralNotSupported AnyCardanoEra
+era) =
+    String
+"Transaction collateral not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+
+validateTxTotalCollateral :: CardanoEra era
+                          -> Maybe Lovelace
+                          -> Either TxTotalCollateralValidationError (TxTotalCollateral era)
+validateTxTotalCollateral :: forall era.
+CardanoEra era
+-> Maybe Lovelace
+-> Either TxTotalCollateralValidationError (TxTotalCollateral era)
+validateTxTotalCollateral CardanoEra era
+_ Maybe Lovelace
+Nothing = forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. TxTotalCollateral era
+TxTotalCollateralNone
+validateTxTotalCollateral CardanoEra era
+era (Just Lovelace
+coll) = do
+  BabbageEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxTotalCollateralValidationError
+TxTotalCollateralNotSupported
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+BabbageEraOnwards era -> Lovelace -> TxTotalCollateral era
+TxTotalCollateral BabbageEraOnwards era
+supported Lovelace
+coll
+
+newtype TxReturnCollateralValidationError
+  = TxReturnCollateralNotSupported AnyCardanoEra
+  deriving Int -> TxReturnCollateralValidationError -> ShowS
+[TxReturnCollateralValidationError] -> ShowS
+TxReturnCollateralValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxReturnCollateralValidationError] -> ShowS
+$cshowList :: [TxReturnCollateralValidationError] -> ShowS
+show :: TxReturnCollateralValidationError -> String
+$cshow :: TxReturnCollateralValidationError -> String
+showsPrec :: Int -> TxReturnCollateralValidationError -> ShowS
+$cshowsPrec :: Int -> TxReturnCollateralValidationError -> ShowS
+Show
+
+instance Error TxReturnCollateralValidationError where
+  displayError :: TxReturnCollateralValidationError -> String
+displayError (TxReturnCollateralNotSupported AnyCardanoEra
+era) =
+    String
+"Transaction return collateral not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+
+validateTxReturnCollateral :: CardanoEra era
+                           -> Maybe (TxOut CtxTx era)
+                           -> Either TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)
+validateTxReturnCollateral :: forall era.
+CardanoEra era
+-> Maybe (TxOut CtxTx era)
+-> Either
+     TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)
+validateTxReturnCollateral CardanoEra era
+_ Maybe (TxOut CtxTx era)
+Nothing = forall (m :: * -> *) a. Monad m => a -> m a
+return forall ctx era. TxReturnCollateral ctx era
+TxReturnCollateralNone
+validateTxReturnCollateral CardanoEra era
+era (Just TxOut CtxTx era
+retColTxOut) = do
+  BabbageEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxReturnCollateralValidationError
+TxReturnCollateralNotSupported
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era ctx.
+BabbageEraOnwards era
+-> TxOut ctx era -> TxReturnCollateral ctx era
+TxReturnCollateral BabbageEraOnwards era
+supported TxOut CtxTx era
+retColTxOut
+
+newtype TxValidityLowerBoundValidationError
+  = TxValidityLowerBoundNotSupported AnyCardanoEra
+  deriving Int -> TxValidityLowerBoundValidationError -> ShowS
+[TxValidityLowerBoundValidationError] -> ShowS
+TxValidityLowerBoundValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxValidityLowerBoundValidationError] -> ShowS
+$cshowList :: [TxValidityLowerBoundValidationError] -> ShowS
+show :: TxValidityLowerBoundValidationError -> String
+$cshow :: TxValidityLowerBoundValidationError -> String
+showsPrec :: Int -> TxValidityLowerBoundValidationError -> ShowS
+$cshowsPrec :: Int -> TxValidityLowerBoundValidationError -> ShowS
+Show
+
+instance Error TxValidityLowerBoundValidationError where
+  displayError :: TxValidityLowerBoundValidationError -> String
+displayError (TxValidityLowerBoundNotSupported AnyCardanoEra
+era) =
+    String
+"Transaction validity lower bound not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+
+
+validateTxValidityLowerBound :: CardanoEra era
+                             -> Maybe SlotNo
+                             -> Either TxValidityLowerBoundValidationError (TxValidityLowerBound era)
+validateTxValidityLowerBound :: forall era.
+CardanoEra era
+-> Maybe SlotNo
+-> Either
+     TxValidityLowerBoundValidationError (TxValidityLowerBound era)
+validateTxValidityLowerBound CardanoEra era
+_ Maybe SlotNo
+Nothing = forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. TxValidityLowerBound era
+TxValidityNoLowerBound
+validateTxValidityLowerBound CardanoEra era
+era (Just SlotNo
+slot) = do
+  AllegraEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxValidityLowerBoundValidationError
+TxValidityLowerBoundNotSupported
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+AllegraEraOnwards era -> SlotNo -> TxValidityLowerBound era
+TxValidityLowerBound AllegraEraOnwards era
+supported SlotNo
+slot
+
+newtype TxValidityUpperBoundValidationError
+  = TxValidityUpperBoundNotSupported AnyCardanoEra
+  deriving Int -> TxValidityUpperBoundValidationError -> ShowS
+[TxValidityUpperBoundValidationError] -> ShowS
+TxValidityUpperBoundValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxValidityUpperBoundValidationError] -> ShowS
+$cshowList :: [TxValidityUpperBoundValidationError] -> ShowS
+show :: TxValidityUpperBoundValidationError -> String
+$cshow :: TxValidityUpperBoundValidationError -> String
+showsPrec :: Int -> TxValidityUpperBoundValidationError -> ShowS
+$cshowsPrec :: Int -> TxValidityUpperBoundValidationError -> ShowS
+Show
+
+instance Error TxValidityUpperBoundValidationError where
+  displayError :: TxValidityUpperBoundValidationError -> String
+displayError (TxValidityUpperBoundNotSupported AnyCardanoEra
+era) =
+    String
+"Transaction validity upper bound must be specified in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+
+validateTxValidityUpperBound
+  :: CardanoEra era
+  -> Maybe SlotNo
+  -> Either TxValidityUpperBoundValidationError (TxValidityUpperBound era)
+validateTxValidityUpperBound :: forall era.
+CardanoEra era
+-> Maybe SlotNo
+-> Either
+     TxValidityUpperBoundValidationError (TxValidityUpperBound era)
+validateTxValidityUpperBound CardanoEra era
+era = \case
+  Just SlotNo
+slot -> do
+    ShelleyBasedEra era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxValidityUpperBoundValidationError
+TxValidityUpperBoundNotSupported
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+ShelleyBasedEra era -> Maybe SlotNo -> TxValidityUpperBound era
+TxValidityUpperBound ShelleyBasedEra era
+supported (forall a. a -> Maybe a
+Just SlotNo
+slot)
+  Maybe SlotNo
+Nothing -> do
+    ByronEraOnly era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxValidityUpperBoundValidationError
+TxValidityUpperBoundNotSupported
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era. ByronEraOnly era -> TxValidityUpperBound era
+TxValidityNoUpperBound ByronEraOnly era
+supported
+
+data TxAuxScriptsValidationError
+  = TxAuxScriptsNotSupportedInEra AnyCardanoEra
+  | TxAuxScriptsLanguageError ScriptLanguageValidationError
+  deriving Int -> TxAuxScriptsValidationError -> ShowS
+[TxAuxScriptsValidationError] -> ShowS
+TxAuxScriptsValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxAuxScriptsValidationError] -> ShowS
+$cshowList :: [TxAuxScriptsValidationError] -> ShowS
+show :: TxAuxScriptsValidationError -> String
+$cshow :: TxAuxScriptsValidationError -> String
+showsPrec :: Int -> TxAuxScriptsValidationError -> ShowS
+$cshowsPrec :: Int -> TxAuxScriptsValidationError -> ShowS
+Show
+
+instance Error TxAuxScriptsValidationError where
+  displayError :: TxAuxScriptsValidationError -> String
+displayError (TxAuxScriptsNotSupportedInEra AnyCardanoEra
+era) =
+    String
+"Transaction auxiliary scripts are not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+era)
+  displayError (TxAuxScriptsLanguageError ScriptLanguageValidationError
+e) =
+    String
+"Transaction auxiliary scripts error: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError ScriptLanguageValidationError
+e
+
+validateTxAuxScripts
+  :: CardanoEra era
+  -> [ScriptInAnyLang]
+  -> Either TxAuxScriptsValidationError (TxAuxScripts era)
+validateTxAuxScripts :: forall era.
+CardanoEra era
+-> [ScriptInAnyLang]
+-> Either TxAuxScriptsValidationError (TxAuxScripts era)
+validateTxAuxScripts CardanoEra era
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. TxAuxScripts era
+TxAuxScriptsNone
+validateTxAuxScripts CardanoEra era
+era [ScriptInAnyLang]
+scripts = do
+  AllegraEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxAuxScriptsValidationError
+TxAuxScriptsNotSupportedInEra
+  [ScriptInEra era]
+scriptsInEra <- forall (t :: * -> *) (m :: * -> *) a b.
+(Traversable t, Monad m) =>
+(a -> m b) -> t a -> m (t b)
+mapM (forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first ScriptLanguageValidationError -> TxAuxScriptsValidationError
+TxAuxScriptsLanguageError forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall era.
+CardanoEra era
+-> ScriptInAnyLang
+-> Either ScriptLanguageValidationError (ScriptInEra era)
+validateScriptSupportedInEra CardanoEra era
+era) [ScriptInAnyLang]
+scripts
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+AllegraEraOnwards era -> [ScriptInEra era] -> TxAuxScripts era
+TxAuxScripts AllegraEraOnwards era
+supported [ScriptInEra era]
+scriptsInEra
+
+newtype TxRequiredSignersValidationError
+  = TxRequiredSignersValidationError AnyCardanoEra
+  deriving Int -> TxRequiredSignersValidationError -> ShowS
+[TxRequiredSignersValidationError] -> ShowS
+TxRequiredSignersValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxRequiredSignersValidationError] -> ShowS
+$cshowList :: [TxRequiredSignersValidationError] -> ShowS
+show :: TxRequiredSignersValidationError -> String
+$cshow :: TxRequiredSignersValidationError -> String
+showsPrec :: Int -> TxRequiredSignersValidationError -> ShowS
+$cshowsPrec :: Int -> TxRequiredSignersValidationError -> ShowS
+Show
+
+instance Error TxRequiredSignersValidationError where
+  displayError :: TxRequiredSignersValidationError -> String
+displayError (TxRequiredSignersValidationError AnyCardanoEra
+e) =
+    String
+"Transaction required signers are not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+validateRequiredSigners
+  :: CardanoEra era
+  -> [Hash PaymentKey]
+  -> Either TxRequiredSignersValidationError (TxExtraKeyWitnesses era)
+validateRequiredSigners :: forall era.
+CardanoEra era
+-> [Hash PaymentKey]
+-> Either
+     TxRequiredSignersValidationError (TxExtraKeyWitnesses era)
+validateRequiredSigners CardanoEra era
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall era. TxExtraKeyWitnesses era
+TxExtraKeyWitnessesNone
+validateRequiredSigners CardanoEra era
+era [Hash PaymentKey]
+reqSigs = do
+  AlonzoEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxRequiredSignersValidationError
+TxRequiredSignersValidationError
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+AlonzoEraOnwards era
+-> [Hash PaymentKey] -> TxExtraKeyWitnesses era
+TxExtraKeyWitnesses AlonzoEraOnwards era
+supported [Hash PaymentKey]
+reqSigs
+
+newtype TxWithdrawalsValidationError
+  = TxWithdrawalsNotSupported AnyCardanoEra
+  deriving Int -> TxWithdrawalsValidationError -> ShowS
+[TxWithdrawalsValidationError] -> ShowS
+TxWithdrawalsValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxWithdrawalsValidationError] -> ShowS
+$cshowList :: [TxWithdrawalsValidationError] -> ShowS
+show :: TxWithdrawalsValidationError -> String
+$cshow :: TxWithdrawalsValidationError -> String
+showsPrec :: Int -> TxWithdrawalsValidationError -> ShowS
+$cshowsPrec :: Int -> TxWithdrawalsValidationError -> ShowS
+Show
+
+instance Error TxWithdrawalsValidationError where
+  displayError :: TxWithdrawalsValidationError -> String
+displayError (TxWithdrawalsNotSupported AnyCardanoEra
+e) =
+    String
+"Transaction withdrawals are not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+validateTxWithdrawals
+  :: forall era.
+     CardanoEra era
+  -> [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+  -> Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)
+validateTxWithdrawals :: forall era.
+CardanoEra era
+-> [(StakeAddress, Lovelace,
+     Maybe (ScriptWitness WitCtxStake era))]
+-> Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)
+validateTxWithdrawals CardanoEra era
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall build era. TxWithdrawals build era
+TxWithdrawalsNone
+validateTxWithdrawals CardanoEra era
+era [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals = do
+  ShelleyBasedEra era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxWithdrawalsValidationError
+TxWithdrawalsNotSupported
+  let convWithdrawals :: [(StakeAddress, Lovelace,
+  BuildTxWith BuildTx (Witness WitCtxStake era))]
+convWithdrawals = forall a b. (a -> b) -> [a] -> [b]
+map (StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))
+-> (StakeAddress, Lovelace,
+    BuildTxWith BuildTx (Witness WitCtxStake era))
+convert [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))]
+withdrawals
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era build.
+ShelleyBasedEra era
+-> [(StakeAddress, Lovelace,
+     BuildTxWith build (Witness WitCtxStake era))]
+-> TxWithdrawals build era
+TxWithdrawals ShelleyBasedEra era
+supported [(StakeAddress, Lovelace,
+  BuildTxWith BuildTx (Witness WitCtxStake era))]
+convWithdrawals
+ where
+  convert
+    :: (StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))
+    -> (StakeAddress, Lovelace, BuildTxWith BuildTx (Witness WitCtxStake era))
+  convert :: (StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))
+-> (StakeAddress, Lovelace,
+    BuildTxWith BuildTx (Witness WitCtxStake era))
+convert (StakeAddress
+sAddr, Lovelace
+ll, Maybe (ScriptWitness WitCtxStake era)
+mScriptWitnessFiles) =
+    case Maybe (ScriptWitness WitCtxStake era)
+mScriptWitnessFiles of
+      Just ScriptWitness WitCtxStake era
+sWit -> do
+        (StakeAddress
+sAddr, Lovelace
+ll, forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a b. (a -> b) -> a -> b
+$ forall witctx era.
+ScriptWitnessInCtx witctx
+-> ScriptWitness witctx era -> Witness witctx era
+ScriptWitness ScriptWitnessInCtx WitCtxStake
+ScriptWitnessForStakeAddr ScriptWitness WitCtxStake era
+sWit)
+      Maybe (ScriptWitness WitCtxStake era)
+Nothing -> (StakeAddress
+sAddr,Lovelace
+ll, forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a b. (a -> b) -> a -> b
+$ forall witctx era. KeyWitnessInCtx witctx -> Witness witctx era
+KeyWitness KeyWitnessInCtx WitCtxStake
+KeyWitnessForStakeAddr)
+
+newtype TxCertificatesValidationError
+  = TxCertificatesValidationNotSupported AnyCardanoEra
+  deriving Int -> TxCertificatesValidationError -> ShowS
+[TxCertificatesValidationError] -> ShowS
+TxCertificatesValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxCertificatesValidationError] -> ShowS
+$cshowList :: [TxCertificatesValidationError] -> ShowS
+show :: TxCertificatesValidationError -> String
+$cshow :: TxCertificatesValidationError -> String
+showsPrec :: Int -> TxCertificatesValidationError -> ShowS
+$cshowsPrec :: Int -> TxCertificatesValidationError -> ShowS
+Show
+
+instance Error TxCertificatesValidationError where
+  displayError :: TxCertificatesValidationError -> String
+displayError (TxCertificatesValidationNotSupported AnyCardanoEra
+e) =
+    String
+"Transaction certificates are not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+validateTxCertificates
+  :: forall era.
+     CardanoEra era
+  -> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+  -> Either TxCertificatesValidationError (TxCertificates BuildTx era)
+validateTxCertificates :: forall era.
+CardanoEra era
+-> [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+-> Either
+     TxCertificatesValidationError (TxCertificates BuildTx era)
+validateTxCertificates CardanoEra era
+_ [] = forall (m :: * -> *) a. Monad m => a -> m a
+return forall build era. TxCertificates build era
+TxCertificatesNone
+validateTxCertificates CardanoEra era
+era [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndScriptWitnesses = forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ do
+  ShelleyBasedEra era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxCertificatesValidationError
+TxCertificatesValidationNotSupported
+  let certs :: [Certificate era]
+certs = forall a b. (a -> b) -> [a] -> [b]
+map forall a b. (a, b) -> a
+fst [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndScriptWitnesses
+      reqWits :: Map StakeCredential (Witness WitCtxStake era)
+reqWits = forall k a. Ord k => [(k, a)] -> Map k a
+Map.fromList forall a b. (a -> b) -> a -> b
+$ forall a b. (a -> Maybe b) -> [a] -> [b]
+mapMaybe (Certificate era, Maybe (ScriptWitness WitCtxStake era))
+-> Maybe (StakeCredential, Witness WitCtxStake era)
+convert [(Certificate era, Maybe (ScriptWitness WitCtxStake era))]
+certsAndScriptWitnesses
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era build.
+ShelleyBasedEra era
+-> [Certificate era]
+-> BuildTxWith
+     build (Map StakeCredential (Witness WitCtxStake era))
+-> TxCertificates build era
+TxCertificates ShelleyBasedEra era
+supported [Certificate era]
+certs forall a b. (a -> b) -> a -> b
+$ forall a. a -> BuildTxWith BuildTx a
+BuildTxWith Map StakeCredential (Witness WitCtxStake era)
+reqWits
+  where
+    -- We get the stake credential witness for a certificate that requires it.
+    -- NB: Only stake address deregistration and delegation requires
+    -- witnessing (witness can be script or key)
+    deriveStakeCredentialWitness
+      :: Certificate era
+      -> Maybe StakeCredential
+    deriveStakeCredentialWitness :: Certificate era -> Maybe StakeCredential
+deriveStakeCredentialWitness = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+fmap StakeCredential StandardCrypto -> StakeCredential
+fromShelleyStakeCredential forall b c a. (b -> c) -> (a -> b) -> a -> c
+. \case
+      ShelleyRelatedCertificate ShelleyToBabbageEra era
+stbEra ShelleyTxCert (ShelleyLedgerEra era)
+shelleyCert -> forall era a.
+ShelleyToBabbageEra era
+-> (ShelleyToBabbageEraConstraints era => a) -> a
+shelleyToBabbageEraConstraints ShelleyToBabbageEra era
+stbEra forall a b. (a -> b) -> a -> b
+$
+        case ShelleyTxCert (ShelleyLedgerEra era)
+shelleyCert of
+          L.RegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+_sCred         -> forall a. Maybe a
+Nothing -- not required
+          L.UnRegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred        -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.DelegStakeTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+_ -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.RegPoolTxCert PoolParams (EraCrypto (ShelleyLedgerEra era))
+_          -> forall a. Maybe a
+Nothing
+          L.RetirePoolTxCert KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+_ EpochNo
+_     -> forall a. Maybe a
+Nothing
+          L.MirTxCert MIRCert (EraCrypto (ShelleyLedgerEra era))
+_              -> forall a. Maybe a
+Nothing
+          L.GenesisDelegTxCert{}     -> forall a. Maybe a
+Nothing
+
+      ConwayCertificate ConwayEraOnwards era
+cEra ConwayTxCert (ShelleyLedgerEra era)
+conwayCert -> forall era a.
+ConwayEraOnwards era -> (ConwayEraOnwardsConstraints era => a) -> a
+conwayEraOnwardsConstraints ConwayEraOnwards era
+cEra forall a b. (a -> b) -> a -> b
+$
+        case ConwayTxCert (ShelleyLedgerEra era)
+conwayCert of
+          L.RegPoolTxCert PoolParams (EraCrypto (ShelleyLedgerEra era))
+_                 -> forall a. Maybe a
+Nothing
+          L.RetirePoolTxCert KeyHash 'StakePool (EraCrypto (ShelleyLedgerEra era))
+_ EpochNo
+_            -> forall a. Maybe a
+Nothing
+          L.RegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+_                     -> forall a. Maybe a
+Nothing
+          L.UnRegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred               -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.RegDepositTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+_ Coin
+_            -> forall a. Maybe a
+Nothing
+          L.UnRegDepositTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred Coin
+_      -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.DelegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred Delegatee (EraCrypto (ShelleyLedgerEra era))
+_             -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.RegDepositDelegTxCert StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred Delegatee (EraCrypto (ShelleyLedgerEra era))
+_ Coin
+_ -> forall a. a -> Maybe a
+Just StakeCredential (EraCrypto (ShelleyLedgerEra era))
+sCred
+          L.AuthCommitteeHotKeyTxCert{}     -> forall a. Maybe a
+Nothing
+          L.ResignCommitteeColdTxCert Credential 'ColdCommitteeRole (EraCrypto (ShelleyLedgerEra era))
+_ StrictMaybe (Anchor (EraCrypto (ShelleyLedgerEra era)))
+_     -> forall a. Maybe a
+Nothing
+          L.RegDRepTxCert{}                 -> forall a. Maybe a
+Nothing
+          L.UnRegDRepTxCert{}               -> forall a. Maybe a
+Nothing
+          L.UpdateDRepTxCert{}              -> forall a. Maybe a
+Nothing
+
+    convert
+      :: (Certificate era, Maybe (ScriptWitness WitCtxStake era))
+      -> Maybe (StakeCredential, Witness WitCtxStake era)
+    convert :: (Certificate era, Maybe (ScriptWitness WitCtxStake era))
+-> Maybe (StakeCredential, Witness WitCtxStake era)
+convert (Certificate era
+cert, Maybe (ScriptWitness WitCtxStake era)
+mScriptWitnessFiles) = do
+      StakeCredential
+sCred <- Certificate era -> Maybe StakeCredential
+deriveStakeCredentialWitness Certificate era
+cert
+      case Maybe (ScriptWitness WitCtxStake era)
+mScriptWitnessFiles of
+        Just ScriptWitness WitCtxStake era
+sWit -> do
+          forall a. a -> Maybe a
+Just ( StakeCredential
+sCred
+               , forall witctx era.
+ScriptWitnessInCtx witctx
+-> ScriptWitness witctx era -> Witness witctx era
+ScriptWitness ScriptWitnessInCtx WitCtxStake
+ScriptWitnessForStakeAddr ScriptWitness WitCtxStake era
+sWit
+               )
+        Maybe (ScriptWitness WitCtxStake era)
+Nothing -> forall a. a -> Maybe a
+Just (StakeCredential
+sCred, forall witctx era. KeyWitnessInCtx witctx -> Witness witctx era
+KeyWitness KeyWitnessInCtx WitCtxStake
+KeyWitnessForStakeAddr)
+
+newtype TxProtocolParametersValidationError
+  = ProtocolParametersNotSupported AnyCardanoEra
+  deriving Int -> TxProtocolParametersValidationError -> ShowS
+[TxProtocolParametersValidationError] -> ShowS
+TxProtocolParametersValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxProtocolParametersValidationError] -> ShowS
+$cshowList :: [TxProtocolParametersValidationError] -> ShowS
+show :: TxProtocolParametersValidationError -> String
+$cshow :: TxProtocolParametersValidationError -> String
+showsPrec :: Int -> TxProtocolParametersValidationError -> ShowS
+$cshowsPrec :: Int -> TxProtocolParametersValidationError -> ShowS
+Show
+
+instance Error TxProtocolParametersValidationError where
+  displayError :: TxProtocolParametersValidationError -> String
+displayError (ProtocolParametersNotSupported AnyCardanoEra
+e) =
+    String
+"Transaction protocol parameters are not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+validateProtocolParameters
+  :: CardanoEra era
+  -> Maybe (LedgerProtocolParameters era)
+  -> Either TxProtocolParametersValidationError (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))
+validateProtocolParameters :: forall era.
+CardanoEra era
+-> Maybe (LedgerProtocolParameters era)
+-> Either
+     TxProtocolParametersValidationError
+     (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))
+validateProtocolParameters CardanoEra era
+_ Maybe (LedgerProtocolParameters era)
+Nothing = forall (m :: * -> *) a. Monad m => a -> m a
+return (forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a. Maybe a
+Nothing)
+validateProtocolParameters CardanoEra era
+era (Just LedgerProtocolParameters era
+pparams) = do
+  ShelleyBasedEra era
+_ <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness @ShelleyBasedEra CardanoEra era
+era AnyCardanoEra -> TxProtocolParametersValidationError
+ProtocolParametersNotSupported
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall a. a -> BuildTxWith BuildTx a
+BuildTxWith forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just LedgerProtocolParameters era
+pparams
+
+newtype TxUpdateProposalValidationError
+  = TxUpdateProposalNotSupported AnyCardanoEra
+  deriving Int -> TxUpdateProposalValidationError -> ShowS
+[TxUpdateProposalValidationError] -> ShowS
+TxUpdateProposalValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxUpdateProposalValidationError] -> ShowS
+$cshowList :: [TxUpdateProposalValidationError] -> ShowS
+show :: TxUpdateProposalValidationError -> String
+$cshow :: TxUpdateProposalValidationError -> String
+showsPrec :: Int -> TxUpdateProposalValidationError -> ShowS
+$cshowsPrec :: Int -> TxUpdateProposalValidationError -> ShowS
+Show
+
+instance Error TxUpdateProposalValidationError where
+  displayError :: TxUpdateProposalValidationError -> String
+displayError (TxUpdateProposalNotSupported AnyCardanoEra
+e) =
+    String
+"Transaction update proposal is not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+newtype TxScriptValidityValidationError
+  = ScriptValidityNotSupported AnyCardanoEra
+  deriving Int -> TxScriptValidityValidationError -> ShowS
+[TxScriptValidityValidationError] -> ShowS
+TxScriptValidityValidationError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxScriptValidityValidationError] -> ShowS
+$cshowList :: [TxScriptValidityValidationError] -> ShowS
+show :: TxScriptValidityValidationError -> String
+$cshow :: TxScriptValidityValidationError -> String
+showsPrec :: Int -> TxScriptValidityValidationError -> ShowS
+$cshowsPrec :: Int -> TxScriptValidityValidationError -> ShowS
+Show
+
+instance Error TxScriptValidityValidationError where
+  displayError :: TxScriptValidityValidationError -> String
+displayError (ScriptValidityNotSupported AnyCardanoEra
+e) =
+    String
+"Transaction script validity is not supported in " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (AnyCardanoEra -> Text
+renderEra AnyCardanoEra
+e)
+
+validateTxScriptValidity
+  :: CardanoEra era
+  -> Maybe ScriptValidity
+  -> Either TxScriptValidityValidationError (TxScriptValidity era)
+validateTxScriptValidity :: forall era.
+CardanoEra era
+-> Maybe ScriptValidity
+-> Either TxScriptValidityValidationError (TxScriptValidity era)
+validateTxScriptValidity CardanoEra era
+_ Maybe ScriptValidity
+Nothing = forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall era. TxScriptValidity era
+TxScriptValidityNone
+validateTxScriptValidity CardanoEra era
+era (Just ScriptValidity
+scriptValidity) = do
+  AlonzoEraOnwards era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxScriptValidityValidationError
+ScriptValidityNotSupported
+  forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall era.
+AlonzoEraOnwards era -> ScriptValidity -> TxScriptValidity era
+TxScriptValidity AlonzoEraOnwards era
+supported ScriptValidity
+scriptValidity
+
+-- TODO legacy. This can be deleted when legacy commands are removed.
+validateUpdateProposalFile
+  :: CardanoEra era
+  -> Maybe UpdateProposalFile
+  -> Either TxUpdateProposalValidationError (Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+validateUpdateProposalFile :: forall era.
+CardanoEra era
+-> Maybe UpdateProposalFile
+-> Either
+     TxUpdateProposalValidationError
+     (Maybe
+        (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))
+validateUpdateProposalFile CardanoEra era
+era = \case
+  Maybe UpdateProposalFile
+Nothing -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a. Maybe a
+Nothing
+  Just UpdateProposalFile
+updateProposal -> do
+    ShelleyToBabbageEra era
+supported <- forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> TxUpdateProposalValidationError
+TxUpdateProposalNotSupported
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$ forall (eon :: * -> *) era a. eon era -> a -> Featured eon era a
+Featured ShelleyToBabbageEra era
+supported forall a b. (a -> b) -> a -> b
+$ forall a. a -> Maybe a
+Just UpdateProposalFile
+updateProposal
+
+conjureWitness :: Eon eon
+               => CardanoEra era -- ^ era to try to conjure eon from
+               -> (AnyCardanoEra -> e)  -- ^ error wrapper function
+               -> Either e (eon era) -- ^ eon if it includes the era, an error otherwise
+conjureWitness :: forall (eon :: * -> *) era e.
+Eon eon =>
+CardanoEra era -> (AnyCardanoEra -> e) -> Either e (eon era)
+conjureWitness CardanoEra era
+era AnyCardanoEra -> e
+errF =
+  forall b a. b -> (a -> b) -> Maybe a -> b
+maybe (forall era a.
+CardanoEra era -> (CardanoEraConstraints era => a) -> a
+cardanoEraConstraints CardanoEra era
+era forall a b. (a -> b) -> a -> b
+$ forall a b. a -> Either a b
+Left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. AnyCardanoEra -> e
+errF forall a b. (a -> b) -> a -> b
+$ forall era. Typeable era => CardanoEra era -> AnyCardanoEra
+AnyCardanoEra CardanoEra era
+era) forall a b. b -> Either a b
+Right forall a b. (a -> b) -> a -> b
+$
+    forall (eon :: * -> *) era.
+Eon eon =>
+CardanoEra era -> Maybe (eon era)
+forEraMaybeEon CardanoEra era
+era
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Governance.html b/cardano-cli/lib/src/Cardano.CLI.Types.Governance.html new file mode 100644 index 0000000000..53d3dcae4c --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Governance.html @@ -0,0 +1,95 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+
+module Cardano.CLI.Types.Governance where
+
+import           Cardano.Api
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Key (DRepHashSource, VerificationKeyOrFile,
+                   VerificationKeyOrHashOrFile)
+
+import           Data.Word
+
+type VoteFile = File ConwayVote
+
+data ConwayVote
+  = ConwayVote
+    { ConwayVote -> Vote
+cvVoteChoice :: Vote
+    , ConwayVote -> VType
+cvVoterType :: VType
+    , ConwayVote -> (TxId, Word32)
+cvGovActionId :: (TxId, Word32)
+    , ConwayVote -> VerificationKeyOrFile StakePoolKey
+cvVotingStakeCredential :: VerificationKeyOrFile StakePoolKey
+    , ConwayVote -> AnyShelleyBasedEra
+cvEra :: AnyShelleyBasedEra
+    , ConwayVote -> VoteFile 'Out
+cvFilepath :: VoteFile Out
+    } deriving Int -> ConwayVote -> ShowS
+[ConwayVote] -> ShowS
+ConwayVote -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ConwayVote] -> ShowS
+$cshowList :: [ConwayVote] -> ShowS
+show :: ConwayVote -> String
+$cshow :: ConwayVote -> String
+showsPrec :: Int -> ConwayVote -> ShowS
+$cshowsPrec :: Int -> ConwayVote -> ShowS
+Show
+
+-- Vote type -- TODO: Conway era - remove me
+data VType = VCC -- committee
+           | VDR -- drep
+           | VSP -- spo
+           deriving Int -> VType -> ShowS
+[VType] -> ShowS
+VType -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VType] -> ShowS
+$cshowList :: [VType] -> ShowS
+show :: VType -> String
+$cshow :: VType -> String
+showsPrec :: Int -> VType -> ShowS
+$cshowsPrec :: Int -> VType -> ShowS
+Show
+
+data AnyVotingStakeVerificationKeyOrHashOrFile where
+  AnyDRepVerificationKeyOrHashOrFile
+    :: VerificationKeyOrHashOrFile DRepKey
+    -> AnyVotingStakeVerificationKeyOrHashOrFile
+
+  AnyStakePoolVerificationKeyOrHashOrFile
+    :: VerificationKeyOrHashOrFile StakePoolKey
+    -> AnyVotingStakeVerificationKeyOrHashOrFile
+
+  AnyCommitteeHotVerificationKeyOrHashOrFile
+    :: VerificationKeyOrHashOrFile CommitteeHotKey
+    -> AnyVotingStakeVerificationKeyOrHashOrFile
+
+data VoteDelegationTarget
+  = VoteDelegationTargetOfDRep DRepHashSource
+  | VoteDelegationTargetOfAbstain
+  | VoteDelegationTargetOfNoConfidence
+  deriving (VoteDelegationTarget -> VoteDelegationTarget -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: VoteDelegationTarget -> VoteDelegationTarget -> Bool
+$c/= :: VoteDelegationTarget -> VoteDelegationTarget -> Bool
+== :: VoteDelegationTarget -> VoteDelegationTarget -> Bool
+$c== :: VoteDelegationTarget -> VoteDelegationTarget -> Bool
+Eq, Int -> VoteDelegationTarget -> ShowS
+[VoteDelegationTarget] -> ShowS
+VoteDelegationTarget -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VoteDelegationTarget] -> ShowS
+$cshowList :: [VoteDelegationTarget] -> ShowS
+show :: VoteDelegationTarget -> String
+$cshow :: VoteDelegationTarget -> String
+showsPrec :: Int -> VoteDelegationTarget -> ShowS
+$cshowsPrec :: Int -> VoteDelegationTarget -> ShowS
+Show)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Key.VerificationKey.html b/cardano-cli/lib/src/Cardano.CLI.Types.Key.VerificationKey.html new file mode 100644 index 0000000000..48dc6af3dd --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Key.VerificationKey.html @@ -0,0 +1,59 @@ +
{-# LANGUAGE DataKinds #-}
+
+module Cardano.CLI.Types.Key.VerificationKey
+  ( AnyVerificationKeySource(..)
+  , AnyVerificationKeyText(..)
+  ) where
+
+import           Cardano.Api
+
+import           Data.Text (Text)
+
+-- | A bech32 text encoded verification key of an unspecified key role.
+newtype AnyVerificationKeyText = AnyVerificationKeyText
+  { AnyVerificationKeyText -> Text
+unAnyVerificationKeyText :: Text
+  }
+  deriving (AnyVerificationKeyText -> AnyVerificationKeyText -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: AnyVerificationKeyText -> AnyVerificationKeyText -> Bool
+$c/= :: AnyVerificationKeyText -> AnyVerificationKeyText -> Bool
+== :: AnyVerificationKeyText -> AnyVerificationKeyText -> Bool
+$c== :: AnyVerificationKeyText -> AnyVerificationKeyText -> Bool
+Eq, Int -> AnyVerificationKeyText -> ShowS
+[AnyVerificationKeyText] -> ShowS
+AnyVerificationKeyText -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AnyVerificationKeyText] -> ShowS
+$cshowList :: [AnyVerificationKeyText] -> ShowS
+show :: AnyVerificationKeyText -> String
+$cshow :: AnyVerificationKeyText -> String
+showsPrec :: Int -> AnyVerificationKeyText -> ShowS
+$cshowsPrec :: Int -> AnyVerificationKeyText -> ShowS
+Show)
+
+-- | The source from which a verification key of an unspecified key role can be
+-- derived.
+data AnyVerificationKeySource
+  = AnyVerificationKeySourceOfText !AnyVerificationKeyText
+  | AnyVerificationKeySourceOfFile !(File (VerificationKey ()) In)
+  deriving (AnyVerificationKeySource -> AnyVerificationKeySource -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: AnyVerificationKeySource -> AnyVerificationKeySource -> Bool
+$c/= :: AnyVerificationKeySource -> AnyVerificationKeySource -> Bool
+== :: AnyVerificationKeySource -> AnyVerificationKeySource -> Bool
+$c== :: AnyVerificationKeySource -> AnyVerificationKeySource -> Bool
+Eq, Int -> AnyVerificationKeySource -> ShowS
+[AnyVerificationKeySource] -> ShowS
+AnyVerificationKeySource -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [AnyVerificationKeySource] -> ShowS
+$cshowList :: [AnyVerificationKeySource] -> ShowS
+show :: AnyVerificationKeySource -> String
+$cshow :: AnyVerificationKeySource -> String
+showsPrec :: Int -> AnyVerificationKeySource -> ShowS
+$cshowsPrec :: Int -> AnyVerificationKeySource -> ShowS
+Show)
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Key.html b/cardano-cli/lib/src/Cardano.CLI.Types.Key.html new file mode 100644 index 0000000000..c7b44947b1 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Key.html @@ -0,0 +1,954 @@ +
{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE UndecidableInstances #-}
+
+-- | Shelley CLI option data types and functions for cryptographic keys.
+module Cardano.CLI.Types.Key
+  ( VerificationKeyOrFile (..)
+  , readVerificationKeyOrFile
+  , readVerificationKeyOrTextEnvFile
+
+  , VerificationKeyTextOrFile (..)
+  , VerificationKeyTextOrFileError (..)
+  , readVerificationKeyTextOrFileAnyOf
+  , renderVerificationKeyTextOrFileError
+
+  , VerificationKeyOrHashOrFile (..)
+  , readVerificationKeyOrHashOrFile
+  , readVerificationKeyOrHashOrTextEnvFile
+
+  , PaymentVerifier(..)
+  , StakeIdentifier(..)
+  , StakeVerifier(..)
+
+  , generateKeyPair
+
+  --- Legacy
+  , StakePoolRegistrationParserRequirements(..)
+
+  -- NewEraBased
+  , AnyDelegationTarget(..)
+  , StakeTarget (..)
+
+  , ColdVerificationKeyOrFile(..)
+
+  , DRepHashSource(..)
+
+  , readDRepCredential
+
+  , SomeSigningKey(..)
+  , withSomeSigningKey
+  , readSigningKeyFile
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as L
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.CLI.Types.Errors.DelegationError
+
+import           Control.Monad.Trans
+import           Control.Monad.Trans.Except
+import           Control.Monad.Trans.Except.Extra
+import           Data.Bifunctor (Bifunctor (..))
+import qualified Data.ByteString as BS
+import           Data.Function
+import qualified Data.List.NonEmpty as NE
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.Encoding as Text
+
+
+------------------------------------------------------------------------------
+-- Verification key deserialisation
+------------------------------------------------------------------------------
+
+-- | Either a verification key or path to a verification key file.
+data VerificationKeyOrFile keyrole
+  = VerificationKeyValue !(VerificationKey keyrole)
+  -- ^ A verification key.
+  | VerificationKeyFilePath !(VerificationKeyFile In)
+  -- ^ A path to a verification key file.
+  -- Note that this file hasn't been validated at all (whether it exists,
+  -- contains a key of the correct type, etc.)
+
+deriving instance Show (VerificationKey keyrole)
+  => Show (VerificationKeyOrFile keyrole)
+
+deriving instance Eq (VerificationKey keyrole)
+  => Eq (VerificationKeyOrFile keyrole)
+
+-- | Read a verification key or verification key file and return a
+-- verification key.
+--
+-- If a filepath is provided, the file can either be formatted as Bech32, hex,
+-- or text envelope.
+readVerificationKeyOrFile
+  :: ( HasTextEnvelope (VerificationKey keyrole)
+     , SerialiseAsBech32 (VerificationKey keyrole)
+     )
+  => AsType keyrole
+  -> VerificationKeyOrFile keyrole
+  -> IO (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile :: forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType keyrole
+asType VerificationKeyOrFile keyrole
+verKeyOrFile =
+  case VerificationKeyOrFile keyrole
+verKeyOrFile of
+    VerificationKeyValue VerificationKey keyrole
+vk -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a b. b -> Either a b
+Right VerificationKey keyrole
+vk)
+    VerificationKeyFilePath (File String
+fp) ->
+      forall a.
+AsType a
+-> NonEmpty (InputFormat a)
+-> String
+-> IO (Either (FileError InputDecodeError) a)
+readKeyFile
+        (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType keyrole
+asType)
+        (forall a. [a] -> NonEmpty a
+NE.fromList [forall a. SerialiseAsBech32 a => InputFormat a
+InputFormatBech32, forall a. SerialiseAsRawBytes a => InputFormat a
+InputFormatHex, forall a. HasTextEnvelope a => InputFormat a
+InputFormatTextEnvelope])
+        String
+fp
+
+-- | Read a verification key or verification key file and return a
+-- verification key.
+--
+-- If a filepath is provided, it will be interpreted as a text envelope
+-- formatted file.
+readVerificationKeyOrTextEnvFile
+  :: HasTextEnvelope (VerificationKey keyrole)
+  => AsType keyrole
+  -> VerificationKeyOrFile keyrole
+  -> IO (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrTextEnvFile :: forall keyrole.
+HasTextEnvelope (VerificationKey keyrole) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrTextEnvFile AsType keyrole
+asType VerificationKeyOrFile keyrole
+verKeyOrFile =
+  case VerificationKeyOrFile keyrole
+verKeyOrFile of
+    VerificationKeyValue VerificationKey keyrole
+vk -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a b. b -> Either a b
+Right VerificationKey keyrole
+vk)
+    VerificationKeyFilePath VerificationKeyFile 'In
+fp -> forall a content.
+HasTextEnvelope a =>
+AsType a
+-> File content 'In -> IO (Either (FileError InputDecodeError) a)
+readKeyFileTextEnvelope (forall a. AsType a -> AsType (VerificationKey a)
+AsVerificationKey AsType keyrole
+asType) VerificationKeyFile 'In
+fp
+
+data PaymentVerifier
+  = PaymentVerifierKey VerificationKeyTextOrFile
+  | PaymentVerifierScriptFile ScriptFile
+  deriving (PaymentVerifier -> PaymentVerifier -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: PaymentVerifier -> PaymentVerifier -> Bool
+$c/= :: PaymentVerifier -> PaymentVerifier -> Bool
+== :: PaymentVerifier -> PaymentVerifier -> Bool
+$c== :: PaymentVerifier -> PaymentVerifier -> Bool
+Eq, Int -> PaymentVerifier -> ShowS
+[PaymentVerifier] -> ShowS
+PaymentVerifier -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [PaymentVerifier] -> ShowS
+$cshowList :: [PaymentVerifier] -> ShowS
+show :: PaymentVerifier -> String
+$cshow :: PaymentVerifier -> String
+showsPrec :: Int -> PaymentVerifier -> ShowS
+$cshowsPrec :: Int -> PaymentVerifier -> ShowS
+Show)
+
+data StakeVerifier
+  = StakeVerifierKey (VerificationKeyOrFile StakeKey)
+  | StakeVerifierScriptFile ScriptFile
+  deriving (StakeVerifier -> StakeVerifier -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: StakeVerifier -> StakeVerifier -> Bool
+$c/= :: StakeVerifier -> StakeVerifier -> Bool
+== :: StakeVerifier -> StakeVerifier -> Bool
+$c== :: StakeVerifier -> StakeVerifier -> Bool
+Eq, Int -> StakeVerifier -> ShowS
+[StakeVerifier] -> ShowS
+StakeVerifier -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeVerifier] -> ShowS
+$cshowList :: [StakeVerifier] -> ShowS
+show :: StakeVerifier -> String
+$cshow :: StakeVerifier -> String
+showsPrec :: Int -> StakeVerifier -> ShowS
+$cshowsPrec :: Int -> StakeVerifier -> ShowS
+Show)
+
+data StakeIdentifier
+  = StakeIdentifierVerifier StakeVerifier
+  | StakeIdentifierAddress StakeAddress
+  deriving (StakeIdentifier -> StakeIdentifier -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: StakeIdentifier -> StakeIdentifier -> Bool
+$c/= :: StakeIdentifier -> StakeIdentifier -> Bool
+== :: StakeIdentifier -> StakeIdentifier -> Bool
+$c== :: StakeIdentifier -> StakeIdentifier -> Bool
+Eq, Int -> StakeIdentifier -> ShowS
+[StakeIdentifier] -> ShowS
+StakeIdentifier -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [StakeIdentifier] -> ShowS
+$cshowList :: [StakeIdentifier] -> ShowS
+show :: StakeIdentifier -> String
+$cshow :: StakeIdentifier -> String
+showsPrec :: Int -> StakeIdentifier -> ShowS
+$cshowsPrec :: Int -> StakeIdentifier -> ShowS
+Show)
+
+data StakePoolRegistrationParserRequirements
+ = StakePoolRegistrationParserRequirements
+     { StakePoolRegistrationParserRequirements
+-> VerificationKeyOrFile StakePoolKey
+sprStakePoolKey :: VerificationKeyOrFile StakePoolKey
+     -- ^ Stake pool verification key.
+     , StakePoolRegistrationParserRequirements
+-> VerificationKeyOrFile VrfKey
+sprVrfKey :: VerificationKeyOrFile VrfKey
+     -- ^ VRF Verification key.
+     , StakePoolRegistrationParserRequirements -> Lovelace
+sprPoolPledge :: Lovelace
+     -- ^ Pool pledge.
+     , StakePoolRegistrationParserRequirements -> Lovelace
+sprPoolCost :: Lovelace
+     -- ^ Pool cost.
+     , StakePoolRegistrationParserRequirements -> Rational
+sprPoolMargin :: Rational
+     -- ^ Pool margin.
+     , StakePoolRegistrationParserRequirements
+-> VerificationKeyOrFile StakeKey
+sprRewardAccountKey :: VerificationKeyOrFile StakeKey
+     -- ^ Reward account verification staking key.
+     , StakePoolRegistrationParserRequirements
+-> [VerificationKeyOrFile StakeKey]
+spoPoolOwnerKeys :: [VerificationKeyOrFile StakeKey]
+     -- ^ Pool owner verification staking key(s).
+     , StakePoolRegistrationParserRequirements -> [StakePoolRelay]
+sprRelays :: [StakePoolRelay]
+     -- ^ Stake pool relays.
+     , StakePoolRegistrationParserRequirements
+-> Maybe StakePoolMetadataReference
+sprMetadata :: Maybe StakePoolMetadataReference
+     -- ^ Stake pool metadata.
+     , StakePoolRegistrationParserRequirements -> NetworkId
+sprNetworkId :: NetworkId
+     }
+
+
+-- | A resource that identifies the delegation target. We can delegate
+-- our stake for two reasons:
+-- 1. To gain rewards. This is limited to choosing a stake pool
+-- 2. To delegate voting power. We can delegate this to a DRep, always
+-- abstain our vote or vote no confidence
+
+data AnyDelegationTarget where
+  ShelleyToBabbageDelegTarget
+    :: ShelleyToBabbageEra era
+    -> VerificationKeyOrHashOrFile StakePoolKey -- ^ Stake pool target
+    -> AnyDelegationTarget
+
+  ConwayOnwardDelegTarget
+    :: ConwayEraOnwards era
+    -> StakeTarget era
+    -> AnyDelegationTarget
+
+deriving instance Show AnyDelegationTarget
+
+data StakeTarget era where
+  -- This delegates stake to earn rewards
+  TargetStakePool
+    :: ConwayEraOnwards era
+    -> VerificationKeyOrHashOrFile StakePoolKey
+    -> StakeTarget era
+
+  -- This delegates stake for voting
+  TargetVotingDrep
+    :: ConwayEraOnwards era
+    -> VerificationKeyOrHashOrFile DRepKey
+    -> StakeTarget era
+
+  -- This delegates stake for voting and rewards
+  TargetVotingDrepAndStakePool
+    :: ConwayEraOnwards era
+    -> VerificationKeyOrHashOrFile DRepKey
+    -> VerificationKeyOrHashOrFile StakePoolKey
+    -> StakeTarget era
+
+  TargetAlwaysAbstain
+    :: ConwayEraOnwards era
+    -> StakeTarget era
+
+  TargetAlwaysNoConfidence
+    :: ConwayEraOnwards era
+    -> StakeTarget era
+
+  TargetVotingDRepScriptHash
+    :: ConwayEraOnwards era
+    -> ScriptHash
+    -> StakeTarget era
+
+deriving instance Show (StakeTarget era)
+
+-- | Either an unvalidated text representation of a verification key or a path
+-- to a verification key file.
+data VerificationKeyTextOrFile
+  = VktofVerificationKeyText !Text
+  | VktofVerificationKeyFile !(VerificationKeyFile In)
+  deriving (VerificationKeyTextOrFile -> VerificationKeyTextOrFile -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: VerificationKeyTextOrFile -> VerificationKeyTextOrFile -> Bool
+$c/= :: VerificationKeyTextOrFile -> VerificationKeyTextOrFile -> Bool
+== :: VerificationKeyTextOrFile -> VerificationKeyTextOrFile -> Bool
+$c== :: VerificationKeyTextOrFile -> VerificationKeyTextOrFile -> Bool
+Eq, Int -> VerificationKeyTextOrFile -> ShowS
+[VerificationKeyTextOrFile] -> ShowS
+VerificationKeyTextOrFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VerificationKeyTextOrFile] -> ShowS
+$cshowList :: [VerificationKeyTextOrFile] -> ShowS
+show :: VerificationKeyTextOrFile -> String
+$cshow :: VerificationKeyTextOrFile -> String
+showsPrec :: Int -> VerificationKeyTextOrFile -> ShowS
+$cshowsPrec :: Int -> VerificationKeyTextOrFile -> ShowS
+Show)
+
+-- | An error in deserialising a 'VerificationKeyTextOrFile' to a
+-- 'VerificationKey'.
+data VerificationKeyTextOrFileError
+  = VerificationKeyTextError !InputDecodeError
+  | VerificationKeyFileError !(FileError InputDecodeError)
+  deriving Int -> VerificationKeyTextOrFileError -> ShowS
+[VerificationKeyTextOrFileError] -> ShowS
+VerificationKeyTextOrFileError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [VerificationKeyTextOrFileError] -> ShowS
+$cshowList :: [VerificationKeyTextOrFileError] -> ShowS
+show :: VerificationKeyTextOrFileError -> String
+$cshow :: VerificationKeyTextOrFileError -> String
+showsPrec :: Int -> VerificationKeyTextOrFileError -> ShowS
+$cshowsPrec :: Int -> VerificationKeyTextOrFileError -> ShowS
+Show
+
+-- | Render an error message for a 'VerificationKeyTextOrFileError'.
+renderVerificationKeyTextOrFileError :: VerificationKeyTextOrFileError -> Text
+renderVerificationKeyTextOrFileError :: VerificationKeyTextOrFileError -> Text
+renderVerificationKeyTextOrFileError VerificationKeyTextOrFileError
+vkTextOrFileErr =
+  case VerificationKeyTextOrFileError
+vkTextOrFileErr of
+    VerificationKeyTextError InputDecodeError
+err -> InputDecodeError -> Text
+renderInputDecodeError InputDecodeError
+err
+    VerificationKeyFileError FileError InputDecodeError
+err -> String -> Text
+Text.pack (forall e. Error e => e -> String
+displayError FileError InputDecodeError
+err)
+
+-- | Deserialise a verification key from text or a verification key file.
+-- If a filepath is provided, the file can either be formatted as Bech32, hex,
+-- or text envelope.
+readVerificationKeyTextOrFileAnyOf
+  :: VerificationKeyTextOrFile
+  -> IO (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)
+readVerificationKeyTextOrFileAnyOf :: VerificationKeyTextOrFile
+-> IO
+     (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)
+readVerificationKeyTextOrFileAnyOf VerificationKeyTextOrFile
+verKeyTextOrFile =
+  case VerificationKeyTextOrFile
+verKeyTextOrFile of
+    VktofVerificationKeyText Text
+vkText ->
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first InputDecodeError -> VerificationKeyTextOrFileError
+VerificationKeyTextError forall a b. (a -> b) -> a -> b
+$
+        ByteString -> Either InputDecodeError SomeAddressVerificationKey
+deserialiseAnyVerificationKey (Text -> ByteString
+Text.encodeUtf8 Text
+vkText)
+    VktofVerificationKeyFile (File String
+fp) -> do
+      ByteString
+vkBs <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+BS.readFile String
+fp
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (p :: * -> * -> *) a b c.
+Bifunctor p =>
+(a -> b) -> p a c -> p b c
+first InputDecodeError -> VerificationKeyTextOrFileError
+VerificationKeyTextError forall a b. (a -> b) -> a -> b
+$
+        ByteString -> Either InputDecodeError SomeAddressVerificationKey
+deserialiseAnyVerificationKey ByteString
+vkBs
+
+
+-- | Verification key, verification key hash, or path to a verification key
+-- file.
+data VerificationKeyOrHashOrFile keyrole
+  = VerificationKeyOrFile !(VerificationKeyOrFile keyrole)
+  -- ^ Either a verification key or path to a verification key file.
+  | VerificationKeyHash !(Hash keyrole)
+  -- ^ A verification key hash.
+
+deriving instance (Show (VerificationKeyOrFile keyrole), Show (Hash keyrole))
+  => Show (VerificationKeyOrHashOrFile keyrole)
+
+deriving instance (Eq (VerificationKeyOrFile keyrole), Eq (Hash keyrole))
+  => Eq (VerificationKeyOrHashOrFile keyrole)
+
+-- | Read a verification key or verification key hash or verification key file
+-- and return a verification key hash.
+--
+-- If a filepath is provided, the file can either be formatted as Bech32, hex,
+-- or text envelope.
+readVerificationKeyOrHashOrFile
+  :: (Key keyrole, SerialiseAsBech32 (VerificationKey keyrole))
+  => AsType keyrole
+  -> VerificationKeyOrHashOrFile keyrole
+  -> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile :: forall keyrole.
+(Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrFile AsType keyrole
+asType VerificationKeyOrHashOrFile keyrole
+verKeyOrHashOrFile =
+  case VerificationKeyOrHashOrFile keyrole
+verKeyOrHashOrFile of
+    VerificationKeyOrFile VerificationKeyOrFile keyrole
+vkOrFile -> do
+      Either (FileError InputDecodeError) (VerificationKey keyrole)
+eitherVk <- forall keyrole.
+(HasTextEnvelope (VerificationKey keyrole),
+ SerialiseAsBech32 (VerificationKey keyrole)) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrFile AsType keyrole
+asType VerificationKeyOrFile keyrole
+vkOrFile
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Either (FileError InputDecodeError) (VerificationKey keyrole)
+eitherVk)
+    VerificationKeyHash Hash keyrole
+vkHash -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a b. b -> Either a b
+Right Hash keyrole
+vkHash)
+
+-- | Read a verification key or verification key hash or verification key file
+-- and return a verification key hash.
+--
+-- If a filepath is provided, it will be interpreted as a text envelope
+-- formatted file.
+readVerificationKeyOrHashOrTextEnvFile
+  :: Key keyrole
+  => AsType keyrole
+  -> VerificationKeyOrHashOrFile keyrole
+  -> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile :: forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType keyrole
+asType VerificationKeyOrHashOrFile keyrole
+verKeyOrHashOrFile =
+  case VerificationKeyOrHashOrFile keyrole
+verKeyOrHashOrFile of
+    VerificationKeyOrFile VerificationKeyOrFile keyrole
+vkOrFile -> do
+      Either (FileError InputDecodeError) (VerificationKey keyrole)
+eitherVk <- forall keyrole.
+HasTextEnvelope (VerificationKey keyrole) =>
+AsType keyrole
+-> VerificationKeyOrFile keyrole
+-> IO
+     (Either (FileError InputDecodeError) (VerificationKey keyrole))
+readVerificationKeyOrTextEnvFile AsType keyrole
+asType VerificationKeyOrFile keyrole
+vkOrFile
+      forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall keyrole.
+Key keyrole =>
+VerificationKey keyrole -> Hash keyrole
+verificationKeyHash forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> Either (FileError InputDecodeError) (VerificationKey keyrole)
+eitherVk)
+    VerificationKeyHash Hash keyrole
+vkHash -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall a b. b -> Either a b
+Right Hash keyrole
+vkHash)
+
+generateKeyPair :: ()
+  => Key keyrole
+  => HasTypeProxy keyrole
+  => AsType keyrole
+  -> IO (VerificationKey keyrole, SigningKey keyrole)
+generateKeyPair :: forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+AsType keyrole -> IO (VerificationKey keyrole, SigningKey keyrole)
+generateKeyPair AsType keyrole
+asType = do
+  SigningKey keyrole
+skey <- forall keyrole.
+Key keyrole =>
+AsType keyrole -> IO (SigningKey keyrole)
+generateSigningKey AsType keyrole
+asType
+  forall (m :: * -> *) a. Monad m => a -> m a
+return (forall keyrole.
+Key keyrole =>
+SigningKey keyrole -> VerificationKey keyrole
+getVerificationKey SigningKey keyrole
+skey, SigningKey keyrole
+skey)
+
+-- | Either a stake pool verification key, genesis delegate verification key,
+-- or a path to a cold verification key file.
+--
+-- Note that a "cold verification key" refers to either a stake pool or
+-- genesis delegate verification key.
+--
+-- TODO: A genesis delegate extended key should also be valid here.
+data ColdVerificationKeyOrFile
+  = ColdStakePoolVerificationKey !(VerificationKey StakePoolKey)
+  | ColdGenesisDelegateVerificationKey !(VerificationKey GenesisDelegateKey)
+  | ColdVerificationKeyFile !(VerificationKeyFile In)
+  deriving Int -> ColdVerificationKeyOrFile -> ShowS
+[ColdVerificationKeyOrFile] -> ShowS
+ColdVerificationKeyOrFile -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [ColdVerificationKeyOrFile] -> ShowS
+$cshowList :: [ColdVerificationKeyOrFile] -> ShowS
+show :: ColdVerificationKeyOrFile -> String
+$cshow :: ColdVerificationKeyOrFile -> String
+showsPrec :: Int -> ColdVerificationKeyOrFile -> ShowS
+$cshowsPrec :: Int -> ColdVerificationKeyOrFile -> ShowS
+Show
+
+data DRepHashSource
+  = DRepHashSourceScript
+      ScriptHash
+  | DRepHashSourceVerificationKey
+      (VerificationKeyOrHashOrFile DRepKey)
+  deriving (DRepHashSource -> DRepHashSource -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: DRepHashSource -> DRepHashSource -> Bool
+$c/= :: DRepHashSource -> DRepHashSource -> Bool
+== :: DRepHashSource -> DRepHashSource -> Bool
+$c== :: DRepHashSource -> DRepHashSource -> Bool
+Eq, Int -> DRepHashSource -> ShowS
+[DRepHashSource] -> ShowS
+DRepHashSource -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [DRepHashSource] -> ShowS
+$cshowList :: [DRepHashSource] -> ShowS
+show :: DRepHashSource -> String
+$cshow :: DRepHashSource -> String
+showsPrec :: Int -> DRepHashSource -> ShowS
+$cshowsPrec :: Int -> DRepHashSource -> ShowS
+Show)
+
+readDRepCredential :: ()
+  => DRepHashSource
+  -> ExceptT DelegationError IO (L.Credential 'L.DRepRole L.StandardCrypto)
+readDRepCredential :: DRepHashSource
+-> ExceptT DelegationError IO (Credential 'DRepRole StandardCrypto)
+readDRepCredential = \case
+  DRepHashSourceScript (ScriptHash ScriptHash StandardCrypto
+scriptHash) ->
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure (forall (kr :: KeyRole) c. ScriptHash c -> Credential kr c
+L.ScriptHashObj ScriptHash StandardCrypto
+scriptHash)
+  DRepHashSourceVerificationKey VerificationKeyOrHashOrFile DRepKey
+drepVKeyOrHashOrFile -> do
+    DRepKeyHash KeyHash 'DRepRole StandardCrypto
+drepKeyHash <-
+      forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift (forall keyrole.
+Key keyrole =>
+AsType keyrole
+-> VerificationKeyOrHashOrFile keyrole
+-> IO (Either (FileError InputDecodeError) (Hash keyrole))
+readVerificationKeyOrHashOrTextEnvFile AsType DRepKey
+AsDRepKey VerificationKeyOrHashOrFile DRepKey
+drepVKeyOrHashOrFile)
+        forall a b. a -> (a -> b) -> b
+& forall e x (m :: * -> *) a.
+Monad m =>
+(e -> ExceptT x m a) -> ExceptT x m (Either e a) -> ExceptT x m a
+onLeft (forall (m :: * -> *) x a. Monad m => x -> ExceptT x m a
+left forall b c a. (b -> c) -> (a -> b) -> a -> c
+. FileError InputDecodeError -> DelegationError
+DelegationDRepReadError)
+    forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ forall (kr :: KeyRole) c. KeyHash kr c -> Credential kr c
+L.KeyHashObj KeyHash 'DRepRole StandardCrypto
+drepKeyHash
+
+
+data SomeSigningKey
+  = AByronSigningKey                    (SigningKey ByronKey)
+  | APaymentSigningKey                  (SigningKey PaymentKey)
+  | APaymentExtendedSigningKey          (SigningKey PaymentExtendedKey)
+  | AStakeSigningKey                    (SigningKey StakeKey)
+  | AStakeExtendedSigningKey            (SigningKey StakeExtendedKey)
+  | AStakePoolSigningKey                (SigningKey StakePoolKey)
+  | AGenesisSigningKey                  (SigningKey GenesisKey)
+  | AGenesisExtendedSigningKey          (SigningKey GenesisExtendedKey)
+  | AGenesisDelegateSigningKey          (SigningKey GenesisDelegateKey)
+  | AGenesisDelegateExtendedSigningKey  (SigningKey GenesisDelegateExtendedKey)
+  | AGenesisUTxOSigningKey              (SigningKey GenesisUTxOKey)
+  | AVrfSigningKey                      (SigningKey VrfKey)
+  | AKesSigningKey                      (SigningKey KesKey)
+
+withSomeSigningKey :: ()
+  => SomeSigningKey
+  -> (forall keyrole. (Key keyrole, HasTypeProxy keyrole) => SigningKey keyrole -> a)
+  -> a
+withSomeSigningKey :: forall a.
+SomeSigningKey
+-> (forall keyrole.
+    (Key keyrole, HasTypeProxy keyrole) =>
+    SigningKey keyrole -> a)
+-> a
+withSomeSigningKey SomeSigningKey
+ssk forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f =
+    case SomeSigningKey
+ssk of
+      AByronSigningKey                    SigningKey ByronKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey ByronKey
+sk
+      APaymentSigningKey                  SigningKey PaymentKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey PaymentKey
+sk
+      APaymentExtendedSigningKey          SigningKey PaymentExtendedKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey PaymentExtendedKey
+sk
+      AStakeSigningKey                    SigningKey StakeKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey StakeKey
+sk
+      AStakeExtendedSigningKey            SigningKey StakeExtendedKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey StakeExtendedKey
+sk
+      AStakePoolSigningKey                SigningKey StakePoolKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey StakePoolKey
+sk
+      AGenesisSigningKey                  SigningKey GenesisKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey GenesisKey
+sk
+      AGenesisExtendedSigningKey          SigningKey GenesisExtendedKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey GenesisExtendedKey
+sk
+      AGenesisDelegateSigningKey          SigningKey GenesisDelegateKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey GenesisDelegateKey
+sk
+      AGenesisDelegateExtendedSigningKey  SigningKey GenesisDelegateExtendedKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey GenesisDelegateExtendedKey
+sk
+      AGenesisUTxOSigningKey              SigningKey GenesisUTxOKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey GenesisUTxOKey
+sk
+      AVrfSigningKey                      SigningKey VrfKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey VrfKey
+sk
+      AKesSigningKey                      SigningKey KesKey
+sk -> forall keyrole.
+(Key keyrole, HasTypeProxy keyrole) =>
+SigningKey keyrole -> a
+f SigningKey KesKey
+sk
+
+readSigningKeyFile :: ()
+  => SigningKeyFile In
+  -> ExceptT (FileError InputDecodeError) IO SomeSigningKey
+readSigningKeyFile :: SigningKeyFile 'In
+-> ExceptT (FileError InputDecodeError) IO SomeSigningKey
+readSigningKeyFile SigningKeyFile 'In
+skFile =
+    forall (m :: * -> *) x a. m (Either x a) -> ExceptT x m a
+newExceptT forall a b. (a -> b) -> a -> b
+$
+      forall content b.
+[FromSomeType SerialiseAsBech32 b]
+-> [FromSomeType HasTextEnvelope b]
+-> File content 'In
+-> IO (Either (FileError InputDecodeError) b)
+readKeyFileAnyOf [FromSomeType SerialiseAsBech32 SomeSigningKey]
+bech32FileTypes [FromSomeType HasTextEnvelope SomeSigningKey]
+textEnvFileTypes SigningKeyFile 'In
+skFile
+  where
+    textEnvFileTypes :: [FromSomeType HasTextEnvelope SomeSigningKey]
+textEnvFileTypes =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType ByronKey
+AsByronKey)
+                      SigningKey ByronKey -> SomeSigningKey
+AByronSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentKey
+AsPaymentKey)
+                      SigningKey PaymentKey -> SomeSigningKey
+APaymentSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentExtendedKey
+AsPaymentExtendedKey)
+                      SigningKey PaymentExtendedKey -> SomeSigningKey
+APaymentExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeKey
+AsStakeKey)
+                      SigningKey StakeKey -> SomeSigningKey
+AStakeSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeExtendedKey
+AsStakeExtendedKey)
+                      SigningKey StakeExtendedKey -> SomeSigningKey
+AStakeExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey)
+                      SigningKey StakePoolKey -> SomeSigningKey
+AStakePoolSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisKey
+AsGenesisKey)
+                      SigningKey GenesisKey -> SomeSigningKey
+AGenesisSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisExtendedKey
+AsGenesisExtendedKey)
+                      SigningKey GenesisExtendedKey -> SomeSigningKey
+AGenesisExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateKey
+AsGenesisDelegateKey)
+                      SigningKey GenesisDelegateKey -> SomeSigningKey
+AGenesisDelegateSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisDelegateExtendedKey
+AsGenesisDelegateExtendedKey)
+                      SigningKey GenesisDelegateExtendedKey -> SomeSigningKey
+AGenesisDelegateExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType GenesisUTxOKey
+AsGenesisUTxOKey)
+                      SigningKey GenesisUTxOKey -> SomeSigningKey
+AGenesisUTxOSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType VrfKey
+AsVrfKey)
+                      SigningKey VrfKey -> SomeSigningKey
+AVrfSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType KesKey
+AsKesKey)
+                      SigningKey KesKey -> SomeSigningKey
+AKesSigningKey
+      ]
+
+    bech32FileTypes :: [FromSomeType SerialiseAsBech32 SomeSigningKey]
+bech32FileTypes =
+      [ forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentKey
+AsPaymentKey)
+                      SigningKey PaymentKey -> SomeSigningKey
+APaymentSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType PaymentExtendedKey
+AsPaymentExtendedKey)
+                      SigningKey PaymentExtendedKey -> SomeSigningKey
+APaymentExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeKey
+AsStakeKey)
+                      SigningKey StakeKey -> SomeSigningKey
+AStakeSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakeExtendedKey
+AsStakeExtendedKey)
+                      SigningKey StakeExtendedKey -> SomeSigningKey
+AStakeExtendedSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType StakePoolKey
+AsStakePoolKey)
+                      SigningKey StakePoolKey -> SomeSigningKey
+AStakePoolSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType VrfKey
+AsVrfKey)
+                      SigningKey VrfKey -> SomeSigningKey
+AVrfSigningKey
+      , forall (c :: * -> Constraint) a b.
+c a =>
+AsType a -> (a -> b) -> FromSomeType c b
+FromSomeType (forall a. AsType a -> AsType (SigningKey a)
+AsSigningKey AsType KesKey
+AsKesKey)
+                      SigningKey KesKey -> SomeSigningKey
+AKesSigningKey
+      ]
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.Output.html b/cardano-cli/lib/src/Cardano.CLI.Types.Output.html new file mode 100644 index 0000000000..cedec9d8c6 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.Output.html @@ -0,0 +1,1129 @@ +
{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE FlexibleInstances #-}
+
+module Cardano.CLI.Types.Output
+  ( PlutusScriptCostError
+  , QueryKesPeriodInfoOutput (..)
+  , QueryTipLocalState(..)
+  , QueryTipLocalStateOutput(..)
+  , ScriptCostOutput (..)
+  , createOpCertIntervalInfo
+  , renderScriptCosts
+  ) where
+
+import           Cardano.Api
+import qualified Cardano.Api.Ledger as Ledger
+import           Cardano.Api.Shelley
+
+import           Cardano.CLI.Types.Common
+import           Cardano.Ledger.Shelley.Scripts ()
+
+import           Prelude
+
+import           Data.Aeson
+import qualified Data.Aeson.Key as Aeson
+import qualified Data.List as List
+import           Data.Map.Strict (Map)
+import qualified Data.Map.Strict as Map
+import           Data.Text (Text)
+import qualified Data.Text as Text
+import           Data.Time.Clock (UTCTime)
+import           Data.Word
+
+data QueryKesPeriodInfoOutput =
+  QueryKesPeriodInfoOutput
+    { QueryKesPeriodInfoOutput -> OpCertIntervalInformation
+qKesOpCertIntervalInformation :: OpCertIntervalInformation
+      -- | Date of KES key expiry.
+    , QueryKesPeriodInfoOutput -> Maybe UTCTime
+qKesInfoKesKeyExpiry :: Maybe UTCTime
+      -- | The latest operational certificate number in the node's state
+      -- i.e how many times a new KES key has been generated.
+    , QueryKesPeriodInfoOutput -> Maybe OpCertNodeStateCounter
+qKesInfoNodeStateOperationalCertNo :: Maybe OpCertNodeStateCounter
+      -- | The on disk operational certificate number.
+    , QueryKesPeriodInfoOutput -> OpCertOnDiskCounter
+qKesInfoOnDiskOperationalCertNo :: OpCertOnDiskCounter
+      -- | The maximum number of KES key evolutions permitted per KES period.
+    , QueryKesPeriodInfoOutput -> Word64
+qKesInfoMaxKesKeyEvolutions :: Word64
+    , QueryKesPeriodInfoOutput -> Word64
+qKesInfoSlotsPerKesPeriod :: Word64
+    } deriving (QueryKesPeriodInfoOutput -> QueryKesPeriodInfoOutput -> Bool
+forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
+/= :: QueryKesPeriodInfoOutput -> QueryKesPeriodInfoOutput -> Bool
+$c/= :: QueryKesPeriodInfoOutput -> QueryKesPeriodInfoOutput -> Bool
+== :: QueryKesPeriodInfoOutput -> QueryKesPeriodInfoOutput -> Bool
+$c== :: QueryKesPeriodInfoOutput -> QueryKesPeriodInfoOutput -> Bool
+Eq, Int -> QueryKesPeriodInfoOutput -> ShowS
+[QueryKesPeriodInfoOutput] -> ShowS
+QueryKesPeriodInfoOutput -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryKesPeriodInfoOutput] -> ShowS
+$cshowList :: [QueryKesPeriodInfoOutput] -> ShowS
+show :: QueryKesPeriodInfoOutput -> String
+$cshow :: QueryKesPeriodInfoOutput -> String
+showsPrec :: Int -> QueryKesPeriodInfoOutput -> ShowS
+$cshowsPrec :: Int -> QueryKesPeriodInfoOutput -> ShowS
+Show)
+
+instance ToJSON QueryKesPeriodInfoOutput where
+  toJSON :: QueryKesPeriodInfoOutput -> Value
+toJSON (QueryKesPeriodInfoOutput OpCertIntervalInformation
+opCertIntervalInfo
+                                   Maybe UTCTime
+kesKeyExpiryTime
+                                   Maybe OpCertNodeStateCounter
+nodeStateOpCertNo
+                                   (OpCertOnDiskCounter Word64
+onDiskOpCertNo)
+                                   Word64
+maxKesKeyOps
+                                   Word64
+slotsPerKesPeriod) = do
+    let (Word64
+sKes, Word64
+eKes, Word64
+cKes, Maybe SlotsTillKesKeyExpiry
+slotsTillExp) =
+          case OpCertIntervalInformation
+opCertIntervalInfo of
+            OpCertWithinInterval OpCertStartingKesPeriod
+startKes OpCertEndingKesPeriod
+endKes CurrentKesPeriod
+currKes SlotsTillKesKeyExpiry
+sUntilExp ->
+                     ( OpCertStartingKesPeriod -> Word64
+unOpCertStartingKesPeriod OpCertStartingKesPeriod
+startKes
+                     , OpCertEndingKesPeriod -> Word64
+unOpCertEndingKesPeriod OpCertEndingKesPeriod
+endKes
+                     , CurrentKesPeriod -> Word64
+unCurrentKesPeriod CurrentKesPeriod
+currKes
+                     , forall a. a -> Maybe a
+Just SlotsTillKesKeyExpiry
+sUntilExp
+                     )
+            OpCertStartingKesPeriodIsInTheFuture OpCertStartingKesPeriod
+startKes OpCertEndingKesPeriod
+endKes CurrentKesPeriod
+currKes ->
+                     ( OpCertStartingKesPeriod -> Word64
+unOpCertStartingKesPeriod OpCertStartingKesPeriod
+startKes
+                     , OpCertEndingKesPeriod -> Word64
+unOpCertEndingKesPeriod OpCertEndingKesPeriod
+endKes
+                     , CurrentKesPeriod -> Word64
+unCurrentKesPeriod CurrentKesPeriod
+currKes
+                     , forall a. Maybe a
+Nothing
+                     )
+            OpCertExpired OpCertStartingKesPeriod
+startKes OpCertEndingKesPeriod
+endKes CurrentKesPeriod
+currKes ->
+                     ( OpCertStartingKesPeriod -> Word64
+unOpCertStartingKesPeriod OpCertStartingKesPeriod
+startKes
+                     , OpCertEndingKesPeriod -> Word64
+unOpCertEndingKesPeriod OpCertEndingKesPeriod
+endKes
+                     , CurrentKesPeriod -> Word64
+unCurrentKesPeriod CurrentKesPeriod
+currKes
+                     , forall a. Maybe a
+Nothing
+                     )
+            OpCertSomeOtherError OpCertStartingKesPeriod
+startKes OpCertEndingKesPeriod
+endKes CurrentKesPeriod
+currKes ->
+                     ( OpCertStartingKesPeriod -> Word64
+unOpCertStartingKesPeriod OpCertStartingKesPeriod
+startKes
+                     , OpCertEndingKesPeriod -> Word64
+unOpCertEndingKesPeriod OpCertEndingKesPeriod
+endKes
+                     , CurrentKesPeriod -> Word64
+unCurrentKesPeriod CurrentKesPeriod
+currKes
+                     , forall a. Maybe a
+Nothing
+                     )
+
+    [Pair] -> Value
+object [ Key
+"qKesCurrentKesPeriod" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+cKes
+           , Key
+"qKesStartKesInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+sKes
+           , Key
+"qKesEndKesInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+eKes
+           , Key
+"qKesRemainingSlotsInKesPeriod" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe SlotsTillKesKeyExpiry
+slotsTillExp
+           , Key
+"qKesOnDiskOperationalCertificateNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+onDiskOpCertNo
+           , Key
+"qKesNodeStateOperationalCertificateNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.=  Maybe OpCertNodeStateCounter
+nodeStateOpCertNo
+           , Key
+"qKesMaxKESEvolutions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+maxKesKeyOps
+           , Key
+"qKesSlotsPerKesPeriod" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Word64
+slotsPerKesPeriod
+           , Key
+"qKesKesKeyExpiry" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Maybe UTCTime
+kesKeyExpiryTime
+           ]
+
+instance FromJSON QueryKesPeriodInfoOutput where
+  parseJSON :: Value -> Parser QueryKesPeriodInfoOutput
+parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
+withObject String
+"QueryKesPeriodInfoOutput" forall a b. (a -> b) -> a -> b
+$ \Object
+o -> do
+    CurrentKesPeriod
+currentKesPeriod <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesCurrentKesPeriod"
+    OpCertStartingKesPeriod
+startKesInterval <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesStartKesInterval"
+    OpCertEndingKesPeriod
+endKesInterval <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesEndKesInterval"
+    Maybe SlotsTillKesKeyExpiry
+remainingSlotsInKesPeriod <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesRemainingSlotsInKesPeriod"
+    OpCertOnDiskCounter
+onDiskOperationalCertificateNumber <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesOnDiskOperationalCertificateNumber"
+    Maybe OpCertNodeStateCounter
+nodeStateOperationalCertificateNumber <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesNodeStateOperationalCertificateNumber"
+    Word64
+maxKESEvolutions <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesMaxKESEvolutions"
+    Word64
+slotsPerKesPeriod <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesSlotsPerKesPeriod"
+    Maybe UTCTime
+kesKeyExpiry <- Object
+o forall a. FromJSON a => Object -> Key -> Parser a
+.: Key
+"qKesKesKeyExpiry"
+    let opCertIntervalInfo :: OpCertIntervalInformation
+opCertIntervalInfo = CurrentKesPeriod
+-> OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> Maybe SlotsTillKesKeyExpiry
+-> OpCertIntervalInformation
+createOpCertIntervalInfo
+                               CurrentKesPeriod
+currentKesPeriod
+                               OpCertStartingKesPeriod
+startKesInterval
+                               OpCertEndingKesPeriod
+endKesInterval
+                               Maybe SlotsTillKesKeyExpiry
+remainingSlotsInKesPeriod
+    forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ QueryKesPeriodInfoOutput
+         { $sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutput :: OpCertIntervalInformation
+qKesOpCertIntervalInformation = OpCertIntervalInformation
+opCertIntervalInfo
+         , $sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutput :: Maybe UTCTime
+qKesInfoKesKeyExpiry = Maybe UTCTime
+kesKeyExpiry
+         , $sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutput :: Maybe OpCertNodeStateCounter
+qKesInfoNodeStateOperationalCertNo = Maybe OpCertNodeStateCounter
+nodeStateOperationalCertificateNumber
+         , $sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutput :: OpCertOnDiskCounter
+qKesInfoOnDiskOperationalCertNo = OpCertOnDiskCounter
+onDiskOperationalCertificateNumber
+         , $sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutput :: Word64
+qKesInfoMaxKesKeyEvolutions = Word64
+maxKESEvolutions
+         , $sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutput :: Word64
+qKesInfoSlotsPerKesPeriod = Word64
+slotsPerKesPeriod
+         }
+
+
+createOpCertIntervalInfo
+  :: CurrentKesPeriod
+  -> OpCertStartingKesPeriod
+  -> OpCertEndingKesPeriod
+  -> Maybe SlotsTillKesKeyExpiry
+  -> OpCertIntervalInformation
+createOpCertIntervalInfo :: CurrentKesPeriod
+-> OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> Maybe SlotsTillKesKeyExpiry
+-> OpCertIntervalInformation
+createOpCertIntervalInfo c :: CurrentKesPeriod
+c@(CurrentKesPeriod Word64
+cKesPeriod)
+                         s :: OpCertStartingKesPeriod
+s@(OpCertStartingKesPeriod Word64
+oCertStart)
+                         e :: OpCertEndingKesPeriod
+e@(OpCertEndingKesPeriod Word64
+oCertEnd)
+                         (Just SlotsTillKesKeyExpiry
+tillExp)
+  | Word64
+oCertStart forall a. Ord a => a -> a -> Bool
+<= Word64
+cKesPeriod Bool -> Bool -> Bool
+&& Word64
+cKesPeriod forall a. Ord a => a -> a -> Bool
+< Word64
+oCertEnd =
+      OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> SlotsTillKesKeyExpiry
+-> OpCertIntervalInformation
+OpCertWithinInterval OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c SlotsTillKesKeyExpiry
+tillExp
+  | Word64
+oCertStart forall a. Ord a => a -> a -> Bool
+> Word64
+cKesPeriod = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertStartingKesPeriodIsInTheFuture OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+  | Word64
+cKesPeriod forall a. Ord a => a -> a -> Bool
+>= Word64
+oCertEnd = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertExpired OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+  | Bool
+otherwise = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertSomeOtherError OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+createOpCertIntervalInfo c :: CurrentKesPeriod
+c@(CurrentKesPeriod Word64
+cKesPeriod)
+                         s :: OpCertStartingKesPeriod
+s@(OpCertStartingKesPeriod Word64
+oCertStart)
+                         e :: OpCertEndingKesPeriod
+e@(OpCertEndingKesPeriod Word64
+oCertEnd)
+                         Maybe SlotsTillKesKeyExpiry
+Nothing
+  | Word64
+oCertStart forall a. Ord a => a -> a -> Bool
+> Word64
+cKesPeriod = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertStartingKesPeriodIsInTheFuture OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+  | Word64
+cKesPeriod forall a. Ord a => a -> a -> Bool
+>= Word64
+oCertEnd = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertExpired OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+  | Bool
+otherwise = OpCertStartingKesPeriod
+-> OpCertEndingKesPeriod
+-> CurrentKesPeriod
+-> OpCertIntervalInformation
+OpCertSomeOtherError OpCertStartingKesPeriod
+s OpCertEndingKesPeriod
+e CurrentKesPeriod
+c
+
+
+data QueryTipLocalState mode = QueryTipLocalState
+  { forall mode. QueryTipLocalState mode -> AnyCardanoEra
+era :: AnyCardanoEra
+  , forall mode. QueryTipLocalState mode -> EraHistory
+eraHistory :: EraHistory
+  , forall mode. QueryTipLocalState mode -> Maybe SystemStart
+mSystemStart :: Maybe SystemStart
+  , forall mode. QueryTipLocalState mode -> Maybe ChainTip
+mChainTip :: Maybe ChainTip
+  }
+
+data QueryTipLocalStateOutput = QueryTipLocalStateOutput
+  { QueryTipLocalStateOutput -> ChainTip
+localStateChainTip :: ChainTip
+  , QueryTipLocalStateOutput -> Maybe AnyCardanoEra
+mEra :: Maybe AnyCardanoEra
+  , QueryTipLocalStateOutput -> Maybe EpochNo
+mEpoch :: Maybe EpochNo
+  , QueryTipLocalStateOutput -> Maybe Word64
+mSlotInEpoch :: Maybe Word64
+  , QueryTipLocalStateOutput -> Maybe Word64
+mSlotsToEpochEnd :: Maybe Word64
+  , QueryTipLocalStateOutput -> Maybe Text
+mSyncProgress :: Maybe Text
+  } deriving Int -> QueryTipLocalStateOutput -> ShowS
+[QueryTipLocalStateOutput] -> ShowS
+QueryTipLocalStateOutput -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [QueryTipLocalStateOutput] -> ShowS
+$cshowList :: [QueryTipLocalStateOutput] -> ShowS
+show :: QueryTipLocalStateOutput -> String
+$cshow :: QueryTipLocalStateOutput -> String
+showsPrec :: Int -> QueryTipLocalStateOutput -> ShowS
+$cshowsPrec :: Int -> QueryTipLocalStateOutput -> ShowS
+Show
+
+-- | A key-value pair difference list for encoding a JSON object.
+(..=) :: (KeyValue kv, ToJSON v) => Aeson.Key -> v -> [kv] -> [kv]
+..= :: forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+(..=) Key
+n v
+v = (Key
+n forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= v
+vforall a. a -> [a] -> [a]
+:)
+
+-- | A key-value pair difference list for encoding a JSON object where Nothing encodes absence of the key-value pair.
+(..=?) :: (KeyValue kv, ToJSON v) => Aeson.Key -> Maybe v -> [kv] -> [kv]
+..=? :: forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+(..=?) Key
+n Maybe v
+mv = case Maybe v
+mv of
+  Just v
+v -> (Key
+n forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= v
+vforall a. a -> [a] -> [a]
+:)
+  Maybe v
+Nothing -> forall a. a -> a
+id
+
+instance ToJSON QueryTipLocalStateOutput where
+  toJSON :: QueryTipLocalStateOutput -> Value
+toJSON QueryTipLocalStateOutput
+a = case QueryTipLocalStateOutput -> ChainTip
+localStateChainTip QueryTipLocalStateOutput
+a of
+    ChainTip
+ChainTipAtGenesis ->
+      [Pair] -> Value
+object forall a b. (a -> b) -> a -> b
+$
+        ( (Key
+"era" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe AnyCardanoEra
+mEra QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"epoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe EpochNo
+mEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotInEpoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotInEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotsToEpochEnd" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotsToEpochEnd QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"syncProgress" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Text
+mSyncProgress QueryTipLocalStateOutput
+a)
+        ) []
+    ChainTip SlotNo
+slotNo Hash BlockHeader
+blockHeader BlockNo
+blockNo ->
+      [Pair] -> Value
+object forall a b. (a -> b) -> a -> b
+$
+        ( (Key
+"slot" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= SlotNo
+slotNo)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText Hash BlockHeader
+blockHeader)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"block" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= BlockNo
+blockNo)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"era" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe AnyCardanoEra
+mEra QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"epoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe EpochNo
+mEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotInEpoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotInEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotsToEpochEnd" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotsToEpochEnd QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"syncProgress" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Text
+mSyncProgress QueryTipLocalStateOutput
+a)
+        ) []
+  toEncoding :: QueryTipLocalStateOutput -> Encoding
+toEncoding QueryTipLocalStateOutput
+a = case QueryTipLocalStateOutput -> ChainTip
+localStateChainTip QueryTipLocalStateOutput
+a of
+    ChainTip
+ChainTipAtGenesis ->
+      Series -> Encoding
+pairs forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat forall a b. (a -> b) -> a -> b
+$
+        ( (Key
+"era" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe AnyCardanoEra
+mEra QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"epoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe EpochNo
+mEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotInEpoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotInEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotsToEpochEnd" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotsToEpochEnd QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"syncProgress" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Text
+mSyncProgress QueryTipLocalStateOutput
+a)
+        ) []
+    ChainTip SlotNo
+slotNo Hash BlockHeader
+blockHeader BlockNo
+blockNo ->
+      Series -> Encoding
+pairs forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat forall a b. (a -> b) -> a -> b
+$
+        ( (Key
+"slot" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= SlotNo
+slotNo)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"hash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= forall a. SerialiseAsRawBytes a => a -> Text
+serialiseToRawBytesHexText Hash BlockHeader
+blockHeader)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"block" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> [kv] -> [kv]
+..= BlockNo
+blockNo)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"era" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe AnyCardanoEra
+mEra QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"epoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe EpochNo
+mEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotInEpoch" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotInEpoch QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"slotsToEpochEnd" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Word64
+mSlotsToEpochEnd QueryTipLocalStateOutput
+a)
+        forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (Key
+"syncProgress" forall kv v.
+(KeyValue kv, ToJSON v) =>
+Key -> Maybe v -> [kv] -> [kv]
+..=? QueryTipLocalStateOutput -> Maybe Text
+mSyncProgress QueryTipLocalStateOutput
+a)
+        ) []
+
+instance FromJSON QueryTipLocalStateOutput where
+  parseJSON :: Value -> Parser QueryTipLocalStateOutput
+parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
+withObject String
+"QueryTipLocalStateOutput" forall a b. (a -> b) -> a -> b
+$ \Object
+o -> do
+    Maybe AnyCardanoEra
+mEra' <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"era"
+    Maybe EpochNo
+mEpoch' <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"epoch"
+    Maybe Text
+mSyncProgress' <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"syncProgress"
+
+    Maybe SlotNo
+mSlot <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"slot"
+    Maybe (Hash BlockHeader)
+mHash <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"hash"
+    Maybe BlockNo
+mBlock <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"block"
+    Maybe Word64
+mSlotInEpoch' <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"slotInEpoch"
+    Maybe Word64
+mSlotsToEpochEnd' <- Object
+o forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
+.:? Key
+"slotsToEpochEnd"
+    case (Maybe SlotNo
+mSlot, Maybe (Hash BlockHeader)
+mHash, Maybe BlockNo
+mBlock) of
+      (Maybe SlotNo
+Nothing, Maybe (Hash BlockHeader)
+Nothing, Maybe BlockNo
+Nothing) ->
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ ChainTip
+-> Maybe AnyCardanoEra
+-> Maybe EpochNo
+-> Maybe Word64
+-> Maybe Word64
+-> Maybe Text
+-> QueryTipLocalStateOutput
+QueryTipLocalStateOutput
+                 ChainTip
+ChainTipAtGenesis
+                 Maybe AnyCardanoEra
+mEra'
+                 Maybe EpochNo
+mEpoch'
+                 Maybe Word64
+mSlotInEpoch'
+                 Maybe Word64
+mSlotsToEpochEnd'
+                 Maybe Text
+mSyncProgress'
+      (Just SlotNo
+slot, Just Hash BlockHeader
+hash, Just BlockNo
+block) ->
+        forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ ChainTip
+-> Maybe AnyCardanoEra
+-> Maybe EpochNo
+-> Maybe Word64
+-> Maybe Word64
+-> Maybe Text
+-> QueryTipLocalStateOutput
+QueryTipLocalStateOutput
+                 (SlotNo -> Hash BlockHeader -> BlockNo -> ChainTip
+ChainTip SlotNo
+slot Hash BlockHeader
+hash BlockNo
+block)
+                 Maybe AnyCardanoEra
+mEra'
+                 Maybe EpochNo
+mEpoch'
+                 Maybe Word64
+mSlotInEpoch'
+                 Maybe Word64
+mSlotsToEpochEnd'
+                 Maybe Text
+mSyncProgress'
+      (Maybe SlotNo
+_,Maybe (Hash BlockHeader)
+_,Maybe BlockNo
+_) ->
+        forall (m :: * -> *) a. MonadFail m => String -> m a
+fail forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"QueryTipLocalStateOutput was incorrectly JSON encoded."
+          , String
+" Expected slot, header hash and block number (ChainTip)"
+          , String
+" or none (ChainTipAtGenesis)"
+          ]
+
+data ScriptCostOutput =
+  ScriptCostOutput
+    { ScriptCostOutput -> ScriptHash
+scScriptHash :: ScriptHash
+    , ScriptCostOutput -> ExecutionUnits
+scExecutionUnits :: ExecutionUnits
+    , ScriptCostOutput -> Lovelace
+scAda :: Lovelace
+    }
+
+instance ToJSON ScriptCostOutput where
+  toJSON :: ScriptCostOutput -> Value
+toJSON (ScriptCostOutput ScriptHash
+sHash ExecutionUnits
+execUnits Lovelace
+llCost) =
+    [Pair] -> Value
+object [ Key
+"scriptHash" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ScriptHash
+sHash
+           , Key
+"executionUnits" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= ExecutionUnits
+execUnits
+           , Key
+"lovelaceCost" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
+.= Lovelace
+llCost
+           ]
+
+data PlutusScriptCostError
+  = PlutusScriptCostErrPlutusScriptNotFound ScriptWitnessIndex
+  | PlutusScriptCostErrExecError ScriptWitnessIndex (Maybe ScriptHash) ScriptExecutionError
+  | PlutusScriptCostErrRationalExceedsBound Ledger.Prices  ExecutionUnits
+  | PlutusScriptCostErrRefInputNoScript TxIn
+  | PlutusScriptCostErrRefInputNotInUTxO TxIn
+  deriving Int -> PlutusScriptCostError -> ShowS
+[PlutusScriptCostError] -> ShowS
+PlutusScriptCostError -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [PlutusScriptCostError] -> ShowS
+$cshowList :: [PlutusScriptCostError] -> ShowS
+show :: PlutusScriptCostError -> String
+$cshow :: PlutusScriptCostError -> String
+showsPrec :: Int -> PlutusScriptCostError -> ShowS
+$cshowsPrec :: Int -> PlutusScriptCostError -> ShowS
+Show
+
+
+instance Error PlutusScriptCostError where
+  displayError :: PlutusScriptCostError -> String
+displayError (PlutusScriptCostErrPlutusScriptNotFound ScriptWitnessIndex
+sWitIndex) =
+    String
+"No Plutus script was found at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ScriptWitnessIndex
+sWitIndex
+  displayError (PlutusScriptCostErrExecError ScriptWitnessIndex
+sWitIndex Maybe ScriptHash
+sHash ScriptExecutionError
+sExecErro) =
+    String
+"Plutus script at: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show ScriptWitnessIndex
+sWitIndex forall a. Semigroup a => a -> a -> a
+<> String
+" with hash: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Maybe ScriptHash
+sHash forall a. Semigroup a => a -> a -> a
+<>
+    String
+" errored with: " forall a. Semigroup a => a -> a -> a
+<> forall e. Error e => e -> String
+displayError ScriptExecutionError
+sExecErro
+  displayError (PlutusScriptCostErrRationalExceedsBound Prices
+eUnitPrices ExecutionUnits
+eUnits) =
+    String
+"Either the execution unit prices: " forall a. Semigroup a => a -> a -> a
+<> forall a. Show a => a -> String
+show Prices
+eUnitPrices forall a. Semigroup a => a -> a -> a
+<> String
+" or the execution units: " forall a. Semigroup a => a -> a -> a
+<>
+    forall a. Show a => a -> String
+show ExecutionUnits
+eUnits forall a. Semigroup a => a -> a -> a
+<> String
+" or both are either too precise or not within bounds"
+  displayError (PlutusScriptCostErrRefInputNoScript TxIn
+txin) =
+    String
+"No reference script found at input: " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (TxIn -> Text
+renderTxIn TxIn
+txin)
+  displayError (PlutusScriptCostErrRefInputNotInUTxO TxIn
+txin) =
+    String
+"Reference input was not found in utxo: " forall a. Semigroup a => a -> a -> a
+<> Text -> String
+Text.unpack (TxIn -> Text
+renderTxIn TxIn
+txin)
+
+renderScriptCosts
+  :: UTxO era
+  -> Ledger.Prices
+  -> [(ScriptWitnessIndex, AnyScriptWitness era)]
+  -- ^ Initial mapping of script witness index to actual script.
+  -- We need this in order to know which script corresponds to the
+  -- calculated execution units.
+  -> Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+  -- ^ Post execution cost calculation mapping of script witness
+  -- index to execution units.
+  -> Either PlutusScriptCostError [ScriptCostOutput]
+renderScriptCosts :: forall era.
+UTxO era
+-> Prices
+-> [(ScriptWitnessIndex, AnyScriptWitness era)]
+-> Map
+     ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+-> Either PlutusScriptCostError [ScriptCostOutput]
+renderScriptCosts (UTxO Map TxIn (TxOut CtxUTxO era)
+utxo) Prices
+eUnitPrices [(ScriptWitnessIndex, AnyScriptWitness era)]
+scriptMapping Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+executionCostMapping =
+  forall (t :: * -> *) (f :: * -> *) a.
+(Traversable t, Applicative f) =>
+t (f a) -> f (t a)
+sequenceA forall a b. (a -> b) -> a -> b
+$ forall a k b. (a -> k -> b -> a) -> a -> Map k b -> a
+Map.foldlWithKey
+    (\[Either PlutusScriptCostError ScriptCostOutput]
+accum ScriptWitnessIndex
+sWitInd Either ScriptExecutionError ExecutionUnits
+eExecUnits -> do
+      case forall a b. Eq a => a -> [(a, b)] -> Maybe b
+List.lookup ScriptWitnessIndex
+sWitInd [(ScriptWitnessIndex, AnyScriptWitness era)]
+scriptMapping of
+        Just (AnyScriptWitness SimpleScriptWitness{}) -> [Either PlutusScriptCostError ScriptCostOutput]
+accum
+
+        Just (AnyScriptWitness (PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+pVer (PScript PlutusScript lang
+pScript) ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_)) -> do
+          let scriptHash :: ScriptHash
+scriptHash = forall lang. Script lang -> ScriptHash
+hashScript forall a b. (a -> b) -> a -> b
+$ forall lang.
+PlutusScriptVersion lang -> PlutusScript lang -> Script lang
+PlutusScript PlutusScriptVersion lang
+pVer PlutusScript lang
+pScript
+          case Either ScriptExecutionError ExecutionUnits
+eExecUnits of
+            Right ExecutionUnits
+execUnits ->
+              case Prices -> ExecutionUnits -> Maybe Lovelace
+calculateExecutionUnitsLovelace Prices
+eUnitPrices ExecutionUnits
+execUnits of
+                Just Lovelace
+llCost ->
+                  forall a b. b -> Either a b
+Right (ScriptHash -> ExecutionUnits -> Lovelace -> ScriptCostOutput
+ScriptCostOutput ScriptHash
+scriptHash ExecutionUnits
+execUnits Lovelace
+llCost)
+                    forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+                Maybe Lovelace
+Nothing ->
+                  forall a b. a -> Either a b
+Left (Prices -> ExecutionUnits -> PlutusScriptCostError
+PlutusScriptCostErrRationalExceedsBound Prices
+eUnitPrices ExecutionUnits
+execUnits)
+                    forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+            Left ScriptExecutionError
+err -> forall a b. a -> Either a b
+Left (ScriptWitnessIndex
+-> Maybe ScriptHash
+-> ScriptExecutionError
+-> PlutusScriptCostError
+PlutusScriptCostErrExecError ScriptWitnessIndex
+sWitInd (forall a. a -> Maybe a
+Just ScriptHash
+scriptHash) ScriptExecutionError
+err) forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+        -- TODO: Create a new sum type to encapsulate the fact that we can also
+        -- have a txin and render the txin in the case of reference scripts.
+        Just (AnyScriptWitness (PlutusScriptWitness ScriptLanguageInEra lang era
+_ PlutusScriptVersion lang
+_ (PReferenceScript TxIn
+refTxIn Maybe ScriptHash
+_) ScriptDatum witctx
+_ ScriptRedeemer
+_ ExecutionUnits
+_)) ->
+          case forall k a. Ord k => k -> Map k a -> Maybe a
+Map.lookup TxIn
+refTxIn Map TxIn (TxOut CtxUTxO era)
+utxo of
+            Maybe (TxOut CtxUTxO era)
+Nothing -> forall a b. a -> Either a b
+Left (TxIn -> PlutusScriptCostError
+PlutusScriptCostErrRefInputNotInUTxO TxIn
+refTxIn) forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+            Just (TxOut AddressInEra era
+_ TxOutValue era
+_ TxOutDatum CtxUTxO era
+_ ReferenceScript era
+refScript) ->
+              case ReferenceScript era
+refScript of
+                ReferenceScript era
+ReferenceScriptNone -> forall a b. a -> Either a b
+Left (TxIn -> PlutusScriptCostError
+PlutusScriptCostErrRefInputNoScript TxIn
+refTxIn) forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+                ReferenceScript BabbageEraOnwards era
+_ (ScriptInAnyLang ScriptLanguage lang
+_ Script lang
+script) ->
+                  case Either ScriptExecutionError ExecutionUnits
+eExecUnits of
+                    Right ExecutionUnits
+execUnits ->
+                      case Prices -> ExecutionUnits -> Maybe Lovelace
+calculateExecutionUnitsLovelace Prices
+eUnitPrices ExecutionUnits
+execUnits of
+                        Just Lovelace
+llCost ->
+                          forall a b. b -> Either a b
+Right (ScriptHash -> ExecutionUnits -> Lovelace -> ScriptCostOutput
+ScriptCostOutput (forall lang. Script lang -> ScriptHash
+hashScript Script lang
+script) ExecutionUnits
+execUnits Lovelace
+llCost)
+                            forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+                        Maybe Lovelace
+Nothing ->
+                          forall a b. a -> Either a b
+Left (Prices -> ExecutionUnits -> PlutusScriptCostError
+PlutusScriptCostErrRationalExceedsBound Prices
+eUnitPrices ExecutionUnits
+execUnits)
+                            forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+                    Left ScriptExecutionError
+err -> forall a b. a -> Either a b
+Left (ScriptWitnessIndex
+-> Maybe ScriptHash
+-> ScriptExecutionError
+-> PlutusScriptCostError
+PlutusScriptCostErrExecError ScriptWitnessIndex
+sWitInd forall a. Maybe a
+Nothing ScriptExecutionError
+err) forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+
+
+        Maybe (AnyScriptWitness era)
+Nothing -> forall a b. a -> Either a b
+Left (ScriptWitnessIndex -> PlutusScriptCostError
+PlutusScriptCostErrPlutusScriptNotFound ScriptWitnessIndex
+sWitInd) forall a. a -> [a] -> [a]
+: [Either PlutusScriptCostError ScriptCostOutput]
+accum
+
+    ) [] Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits)
+executionCostMapping
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Cardano.CLI.Types.TxFeature.html b/cardano-cli/lib/src/Cardano.CLI.Types.TxFeature.html new file mode 100644 index 0000000000..0a713eff29 --- /dev/null +++ b/cardano-cli/lib/src/Cardano.CLI.Types.TxFeature.html @@ -0,0 +1,122 @@ +
{-# LANGUAGE LambdaCase #-}
+
+module Cardano.CLI.Types.TxFeature
+  ( TxFeature(..)
+  , renderFeature
+  ) where
+
+import           Data.Text (Text)
+
+-- | An enumeration of era-dependent features where we have to check that it
+-- is permissible to use this feature in this era.
+--
+data TxFeature
+  = TxFeatureShelleyAddresses
+  | TxFeatureExplicitFees
+  | TxFeatureImplicitFees
+  | TxFeatureValidityLowerBound
+  | TxFeatureValidityUpperBound
+  | TxFeatureValidityNoUpperBound
+  | TxFeatureTxMetadata
+  | TxFeatureAuxScripts
+  | TxFeatureWithdrawals
+  | TxFeatureCertificates
+  | TxFeatureMintValue
+  | TxFeatureMultiAssetOutputs
+  | TxFeatureScriptWitnesses
+  | TxFeatureShelleyKeys
+  | TxFeatureCollateral
+  | TxFeatureProtocolParameters
+  | TxFeatureTxOutDatum
+  | TxFeatureScriptValidity
+  | TxFeatureExtraKeyWits
+  | TxFeatureInlineDatums
+  | TxFeatureTotalCollateral
+  | TxFeatureReferenceInputs
+  | TxFeatureReturnCollateral
+  deriving Int -> TxFeature -> ShowS
+[TxFeature] -> ShowS
+TxFeature -> String
+forall a.
+(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
+showList :: [TxFeature] -> ShowS
+$cshowList :: [TxFeature] -> ShowS
+show :: TxFeature -> String
+$cshow :: TxFeature -> String
+showsPrec :: Int -> TxFeature -> ShowS
+$cshowsPrec :: Int -> TxFeature -> ShowS
+Show
+
+renderFeature :: TxFeature -> Text
+renderFeature :: TxFeature -> Text
+renderFeature = \case
+  TxFeature
+TxFeatureShelleyAddresses     -> Text
+"Shelley addresses"
+  TxFeature
+TxFeatureExplicitFees         -> Text
+"Explicit fees"
+  TxFeature
+TxFeatureImplicitFees         -> Text
+"Implicit fees"
+  TxFeature
+TxFeatureValidityLowerBound   -> Text
+"A validity lower bound"
+  TxFeature
+TxFeatureValidityUpperBound   -> Text
+"A validity upper bound"
+  TxFeature
+TxFeatureValidityNoUpperBound -> Text
+"An absent validity upper bound"
+  TxFeature
+TxFeatureTxMetadata           -> Text
+"Transaction metadata"
+  TxFeature
+TxFeatureAuxScripts           -> Text
+"Auxiliary scripts"
+  TxFeature
+TxFeatureWithdrawals          -> Text
+"Reward account withdrawals"
+  TxFeature
+TxFeatureCertificates         -> Text
+"Certificates"
+  TxFeature
+TxFeatureMintValue            -> Text
+"Asset minting"
+  TxFeature
+TxFeatureMultiAssetOutputs    -> Text
+"Multi-Asset outputs"
+  TxFeature
+TxFeatureScriptWitnesses      -> Text
+"Script witnesses"
+  TxFeature
+TxFeatureShelleyKeys          -> Text
+"Shelley keys"
+  TxFeature
+TxFeatureCollateral           -> Text
+"Collateral inputs"
+  TxFeature
+TxFeatureProtocolParameters   -> Text
+"Protocol parameters"
+  TxFeature
+TxFeatureTxOutDatum           -> Text
+"Transaction output datums"
+  TxFeature
+TxFeatureScriptValidity       -> Text
+"Script validity"
+  TxFeature
+TxFeatureExtraKeyWits         -> Text
+"Required signers"
+  TxFeature
+TxFeatureInlineDatums         -> Text
+"Inline datums"
+  TxFeature
+TxFeatureTotalCollateral      -> Text
+"Total collateral"
+  TxFeature
+TxFeatureReferenceInputs      -> Text
+"Reference inputs"
+  TxFeature
+TxFeatureReturnCollateral     -> Text
+"Return collateral"
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/Paths_cardano_cli.html b/cardano-cli/lib/src/Paths_cardano_cli.html new file mode 100644 index 0000000000..35436d8f40 --- /dev/null +++ b/cardano-cli/lib/src/Paths_cardano_cli.html @@ -0,0 +1,179 @@ +
{-# LANGUAGE CPP #-}
+{-# LANGUAGE NoRebindableSyntax #-}
+#if __GLASGOW_HASKELL__ >= 810
+{-# OPTIONS_GHC -Wno-prepositive-qualified-module #-}
+#endif
+{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
+{-# OPTIONS_GHC -w #-}
+module Paths_cardano_cli (
+    version,
+    getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
+    getDataFileName, getSysconfDir
+  ) where
+
+
+import qualified Control.Exception as Exception
+import qualified Data.List as List
+import Data.Version (Version(..))
+import System.Environment (getEnv)
+import Prelude
+
+
+#if defined(VERSION_base)
+
+#if MIN_VERSION_base(4,0,0)
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+#else
+catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
+#endif
+
+#else
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+#endif
+catchIO :: forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO = forall e a. Exception e => IO a -> (e -> IO a) -> IO a
+Exception.catch
+
+version :: Version
+version :: Version
+version = [Int] -> [String] -> Version
+Version [Int
+8,Int
+14,Int
+0,Int
+0] []
+
+getDataFileName :: FilePath -> IO FilePath
+getDataFileName :: String -> IO String
+getDataFileName String
+name = do
+  String
+dir <- IO String
+getDataDir
+  forall (m :: * -> *) a. Monad m => a -> m a
+return (String
+dir String -> String -> String
+`joinFileName` String
+name)
+
+getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
+
+
+
+
+bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
+bindir :: String
+bindir     = String
+"/home/runner/.cabal/bin"
+libdir :: String
+libdir     = String
+"/home/runner/.cabal/lib/x86_64-linux-ghc-9.2.7/cardano-cli-8.14.0.0-inplace"
+dynlibdir :: String
+dynlibdir  = String
+"/home/runner/.cabal/lib/x86_64-linux-ghc-9.2.7"
+datadir :: String
+datadir    = String
+"/home/runner/.cabal/share/x86_64-linux-ghc-9.2.7/cardano-cli-8.14.0.0"
+libexecdir :: String
+libexecdir = String
+"/home/runner/.cabal/libexec/x86_64-linux-ghc-9.2.7/cardano-cli-8.14.0.0"
+sysconfdir :: String
+sysconfdir = String
+"/home/runner/.cabal/etc"
+
+getBinDir :: IO String
+getBinDir     = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_bindir")     (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+bindir)
+getLibDir :: IO String
+getLibDir     = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_libdir")     (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+libdir)
+getDynLibDir :: IO String
+getDynLibDir  = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_dynlibdir")  (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+dynlibdir)
+getDataDir :: IO String
+getDataDir    = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_datadir")    (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+datadir)
+getLibexecDir :: IO String
+getLibexecDir = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_libexecdir") (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+libexecdir)
+getSysconfDir :: IO String
+getSysconfDir = forall a. IO a -> (IOException -> IO a) -> IO a
+catchIO (String -> IO String
+getEnv String
+"cardano_cli_sysconfdir") (\IOException
+_ -> forall (m :: * -> *) a. Monad m => a -> m a
+return String
+sysconfdir)
+
+
+
+joinFileName :: String -> String -> FilePath
+joinFileName :: String -> String -> String
+joinFileName String
+""  String
+fname = String
+fname
+joinFileName String
+"." String
+fname = String
+fname
+joinFileName String
+dir String
+""    = String
+dir
+joinFileName String
+dir String
+fname
+  | Char -> Bool
+isPathSeparator (forall a. [a] -> a
+List.last String
+dir) = String
+dir forall a. [a] -> [a] -> [a]
+++ String
+fname
+  | Bool
+otherwise                       = String
+dir forall a. [a] -> [a] -> [a]
+++ Char
+pathSeparator forall a. a -> [a] -> [a]
+: String
+fname
+
+pathSeparator :: Char
+pathSeparator :: Char
+pathSeparator = Char
+'/'
+
+isPathSeparator :: Char -> Bool
+isPathSeparator :: Char -> Bool
+isPathSeparator Char
+c = Char
+c forall a. Eq a => a -> a -> Bool
+== Char
+'/'
+
\ No newline at end of file diff --git a/cardano-cli/lib/src/highlight.js b/cardano-cli/lib/src/highlight.js new file mode 100644 index 0000000000..1e903bd0c5 --- /dev/null +++ b/cardano-cli/lib/src/highlight.js @@ -0,0 +1,27 @@ + +var highlight = function (on) { + return function () { + var links = document.getElementsByTagName('a'); + for (var i = 0; i < links.length; i++) { + var that = links[i]; + + if (this.href != that.href) { + continue; + } + + if (on) { + that.classList.add("hover-highlight"); + } else { + that.classList.remove("hover-highlight"); + } + } + } +}; + +window.onload = function () { + var links = document.getElementsByTagName('a'); + for (var i = 0; i < links.length; i++) { + links[i].onmouseover = highlight(true); + links[i].onmouseout = highlight(false); + } +}; diff --git a/cardano-cli/lib/src/style.css b/cardano-cli/lib/src/style.css new file mode 100644 index 0000000000..0146eeddca --- /dev/null +++ b/cardano-cli/lib/src/style.css @@ -0,0 +1,97 @@ +body { + background-color: #fdf6e3; +} + +.hs-identifier { + color: #073642; +} + +.hs-identifier.hs-var { +} + +.hs-identifier.hs-type { + color: #5f5faf; +} + +.hs-keyword { + color: #af005f; +} + +.hs-string, .hs-char { + color: #cb4b16; +} + +.hs-number { + color: #268bd2; +} + +.hs-operator { + color: #d33682; +} + +.hs-glyph, .hs-special { + color: #dc322f; +} + +.hs-comment { + color: #8a8a8a; +} + +.hs-pragma { + color: #2aa198; +} + +.hs-cpp { + color: #859900; +} + +a:link, a:visited { + text-decoration: none; + border-bottom: 1px solid #eee8d5; +} + +a:hover, a.hover-highlight { + background-color: #eee8d5; +} + +span.annot{ + position:relative; + color:#000; + text-decoration:none + } + +span.annot:hover{z-index:25; background-color:#ff0} + +span.annot span.annottext{ + display: none; + border-radius: 5px 5px; + + -moz-border-radius: 5px; + -webkit-border-radius: 5px; + + box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.1); + -webkit-box-shadow: 5px 5px rgba(0, 0, 0, 0.1); + -moz-box-shadow: 5px 5px rgba(0, 0, 0, 0.1); + + position: absolute; + left: 1em; top: 2em; + z-index: 99; + margin-left: 5; + background: #FFFFAA; + border: 2px solid #FFAD33; + padding: 0.8em 1em; +} + +span.annot:hover span.annottext{ + display:block; +} + +/* This bridges the gap so you can mouse into the tooltip without it disappearing */ +span.annot span.annottext:before{ + content: ""; + position: absolute; + left: -1em; top: -1em; + background: #FFFFFF00; + z-index:-1; + padding: 2em 2em; +} diff --git a/cardano-cli/lib/synopsis.png b/cardano-cli/lib/synopsis.png new file mode 100644 index 0000000000000000000000000000000000000000..85fb86ec84907bcc86531dc82871948ff4d471fa GIT binary patch literal 11327 zcmV-FEWp!=P)4Tx0C)k_S!GyNTeqHT_l8Y(cXyX`gGi?cY`Qxn1VID|MJXwjPC)?)F$h6K zMMOd+6hs7sqbPzXbr*U(-*=zy-hcPcUC*=TdiNM(jyd-lv&OpsU|J&v2m2!^0SE{T z54F(O;E2!K(!rTCW z%wV;vdzf1QjBf#e&~gh74F>?Z4a=WLg$KhJ^$5nap>PLbJadS>e&h8+?D`9%QNL`g zEVKbYGXj7k5Q(8)0Fd#*a?VIMFW3*64geVHKzE-&0BG!BtmfuTbO(T`0Jaeg2nagF z{V*1E{Wm{e|AvV~*MEExiC+KU-~R=!2{)|c6Bg`GjQ;iG|FQ`1kAUCTuZtQk34#8{ z4r4(3g7#|{=Z@d+d#}7f!3C=>=26vx*jwA8>@MS>RG@Tt_zt3hie^T z_?0%9VUd=)Fos7I z^ghPh%Jy%YZ|)vCf6EaFPai$Q-!=$ppK!y&wrJs)bNdAuANB!m3n34Tfj{s75g-&U z1A!Pg3bcXF-=!Gv1VmU93G2duANT;{0JugFTqg*|oPXPC|A$2HS3NJd-hcPV3EW`Y zh=1Dr-5Mv{<{zIvz#Ybay&^Vcn^E_`qRfl{{bzYkp)4~$~NAx_VB;E z{?P)PU)DbV{Qi#~0H0@T9czDj06@6MNq8OrpdAz(9qQxd9nPr<&s+~tPQySqaZyfb zNh!%g_5YjeaLxMN*$sv_p;d%b#U$Wpz0Geb0U>E+EOsEQ;I!&= zNC6q(BFFWohy&t- zL?CHM5mJM6p`(xmWDmJOUQi$u0mVUQpbRJ*DuT+OI;a`C4fR4p&?xj8nuk`Puh35f z55*JWF{C0=8)=GkKzbrWk@3iMWInPS*@Wyu4kE{pbI3L14-^JPgW^Pq!Q<2bWsPz} zg`nb5nW!REEvg;Wj~YYGqt;RTXfiY_S_G|(HbmQ@z0gtU6m&ki8r_B-Ku@3-(OVb{ zh8`n;QNS2r>@mKWSWG773g!l;2Q!LUz-(f%SSG9pRuyZCC1S&|DcC~nb!<2G1$Gg; zjU&Zz;G}VSI0sxHE(w>9tH<5Py}&KucJP#VKD;vC6z`6Y#%JLx@m=^4{33pbgo;Ff zM3uyf#Fr$Iq=2M}WPoIbWP_BHl$%tE)ST3Z^fYM!=}po{r1PXd2-E~&f;PdC5J9*= zs3G(aUK2LR$jJD~G{_vt!pSa>)sa0QdqcKOPD3tEZbLrbsZB|wjHfK7yiNI%a+8XNN{Y&qDu61Js-9|yYMB~K%}=dM z?M|IcT|xbTdVvN>!$YG@<3@9arjllWW|0;{D?n>V>r0zK+erJ2cAbuzPL|Gw?j&6? z-95TFdL%tRy&=6neHMKS{UrTQ1~vvw1`mcbh9-s=4Br`97&RC@7}FVVFitT3Wa4Df zW%6UX#MHqw%Zy?cW;SPzV!p~ez`Vvn%c8>K#*)s`!ZO8*U=?PyV2x$1V13HE$;Qs6 z&lb#9$o7D3jh&udgWZ=sm;FBb3I`2`8ix-@E=M=VM@~9UO-_H#0?vNUbuLye1Fi_J zGOlM_JKO@?*4#+T3Fgmx>$N#hD=6JCPAiC=8LR|tcUDX*;jHjawc-Aa(!}p@(S{y z@=fw93cLy~3MC3J6=@aC6f+ecDWR3LloFKgD*aHFR}NQhQU0tVrsAhkud;kZ;E2bO z$|DP^+^R&?GSxXXPBj;`QnfjCE_I@Mx%xW|9u0SmYKzbdmB(*}d+O)oF zD{G(9?$JT&=D|u+DJZ zNWtioQNJ<4*wVPj_}x+AqoGH;Ob{kUCOIZE$M}u~9_ug#riP|Drn6=OW+7&G%rWL> z=Ede8ETk;rECwxUES)XuEw`++tg@`8tp%+ktov*zY#eRsY`)v-*k;?#*-6-)vU_6B zZ0}>=>40^xaj16KJg$2@@A#sloMVdPRon; zro?jMrmLZAiR-$Xw%cX5Rd)^dT=x|ZRgY|sB~Mk)Y|mvcRj(Yc6>oL#eD5_MZJ#2a zFTMu8*L=VGnflfE9r)Y&-w413xCGn|qz?28>kOxb4~I`91S8Hy%txw47DsMJ*+jLTq&gXR@@ceibXxRMj9yGtEGpJ5wl9t= zE-`NYl;)|jcqraAzAu3%Avt03wEpSZM3O|m#Ni~#r0k?`XKc@OC9@@;PF^^xf3_io zJS8;cWvWW*wR5O*KIfjL$)pvg?Wen^KhBWM$j{i#bjy5vUg~_o`GX6d7oKIwXI;IB zxfpnH@{;j<`HmaI~Pakhkz+;ck(4 z(L}LU@r@GJlC+ZVSKP0>xT6f*a^OxsWU@9UjK2+LN4pu2v z)m1ZBXH@Ui1lG*eTGaN}Db&@~v({%dAQ~bXR<1ijt)TYR@l+GyI++oAU8_Vo_$j=4_z&e7XOxBI$Oy4voD->JFFb+`B) z-My^)B=?i=A9TlbZ}tTDto3^JF7!F~O+T=EFy3$8|7^f`;L$_9hYtod2fH7sKDs-k zJaqf9;^U4d@=w~I$~|oxmK$z+CjYE`L}8@!xzh8l(IcbxU#P$69n%?mIBq!pWa8Mw z=%n@JtCx;1=U%zLT7K>S`pZ=0)Xwzj8T3s0Eahze8`d}FZ-w68n3JEoH?K4Q^qu9q z=>@li)%RiVcNddCkbTHs;#jI%mR`QQqPOz=CgGy+9whdp4g`BLCvp!8U&;uov(!a2t+bEnRv6HXyi9t`-YglcEo`$K zI8GTZXYLH1F5YE+b^&9-c%dfYc~N>X1MygiCdpZ8N*OKLV7W5+5rusvVP$KTgd_E; zV`@J%*flk^Jhjj1)aX9cTQC5ItVZ(2W=FkE;*aH-)|+*kk6SET?pjmWaNEk+>D${o z_#cmV%sNr-bj$gX%QW$m8{|&wA?SI;%go!uC))SCU%7vKz~jI-L0?1Ap^RZ7;i?hG zB3+__P9{WW#uUa@#oavB8Q+`m==5;nXwvwZiR6j1<0+%5!{;8Q^`_s>XwIxTUvlAM z)|rdpmprp=bM$iM@_6#8@((Vr7Q8HcP;{fXs3iGH;8nY8TBRaov}JqcixtC_ZBw07?YBCLI#1vB=rX<|d6)j~ z?!9;SA9XkN4rDD83J6N{$`!z{xG&lW}=KCd6md=WHe zF)la3F!5t@`sLkMS6?Sg5vR3gcxTbGOK%>(y*_twKH{Cjg64anMViI^4{J-a%g0=3|@n*5+(H4=G;Z`Bm z0XDw2UUnY#t`5ZG&WObDFO_)C zCe0{aEki1k_dNXt+=U-mA1_W_8p^(%Qj|@Mb z9sM+h7-yIepVWIvd=>Y)XzKR#)XeT1jH zI8-@&65hs?W6g0$Tn9b?K9MevmJ{6JljSOT6GbGYHWfM5G<6M41g#z&E8Qx6H$yI? z50eHn6Z1ODBi1suSavH8F-{EUJXaTYHjh8AJ|73)7XPq7gt>OirQ5IDz)!g7S$y<#pnvPn` zTCcP(>sag3>W=B<=vx}l7>pa{8`&AN7|$LpGx0noeC)GnyV)so9SefRgyl6WA8Q%w zeVfO&`F8I1(hk7k+3~B6fhW|RD4pIpx4EPekGo2^q1>k2n?25Xx_BviQ+coYJoGK~ zi}SY&kPV~?{2VkK+z^r;>Jw%VE)ao-y@)AN%A4?QY z!X(X~xtpASHaNvFl_z!g+(cSqdP;^mD`$^mG5`i zpn$&+Rk%>pUtCp^dd2Um*){o6wlZ|t=klqF!OHfk>gs};%-W>7nEHr@(CeX%5lwM7 zQg7xp*S7SwzHLLbOLn+*Uc0?`NAB*$d)wWCJsW)~{h|X4gV%@BpPU*_8L1qd8t0!( zdySmVd!st{bK%K{=9Rj&=Ffv)KX1|hFxkC)82{hg(&3(fkq6-NB>?O?0kGBtAd?QJ zm0$~|LIBLj0I*U5i1iA9XzK$|?dCuG2lOlFq=GX}9v}f{nuc(O=>uZH1yBw;!3bD_ zU{(i`gLA_m=mOLPjX+-zbO8W#QsA+O&>1m7Uxak_`<>>nu%o*kx!T2DqomQ{`*59GHMHWa@qZ7S~^!Kl)z@vEz7SZjuAWovinywxMoS2FN7 zEH|1t%4A}H?2754xrD_j%Moi{n>gE7_6iP##}7_;J59Lg5Ifz(-D^B~y{dc!eQ)?H z1`GsQ2d{)Cgfm98MOmHv9&;s5@6?xs(nO0hxa6LcxN|CLdl`M_GqP+i31t7w9nHU9 zkY40hVt!S*RG^%pl2DDR1@+)Ms)_U_Lks^c#r9*J-d)LeEAIFAEIl9{kQ}rbihXiz zxOZfJbZ?wtQtXx5l+ld&8>=~scSi5kK8P(dtn9DO{nh=s_)Emb(M`^+uiKA)7VrA) zEB#tO5ODlSVZM$P@WWh#2Fx+Iz|6u~m`%6|24UXdCqxG`1g0=2kOkd@#-Q&AR(P%P zMdTpvAy(jBM;jT2tUyk{D~~EF3{{U>K(nFk;T(JdLx-`&6l3PF0@xsI7Y>87!d2q7 z@J9GD{0|aKlAELyq`{in5#@A}YP&ZEYQ#XH-V)Gsvv6_^~14ao?j4lj=6k7|w9iW!UZJhhvUlPHq(FxfQ) zq?V>>q`%8dxgeZ1aw#H*HTOZjUjc35y<*QR6jwV-iRB~}tyPXS=-S45n}+?ysv9OZ zzqJ(K(rR1j$hs}xHG4PtzG(M&@2Lj@{VyISJQ5#z^W@U7{hV|l=i6Vte3RLV-yYuK+dKCw{z!laG%#N$3ABJM%p<0O zYA^skKqQbP%m$r-WBwLFh0ujLomRwONMWQ8vL5*f<`CmhgJ?Rm2f718hVj63W7)9r z*mpQXTq~XnpG|@xNg&xFjU_!Gq>|CVvs#J#1w}9=HDxE2J2egUAWZ`85!yYvKKcv> zJ4PYKJ*G+KW|m8=VQlv7TJY|}%00wyKDli~41a=UN19Bb{{JVSQ=?d&3H&&qviwE*<+| zre!9^?4cDF}{Txa*#Kx+jZQvyZXwvVVG@WYFu7)G)>HwaCho zPBE;pGpDX4cqED@Z6)`nTsY^LE}F4-ek7|Lj+#LpTmF}Vfuf?4z^j_2v}GSEI;v7@ ztn0YySFg7=Mcq_r{?^*qM(m*I?Cd&z=li|$-7G!jeOwO;25=992SX5MzsmCeV$vtN*Wk9q%cvGzm6 zlGZYQ`Nc~9M~79`)tR-DzwAEIeH!_EZe4SI`^$~5?i-97Prt=)N^Q<3ePg@o zht*Hi&(|HuI*eO3a z*sFk(4fq>KkN@xQ6^F(cm~$_2K14li9;XkV|9<@!M&f%8Nam8p00009a7bBm000XU z000XU0RWnu7ytkil}SWFRCodHT?u#;Rkr@KbUNvfeG_5`YY-wNfPp{+o{ADgGcxep z5O;8ydCWk3pWowCbe1RjK4lzy;4&jKqk}U-a1=+ud7z@;LLwlFC>S)v1jwFrI_XY2 zop;WyuIf%_F~x?x|CCgE~7q5lBOq0>MKUdH^|7ARquk zTn+*P5DlHMG@8ELxbaVWHf?&T znHpfF&E_pZ&^rD;1;7qozi0Q$(`V)7{8<+kI>wdbHk%E>!9AN2eO+^{$KB)hHtVU6 z4;0@%KYw`%{kM%aj|)L>`1``u*EM%B_Ep|f_7iHT~t6&rZsneaT;XVt##n z3*O&%0=#!k4Gq$@x_XoAC663)d$?Wm=UXTrha?_sgD)BZa!4dhf)W5g$)o+5f!@!6p= z7>#E6lGpa0z~7?)*juclePn!mT$U>W2F?VqT7?}(LqHHhL#3+DoNXk5_#Pb{(lwSP zZ<=X|iSbjYeFoatR`H}3=!RdX3qeSTbc>FTPC&5WKoW3vT<}n4p!jve)Qtntp05&Y$`N~L&mauhNrjZlt#E%Rdnz*4RdA(~WsS0P~4Cker*^h9K3rID79 zAhx!)2_f*-6tD+E@|~5o_HbR*DQEm#fix64W;xPOIEsuwz3>ej`Mg}wlx+M?%^s;7 zt7<_1|D+24j|zb6{d*Duo)R*nQ%A&N`m}UK6}Gim#oV|jr-^I5{&3u6Y!z0&JjK=N zf~iA{0UNr_&1RH*=FkdaRxmwXu@ih1pW6b!KwO1@&&hNBf0 z=VYU~zns|bF>|Ig{pE8Oi&e4q8Sf>;d>$HnJ*g4^2E{@!BWJXj|MK2>t{)#4iCiKM z_X3_Wd3!22SVWGECF_5t9Wx1ebdVe1IRabo*K&Me+mp(08G`jsI~A7O*rz=A?*I(Ym_y4*ZBHj<`2EIL z@XCfeuGtW8G6RGFlFM<@CjE-OtU#5a;0kB%yXw(N%<3n(~sBeG(H{~)Y9EAyo%kT#Rg2j zpdOnacnjrpoDswQL%S&=xD)LJZ^c?^7~tUKxVSW2U-+UJ`I8c2{Q|sd4FLUcTr-0M zaqMa26wFKpz7U~s3AlNV^qhrHMbm9<`9gTLcVV_VCkYcW$bp+1aV?*4j`n;5NQvl5P$NHC1)DVqF ze?14Uta}S5dTDmrRR#Fn;tPAZ>c6M&cw`%zt17X5(`x+mXPZPMYENh$xHA{IIn#Q& z^ zG}YF_5*3HIuofIEDMeLB1jc8M#;C+D(d52>)gx`#@~i9ZqkAV_+e~x*&R~QFvHtHw zX=O8P?QIyJ9Ss9*B|&g;0hMp z3Alm-uHb+xn7Ts16&!E{`__2XkJh+p1UhOAxPk+&;D9SQ;0g}7f`^~4p*Mp`Hum_uHM8Ep9TllPO>m-^Cs zpVwg1bK6i`-w1z*2vDs7WXVaJJHyU=rk@Vk3#W^iKzdl}7D4^3u#E2B8*>%rGlt8u z5=Bg)^vMF>N2OW-kTeo=C=#;#Uwg6hiz=At%UPznGuZL$9uX3jIcgXzEoL+}ne7De zePX!NLIZ__1sfvpaY5fTR( zUH5HKQ7-^w@TCk-ATqS$+;^2Y-9Yg{p~En8>~LcE&~OCN2SO-y!qgT7qsff0kWR!$ z^D81!lBm$TfXL;}=Y9YJK+SF{!{d*=}ZDsk}pA}{0WdF3_)n|T5 zFNK7P(SF;zrP#jx9qieE2>F-K@p;gyHGt(@rI_!hEt)McpP}lbFn3v=a0JCAI=-Ld z^HfmLKw}#PgVO)j-n&3BpR3@}{)WrPilHHGIK3w22T8R6=u<`rMwjnBh~jFy5zt}A zN81hv!KkMXNNPDnh1mq7H@>uwma1@k3;2!wtQCOj+9tn%uigkWBw{AL|5)BofhX2& zA+XZ302%fCsUzg9CimQPVv`f;C6O8|{n>ML#6sZcPqU_9DPe!$!>g7coyleK6R!5=0O9Kit+4(r(6 ziv6QJ8-P(X4Sa3SakRGjFIv?a0G4_jZD3}d!^RD-cH>&cq5?d2jrKkeAp_;!Ur#;& z9W7Y4e9epUX=T6m-g%gom8l&2YDT>Vpn#D2K2TLOYC9;D1)wkDRn>N#8T3J_^Lk0W z2GEDo5^3Wxdgdfd9w7&WOIUcVywJ$#^9sz{H)rNATQUdN%*}+3f?}K#TL)6Cfb&`3 z%&Qjw3IaWJ_$1z;4dDsM&%YQ~=42pUgopbkSWmW!9lu+5e2Bl(Hp~!=)psw#l#5d7 z<59t4!9`Er%bRtn7l4p3WRMY9&31sf7Q0{HC$^-K>G(;07G_Pk5PmWfQbk{$>nD;C z$aX+;iw(co_@<~Qn^p+B=a%_MiWA>XQ&sn1{z<(6(1#*dufHEF>#Fe8m!&8!F2%dw zHlg}-8UFYJZG<8tdn)d^eHPNC3G-m$^7_440RBMV3*u1l6Q_-MckXuK!rmQ$k)#dR$sG z@^U71!@qOSF|2)@pOpG;Qm+AE#NKTmpy<6aRJ-8I$ex7UR10>zRSMI&Dx4*+aC%oe z$>ksZdHCl3@33X-u5M#~!F>8s>bP;(@Z1iZ5DQ57E(pe>^RmdH=2Rkv1Y;;r0f4a|kUQI?AO7tZbEf zJ(*E203jiWBR5FKRnt*$=_L9l06hS)bRb+XpPQ(|6)W>G1u?i-W6WoCJgUlRkTWYJ9y;~2lKhQP~5|72z2_#^8q&npdI^OKWZnM4)jd~lxFIKK%PKOm(9u+`!IG4P>PAtq9@Rh0JE!{0DuH! zkK`y|6ZXDM&ju*fYcM2?dkd?0BQd?AvKl9=rI$l^%Bzo%82pwp_ z3!t@d`N^j}MPee&>2}gr!FRvB)4o^~UCPYDMfxiI>b@c+MsVI_ZG?n%#SdILF9)yD z8iBv~&32h6$j=)^`5;_--)1F7aK==Pycf`JwRRcIa&EjD`NGhX@h9M+TM4YCmA;oJ zrO3=nv3MeD1n(z%`&dZj&7(JU#eehVv~0XE^yJ%^arZ3+;^s6cinJi_LRv*8MlRsh z{Xp^er2%-zvwii|iPQND<~cxwB;)S&_u$&{D%8_7aQMh%>8YP30yAe!z=De>;j*0J zN>6b7(K|VAAJyy)=J$-BZpMp7n5{I{+sN@1<}jm{UYm<6az zC)2KLBDKeY!To$ha&qG2BZqfAotPNM^BbQ^H8u4$*;5z(vZ|_v=c1LgH4&aJ8cR)s zhZ25=_;#ffO9d0sLd30K^&jiDoI6+3R|Htse-FYDw`bL=buUu;*yY6jR@v$9iMtOO z{Jm)a77X@ba%$f%7edh>l!!{woQDqvAyLn?wOiY*$B%zo zv32X~pEWczvH$rLZ56cfy6vr`0a$epDA9d}4E`PkfT>4BU?%e$j!CrfB%e1P1~}M{ zuQ8DZRRHLI>|J6XE5CNbPoY`u^Tv~L_DESt0J@K9biv&;RPgs@1TwMtC4bqg&n_U& z^RqpU@fmCZV8(Krcxd8Db|Y=v9v+%_sqO*ye5%7a4GH|cY5=AL^#T?U?(IAraOf}Z znfd(s?_l?Sx}{(;kM%5!ES&ry9?r8?uz9NYQ(Ynr1^j&q08@d8z|&jaWMSaE-1`Sx z2*lKk?$1KN8*2mJGw(g3`l+riN$dE3Q~;P7LCd=wx?7hW&8J3pu z_e%g|LIn2Oqk!C_wTCQ#s9zKa2tdEcq}@UR0njdQ`-LnZ0R1A9b_)drK)bx{7qWl= z^ovZ|Eff#{?eex?$N~b;FEVMjP(T2*%iDe-`+v|7m{y$1dn*6{002ovPDHLkV1lnB B5rhB$ literal 0 HcmV?d00001 diff --git a/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html b/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html new file mode 100644 index 0000000000..0c6f10b7f0 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html @@ -0,0 +1,5 @@ +Test.Cardano.CLI.Aeson
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Test.Cardano.CLI.Aeson

Synopsis

Documentation

assertHasKeys ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [Text] → FilePath → m () Source #

assertHasKeys keys path succeeds if path is a file containing a JSON object + whose keys is a superset of keys.

For example. if path contains "{ "a":0, "b":1.0, "c": "foo"}", + hasKeys ["b", "a"] path succeeds.

assertHasMappings ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [(Text, Text)] → FilePath → m () Source #

assertHasMappings pairs path succeeds if path is a file containing a JSON object + whose mappings is a superset of pairs.

For example, if path contains "{ "a":"bar", "b":"buzz", "c":"foo"}", + assertHasMappings "[("b", "buzz"), ("a", "bar")] path succeeds.

\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html b/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html new file mode 100644 index 0000000000..9962efe3e2 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html @@ -0,0 +1 @@ +Test.Cardano.CLI.Util
cardano-cli-8.14.0.0: The Cardano command-line interface
Safe HaskellSafe-Inferred
LanguageHaskell2010

Test.Cardano.CLI.Util

Documentation

checkTxCddlFormat Source #

Arguments

∷ (MonadTest m, MonadIO m, HasCallStack) 
⇒ FilePath

Reference/golden file

→ FilePath

Newly created file

→ m () 

checkTextEnvelopeFormat ∷ (MonadTest m, MonadIO m, HasCallStack) ⇒ TextEnvelopeType → FilePath → FilePath → m () Source #

Checks that the tvType and tvDescription are equivalent between two files.

equivalence ∷ (MonadTest m, Eq a, Show a, HasCallStack) ⇒ a → a → m () Source #

Check for equivalence between two types and perform a file cleanup on failure.

execCardanoCLI Source #

Arguments

∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) 
⇒ [String]

Arguments to the CLI command

→ m String

Captured stdout

Execute cardano-cli via the command line.

Waits for the process to finish and returns the stdout.

execDetailCardanoCLI Source #

Arguments

∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) 
⇒ [String]

Arguments to the CLI command

→ m (ExitCode, String, String)

Captured stdout

Execute cardano-cli via the command line, expecting it to fail.

Waits for the process to finish and returns the exit code, stdout and stderr.

tryExecCardanoCLI Source #

Arguments

∷ [String]

Arguments to the CLI command

→ PropertyT IO (Either Failure String)

Captured stdout, or error in case of failures

propertyOnce ∷ PropertyT IO () → Property Source #

withSnd ∷ (a → b) → a → (a, b) Source #

Return the supply value with the result of the supplied function as a tuple

noteInputFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → m FilePath Source #

Return the input file path after annotating it relative to the project root directory

noteTempFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → FilePath → m FilePath Source #

Return the test file path after annotating it relative to the project root directory

redactJsonField ∷ MonadTest m ⇒ MonadIO m ⇒ HasCallStack ⇒ Text → Text → FilePath → FilePath → m () Source #

\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/cardano-cli.haddock b/cardano-cli/lib_cardano-cli-test-lib/cardano-cli.haddock new file mode 100644 index 0000000000000000000000000000000000000000..44cbcbfcd7c415b321a2d570af5d2879359f9924 GIT binary patch literal 3522 zcmdT{-EJF26rNq%`LUBGY14*El^7WnS}9)I3IqxgsB#X5i&#yp7S<9LWO2m*1BU zK`Rz{BDCqmsS0Yre7GU3mAShk>=*LL@_l+_!VQ9OncE_crA#bWeGbuj`TZ&5%5uT` zDwRAo+6kqV-ouxBI}h%2)B9G&uE`Gu#>!Hk7q>+wb1NM;r82S<22m{tSGP^h<)Ij6 zsfFCb_hKxe-(y)c^wQ5k2Rl$qlPy(3#83|0@CF% zklH7=hN|l^(F^Cl><AixZ~>1n`uQ(yr2@*8_yXXGI`BQ}ZL9Q)4UoNEj%S>Y2q3Opzu$&ZWT3knuf}CQ##5PzBRB-)IseEl0CKo|JXbd{z4& z?4iF9e?sZ30B=!)qMpS?-@&ZV+Bk8X;#{V9AHl5gXR_Q-J>hxV1ctTGjU5V;r z_>sC2lux0J8h%=uW{6sN>1Mu%9;-cZdL7*_?;bNlrS;Xqm9EH8|8Tyn{Thv5Z&Km8 z`i#vRUC|RM5FPJ}J;}8g5_4g~vzgI}@A2a-d#V$?R91Mf7T&n6M=Cd(0tKLuY)J9U zDDCTFTnjy=MSet;kr%qcYOlyty_$wPm7#U7^fdVXfYnn_pOLww79R4cayr=NB-3uhaBhqX*6EjD~ea(>kMZ zozc9`XkceFu`?Rk8O`hrlYYp~&|`(puF_+TwrA;aj;)`sU7)uOdc1Y<`c(7kd>mc> zAi5S^>wxW25zEf>kHk!!RP`?G;w9>qJud>HqnpwieSYTi*G{F&lZoUD4CiZ;-SKF5 zMgmx4T~M`7+glRzfBNF%n#+%<>Am=};pgUEdFX&WnVL*)gH426E59FhlO!#_EQ6or zUE=O-BzuW=yK{3cE!k>6Mm51;B E4IT|H8UO$Q literal 0 HcmV?d00001 diff --git a/cardano-cli/lib_cardano-cli-test-lib/doc-index.html b/cardano-cli/lib_cardano-cli-test-lib/doc-index.html new file mode 100644 index 0000000000..b4ada2f738 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/doc-index.html @@ -0,0 +1 @@ +cardano-cli-8.14.0.0: The Cardano command-line interface (Index)
cardano-cli-8.14.0.0: The Cardano command-line interface

Index

assertHasKeysTest.Cardano.CLI.Aeson
assertHasMappingsTest.Cardano.CLI.Aeson
checkTextEnvelopeFormatTest.Cardano.CLI.Util
checkTxCddlFormatTest.Cardano.CLI.Util
equivalenceTest.Cardano.CLI.Util
execCardanoCLITest.Cardano.CLI.Util
execDetailCardanoCLITest.Cardano.CLI.Util
noteInputFileTest.Cardano.CLI.Util
noteTempFileTest.Cardano.CLI.Util
propertyOnceTest.Cardano.CLI.Util
redactJsonFieldTest.Cardano.CLI.Util
tryExecCardanoCLITest.Cardano.CLI.Util
withSndTest.Cardano.CLI.Util
\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/doc-index.json b/cardano-cli/lib_cardano-cli-test-lib/doc-index.json new file mode 100644 index 0000000000..567643540b --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/doc-index.json @@ -0,0 +1 @@ +[{"display_html":"assertHasKeys ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [Text] → FilePath → m ()","name":"assertHasKeys","module":"Test.Cardano.CLI.Aeson","link":"Test-Cardano-CLI-Aeson.html#v:assertHasKeys"},{"display_html":"assertHasMappings ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [(Text, Text)] → FilePath → m ()","name":"assertHasMappings","module":"Test.Cardano.CLI.Aeson","link":"Test-Cardano-CLI-Aeson.html#v:assertHasMappings"},{"display_html":"checkTxCddlFormat ∷ (MonadTest m, MonadIO m, HasCallStack) ⇒ FilePath → FilePath → m ()","name":"checkTxCddlFormat","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:checkTxCddlFormat"},{"display_html":"checkTextEnvelopeFormat ∷ (MonadTest m, MonadIO m, HasCallStack) ⇒ TextEnvelopeType → FilePath → FilePath → m ()","name":"checkTextEnvelopeFormat","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:checkTextEnvelopeFormat"},{"display_html":"equivalence ∷ (MonadTest m, Eq a, Show a, HasCallStack) ⇒ a → a → m ()","name":"equivalence","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:equivalence"},{"display_html":"execCardanoCLI ∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) ⇒ [String] → m String","name":"execCardanoCLI","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:execCardanoCLI"},{"display_html":"execDetailCardanoCLI ∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) ⇒ [String] → m (ExitCode, String, String)","name":"execDetailCardanoCLI","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:execDetailCardanoCLI"},{"display_html":"tryExecCardanoCLI ∷ [String] → PropertyT IO (Either Failure String)","name":"tryExecCardanoCLI","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:tryExecCardanoCLI"},{"display_html":"propertyOnce ∷ PropertyT IO () → Property","name":"propertyOnce","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:propertyOnce"},{"display_html":"withSnd ∷ (a → b) → a → (a, b)","name":"withSnd","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:withSnd"},{"display_html":"noteInputFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → m FilePath","name":"noteInputFile","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:noteInputFile"},{"display_html":"noteTempFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → FilePath → m FilePath","name":"noteTempFile","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:noteTempFile"},{"display_html":"redactJsonField ∷ MonadTest m ⇒ MonadIO m ⇒ HasCallStack ⇒ Text → Text → FilePath → FilePath → m ()","name":"redactJsonField","module":"Test.Cardano.CLI.Util","link":"Test-Cardano-CLI-Util.html#v:redactJsonField"}] \ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/haddock-bundle.min.js b/cardano-cli/lib_cardano-cli-test-lib/haddock-bundle.min.js new file mode 100644 index 0000000000..188ab76a38 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/haddock-bundle.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;e element with id '"+e+"'");return t}function x(){return u.defaultInstanceState==i.Open}function w(e){for(var t=S(e.target.id),n=t.element.open,o=0,r=t.toggles;owindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return d(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),y}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");p=p.name}else a[p]={weight:1};this._analyze({key:p,value:this.options.getFn(u,p),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,d=void 0===u?[]:u,h=t.resultMap,p=void 0===h?{}:h,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,m=-1,y=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var _=d.search(i);if(this._log('Full text: "'+i+'", score: '+_.score),this.options.tokenize){for(var b=i.split(this.options.tokenSeparator),k=[],S=0;S=c.length;if(this._log("\nCheck Matches: "+T),(g||_.isMatch)&&T){var N=p[a];N?N.output.push({key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}):(p[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}]},v.push(p[a]))}}else if(V(i))for(var P=0,j=i.length;Pcardano-cli-8.14.0.0: The Cardano command-line interface
cardano-cli-8.14.0.0: The Cardano command-line interface

cardano-cli-8.14.0.0: The Cardano command-line interface

The Cardano command-line interface.

Modules

\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/linuwial.css b/cardano-cli/lib_cardano-cli-test-lib/linuwial.css new file mode 100644 index 0000000000..cbb58a0389 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/linuwial.css @@ -0,0 +1,877 @@ +/* @group Fundamentals */ + +* { margin: 0; padding: 0 } + +/* Is this portable? */ +html { + background-color: white; + width: 100%; + height: 100%; +} + +body { + background: #fefefe; + color: #111; + text-align: left; + min-height: 100vh; + position: relative; + -webkit-text-size-adjust: 100%; + -webkit-font-feature-settings: "kern" 1, "liga" 0; + -moz-font-feature-settings: "kern" 1, "liga" 0; + -o-font-feature-settings: "kern" 1, "liga" 0; + font-feature-settings: "kern" 1, "liga" 0; + letter-spacing: 0.0015rem; +} + +#content a { + overflow-wrap: break-word; +} + +p { + margin: 0.8em 0; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +dl { + margin: 0.8em 0; +} + +dt { + font-weight: bold; +} +dd { + margin-left: 2em; +} + +a { text-decoration: none; } +a[href]:link { color: #9E358F; } +a[href]:visited {color: #6F5F9C; } +a[href]:hover { text-decoration:underline; } + +a[href].def:link, a[href].def:visited { color: rgba(69, 59, 97, 0.8); } +a[href].def:hover { color: rgb(78, 98, 114); } + +/* @end */ + +/* @group Show and hide with JS */ + +body.js-enabled .hide-when-js-enabled { + display: none; +} + +/* @end */ + + +/* @group responsive */ + +#package-header .caption { + margin: 0px 1em 0 2em; +} + +@media only screen and (min-width: 1280px) { + #content { + width: 63vw; + max-width: 1450px; + } + + #table-of-contents { + position: fixed; + max-width: 10vw; + top: 10.2em; + left: 2em; + bottom: 1em; + overflow-y: auto; + } + + #synopsis { + display: block; + position: fixed; + float: left; + top: 5em; + bottom: 1em; + right: 0; + max-width: 65vw; + overflow-y: auto; + /* Ensure that synopsis covers everything (including MathJAX markup) */ + z-index: 1; + } + + #synopsis .show { + border: 1px solid #5E5184; + padding: 0.7em; + max-height: 65vh; + } + +} + +@media only screen and (max-width: 1279px) { + #content { + width: 80vw; + } + + #synopsis { + display: block; + padding: 0; + position: relative; + margin: 0; + width: 100%; + } +} + +@media only screen and (max-width: 999px) { + #content { + width: 93vw; + } +} + + +/* menu for wider screens + + Display the package name at the left and the menu links at the right, + inline with each other: + The package name Source . Contents . Index +*/ +@media only screen and (min-width: 1000px) { + #package-header { + text-align: left; + white-space: nowrap; + height: 40px; + padding: 4px 1.5em 0px 1.5em; + overflow: visible; + + display: flex; + justify-content: space-between; + align-items: center; + } + + #package-header .caption { + display: inline-block; + margin: 0; + } + + #package-header ul.links { + margin: 0; + display: inline-table; + } + + #package-header .caption + ul.links { + margin-left: 1em; + } +} + +/* menu for smaller screens + +Display the package name on top of the menu links and center both elements: + The package name + Source . Contents . Index +*/ +@media only screen and (max-width: 999px) { + #package-header { + text-align: center; + padding: 6px 0 4px 0; + overflow: hidden; + } + + #package-header ul.links { + display: block; + text-align: center; + margin: 0; + + /* Hide scrollbar but allow scrolling menu links horizontally */ + white-space: nowrap; + overflow-x: auto; + overflow-y: hidden; + margin-bottom: -17px; + height: 50px; + } + + #package-header .caption { + display: block; + margin: 4px 0; + text-align: center; + } + + #package-header ul.links::-webkit-scrollbar { + display: none; + } + + #package-header ul.links li:first-of-type { + padding-left: 1em; + } + + #package-header ul.links li:last-of-type { + /* + The last link of the menu should offer the same distance to the right + as the #package-header enforces at the left. + */ + padding-right: 1em; + } + + #package-header .caption + ul.links { + padding-top: 9px; + } + + #module-header table.info { + float: none; + top: 0; + margin: 0 auto; + overflow: hidden; + max-width: 80vw; + } +} + +/* @end */ + + +/* @group Fonts & Sizes */ + +/* Basic technique & IE workarounds from YUI 3 + For reasons, see: + http://yui.yahooapis.com/3.1.1/build/cssfonts/fonts.css + */ + + body, button { + font: 400 14px/1.4 'PT Sans', + /* Fallback Font Stack */ + -apple-system, + BlinkMacSystemFont, + 'Segoe UI', + Roboto, + Oxygen-Sans, + Cantarell, + 'Helvetica Neue', + sans-serif; + *font-size: medium; /* for IE */ + *font:x-small; /* for IE in quirks mode */ + } + +h1 { font-size: 146.5%; /* 19pt */ } +h2 { font-size: 131%; /* 17pt */ } +h3 { font-size: 116%; /* 15pt */ } +h4 { font-size: 100%; /* 13pt */ } +h5 { font-size: 100%; /* 13pt */ } + +table { + font-size:inherit; + font:100%; +} + +pre, code, kbd, samp, tt, .src { + font-family:monospace; +} + +.links, .link { + font-size: 85%; /* 11pt */ +} + +#module-header .caption { + font-size: 182%; /* 24pt */ +} + +#module-header .caption sup { + font-size: 80%; + font-weight: normal; +} + +#package-header #page-menu a:link, #package-header #page-menu a:visited { color: white; } + + +.info { + font-size: 90%; +} + + +/* @end */ + +/* @group Common */ + +.caption, h1, h2, h3, h4, h5, h6, summary { + font-weight: bold; + color: #5E5184; + margin: 1.5em 0 1em 0; +} + + +* + h1, * + h2, * + h3, * + h4, * + h5, * + h6 { + margin-top: 2em; +} + +h1 + h2, h2 + h3, h3 + h4, h4 + h5, h5 + h6 { + margin-top: inherit; +} + +ul li + li { + margin-top: 0.2rem; +} + +ul + p { + margin-top: 0.93em; +} + +p + ul { + margin-top: 0.5em; +} + +p { + margin-top: 0.7rem; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +ul.links { + list-style: none; + text-align: left; + font-size: 0.95em; +} + +#package-header ul.links, #package-header ul.links button { + font-size: 1rem; +} + +ul.links li { + display: inline; + white-space: nowrap; + padding: 0; +} + +ul.links > li + li:before { + content: '\00B7'; +} + +ul.links li a { + padding: 0.2em 0.5em; +} + +.hide { display: none; } +.show { display: inherit; } +.clear { clear: both; } + +.collapser:before, .expander:before, .noexpander:before { + font-size: 1.2em; + color: #9C5791; + display: inline-block; + padding-right: 7px; +} + +.collapser:before { + content: '▿'; +} +.expander:before { + content: '▹'; +} +.noexpander:before { + content: '▿'; + visibility: hidden; +} + +.collapser, .expander { + cursor: pointer; +} + +.instance.collapser, .instance.expander { + margin-left: 0px; + background-position: left center; + min-width: 9px; + min-height: 9px; +} + +summary { + cursor: pointer; + outline: none; +} + +pre { + padding: 0.5rem 1rem; + margin: 1em 0 0 0; + background-color: #f7f7f7; + overflow: auto; + border: 1px solid #ddd; + border-radius: 0.3em; +} + +pre + p { + margin-top: 1em; +} + +pre + pre { + margin-top: 0.5em; +} + +blockquote { + border-left: 3px solid #c7a5d3; + background-color: #eee4f1; + margin: 0.5em; + padding: 0.0005em 0.3em 0.5em 0.5em; +} + +.src { + background: #f2f2f2; + padding: 0.2em 0.5em; +} + +.keyword { font-weight: normal; } +.def { font-weight: bold; } + +@media print { + #footer { display: none; } +} + +/* @end */ + +/* @group Page Structure */ + +#content { + margin: 3em auto 6em auto; + padding: 0; +} + +#package-header { + background: #5E5184; + border-bottom: 5px solid rgba(69, 59, 97, 0.5); + color: #ddd; + position: relative; + font-size: 1.2em; + text-align: left; + margin: 0 auto; +} + +#package-header .caption { + color: white; + font-style: normal; + font-size: 1rem; + font-weight: bold; +} + +#module-header .caption { + font-weight: bold; + border-bottom: 1px solid #ddd; +} + +table.info { + float: right; + padding: 0.5em 1em; + border: 1px solid #ddd; + color: rgb(78,98,114); + background-color: #fff; + max-width: 60%; + border-spacing: 0; + position: relative; + top: -0.78em; + margin: 0 0 0 2em; +} + +.info th { + padding: 0 1em 0 0; + text-align: right; +} + +#style-menu li { + display: block; + border-style: none; + list-style-type: none; +} + +#footer { + background: #ededed; + border-top: 1px solid #aaa; + padding: 0.5em 0; + color: #222; + text-align: center; + width: 100%; + height: 3em; + margin-top: 3em; + position: relative; + clear: both; +} + +/* @end */ + +/* @group Front Matter */ + +#synopsis .caption, +#contents-list .caption { + font-size: 1rem; +} + +#synopsis, #table-of-contents { + font-size: 16px; +} + +#contents-list { + background: #f4f4f4; + padding: 1em; + margin: 0; +} + +#contents-list .caption { + text-align: left; + margin: 0; +} + +#contents-list ul { + list-style: none; + margin: 0; + margin-top: 10px; + font-size: 14px; +} + +#contents-list ul ul { + margin-left: 1.5em; +} + +#description .caption { + display: none; +} + +#synopsis summary { + display: block; + float: right; + width: 29px; + color: rgba(255,255,255,0); + height: 110px; + margin: 0; + font-size: 1px; + padding: 0; + background: url(synopsis.png) no-repeat 0px -8px; +} + +#synopsis details[open] > summary { + background: url(synopsis.png) no-repeat -75px -8px; +} + +#synopsis ul { + height: 100%; + overflow: auto; + padding: 0.5em; + margin: 0; +} + +#synopsis ul ul { + overflow: hidden; +} + +#synopsis ul, +#synopsis ul li.src { + background-color: rgb(250,247,224); + white-space: nowrap; + list-style: none; + margin-left: 0; +} + +#interface td.src { + white-space: nowrap; +} + +/* @end */ + +/* @group Main Content */ + +#interface div.top + div.top { + margin-top: 1.5em; +} + +#interface p + div.top, +#interface h1 + div.top, +#interface h2 + div.top, +#interface h3 + div.top, +#interface h4 + div.top, +#interface h5 + div.top { + margin-top: 1em; +} +#interface .src .selflink, +#interface .src .link { + float: right; + color: #888; + padding: 0 7px; + -moz-user-select: none; + font-weight: bold; + line-height: 30px; +} +#interface .src .selflink { + margin: 0 -0.5em 0 0.5em; +} + +#interface span.fixity { + color: #919191; + border-left: 1px solid #919191; + padding: 0.2em 0.5em 0.2em 0.5em; + margin: 0 -1em 0 1em; +} + +#interface span.rightedge { + border-left: 1px solid #919191; + padding: 0.2em 0 0.2em 0; + margin: 0 0 0 1em; +} + +#interface table { border-spacing: 2px; } +#interface td { + vertical-align: top; + padding-left: 0.5em; +} + +#interface td.doc p { + margin: 0; +} +#interface td.doc p + p { + margin-top: 0.8em; +} + +.doc table { + border-collapse: collapse; + border-spacing: 0px; +} + +.doc th, +.doc td { + padding: 5px; + border: 1px solid #ddd; +} + +.doc th { + background-color: #f0f0f0; +} + +.clearfix:after { + clear: both; + content: " "; + display: block; + height: 0; + visibility: hidden; +} + +.subs, .top > .doc, .subs > .doc { + padding-left: 1em; + border-left: 1px solid gainsboro; + margin-bottom: 1em; +} + +.top .subs { + margin-bottom: 0.6em; +} + +.subs.fields ul { + list-style: none; + display: table; + margin: 0; +} + +.subs.fields ul li { + display: table-row; +} + +.subs ul li dfn { + display: table-cell; + font-style: normal; + font-weight: bold; + margin: 1px 0; + white-space: nowrap; +} + +.subs ul li > .doc { + display: table-cell; + padding-left: 0.5em; + margin-bottom: 0.5em; +} + +.subs ul li > .doc p { + margin: 0; +} + +.subs .subs p.src { + border: none; + background-color: #f8f8f8; +} + +.subs .subs .caption { + margin-top: 1em ; + margin-bottom: 0px; +} + +.subs p.caption { + margin-top: 0; +} + +.subs .subs .caption + .src { + margin: 0px; + margin-top: 8px; +} + +.subs .subs .src + .src { + margin: 7px 0 0 0; +} + +/* Render short-style data instances */ +.inst ul { + height: 100%; + padding: 0.5em; + margin: 0; +} + +.inst, .inst li { + list-style: none; + margin-left: 1em; +} + +/* Workaround for bug in Firefox (issue #384) */ +.inst-left { + float: left; +} + +.top p.src { + border-bottom: 3px solid #e5e5e5; + line-height: 2rem; + margin-bottom: 1em; +} + +.warning { + color: red; +} + +.arguments { + margin-top: -0.4em; +} +.arguments .caption { + display: none; +} + +.fields { padding-left: 1em; } + +.fields .caption { display: none; } + +.fields p { margin: 0 0; } + +/* this seems bulky to me +.methods, .constructors { + background: #f8f8f8; + border: 1px solid #eee; +} +*/ + +/* @end */ + +/* @group Auxillary Pages */ + + +.extension-list { + list-style-type: none; + margin-left: 0; +} + +#mini { + margin: 0 auto; + padding: 0 1em 1em; +} + +#mini > * { + font-size: 93%; /* 12pt */ +} + +#mini #module-list .caption, +#mini #module-header .caption { + font-size: 125%; /* 15pt */ +} + +#mini #interface h1, +#mini #interface h2, +#mini #interface h3, +#mini #interface h4 { + font-size: 109%; /* 13pt */ + margin: 1em 0 0; +} + +#mini #interface .top, +#mini #interface .src { + margin: 0; +} + +#mini #module-list ul { + list-style: none; + margin: 0; +} + +#alphabet ul { + list-style: none; + padding: 0; + margin: 0.5em 0 0; + text-align: center; +} + +#alphabet li { + display: inline; + margin: 0 0.25em; +} + +#alphabet a { + font-weight: bold; +} + +#index .caption, +#module-list .caption { font-size: 131%; /* 17pt */ } + +#index table { + margin-left: 2em; +} + +#index .src { + font-weight: bold; +} +#index .alt { + font-size: 77%; /* 10pt */ + font-style: italic; + padding-left: 2em; +} + +#index td + td { + padding-left: 1em; +} + +#module-list ul { + list-style: none; + margin: 0 0 0 2em; +} + +#module-list li { + clear: right; +} + +#module-list span.collapser, +#module-list span.expander { + background-position: 0 0.3em; +} + +#module-list .package { + float: right; +} + +:target { + background: -webkit-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); +} + +:target:hover { + background: -webkit-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); +} + +/* @end */ + +/* @group Dropdown menus */ + +#preferences-menu, #style-menu { + width: 25em; + overflow-y: auto; +} + +/* @end */ diff --git a/cardano-cli/lib_cardano-cli-test-lib/meta.json b/cardano-cli/lib_cardano-cli-test-lib/meta.json new file mode 100644 index 0000000000..96ee58e1d4 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/meta.json @@ -0,0 +1 @@ +{"haddock_version":"2.26.0","quickjump_version":1} \ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/quick-jump.css b/cardano-cli/lib_cardano-cli-test-lib/quick-jump.css new file mode 100644 index 0000000000..cf10eee48e --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/quick-jump.css @@ -0,0 +1,221 @@ +/* @group Fundamentals */ + +.hidden { + display: none; +} + +/* @end */ + +/* @group Search box layout */ + +#search { + position: fixed; + top: 3.2em; + bottom: 0; + left: calc(50% - 22em); + width: 44em; + z-index: 1000; + overflow-y: auto; +} + +@media only screen and (max-width: 999px) { + #search { + top: 5.7em; + } +} + +#search-form, #search-results { + box-shadow: 2px 2px 6px rgb(199, 204, 208); + pointer-events: all; +} + +#search-form input { + font-size: 1.25em; line-height: 2.3em; height: 2.4em; + display: block; + box-sizing: border-box; + width: 100%; + margin: 0; + padding: 0 0.75em; + border: 0.05em solid rgb(151, 179, 202); +} + +#search input:focus { + outline: none; +} + +#search p.error { + color: rgb(107, 24, 24); + font-weight: bold; +} + +#search-results { + box-sizing: border-box; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; + max-height: 80%; + overflow: scroll; +} + +#search-form input + #search-results { + border-top: none; + top: 3em; + max-height: calc(100% - 3em); +} + +/* @end */ + +/* @group search results */ + +#search-results > ul { + margin: 0; + list-style: none; +} + +#search-results > ul > li, +#search-results > p, +#search-results > table { + padding: 0.5em 1em; + margin: 0; +} + +#search-results > ul > li { + border-bottom: 1px solid #b2d5fb; +} + +#search-results > ul > li > ul { + list-style: none; +} + +.search-module h4 { + margin: 0; +} + +.search-module > ul { + margin: 0.5em 0 0.5em 2em; +} + +.search-module > ul > li > a[href] { + display: block; + color: inherit; + padding: 0.25em 0.5em; +} + +.search-module > ul > li > a[href].active-link { + background: #faf9dc; +} + +.search-module a[href]:hover { + text-decoration: none; +} + +.search-result a a { + pointer-events: none; +} + +.search-result ul.subs { + display: inline-block; + margin: 0; padding: 0; +} + +.search-result ul.subs li { + display: none; +} + +.search-result ul.subs::after { + display: inline-block; + content: "..."; + color: rgb(78,98,114); + margin: 0 0.25em; +} + +.more-results { + color: rgb(99, 141, 173); + position: relative; +} + +.more-results::before { + content: "+"; + display: inline-block; + color: #b2d5fb; + font-weight: bold; + font-size: 1.25em; line-height: inherit; + position: absolute; + left: -1em; +} + +/* @end */ + +/* @group Keyboard shortcuts table */ + +.keyboard-shortcuts { + line-height: 1.6em; +} + +.keyboard-shortcuts th { + color: rgb(78,98,114); +} + +.keyboard-shortcuts td:first-child, +.keyboard-shortcuts th:first-child { + text-align: right; + padding-right: 0.6em; +} + +.key { + display: inline-block; + font-size: 0.9em; + min-width: 0.8em; line-height: 1.2em; + text-align: center; + background: #b2d5fb; + border: 1px solid #74a3d6; + padding: 0 0.2em; + margin: 0 0.1em; +} + +/* @end */ + +/* @group Dropdown menus */ + +/* Based on #search styling above. */ + +.dropdown-menu { + position: fixed; + /* Not robust to window size changes. */ + top: 3.2em; + right: 0; + /* To display on top of synopsis menu on right side. */ + z-index: 1000; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; +} + +@media only screen and (max-width: 999px) { + .dropdown-menu { + top: 5.7em; + } +} + +.dropdown-menu * { + margin: 0.1em; +} + +.dropdown-menu button { + border: 1px #5E5184 solid; + border-radius: 3px; + background: #5E5184; + padding: 3px; + color: #f4f4f4; + min-width: 6em; +} + +.dropdown-menu button:hover { + color: #5E5184; + background: #f4f4f4; +} + +.dropdown-menu button:active { + color: #f4f4f4; + background: #5E5184; +} + +/* @end */ diff --git a/cardano-cli/lib_cardano-cli-test-lib/quick-jump.min.js b/cardano-cli/lib_cardano-cli-test-lib/quick-jump.min.js new file mode 100644 index 0000000000..06c35c7454 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/quick-jump.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;ewindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return h(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),m}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");d=d.name}else a[d]={weight:1};this._analyze({key:d,value:this.options.getFn(u,d),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,h=void 0===u?[]:u,p=t.resultMap,d=void 0===p?{}:p,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,_=-1,m=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var y=h.search(i);if(this._log('Full text: "'+i+'", score: '+y.score),this.options.tokenize){for(var k=i.split(this.options.tokenSeparator),b=[],x=0;x=c.length;if(this._log("\nCheck Matches: "+O),(g||y.isMatch)&&O){var P=d[a];P?P.output.push({key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}):(d[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}]},v.push(d[a]))}}else if(U(i))for(var j=0,E=i.length;j
module Test.Cardano.CLI.Aeson (
+    assertHasKeys,
+    assertHasMappings,
+  ) where
+
+import           Control.Monad (forM_)
+import           Control.Monad.IO.Class
+import           Data.Aeson hiding (pairs)
+import qualified Data.Aeson.Key as Aeson
+import qualified Data.Aeson.KeyMap as Aeson.KeyMap
+import qualified Data.ByteString.Lazy as LBS
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           GHC.Stack (HasCallStack)
+import qualified GHC.Stack as GHC
+
+import           Hedgehog
+import qualified Hedgehog as H
+import qualified Hedgehog.Extras as H
+
+{- HLINT ignore "Use uncurry" -}
+
+-- | @assertHasKeys keys path@ succeeds if @path@ is a file containing a JSON object
+-- whose keys is a superset of @keys@.
+--
+-- For example. if @path@ contains @"{ "a":0, "b":1.0, "c": "foo"}"@,
+-- @hasKeys ["b", "a"] path@ succeeds.
+assertHasKeys :: ()
+  => HasCallStack
+  => MonadTest m
+  => MonadIO m
+  => [Text]
+  -> FilePath
+  -> m ()
+assertHasKeys :: forall (m :: * -> *).
+(HasCallStack, MonadTest m, MonadIO m) =>
+[Text] -> FilePath -> m ()
+assertHasKeys [Text]
+keys FilePath
+jsonFile = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  ByteString
+content <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ByteString
+LBS.readFile FilePath
+jsonFile
+  case forall a. FromJSON a => ByteString -> Maybe a
+decode ByteString
+content of
+    Maybe Object
+Nothing -> do
+      forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"Cannot read JSON file: " forall a. Semigroup a => a -> a -> a
+<> FilePath
+jsonFile
+      forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+    Just Object
+obj -> do
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [Text]
+keys forall a b. (a -> b) -> a -> b
+$ \Text
+key -> forall (m :: * -> *).
+(HasCallStack, MonadTest m) =>
+FilePath -> Object -> Text -> m ()
+assertHasKey FilePath
+jsonFile Object
+obj Text
+key
+
+-- | @assertHasKey file obj key@ checks that @obj@ has @key@ as a top-level key.
+-- @file@ is only used for logging in case of failure: it is assumed to be
+-- the path from which @obj@ was loaded.
+--
+-- Having this functions allows for good feedback in case of a test failure.
+assertHasKey :: ()
+  => HasCallStack
+  => MonadTest m
+  => FilePath
+  -> Object
+  -> Text
+  -> m ()
+assertHasKey :: forall (m :: * -> *).
+(HasCallStack, MonadTest m) =>
+FilePath -> Object -> Text -> m ()
+assertHasKey FilePath
+file Object
+obj Text
+key = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  case forall v. Key -> KeyMap v -> Maybe v
+Aeson.KeyMap.lookup (Text -> Key
+Aeson.fromText Text
+key) Object
+obj of
+    Maybe Value
+Nothing -> do
+      forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"JSON file at " forall a. Semigroup a => a -> a -> a
+<> FilePath
+file forall a. Semigroup a => a -> a -> a
+<> FilePath
+" is missing key: \"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+key forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\""
+      forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+    Just Value
+_ -> forall (m :: * -> *). MonadTest m => m ()
+H.success
+
+-- | @assertHasMappings pairs path@ succeeds if @path@ is a file containing a JSON object
+-- whose mappings is a superset of @pairs@.
+--
+-- For example, if @path@ contains @"{ "a":"bar", "b":"buzz", "c":"foo"}"@,
+-- @assertHasMappings "[("b", "buzz"), ("a", "bar")] path@ succeeds.
+assertHasMappings :: ()
+  => HasCallStack
+  => MonadTest m
+  => MonadIO m
+  => [(Text, Text)]
+  -> FilePath
+  -> m ()
+assertHasMappings :: forall (m :: * -> *).
+(HasCallStack, MonadTest m, MonadIO m) =>
+[(Text, Text)] -> FilePath -> m ()
+assertHasMappings [(Text, Text)]
+pairs FilePath
+jsonFile = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  ByteString
+content <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ FilePath -> IO ByteString
+LBS.readFile FilePath
+jsonFile
+  case forall a. FromJSON a => ByteString -> Maybe a
+decode ByteString
+content of
+    Maybe Object
+Nothing -> do
+      forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"Cannot read JSON file: " forall a. Semigroup a => a -> a -> a
+<> FilePath
+jsonFile
+      forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+    Just Object
+obj -> do
+      forall (t :: * -> *) (m :: * -> *) a b.
+(Foldable t, Monad m) =>
+t a -> (a -> m b) -> m ()
+forM_ [(Text, Text)]
+pairs forall a b. (a -> b) -> a -> b
+$ \(Text
+key, Text
+value) -> forall (m :: * -> *).
+(HasCallStack, MonadTest m) =>
+FilePath -> Object -> Text -> Text -> m ()
+assertHasMapping FilePath
+jsonFile Object
+obj Text
+key Text
+value
+
+-- | @assertHasMapping file obj key value@ checks that @obj@ has the @key->value@
+-- at its top-level. @file@ is only used for logging in case of failure: it is assumed to be
+-- the path from which @obj@ was loaded.
+--
+-- Having this functions allows for good feedback in case of a test failure.
+assertHasMapping :: ()
+  => HasCallStack
+  => MonadTest m
+  => FilePath
+  -> Object
+  -> Text
+  -> Text
+  -> m ()
+assertHasMapping :: forall (m :: * -> *).
+(HasCallStack, MonadTest m) =>
+FilePath -> Object -> Text -> Text -> m ()
+assertHasMapping FilePath
+file Object
+obj Text
+key Text
+value = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  case forall v. Key -> KeyMap v -> Maybe v
+Aeson.KeyMap.lookup (Text -> Key
+Aeson.fromText Text
+key) Object
+obj of
+    Maybe Value
+Nothing -> do
+      forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"JSON file at " forall a. Semigroup a => a -> a -> a
+<> FilePath
+file forall a. Semigroup a => a -> a -> a
+<> FilePath
+" is missing key: \"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+key forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\""
+      forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+    Just Value
+inThere ->
+      case Value
+inThere of
+        String Text
+textInThere | Text
+value forall a. Eq a => a -> a -> Bool
+== Text
+textInThere -> forall (m :: * -> *). MonadTest m => m ()
+H.success
+        String Text
+textInThere -> do
+            forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"JSON file at " forall a. Semigroup a => a -> a -> a
+<> FilePath
+file forall a. Semigroup a => a -> a -> a
+<> FilePath
+" has the mapping \"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+key forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\"->\"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+textInThere forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\""
+            forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"whereas it was expected to be \"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+key forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\"->\"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+value forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\""
+            forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+        Object Object
+_ -> forall {m :: * -> *} {b}. MonadTest m => FilePath -> m b
+failWrongType FilePath
+"object"
+        Array Array
+_  -> forall {m :: * -> *} {b}. MonadTest m => FilePath -> m b
+failWrongType FilePath
+"array"
+        Number Scientific
+_ -> forall {m :: * -> *} {b}. MonadTest m => FilePath -> m b
+failWrongType FilePath
+"number"
+        Bool Bool
+_   -> forall {m :: * -> *} {b}. MonadTest m => FilePath -> m b
+failWrongType FilePath
+"bool"
+        Value
+Null     -> forall {m :: * -> *} {b}. MonadTest m => FilePath -> m b
+failWrongType FilePath
+"null"
+   where
+     failWrongType :: FilePath -> m b
+failWrongType FilePath
+got = do
+       forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"JSON file at " forall a. Semigroup a => a -> a -> a
+<> FilePath
+file forall a. Semigroup a => a -> a -> a
+<> FilePath
+" has wrong type for key: \"" forall a. Semigroup a => a -> a -> a
+<> Text -> FilePath
+T.unpack Text
+key forall a. Semigroup a => a -> a -> a
+<> FilePath
+"\""
+       forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+FilePath -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ FilePath
+"Expected string but got: " forall a. Semigroup a => a -> a -> a
+<> FilePath
+got
+       forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+
+
+
\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/src/Test.Cardano.CLI.Util.html b/cardano-cli/lib_cardano-cli-test-lib/src/Test.Cardano.CLI.Util.html new file mode 100644 index 0000000000..413214bc96 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/src/Test.Cardano.CLI.Util.html @@ -0,0 +1,772 @@ +
module Test.Cardano.CLI.Util
+  ( checkTxCddlFormat
+  , checkTextEnvelopeFormat
+  , equivalence
+  , execCardanoCLI
+  , execDetailCardanoCLI
+  , tryExecCardanoCLI
+  , propertyOnce
+  , withSnd
+  , noteInputFile
+  , noteTempFile
+
+  , redactJsonField
+  ) where
+
+import           Cardano.Api
+
+import           Cardano.CLI.Read
+
+import           Control.Monad.Catch
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Class (lift)
+import           Control.Monad.Trans.Except (runExceptT)
+import qualified Data.Aeson as Aeson
+import qualified Data.Aeson.Encode.Pretty as Aeson
+import qualified Data.Aeson.Key as Aeson
+import qualified Data.Aeson.KeyMap as Aeson
+import qualified Data.ByteString.Lazy as LBS
+import           Data.Function ((&))
+import qualified Data.List as List
+import           Data.Monoid (Last (..))
+import           Data.Text (Text)
+import           GHC.Stack (CallStack, HasCallStack)
+import qualified GHC.Stack as GHC
+import qualified System.Directory as IO
+import qualified System.Environment as IO
+import qualified System.Exit as IO
+import           System.FilePath (takeDirectory)
+import qualified System.IO.Unsafe as IO
+import qualified System.Process as IO
+import           System.Process (CreateProcess)
+
+import qualified Hedgehog as H
+import           Hedgehog.Extras (ExecConfig)
+import qualified Hedgehog.Extras as H
+import           Hedgehog.Extras.Test (ExecConfig (..))
+import           Hedgehog.Internal.Property (Diff, MonadTest, liftTest, mkTest)
+import qualified Hedgehog.Internal.Property as H
+import           Hedgehog.Internal.Show (ValueDiff (ValueSame), mkValue, showPretty, valueDiff)
+import           Hedgehog.Internal.Source (getCaller)
+
+
+-- | Execute cardano-cli via the command line.
+--
+-- Waits for the process to finish and returns the stdout.
+execCardanoCLI
+  :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack)
+  => [String]
+  -- ^ Arguments to the CLI command
+  -> m String
+  -- ^ Captured stdout
+execCardanoCLI :: forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+[String] -> m String
+execCardanoCLI = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+String -> String -> [String] -> m String
+H.execFlex String
+"cardano-cli" String
+"CARDANO_CLI"
+
+-- | Execute cardano-cli via the command line, expecting it to fail.
+--
+-- Waits for the process to finish and returns the exit code, stdout and stderr.
+execDetailCardanoCLI
+  :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack)
+  => [String]
+  -- ^ Arguments to the CLI command
+  -> m (IO.ExitCode, String, String)
+  -- ^ Captured stdout
+execDetailCardanoCLI :: forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+[String] -> m (ExitCode, String, String)
+execDetailCardanoCLI = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+ExecConfig
+-> String -> String -> [String] -> m (ExitCode, String, String)
+execDetailFlex ExecConfig
+H.defaultExecConfig String
+"cardano-cli" String
+"CARDANO_CLI"
+
+procFlex'
+  :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack)
+  => ExecConfig
+  -> String
+  -- ^ Cabal package name corresponding to the executable
+  -> String
+  -- ^ Environment variable pointing to the binary to run
+  -> [String]
+  -- ^ Arguments to the CLI command
+  -> m CreateProcess
+  -- ^ Captured stdout
+procFlex' :: forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+ExecConfig -> String -> String -> [String] -> m CreateProcess
+procFlex' ExecConfig
+execConfig String
+pkg String
+binaryEnv [String]
+arguments = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall (m :: * -> *) a.
+(MonadTest m, MonadCatch m, HasCallStack) =>
+m a -> m a
+H.evalM forall a b. (a -> b) -> a -> b
+$ do
+  String
+bin <- forall (m :: * -> *).
+(MonadTest m, MonadIO m) =>
+String -> String -> m String
+H.binFlex String
+pkg String
+binaryEnv
+  forall (m :: * -> *) a. Monad m => a -> m a
+return (String -> [String] -> CreateProcess
+IO.proc String
+bin [String]
+arguments)
+    { env :: Maybe [(String, String)]
+IO.env = forall a. Last a -> Maybe a
+getLast forall a b. (a -> b) -> a -> b
+$ ExecConfig -> Last [(String, String)]
+execConfigEnv ExecConfig
+execConfig
+    , cwd :: Maybe String
+IO.cwd = forall a. Last a -> Maybe a
+getLast forall a b. (a -> b) -> a -> b
+$ ExecConfig -> Last String
+execConfigCwd ExecConfig
+execConfig
+    }
+
+execDetailFlex
+  :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack)
+  => ExecConfig
+  -> String
+  -> String
+  -> [String]
+  -> m (IO.ExitCode, String, String)
+execDetailFlex :: forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+ExecConfig
+-> String -> String -> [String] -> m (ExitCode, String, String)
+execDetailFlex ExecConfig
+execConfig String
+pkgBin String
+envBin [String]
+arguments = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  CreateProcess
+cp <- forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+ExecConfig -> String -> String -> [String] -> m CreateProcess
+procFlex' ExecConfig
+execConfig String
+pkgBin String
+envBin [String]
+arguments
+  forall (m :: * -> *). (MonadTest m, HasCallStack) => String -> m ()
+H.annotate forall b c a. (b -> c) -> (a -> b) -> a -> c
+. (String
+"Command: " forall a. Semigroup a => a -> a -> a
+<>) forall a b. (a -> b) -> a -> b
+$ case CreateProcess -> CmdSpec
+IO.cmdspec CreateProcess
+cp of
+    IO.ShellCommand String
+cmd -> String
+cmd
+    IO.RawCommand String
+cmd [String]
+args -> String
+cmd forall a. Semigroup a => a -> a -> a
+<> String
+" " forall a. Semigroup a => a -> a -> a
+<> [String] -> String
+List.unwords [String]
+args
+  forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ CreateProcess -> String -> IO (ExitCode, String, String)
+IO.readCreateProcessWithExitCode CreateProcess
+cp String
+""
+
+tryExecCardanoCLI
+  :: [String]
+  -- ^ Arguments to the CLI command
+  -> H.PropertyT IO (Either H.Failure String)
+  -- ^ Captured stdout, or error in case of failures
+tryExecCardanoCLI :: [String] -> PropertyT IO (Either Failure String)
+tryExecCardanoCLI [String]
+args =
+  forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack (forall (m :: * -> *).
+(MonadTest m, MonadCatch m, MonadIO m, HasCallStack) =>
+String -> String -> [String] -> m String
+H.execFlex String
+"cardano-cli" String
+"CARDANO_CLI") [String]
+args
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) a. PropertyT m a -> TestT (GenT m) a
+H.unPropertyT
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) a.
+TestT m a -> ExceptT Failure (WriterT Journal m) a
+H.unTest
+    forall a b. a -> (a -> b) -> b
+& forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
+runExceptT
+    forall a b. a -> (a -> b) -> b
+& forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
+(MonadTrans t, Monad m) =>
+m a -> t m a
+lift
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) a.
+ExceptT Failure (WriterT Journal m) a -> TestT m a
+H.TestT
+    forall a b. a -> (a -> b) -> b
+& forall (m :: * -> *) a. TestT (GenT m) a -> PropertyT m a
+H.PropertyT
+
+-- | Checks that the 'tvType' and 'tvDescription' are equivalent between two files.
+checkTextEnvelopeFormat
+  :: (MonadTest m, MonadIO m, HasCallStack)
+  => TextEnvelopeType
+  -> FilePath
+  -> FilePath
+  -> m ()
+checkTextEnvelopeFormat :: forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+TextEnvelopeType -> String -> String -> m ()
+checkTextEnvelopeFormat TextEnvelopeType
+tve String
+reference String
+created = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  Either (FileError TextEnvelopeError) TextEnvelope
+eRefTextEnvelope <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ TextEnvelopeType
+-> String -> IO (Either (FileError TextEnvelopeError) TextEnvelope)
+readTextEnvelopeOfTypeFromFile TextEnvelopeType
+tve String
+reference
+  TextEnvelope
+refTextEnvelope <- forall (m :: * -> *).
+MonadTest m =>
+Either (FileError TextEnvelopeError) TextEnvelope -> m TextEnvelope
+handleTextEnvelope Either (FileError TextEnvelopeError) TextEnvelope
+eRefTextEnvelope
+
+  Either (FileError TextEnvelopeError) TextEnvelope
+eCreatedTextEnvelope <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ TextEnvelopeType
+-> String -> IO (Either (FileError TextEnvelopeError) TextEnvelope)
+readTextEnvelopeOfTypeFromFile TextEnvelopeType
+tve String
+created
+  TextEnvelope
+createdTextEnvelope <- forall (m :: * -> *).
+MonadTest m =>
+Either (FileError TextEnvelopeError) TextEnvelope -> m TextEnvelope
+handleTextEnvelope Either (FileError TextEnvelopeError) TextEnvelope
+eCreatedTextEnvelope
+
+  forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+TextEnvelope -> TextEnvelope -> m ()
+typeTitleEquivalence TextEnvelope
+refTextEnvelope TextEnvelope
+createdTextEnvelope
+ where
+   handleTextEnvelope :: MonadTest m
+                      => Either (FileError TextEnvelopeError) TextEnvelope
+                      -> m TextEnvelope
+   handleTextEnvelope :: forall (m :: * -> *).
+MonadTest m =>
+Either (FileError TextEnvelopeError) TextEnvelope -> m TextEnvelope
+handleTextEnvelope (Right TextEnvelope
+refTextEnvelope) = forall (m :: * -> *) a. Monad m => a -> m a
+return TextEnvelope
+refTextEnvelope
+   handleTextEnvelope (Left FileError TextEnvelopeError
+fileErr) = forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom HasCallStack => CallStack
+GHC.callStack forall a. Maybe a
+Nothing forall b c a. (b -> c) -> (a -> b) -> a -> c
+. forall e. Error e => e -> String
+displayError forall a b. (a -> b) -> a -> b
+$ FileError TextEnvelopeError
+fileErr
+
+   typeTitleEquivalence :: (MonadTest m, HasCallStack) => TextEnvelope -> TextEnvelope -> m ()
+   typeTitleEquivalence :: forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+TextEnvelope -> TextEnvelope -> m ()
+typeTitleEquivalence (TextEnvelope TextEnvelopeType
+refType TextEnvelopeDescr
+refTitle ByteString
+_)
+                        (TextEnvelope TextEnvelopeType
+createdType TextEnvelopeDescr
+createdTitle ByteString
+_) = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+     forall (m :: * -> *) a.
+(MonadTest m, Eq a, Show a, HasCallStack) =>
+a -> a -> m ()
+equivalence TextEnvelopeType
+refType TextEnvelopeType
+createdType
+     forall (m :: * -> *) a.
+(MonadTest m, Eq a, Show a, HasCallStack) =>
+a -> a -> m ()
+equivalence TextEnvelopeDescr
+refTitle TextEnvelopeDescr
+createdTitle
+
+checkTxCddlFormat
+  :: (MonadTest m, MonadIO m, HasCallStack)
+  => FilePath -- ^ Reference/golden file
+  -> FilePath -- ^ Newly created file
+  -> m ()
+checkTxCddlFormat :: forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+String -> String -> m ()
+checkTxCddlFormat String
+referencePath String
+createdPath = do
+
+  Bool
+fileExists <- forall (m :: * -> *) a. MonadIO m => IO a -> m a
+liftIO forall a b. (a -> b) -> a -> b
+$ String -> IO Bool
+IO.doesFileExist String
+referencePath
+
+  if Bool
+fileExists
+    then do
+      FileOrPipe
+reference <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ String -> IO FileOrPipe
+fileOrPipe String
+referencePath
+      FileOrPipe
+created <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ String -> IO FileOrPipe
+fileOrPipe String
+createdPath
+      Either (FileError TextEnvelopeCddlError) CddlTx
+r <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx FileOrPipe
+reference
+      Either (FileError TextEnvelopeCddlError) CddlTx
+c <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ FileOrPipe -> IO (Either (FileError TextEnvelopeCddlError) CddlTx)
+readCddlTx FileOrPipe
+created
+      Either (FileError TextEnvelopeCddlError) CddlTx
+r forall (m :: * -> *) a.
+(MonadTest m, Eq a, Show a, HasCallStack) =>
+a -> a -> m ()
+H.=== Either (FileError TextEnvelopeCddlError) CddlTx
+c
+    else if Bool
+createFiles
+      then do
+        -- CREATE_GOLDEN_FILES is set, so we create any golden files that don't
+        -- already exist.
+        forall (m :: * -> *). (MonadTest m, HasCallStack) => String -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ String
+"Creating golden file " forall a. Semigroup a => a -> a -> a
+<> String
+referencePath
+        forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+String -> m ()
+H.createDirectoryIfMissing_ (String -> String
+takeDirectory String
+referencePath)
+        forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+String -> m String
+H.readFile String
+createdPath forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
+>>= forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+String -> String -> m ()
+H.writeFile String
+referencePath
+      else do
+        forall (m :: * -> *). (MonadTest m, HasCallStack) => String -> m ()
+H.note_ forall a b. (a -> b) -> a -> b
+$ forall a. Monoid a => [a] -> a
+mconcat
+          [ String
+"Golden file " forall a. Semigroup a => a -> a -> a
+<> String
+referencePath
+          , String
+" does not exist.  To create, run with CREATE_GOLDEN_FILES=1"
+          ]
+        forall (m :: * -> *) a. (MonadTest m, HasCallStack) => m a
+H.failure
+
+-- | Whether the test should create the golden files if the file does ont exist.
+createFiles :: Bool
+createFiles :: Bool
+createFiles = forall a. IO a -> a
+IO.unsafePerformIO forall a b. (a -> b) -> a -> b
+$ do
+  Maybe String
+value <- String -> IO (Maybe String)
+IO.lookupEnv String
+"CREATE_GOLDEN_FILES"
+  forall (m :: * -> *) a. Monad m => a -> m a
+return forall a b. (a -> b) -> a -> b
+$ Maybe String
+value forall a. Eq a => a -> a -> Bool
+== forall a. a -> Maybe a
+Just String
+"1"
+
+--------------------------------------------------------------------------------
+-- Helpers, Error rendering & Clean up
+--------------------------------------------------------------------------------
+
+cardanoCliPath :: FilePath
+cardanoCliPath :: String
+cardanoCliPath = String
+"cardano-cli"
+
+-- | Return the input file path after annotating it relative to the project root directory
+noteInputFile :: (MonadTest m, HasCallStack) => FilePath -> m FilePath
+noteInputFile :: forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+String -> m String
+noteInputFile String
+filePath = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  forall (m :: * -> *). (MonadTest m, HasCallStack) => String -> m ()
+H.annotate forall a b. (a -> b) -> a -> b
+$ String
+cardanoCliPath forall a. Semigroup a => a -> a -> a
+<> String
+"/" forall a. Semigroup a => a -> a -> a
+<> String
+filePath
+  forall (m :: * -> *) a. Monad m => a -> m a
+return String
+filePath
+
+-- | Return the test file path after annotating it relative to the project root directory
+noteTempFile :: (MonadTest m, HasCallStack) => FilePath -> FilePath -> m FilePath
+noteTempFile :: forall (m :: * -> *).
+(MonadTest m, HasCallStack) =>
+String -> String -> m String
+noteTempFile String
+tempDir String
+filePath = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  let relPath :: String
+relPath = String
+tempDir forall a. Semigroup a => a -> a -> a
+<> String
+"/" forall a. Semigroup a => a -> a -> a
+<> String
+filePath
+  forall (m :: * -> *). (MonadTest m, HasCallStack) => String -> m ()
+H.annotate forall a b. (a -> b) -> a -> b
+$ String
+cardanoCliPath forall a. Semigroup a => a -> a -> a
+<> String
+"/" forall a. Semigroup a => a -> a -> a
+<> String
+relPath
+  forall (m :: * -> *) a. Monad m => a -> m a
+return String
+relPath
+
+-- | Return the supply value with the result of the supplied function as a tuple
+withSnd :: (a -> b) -> a -> (a, b)
+withSnd :: forall a b. (a -> b) -> a -> (a, b)
+withSnd a -> b
+f a
+a = (a
+a, a -> b
+f a
+a)
+
+-- These were lifted from hedgehog and slightly modified
+
+propertyOnce :: H.PropertyT IO () -> H.Property
+propertyOnce :: PropertyT IO () -> Property
+propertyOnce =  TestLimit -> Property -> Property
+H.withTests TestLimit
+1 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. ShrinkLimit -> Property -> Property
+H.withShrinks ShrinkLimit
+0 forall b c a. (b -> c) -> (a -> b) -> a -> c
+. HasCallStack => PropertyT IO () -> Property
+H.property
+
+-- | Check for equivalence between two types and perform a file cleanup on failure.
+equivalence
+  :: (MonadTest m, Eq a, Show a, HasCallStack)
+  => a
+  -> a
+  -> m ()
+equivalence :: forall (m :: * -> *) a.
+(MonadTest m, Eq a, Show a, HasCallStack) =>
+a -> a -> m ()
+equivalence a
+x a
+y = do
+  Bool
+ok <- forall (m :: * -> *) a. (MonadTest m, HasCallStack) => a -> m a
+H.eval (a
+x forall a. Eq a => a -> a -> Bool
+== a
+y)
+  if Bool
+ok
+    then forall (m :: * -> *). MonadTest m => m ()
+H.success
+    else forall (m :: * -> *) a.
+(MonadTest m, Show a) =>
+CallStack -> a -> a -> m ()
+failDiffCustom HasCallStack => CallStack
+GHC.callStack a
+x a
+y
+
+-- | Takes a 'CallStack' so the error can be rendered at the appropriate call site.
+failWithCustom :: MonadTest m => CallStack -> Maybe Diff -> String -> m a
+failWithCustom :: forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom CallStack
+cs Maybe Diff
+mdiff String
+msg =
+  forall (m :: * -> *) a. MonadTest m => Test a -> m a
+liftTest forall a b. (a -> b) -> a -> b
+$ forall a. (Either Failure a, Journal) -> Test a
+mkTest (forall a b. a -> Either a b
+Left forall a b. (a -> b) -> a -> b
+$ Maybe Span -> String -> Maybe Diff -> Failure
+H.Failure (CallStack -> Maybe Span
+getCaller CallStack
+cs) String
+msg Maybe Diff
+mdiff, forall a. Monoid a => a
+mempty)
+
+-- | Fails with an error that shows the difference between two values.
+failDiffCustom :: (MonadTest m, Show a) => CallStack -> a -> a -> m ()
+failDiffCustom :: forall (m :: * -> *) a.
+(MonadTest m, Show a) =>
+CallStack -> a -> a -> m ()
+failDiffCustom CallStack
+cS a
+x a
+y =
+  case Value -> Value -> ValueDiff
+valueDiff forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
+<$> forall a. Show a => a -> Maybe Value
+mkValue a
+x forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
+<*> forall a. Show a => a -> Maybe Value
+mkValue a
+y of
+    Maybe ValueDiff
+Nothing ->
+      forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom CallStack
+cS forall a. Maybe a
+Nothing forall a b. (a -> b) -> a -> b
+$
+        [String] -> String
+Prelude.unlines [
+            String
+"Failed"
+          , String
+"━━ lhs ━━"
+          , forall a. Show a => a -> String
+showPretty a
+x
+          , String
+"━━ rhs ━━"
+          , forall a. Show a => a -> String
+showPretty a
+y
+          ]
+
+    Just vdiff :: ValueDiff
+vdiff@(ValueSame Value
+_) ->
+      forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom CallStack
+cS (forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$
+          String -> String -> String -> String -> String -> ValueDiff -> Diff
+H.Diff String
+"━━━ Failed ("  String
+"" String
+"no differences" String
+"" String
+") ━━━" ValueDiff
+vdiff) String
+""
+
+    Just ValueDiff
+vdiff ->
+      forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$
+        forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom CallStack
+cS (forall a. a -> Maybe a
+Just forall a b. (a -> b) -> a -> b
+$
+          String -> String -> String -> String -> String -> ValueDiff -> Diff
+H.Diff String
+"━━━ Failed (" String
+"- lhs" String
+") (" String
+"+ rhs" String
+") ━━━" ValueDiff
+vdiff) String
+""
+
+redactJsonField :: ()
+  => MonadTest m
+  => MonadIO m
+  => HasCallStack
+  => Text
+  -> Text
+  -> FilePath
+  -> FilePath
+  -> m ()
+redactJsonField :: forall (m :: * -> *).
+(MonadTest m, MonadIO m, HasCallStack) =>
+Text -> Text -> String -> String -> m ()
+redactJsonField Text
+fieldName Text
+replacement String
+sourceFilePath String
+targetFilePath = forall a. HasCallStack => (HasCallStack => a) -> a
+GHC.withFrozenCallStack forall a b. (a -> b) -> a -> b
+$ do
+  ByteString
+contents <- forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ String -> IO ByteString
+LBS.readFile String
+sourceFilePath
+  case forall a. FromJSON a => ByteString -> Either String a
+Aeson.eitherDecode ByteString
+contents :: Either String Aeson.Value of
+    Left String
+err -> forall (m :: * -> *) a.
+MonadTest m =>
+CallStack -> Maybe Diff -> String -> m a
+failWithCustom HasCallStack => CallStack
+GHC.callStack forall a. Maybe a
+Nothing String
+err
+    Right Value
+json -> do
+      Value
+redactedJson <- case Value
+json of
+        Aeson.Object Object
+obj ->
+          forall (f :: * -> *) a. Applicative f => a -> f a
+pure forall a b. (a -> b) -> a -> b
+$ Object -> Value
+Aeson.Object forall a b. (a -> b) -> a -> b
+$ forall a b c. (a -> b -> c) -> b -> a -> c
+flip forall a b. (Key -> a -> b) -> KeyMap a -> KeyMap b
+Aeson.mapWithKey Object
+obj forall a b. (a -> b) -> a -> b
+$ \Key
+k Value
+v ->
+            if Key
+k forall a. Eq a => a -> a -> Bool
+== Text -> Key
+Aeson.fromText Text
+fieldName
+              then Text -> Value
+Aeson.String Text
+replacement
+              else Value
+v
+        Value
+v -> forall (f :: * -> *) a. Applicative f => a -> f a
+pure Value
+v
+      forall (m :: * -> *) a.
+(MonadTest m, MonadIO m, HasCallStack) =>
+IO a -> m a
+H.evalIO forall a b. (a -> b) -> a -> b
+$ String -> ByteString -> IO ()
+LBS.writeFile String
+targetFilePath (forall a. ToJSON a => a -> ByteString
+Aeson.encodePretty Value
+redactedJson)
+
\ No newline at end of file diff --git a/cardano-cli/lib_cardano-cli-test-lib/src/highlight.js b/cardano-cli/lib_cardano-cli-test-lib/src/highlight.js new file mode 100644 index 0000000000..1e903bd0c5 --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/src/highlight.js @@ -0,0 +1,27 @@ + +var highlight = function (on) { + return function () { + var links = document.getElementsByTagName('a'); + for (var i = 0; i < links.length; i++) { + var that = links[i]; + + if (this.href != that.href) { + continue; + } + + if (on) { + that.classList.add("hover-highlight"); + } else { + that.classList.remove("hover-highlight"); + } + } + } +}; + +window.onload = function () { + var links = document.getElementsByTagName('a'); + for (var i = 0; i < links.length; i++) { + links[i].onmouseover = highlight(true); + links[i].onmouseout = highlight(false); + } +}; diff --git a/cardano-cli/lib_cardano-cli-test-lib/src/style.css b/cardano-cli/lib_cardano-cli-test-lib/src/style.css new file mode 100644 index 0000000000..0146eeddca --- /dev/null +++ b/cardano-cli/lib_cardano-cli-test-lib/src/style.css @@ -0,0 +1,97 @@ +body { + background-color: #fdf6e3; +} + +.hs-identifier { + color: #073642; +} + +.hs-identifier.hs-var { +} + +.hs-identifier.hs-type { + color: #5f5faf; +} + +.hs-keyword { + color: #af005f; +} + +.hs-string, .hs-char { + color: #cb4b16; +} + +.hs-number { + color: #268bd2; +} + +.hs-operator { + color: #d33682; +} + +.hs-glyph, .hs-special { + color: #dc322f; +} + +.hs-comment { + color: #8a8a8a; +} + +.hs-pragma { + color: #2aa198; +} + +.hs-cpp { + color: #859900; +} + +a:link, a:visited { + text-decoration: none; + border-bottom: 1px solid #eee8d5; +} + +a:hover, a.hover-highlight { + background-color: #eee8d5; +} + +span.annot{ + position:relative; + color:#000; + text-decoration:none + } + +span.annot:hover{z-index:25; background-color:#ff0} + +span.annot span.annottext{ + display: none; + border-radius: 5px 5px; + + -moz-border-radius: 5px; + -webkit-border-radius: 5px; + + box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.1); + -webkit-box-shadow: 5px 5px rgba(0, 0, 0, 0.1); + -moz-box-shadow: 5px 5px rgba(0, 0, 0, 0.1); + + position: absolute; + left: 1em; top: 2em; + z-index: 99; + margin-left: 5; + background: #FFFFAA; + border: 2px solid #FFAD33; + padding: 0.8em 1em; +} + +span.annot:hover span.annottext{ + display:block; +} + +/* This bridges the gap so you can mouse into the tooltip without it disappearing */ +span.annot span.annottext:before{ + content: ""; + position: absolute; + left: -1em; top: -1em; + background: #FFFFFF00; + z-index:-1; + padding: 2em 2em; +} diff --git a/cardano-cli/lib_cardano-cli-test-lib/synopsis.png b/cardano-cli/lib_cardano-cli-test-lib/synopsis.png new file mode 100644 index 0000000000000000000000000000000000000000..85fb86ec84907bcc86531dc82871948ff4d471fa GIT binary patch literal 11327 zcmV-FEWp!=P)4Tx0C)k_S!GyNTeqHT_l8Y(cXyX`gGi?cY`Qxn1VID|MJXwjPC)?)F$h6K zMMOd+6hs7sqbPzXbr*U(-*=zy-hcPcUC*=TdiNM(jyd-lv&OpsU|J&v2m2!^0SE{T z54F(O;E2!K(!rTCW z%wV;vdzf1QjBf#e&~gh74F>?Z4a=WLg$KhJ^$5nap>PLbJadS>e&h8+?D`9%QNL`g zEVKbYGXj7k5Q(8)0Fd#*a?VIMFW3*64geVHKzE-&0BG!BtmfuTbO(T`0Jaeg2nagF z{V*1E{Wm{e|AvV~*MEExiC+KU-~R=!2{)|c6Bg`GjQ;iG|FQ`1kAUCTuZtQk34#8{ z4r4(3g7#|{=Z@d+d#}7f!3C=>=26vx*jwA8>@MS>RG@Tt_zt3hie^T z_?0%9VUd=)Fos7I z^ghPh%Jy%YZ|)vCf6EaFPai$Q-!=$ppK!y&wrJs)bNdAuANB!m3n34Tfj{s75g-&U z1A!Pg3bcXF-=!Gv1VmU93G2duANT;{0JugFTqg*|oPXPC|A$2HS3NJd-hcPV3EW`Y zh=1Dr-5Mv{<{zIvz#Ybay&^Vcn^E_`qRfl{{bzYkp)4~$~NAx_VB;E z{?P)PU)DbV{Qi#~0H0@T9czDj06@6MNq8OrpdAz(9qQxd9nPr<&s+~tPQySqaZyfb zNh!%g_5YjeaLxMN*$sv_p;d%b#U$Wpz0Geb0U>E+EOsEQ;I!&= zNC6q(BFFWohy&t- zL?CHM5mJM6p`(xmWDmJOUQi$u0mVUQpbRJ*DuT+OI;a`C4fR4p&?xj8nuk`Puh35f z55*JWF{C0=8)=GkKzbrWk@3iMWInPS*@Wyu4kE{pbI3L14-^JPgW^Pq!Q<2bWsPz} zg`nb5nW!REEvg;Wj~YYGqt;RTXfiY_S_G|(HbmQ@z0gtU6m&ki8r_B-Ku@3-(OVb{ zh8`n;QNS2r>@mKWSWG773g!l;2Q!LUz-(f%SSG9pRuyZCC1S&|DcC~nb!<2G1$Gg; zjU&Zz;G}VSI0sxHE(w>9tH<5Py}&KucJP#VKD;vC6z`6Y#%JLx@m=^4{33pbgo;Ff zM3uyf#Fr$Iq=2M}WPoIbWP_BHl$%tE)ST3Z^fYM!=}po{r1PXd2-E~&f;PdC5J9*= zs3G(aUK2LR$jJD~G{_vt!pSa>)sa0QdqcKOPD3tEZbLrbsZB|wjHfK7yiNI%a+8XNN{Y&qDu61Js-9|yYMB~K%}=dM z?M|IcT|xbTdVvN>!$YG@<3@9arjllWW|0;{D?n>V>r0zK+erJ2cAbuzPL|Gw?j&6? z-95TFdL%tRy&=6neHMKS{UrTQ1~vvw1`mcbh9-s=4Br`97&RC@7}FVVFitT3Wa4Df zW%6UX#MHqw%Zy?cW;SPzV!p~ez`Vvn%c8>K#*)s`!ZO8*U=?PyV2x$1V13HE$;Qs6 z&lb#9$o7D3jh&udgWZ=sm;FBb3I`2`8ix-@E=M=VM@~9UO-_H#0?vNUbuLye1Fi_J zGOlM_JKO@?*4#+T3Fgmx>$N#hD=6JCPAiC=8LR|tcUDX*;jHjawc-Aa(!}p@(S{y z@=fw93cLy~3MC3J6=@aC6f+ecDWR3LloFKgD*aHFR}NQhQU0tVrsAhkud;kZ;E2bO z$|DP^+^R&?GSxXXPBj;`QnfjCE_I@Mx%xW|9u0SmYKzbdmB(*}d+O)oF zD{G(9?$JT&=D|u+DJZ zNWtioQNJ<4*wVPj_}x+AqoGH;Ob{kUCOIZE$M}u~9_ug#riP|Drn6=OW+7&G%rWL> z=Ede8ETk;rECwxUES)XuEw`++tg@`8tp%+ktov*zY#eRsY`)v-*k;?#*-6-)vU_6B zZ0}>=>40^xaj16KJg$2@@A#sloMVdPRon; zro?jMrmLZAiR-$Xw%cX5Rd)^dT=x|ZRgY|sB~Mk)Y|mvcRj(Yc6>oL#eD5_MZJ#2a zFTMu8*L=VGnflfE9r)Y&-w413xCGn|qz?28>kOxb4~I`91S8Hy%txw47DsMJ*+jLTq&gXR@@ceibXxRMj9yGtEGpJ5wl9t= zE-`NYl;)|jcqraAzAu3%Avt03wEpSZM3O|m#Ni~#r0k?`XKc@OC9@@;PF^^xf3_io zJS8;cWvWW*wR5O*KIfjL$)pvg?Wen^KhBWM$j{i#bjy5vUg~_o`GX6d7oKIwXI;IB zxfpnH@{;j<`HmaI~Pakhkz+;ck(4 z(L}LU@r@GJlC+ZVSKP0>xT6f*a^OxsWU@9UjK2+LN4pu2v z)m1ZBXH@Ui1lG*eTGaN}Db&@~v({%dAQ~bXR<1ijt)TYR@l+GyI++oAU8_Vo_$j=4_z&e7XOxBI$Oy4voD->JFFb+`B) z-My^)B=?i=A9TlbZ}tTDto3^JF7!F~O+T=EFy3$8|7^f`;L$_9hYtod2fH7sKDs-k zJaqf9;^U4d@=w~I$~|oxmK$z+CjYE`L}8@!xzh8l(IcbxU#P$69n%?mIBq!pWa8Mw z=%n@JtCx;1=U%zLT7K>S`pZ=0)Xwzj8T3s0Eahze8`d}FZ-w68n3JEoH?K4Q^qu9q z=>@li)%RiVcNddCkbTHs;#jI%mR`QQqPOz=CgGy+9whdp4g`BLCvp!8U&;uov(!a2t+bEnRv6HXyi9t`-YglcEo`$K zI8GTZXYLH1F5YE+b^&9-c%dfYc~N>X1MygiCdpZ8N*OKLV7W5+5rusvVP$KTgd_E; zV`@J%*flk^Jhjj1)aX9cTQC5ItVZ(2W=FkE;*aH-)|+*kk6SET?pjmWaNEk+>D${o z_#cmV%sNr-bj$gX%QW$m8{|&wA?SI;%go!uC))SCU%7vKz~jI-L0?1Ap^RZ7;i?hG zB3+__P9{WW#uUa@#oavB8Q+`m==5;nXwvwZiR6j1<0+%5!{;8Q^`_s>XwIxTUvlAM z)|rdpmprp=bM$iM@_6#8@((Vr7Q8HcP;{fXs3iGH;8nY8TBRaov}JqcixtC_ZBw07?YBCLI#1vB=rX<|d6)j~ z?!9;SA9XkN4rDD83J6N{$`!z{xG&lW}=KCd6md=WHe zF)la3F!5t@`sLkMS6?Sg5vR3gcxTbGOK%>(y*_twKH{Cjg64anMViI^4{J-a%g0=3|@n*5+(H4=G;Z`Bm z0XDw2UUnY#t`5ZG&WObDFO_)C zCe0{aEki1k_dNXt+=U-mA1_W_8p^(%Qj|@Mb z9sM+h7-yIepVWIvd=>Y)XzKR#)XeT1jH zI8-@&65hs?W6g0$Tn9b?K9MevmJ{6JljSOT6GbGYHWfM5G<6M41g#z&E8Qx6H$yI? z50eHn6Z1ODBi1suSavH8F-{EUJXaTYHjh8AJ|73)7XPq7gt>OirQ5IDz)!g7S$y<#pnvPn` zTCcP(>sag3>W=B<=vx}l7>pa{8`&AN7|$LpGx0noeC)GnyV)so9SefRgyl6WA8Q%w zeVfO&`F8I1(hk7k+3~B6fhW|RD4pIpx4EPekGo2^q1>k2n?25Xx_BviQ+coYJoGK~ zi}SY&kPV~?{2VkK+z^r;>Jw%VE)ao-y@)AN%A4?QY z!X(X~xtpASHaNvFl_z!g+(cSqdP;^mD`$^mG5`i zpn$&+Rk%>pUtCp^dd2Um*){o6wlZ|t=klqF!OHfk>gs};%-W>7nEHr@(CeX%5lwM7 zQg7xp*S7SwzHLLbOLn+*Uc0?`NAB*$d)wWCJsW)~{h|X4gV%@BpPU*_8L1qd8t0!( zdySmVd!st{bK%K{=9Rj&=Ffv)KX1|hFxkC)82{hg(&3(fkq6-NB>?O?0kGBtAd?QJ zm0$~|LIBLj0I*U5i1iA9XzK$|?dCuG2lOlFq=GX}9v}f{nuc(O=>uZH1yBw;!3bD_ zU{(i`gLA_m=mOLPjX+-zbO8W#QsA+O&>1m7Uxak_`<>>nu%o*kx!T2DqomQ{`*59GHMHWa@qZ7S~^!Kl)z@vEz7SZjuAWovinywxMoS2FN7 zEH|1t%4A}H?2754xrD_j%Moi{n>gE7_6iP##}7_;J59Lg5Ifz(-D^B~y{dc!eQ)?H z1`GsQ2d{)Cgfm98MOmHv9&;s5@6?xs(nO0hxa6LcxN|CLdl`M_GqP+i31t7w9nHU9 zkY40hVt!S*RG^%pl2DDR1@+)Ms)_U_Lks^c#r9*J-d)LeEAIFAEIl9{kQ}rbihXiz zxOZfJbZ?wtQtXx5l+ld&8>=~scSi5kK8P(dtn9DO{nh=s_)Emb(M`^+uiKA)7VrA) zEB#tO5ODlSVZM$P@WWh#2Fx+Iz|6u~m`%6|24UXdCqxG`1g0=2kOkd@#-Q&AR(P%P zMdTpvAy(jBM;jT2tUyk{D~~EF3{{U>K(nFk;T(JdLx-`&6l3PF0@xsI7Y>87!d2q7 z@J9GD{0|aKlAELyq`{in5#@A}YP&ZEYQ#XH-V)Gsvv6_^~14ao?j4lj=6k7|w9iW!UZJhhvUlPHq(FxfQ) zq?V>>q`%8dxgeZ1aw#H*HTOZjUjc35y<*QR6jwV-iRB~}tyPXS=-S45n}+?ysv9OZ zzqJ(K(rR1j$hs}xHG4PtzG(M&@2Lj@{VyISJQ5#z^W@U7{hV|l=i6Vte3RLV-yYuK+dKCw{z!laG%#N$3ABJM%p<0O zYA^skKqQbP%m$r-WBwLFh0ujLomRwONMWQ8vL5*f<`CmhgJ?Rm2f718hVj63W7)9r z*mpQXTq~XnpG|@xNg&xFjU_!Gq>|CVvs#J#1w}9=HDxE2J2egUAWZ`85!yYvKKcv> zJ4PYKJ*G+KW|m8=VQlv7TJY|}%00wyKDli~41a=UN19Bb{{JVSQ=?d&3H&&qviwE*<+| zre!9^?4cDF}{Txa*#Kx+jZQvyZXwvVVG@WYFu7)G)>HwaCho zPBE;pGpDX4cqED@Z6)`nTsY^LE}F4-ek7|Lj+#LpTmF}Vfuf?4z^j_2v}GSEI;v7@ ztn0YySFg7=Mcq_r{?^*qM(m*I?Cd&z=li|$-7G!jeOwO;25=992SX5MzsmCeV$vtN*Wk9q%cvGzm6 zlGZYQ`Nc~9M~79`)tR-DzwAEIeH!_EZe4SI`^$~5?i-97Prt=)N^Q<3ePg@o zht*Hi&(|HuI*eO3a z*sFk(4fq>KkN@xQ6^F(cm~$_2K14li9;XkV|9<@!M&f%8Nam8p00009a7bBm000XU z000XU0RWnu7ytkil}SWFRCodHT?u#;Rkr@KbUNvfeG_5`YY-wNfPp{+o{ADgGcxep z5O;8ydCWk3pWowCbe1RjK4lzy;4&jKqk}U-a1=+ud7z@;LLwlFC>S)v1jwFrI_XY2 zop;WyuIf%_F~x?x|CCgE~7q5lBOq0>MKUdH^|7ARquk zTn+*P5DlHMG@8ELxbaVWHf?&T znHpfF&E_pZ&^rD;1;7qozi0Q$(`V)7{8<+kI>wdbHk%E>!9AN2eO+^{$KB)hHtVU6 z4;0@%KYw`%{kM%aj|)L>`1``u*EM%B_Ep|f_7iHT~t6&rZsneaT;XVt##n z3*O&%0=#!k4Gq$@x_XoAC663)d$?Wm=UXTrha?_sgD)BZa!4dhf)W5g$)o+5f!@!6p= z7>#E6lGpa0z~7?)*juclePn!mT$U>W2F?VqT7?}(LqHHhL#3+DoNXk5_#Pb{(lwSP zZ<=X|iSbjYeFoatR`H}3=!RdX3qeSTbc>FTPC&5WKoW3vT<}n4p!jve)Qtntp05&Y$`N~L&mauhNrjZlt#E%Rdnz*4RdA(~WsS0P~4Cker*^h9K3rID79 zAhx!)2_f*-6tD+E@|~5o_HbR*DQEm#fix64W;xPOIEsuwz3>ej`Mg}wlx+M?%^s;7 zt7<_1|D+24j|zb6{d*Duo)R*nQ%A&N`m}UK6}Gim#oV|jr-^I5{&3u6Y!z0&JjK=N zf~iA{0UNr_&1RH*=FkdaRxmwXu@ih1pW6b!KwO1@&&hNBf0 z=VYU~zns|bF>|Ig{pE8Oi&e4q8Sf>;d>$HnJ*g4^2E{@!BWJXj|MK2>t{)#4iCiKM z_X3_Wd3!22SVWGECF_5t9Wx1ebdVe1IRabo*K&Me+mp(08G`jsI~A7O*rz=A?*I(Ym_y4*ZBHj<`2EIL z@XCfeuGtW8G6RGFlFM<@CjE-OtU#5a;0kB%yXw(N%<3n(~sBeG(H{~)Y9EAyo%kT#Rg2j zpdOnacnjrpoDswQL%S&=xD)LJZ^c?^7~tUKxVSW2U-+UJ`I8c2{Q|sd4FLUcTr-0M zaqMa26wFKpz7U~s3AlNV^qhrHMbm9<`9gTLcVV_VCkYcW$bp+1aV?*4j`n;5NQvl5P$NHC1)DVqF ze?14Uta}S5dTDmrRR#Fn;tPAZ>c6M&cw`%zt17X5(`x+mXPZPMYENh$xHA{IIn#Q& z^ zG}YF_5*3HIuofIEDMeLB1jc8M#;C+D(d52>)gx`#@~i9ZqkAV_+e~x*&R~QFvHtHw zX=O8P?QIyJ9Ss9*B|&g;0hMp z3Alm-uHb+xn7Ts16&!E{`__2XkJh+p1UhOAxPk+&;D9SQ;0g}7f`^~4p*Mp`Hum_uHM8Ep9TllPO>m-^Cs zpVwg1bK6i`-w1z*2vDs7WXVaJJHyU=rk@Vk3#W^iKzdl}7D4^3u#E2B8*>%rGlt8u z5=Bg)^vMF>N2OW-kTeo=C=#;#Uwg6hiz=At%UPznGuZL$9uX3jIcgXzEoL+}ne7De zePX!NLIZ__1sfvpaY5fTR( zUH5HKQ7-^w@TCk-ATqS$+;^2Y-9Yg{p~En8>~LcE&~OCN2SO-y!qgT7qsff0kWR!$ z^D81!lBm$TfXL;}=Y9YJK+SF{!{d*=}ZDsk}pA}{0WdF3_)n|T5 zFNK7P(SF;zrP#jx9qieE2>F-K@p;gyHGt(@rI_!hEt)McpP}lbFn3v=a0JCAI=-Ld z^HfmLKw}#PgVO)j-n&3BpR3@}{)WrPilHHGIK3w22T8R6=u<`rMwjnBh~jFy5zt}A zN81hv!KkMXNNPDnh1mq7H@>uwma1@k3;2!wtQCOj+9tn%uigkWBw{AL|5)BofhX2& zA+XZ302%fCsUzg9CimQPVv`f;C6O8|{n>ML#6sZcPqU_9DPe!$!>g7coyleK6R!5=0O9Kit+4(r(6 ziv6QJ8-P(X4Sa3SakRGjFIv?a0G4_jZD3}d!^RD-cH>&cq5?d2jrKkeAp_;!Ur#;& z9W7Y4e9epUX=T6m-g%gom8l&2YDT>Vpn#D2K2TLOYC9;D1)wkDRn>N#8T3J_^Lk0W z2GEDo5^3Wxdgdfd9w7&WOIUcVywJ$#^9sz{H)rNATQUdN%*}+3f?}K#TL)6Cfb&`3 z%&Qjw3IaWJ_$1z;4dDsM&%YQ~=42pUgopbkSWmW!9lu+5e2Bl(Hp~!=)psw#l#5d7 z<59t4!9`Er%bRtn7l4p3WRMY9&31sf7Q0{HC$^-K>G(;07G_Pk5PmWfQbk{$>nD;C z$aX+;iw(co_@<~Qn^p+B=a%_MiWA>XQ&sn1{z<(6(1#*dufHEF>#Fe8m!&8!F2%dw zHlg}-8UFYJZG<8tdn)d^eHPNC3G-m$^7_440RBMV3*u1l6Q_-MckXuK!rmQ$k)#dR$sG z@^U71!@qOSF|2)@pOpG;Qm+AE#NKTmpy<6aRJ-8I$ex7UR10>zRSMI&Dx4*+aC%oe z$>ksZdHCl3@33X-u5M#~!F>8s>bP;(@Z1iZ5DQ57E(pe>^RmdH=2Rkv1Y;;r0f4a|kUQI?AO7tZbEf zJ(*E203jiWBR5FKRnt*$=_L9l06hS)bRb+XpPQ(|6)W>G1u?i-W6WoCJgUlRkTWYJ9y;~2lKhQP~5|72z2_#^8q&npdI^OKWZnM4)jd~lxFIKK%PKOm(9u+`!IG4P>PAtq9@Rh0JE!{0DuH! zkK`y|6ZXDM&ju*fYcM2?dkd?0BQd?AvKl9=rI$l^%Bzo%82pwp_ z3!t@d`N^j}MPee&>2}gr!FRvB)4o^~UCPYDMfxiI>b@c+MsVI_ZG?n%#SdILF9)yD z8iBv~&32h6$j=)^`5;_--)1F7aK==Pycf`JwRRcIa&EjD`NGhX@h9M+TM4YCmA;oJ zrO3=nv3MeD1n(z%`&dZj&7(JU#eehVv~0XE^yJ%^arZ3+;^s6cinJi_LRv*8MlRsh z{Xp^er2%-zvwii|iPQND<~cxwB;)S&_u$&{D%8_7aQMh%>8YP30yAe!z=De>;j*0J zN>6b7(K|VAAJyy)=J$-BZpMp7n5{I{+sN@1<}jm{UYm<6az zC)2KLBDKeY!To$ha&qG2BZqfAotPNM^BbQ^H8u4$*;5z(vZ|_v=c1LgH4&aJ8cR)s zhZ25=_;#ffO9d0sLd30K^&jiDoI6+3R|Htse-FYDw`bL=buUu;*yY6jR@v$9iMtOO z{Jm)a77X@ba%$f%7edh>l!!{woQDqvAyLn?wOiY*$B%zo zv32X~pEWczvH$rLZ56cfy6vr`0a$epDA9d}4E`PkfT>4BU?%e$j!CrfB%e1P1~}M{ zuQ8DZRRHLI>|J6XE5CNbPoY`u^Tv~L_DESt0J@K9biv&;RPgs@1TwMtC4bqg&n_U& z^RqpU@fmCZV8(Krcxd8Db|Y=v9v+%_sqO*ye5%7a4GH|cY5=AL^#T?U?(IAraOf}Z znfd(s?_l?Sx}{(;kM%5!ES&ry9?r8?uz9NYQ(Ynr1^j&q08@d8z|&jaWMSaE-1`Sx z2*lKk?$1KN8*2mJGw(g3`l+riN$dE3Q~;P7LCd=wx?7hW&8J3pu z_e%g|LIn2Oqk!C_wTCQ#s9zKa2tdEcq}@UR0njdQ`-LnZ0R1A9b_)drK)bx{7qWl= z^ovZ|Eff#{?eex?$N~b;FEVMjP(T2*%iDe-`+v|7m{y$1dn*6{002ovPDHLkV1lnB B5rhB$ literal 0 HcmV?d00001 diff --git a/doc-index-36.html b/doc-index-36.html new file mode 100644 index 0000000000..f1c805902a --- /dev/null +++ b/doc-index-36.html @@ -0,0 +1 @@ +cardano-cli API (Index - $)
cardano-cli API

Index - $

$sel:actionFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:addr:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:addr:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:answerIndex:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:buildOutputOptions:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:byronKeyType:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:certificates:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:certificates:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:changeAddresses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:choices:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:coldVkeyFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:consensusModeParams:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:counter:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:delegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:deposit:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:drepKeys:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepKeys:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:era:QueryTipLocalStateCardano.CLI.Types.Output
$sel:eraHistory:QueryTipLocalStateCardano.CLI.Types.Output
$sel:expiryEpoch:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:fee:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:genesisDir:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:genesisFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:genesisVerificationKeys:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceAction:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:idOutputFormat:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:inputTxBodyOrTxFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:itnKeyFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:kesPeriod:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:kesVkeySource:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:localStateChainTip:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mAnchor:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mChainTip:QueryTipLocalStateCardano.CLI.Types.Output
$sel:memberStatuses:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mEra:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:metadataFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:metadataFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mfUpdateProposalFile:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mMetadata:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mNetworkId:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNetworkId:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mOutFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mOutFile:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mOverrideWitnesses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mPassword:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mProtocolParamsFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mSlotInEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSlotsToEpochEnd:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSyncProgress:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSystemStart:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:QueryTipLocalStateCardano.CLI.Types.Output
$sel:mTotalCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mTotalCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mUpdateProprosalFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:network:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:networkId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nodeSocketPath:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nonce:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numPools:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStakeDelegators:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStuffedUtxo:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:outFile:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:outFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFormat:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outputFormat:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outputFormat:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outTxFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:pollFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:pollFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolCost:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolIds:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolIds:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolMargin:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolMetadataFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolPledge:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolSkeyFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:prompt:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:proposalFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:protocolParamsFile:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:query:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:query:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:queryFilter:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:queryFilter:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:readOnlyReferenceInputs:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:readOnlyRefIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:relays:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:requiredSigners:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:requiredSigners:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddr:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:scAda:ScriptCostOutputCardano.CLI.Types.Output
$sel:scExecutionUnits:ScriptCostOutputCardano.CLI.Types.Output
$sel:scriptDataOrFile:TransactionHashScriptDataCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFile:TransactionPolicyIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scScriptHash:ScriptCostOutputCardano.CLI.Types.Output
$sel:security:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:skeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:skeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:slotCoeff:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:slotLength:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:someKeyFileIn:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:someKeyFileOut:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:txBodyFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyOutFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:txFile:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txins:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txinsc:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInsCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOrTxBodyFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOut:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOutCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:utcTime:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:utcTime:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:verificationKeyPath:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:vkey:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeySource:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:voteChoice:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:voteFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:whichSchedule:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:withdrawals:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:withdrawals:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessFiles:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:yamlOutput:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
\ No newline at end of file diff --git a/doc-index-A.html b/doc-index-A.html new file mode 100644 index 0000000000..f937613294 --- /dev/null +++ b/doc-index-A.html @@ -0,0 +1 @@ +cardano-cli API (Index - A)
cardano-cli API

Index - A

AbsoluteSeekCardano.CLI.OS.Posix
AByronSigningKeyCardano.CLI.Types.Key
AByronSigningWitnessCardano.CLI.Read
AByronWitnessCardano.CLI.Read
accessModesCardano.CLI.OS.Posix
accessTimeCardano.CLI.OS.Posix
accessTimeHiResCardano.CLI.OS.Posix
ACommitteeColdSigningWitnessCardano.CLI.Read
ACommitteeHotSigningWitnessCardano.CLI.Read
AddressBuild 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressCmdAddressInfoErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdExpectedPaymentVerificationKeyCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Address
AddressCmdVerificationKeyTextOrFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdWriteFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressInfo 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressInfoErrorCardano.CLI.Types.Errors.AddressInfoError
AddressKeyByronCardano.CLI.Types.Common
AddressKeyGen 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressKeyHash 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressKeyShelleyCardano.CLI.Types.Common
AddressKeyShelleyExtendedCardano.CLI.Types.Common
AddressKeyTypeCardano.CLI.Types.Common
ADRepSigningWitnessCardano.CLI.Read
AGenesisDelegateExtendedSigningKeyCardano.CLI.Types.Key
AGenesisDelegateExtendedSigningWitnessCardano.CLI.Read
AGenesisDelegateSigningKeyCardano.CLI.Types.Key
AGenesisDelegateSigningWitnessCardano.CLI.Read
AGenesisExtendedSigningKeyCardano.CLI.Types.Key
AGenesisExtendedSigningWitnessCardano.CLI.Read
AGenesisSigningKeyCardano.CLI.Types.Key
AGenesisSigningWitnessCardano.CLI.Read
AGenesisUTxOSigningKeyCardano.CLI.Types.Key
AGenesisUTxOSigningWitnessCardano.CLI.Read
AKesSigningKeyCardano.CLI.Types.Key
AllCardano.CLI.Types.Common
AllOrOnlyCardano.CLI.Types.Common
AnnCardano.CLI.Pretty
AnyCommitteeHotVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyDelegationTargetCardano.CLI.Types.Key
AnyDRepVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyEraCommand 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.EraBased.Commands
AnyEraCommandOfCardano.CLI.EraBased.Commands
AnyStakePoolVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyVerificationKeySourceCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfFileCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfTextCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeyText 
1 (Data Constructor)Cardano.CLI.Types.Key.VerificationKey
2 (Type/Class)Cardano.CLI.Types.Key.VerificationKey
AnyVotingStakeVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
APaymentExtendedSigningKeyCardano.CLI.Types.Key
APaymentExtendedSigningWitnessCardano.CLI.Read
APaymentSigningKeyCardano.CLI.Types.Key
APaymentSigningWitnessCardano.CLI.Read
appendCardano.CLI.OS.Posix
appendFileCardano.CLI.OS.Posix
AppendModeCardano.CLI.OS.Posix
AppendOnWriteCardano.CLI.OS.Posix
AShelleyKeyWitnessCardano.CLI.Read
ASigningKeyFileCardano.CLI.Types.Common
assertHasKeysTest.Cardano.CLI.Aeson
assertHasMappingsTest.Cardano.CLI.Aeson
AStakeExtendedSigningKeyCardano.CLI.Types.Key
AStakeExtendedSigningWitnessCardano.CLI.Read
AStakePoolSigningKeyCardano.CLI.Types.Key
AStakePoolSigningWitnessCardano.CLI.Read
AStakeSigningKeyCardano.CLI.Types.Key
AStakeSigningWitnessCardano.CLI.Read
AsyncIOAvailableCardano.CLI.OS.Posix
AutoBalanceCardano.CLI.Types.Common
AVerificationKeyFileCardano.CLI.Types.Common
AVrfSigningKeyCardano.CLI.Types.Key
\ No newline at end of file diff --git a/doc-index-All.html b/doc-index-All.html new file mode 100644 index 0000000000..10bc2ba225 --- /dev/null +++ b/doc-index-All.html @@ -0,0 +1 @@ +cardano-cli API (Index)
cardano-cli API

Index

$sel:actionFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:addr:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:addr:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:answerIndex:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:buildOutputOptions:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:byronKeyType:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:certificates:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:certificates:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:changeAddresses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:choices:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:coldVkeyFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:consensusModeParams:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:consensusModeParams:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:consensusModeParams:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:counter:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:delegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:deposit:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:deposit:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:deposit:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:drepKeys:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepKeys:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:eon:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:eon:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:eon:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:eon:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:eon:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:eon:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:eon:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:era:QueryTipLocalStateCardano.CLI.Types.Output
$sel:eraHistory:QueryTipLocalStateCardano.CLI.Types.Output
$sel:expiryEpoch:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:fee:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:genesisDir:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisDir:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:genesisFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:genesisVerificationKeys:UpdateProtocolParametersPreConwayCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceAction:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:idOutputFormat:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:inputTxBodyOrTxFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:itnKeyFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:kesPeriod:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:kesVkeySource:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:keyOutputFormat:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:keyOutputFormat:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:localStateChainTip:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mAnchor:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mChainTip:QueryTipLocalStateCardano.CLI.Types.Output
$sel:memberStatuses:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mEra:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:metadataFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:metadataFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:metadataSchema:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mfUpdateProposalFile:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mMetadata:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mNetworkId:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNetworkId:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mOutFile:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mOutFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceDRepMetadataHashCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:mOutFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:mOutFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:mOutFile:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:mOutFile:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:NodeNewCounterCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:mOutFile:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:mOutFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:mOutFile:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mOverrideWitnesses:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mPassword:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:mProtocolParamsFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mReturnCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mScriptValidity:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mSlotInEpoch:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSlotsToEpochEnd:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSupply:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSyncProgress:QueryTipLocalStateOutputCardano.CLI.Types.Output
$sel:mSystemStart:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:mSystemStart:QueryTipLocalStateCardano.CLI.Types.Output
$sel:mTotalCollateral:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mTotalCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mUpdateProprosalFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityLowerBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValidityUpperBound:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:mValue:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:network:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:network:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:networkId:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:networkId:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:networkId:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:networkId:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:networkId:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTipCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryConstitutionHashCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryDRepStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryKesPeriodInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryLedgerStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryNoArgCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolParametersCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryProtocolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeAddressInfoCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeDistributionCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakePoolsCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryStakeSnapshotCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTipCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:nodeSocketPath:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nodeSocketPath:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:nonce:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numGenesisKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numPools:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStakeDelegators:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numStuffedUtxo:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:numUTxOKeys:GenesisCreateStakedCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:outFile:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:outFile:GovernanceDRepRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:outFile:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:outFile:KeyConvertITNBip32KeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNExtendedKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:KeyConvertITNKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:outFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:outFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outFormat:GovernanceActionViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:outputFormat:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:outputFormat:TransactionViewCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:outTxFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:pollFile:GovernanceAnswerPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:pollFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolCost:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolIds:LegacyQueryPoolStateCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:poolIds:QueryPoolStateCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:poolMargin:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolMetadataFile:StakePoolMetadataHashCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolPledge:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolSkeyFile:NodeIssueOpCertCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolIdCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:prompt:GovernanceCreatePollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:proposalFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalHash:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:proposalUrl:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:protocolParamsFile:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutputCardano.CLI.Types.Output
$sel:query:LegacyQueryTxMempoolCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:query:QueryTxMempoolCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:queryFilter:LegacyQueryUTxOCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:queryFilter:QueryUTxOCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:readOnlyReferenceInputs:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:readOnlyRefIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:relays:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:requiredSigners:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:requiredSigners:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddr:UpdateProtocolParametersConwayOnwardsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:returnStakeAddress:GovernanceActionInfoCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolDeregistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:sbe:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:scAda:ScriptCostOutputCardano.CLI.Types.Output
$sel:scExecutionUnits:ScriptCostOutputCardano.CLI.Types.Output
$sel:scriptDataOrFile:TransactionHashScriptDataCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFile:TransactionPolicyIdCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scriptFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:scScriptHash:ScriptCostOutputCardano.CLI.Types.Output
$sel:security:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:signingKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:skeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:skeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:slotCoeff:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:slotLength:GenesisCreateCardanoCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:someKeyFileIn:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:someKeyFileOut:KeyConvertByronKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:txBodyFile:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyFile:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txBodyOutFile:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txFile:GovernanceVerifyPollCmdArgsCardano.CLI.EraBased.Commands.Governance.Poll
$sel:txFile:TransactionSubmitCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txins:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txIns:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txinsc:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txInsCollateral:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOrTxBodyFile:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOut:TransactionCalculateMinValueCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txOutCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txouts:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgsCardano.CLI.EraBased.Commands.Governance.Actions
$sel:utcTime:LegacyQuerySlotNumberCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:utcTime:QuerySlotNumberCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:verificationKeyPath:GenesisAddrCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisTxInCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:verificationKeyPath:GenesisVerKeyCmdArgsCardano.CLI.EraBased.Commands.Genesis
$sel:vkey:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyFile:GovernanceDRepKeyGenCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyFile:KeyVerificationKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyFile:NodeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenKESCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFile:NodeKeyGenVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgsCardano.CLI.EraBased.Commands.Key
$sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceCommitteeKeyHashCmdArgsCardano.CLI.EraBased.Commands.Governance.Committee
$sel:vkeySource:GovernanceDRepIdCmdArgsCardano.CLI.EraBased.Commands.Governance.DRep
$sel:vkeySource:NodeKeyHashVRFCmdArgsCardano.CLI.EraBased.Commands.Node
$sel:voteChoice:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFile:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:voteFiles:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:voteFiles:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
$sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgsCardano.CLI.EraBased.Commands.StakePool
$sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgsCardano.CLI.Legacy.Commands.Query
$sel:whichSchedule:QueryLeadershipScheduleCmdArgsCardano.CLI.EraBased.Commands.Query
$sel:withdrawals:TransactionBuildCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:withdrawals:TransactionBuildRawCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessFiles:TransactionSignWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionSignCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:witnessSigningData:TransactionWitnessCmdArgsCardano.CLI.EraBased.Commands.Transaction
$sel:yamlOutput:GovernanceVoteViewCmdArgsCardano.CLI.EraBased.Commands.Governance.Vote
AbsoluteSeekCardano.CLI.OS.Posix
AByronSigningKeyCardano.CLI.Types.Key
AByronSigningWitnessCardano.CLI.Read
AByronWitnessCardano.CLI.Read
accessModesCardano.CLI.OS.Posix
accessTimeCardano.CLI.OS.Posix
accessTimeHiResCardano.CLI.OS.Posix
ACommitteeColdSigningWitnessCardano.CLI.Read
ACommitteeHotSigningWitnessCardano.CLI.Read
AddressBuild 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressCmdAddressInfoErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdExpectedPaymentVerificationKeyCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Address
AddressCmdVerificationKeyTextOrFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressCmdWriteFileErrorCardano.CLI.Types.Errors.AddressCmdError
AddressInfo 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressInfoErrorCardano.CLI.Types.Errors.AddressInfoError
AddressKeyByronCardano.CLI.Types.Common
AddressKeyGen 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressKeyHash 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Address
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Address
AddressKeyShelleyCardano.CLI.Types.Common
AddressKeyShelleyExtendedCardano.CLI.Types.Common
AddressKeyTypeCardano.CLI.Types.Common
ADRepSigningWitnessCardano.CLI.Read
AGenesisDelegateExtendedSigningKeyCardano.CLI.Types.Key
AGenesisDelegateExtendedSigningWitnessCardano.CLI.Read
AGenesisDelegateSigningKeyCardano.CLI.Types.Key
AGenesisDelegateSigningWitnessCardano.CLI.Read
AGenesisExtendedSigningKeyCardano.CLI.Types.Key
AGenesisExtendedSigningWitnessCardano.CLI.Read
AGenesisSigningKeyCardano.CLI.Types.Key
AGenesisSigningWitnessCardano.CLI.Read
AGenesisUTxOSigningKeyCardano.CLI.Types.Key
AGenesisUTxOSigningWitnessCardano.CLI.Read
AKesSigningKeyCardano.CLI.Types.Key
AllCardano.CLI.Types.Common
AllOrOnlyCardano.CLI.Types.Common
AnnCardano.CLI.Pretty
AnyCommitteeHotVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyDelegationTargetCardano.CLI.Types.Key
AnyDRepVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyEraCommand 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.EraBased.Commands
AnyEraCommandOfCardano.CLI.EraBased.Commands
AnyStakePoolVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
AnyVerificationKeySourceCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfFileCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeySourceOfTextCardano.CLI.Types.Key.VerificationKey
AnyVerificationKeyText 
1 (Data Constructor)Cardano.CLI.Types.Key.VerificationKey
2 (Type/Class)Cardano.CLI.Types.Key.VerificationKey
AnyVotingStakeVerificationKeyOrHashOrFileCardano.CLI.Types.Governance
APaymentExtendedSigningKeyCardano.CLI.Types.Key
APaymentExtendedSigningWitnessCardano.CLI.Read
APaymentSigningKeyCardano.CLI.Types.Key
APaymentSigningWitnessCardano.CLI.Read
appendCardano.CLI.OS.Posix
appendFileCardano.CLI.OS.Posix
AppendModeCardano.CLI.OS.Posix
AppendOnWriteCardano.CLI.OS.Posix
AShelleyKeyWitnessCardano.CLI.Read
ASigningKeyFileCardano.CLI.Types.Common
assertHasKeysTest.Cardano.CLI.Aeson
assertHasMappingsTest.Cardano.CLI.Aeson
AStakeExtendedSigningKeyCardano.CLI.Types.Key
AStakeExtendedSigningWitnessCardano.CLI.Read
AStakePoolSigningKeyCardano.CLI.Types.Key
AStakePoolSigningWitnessCardano.CLI.Read
AStakeSigningKeyCardano.CLI.Types.Key
AStakeSigningWitnessCardano.CLI.Read
AsyncIOAvailableCardano.CLI.OS.Posix
AutoBalanceCardano.CLI.Types.Common
AVerificationKeyFileCardano.CLI.Types.Common
AVrfSigningKeyCardano.CLI.Types.Key
backwardsCompatibilityCommandsCardano.CLI.Byron.Parsers
BalanceTxExecUnitsCardano.CLI.Types.Common
blackCardano.CLI.Pretty
BlockBufferingCardano.CLI.OS.Posix
BlockId 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
blockSpecialModeCardano.CLI.OS.Posix
blueCardano.CLI.Pretty
BootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
BufferModeCardano.CLI.OS.Posix
ByronClientCmdErrorCardano.CLI.Byron.Run
ByronCommand 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
ByronDelegateKeyCardano.CLI.Types.Common
ByronDelegationCertSerializationErrorCardano.CLI.Byron.Genesis
ByronDelegationErrorCardano.CLI.Byron.Delegation
ByronDelegationKeyErrorCardano.CLI.Byron.Delegation
ByronDelegationKeySerializationErrorCardano.CLI.Byron.Genesis
ByronGenesisErrorCardano.CLI.Byron.Genesis
ByronGenesisKeyCardano.CLI.Types.Common
ByronKeyFailureCardano.CLI.Byron.Key
ByronKeyFormatCardano.CLI.Types.Common
ByronKeyTypeCardano.CLI.Types.Common
ByronOrShelleyWitnessCardano.CLI.Read
ByronPaymentKeyCardano.CLI.Types.Common
ByronReadUpdateProposalFileFailureCardano.CLI.Byron.UpdateProposal
ByronTxErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorEraMismatchCardano.CLI.Byron.Tx
ByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalGenesisReadErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalTxErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalWriteErrorCardano.CLI.Byron.UpdateProposal
ByronVoteDecodingErrorCardano.CLI.Byron.Vote
ByronVoteErrorCardano.CLI.Byron.Vote
ByronVoteGenesisReadErrorCardano.CLI.Byron.Vote
ByronVoteKeyReadFailureCardano.CLI.Byron.Vote
ByronVoteReadFileFailureCardano.CLI.Byron.Vote
ByronVoteTxSubmissionErrorCardano.CLI.Byron.Vote
ByronVoteUpdateHelperErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalDecodingErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalFailureCardano.CLI.Byron.Vote
byronWitnessToVerKeyCardano.CLI.Byron.Key
CannotMigrateFromNonLegacySigningKeyCardano.CLI.Byron.Key
CardanoAddressByronPaymentKeyCardano.CLI.Types.Common
CardanoAddressIcarusPaymentKeyCardano.CLI.Types.Common
CardanoAddressKeyTypeCardano.CLI.Types.Common
CardanoAddressShelleyPaymentKeyCardano.CLI.Types.Common
CardanoAddressShelleyStakeKeyCardano.CLI.Types.Common
CardanoAddressSigningKeyBech32DecodeErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
catCommandsCardano.CLI.EraBased.Options.Common
categoriseSomeSigningWitnessCardano.CLI.Read
CBORBlockByronCardano.CLI.Types.Common
CBORDecodingErrorCardano.CLI.Helpers
CBORDelegationCertificateByronCardano.CLI.Types.Common
CBORObjectCardano.CLI.Types.Common
CBORPrettyPrintErrorCardano.CLI.Helpers
CBORTxByronCardano.CLI.Types.Common
CBORUpdateProposalByronCardano.CLI.Types.Common
CBORVoteByronCardano.CLI.Types.Common
CddlErrorCardano.CLI.Read
CddlErrorTextEnvCardano.CLI.Read
CddlIOErrorCardano.CLI.Read
CddlTx 
1 (Data Constructor)Cardano.CLI.Read
2 (Type/Class)Cardano.CLI.Read
CddlWitnessErrorCardano.CLI.Read
CddlWitnessErrorTextEnvCardano.CLI.Read
CddlWitnessIOErrorCardano.CLI.Read
CertificateFile 
1 (Data Constructor)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
CertificateValidationErrorsCardano.CLI.Byron.Delegation
char8Cardano.CLI.OS.Posix
characterSpecialModeCardano.CLI.OS.Posix
checkByronGenesisDelegationCardano.CLI.Byron.Delegation
checkTextEnvelopeFormatTest.Cardano.CLI.Util
checkTxCddlFormatTest.Cardano.CLI.Util
ClientCommandCardano.CLI.Run
ClientCommandErrorsCardano.CLI.Run
CliPingCommandCardano.CLI.Run
closeFdCardano.CLI.OS.Posix
CloseOnExecCardano.CLI.OS.Posix
CmdAddressErrorCardano.CLI.Types.Errors.CmdError
CmdEraDelegationErrorCardano.CLI.Types.Errors.CmdError
CmdErrorCardano.CLI.Types.Errors.CmdError
CmdGenesisErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceActionErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCmdErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCommitteeErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceQueryErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceVoteErrorCardano.CLI.Types.Errors.CmdError
CmdKeyErrorCardano.CLI.Types.Errors.CmdError
CmdNodeErrorCardano.CLI.Types.Errors.CmdError
CmdQueryErrorCardano.CLI.Types.Errors.CmdError
CmdRegistrationErrorCardano.CLI.Types.Errors.CmdError
CmdsCardano.CLI.EraBased.Commands
CmdStakeAddressErrorCardano.CLI.Types.Errors.CmdError
CmdStakePoolErrorCardano.CLI.Types.Errors.CmdError
CmdTextViewErrorCardano.CLI.Types.Errors.CmdError
CmdTransactionErrorCardano.CLI.Types.Errors.CmdError
ColdGenesisDelegateVerificationKeyCardano.CLI.Types.Key
ColdStakePoolVerificationKeyCardano.CLI.Types.Key
ColdVerificationKeyFileCardano.CLI.Types.Key
ColdVerificationKeyOrFileCardano.CLI.Types.Key
command'Cardano.CLI.EraBased.Options.Common
ConstitutionErrorCardano.CLI.Read
ConstitutionErrorFileCardano.CLI.Read
ConstitutionHashSourceCardano.CLI.Types.Common
ConstitutionHashSourceFileCardano.CLI.Types.Common
ConstitutionHashSourceHashCardano.CLI.Types.Common
ConstitutionHashSourceTextCardano.CLI.Types.Common
constitutionHashSourceToHashCardano.CLI.Read
ConstitutionNotSupportedInEraCardano.CLI.Read
ConstitutionNotUnicodeErrorCardano.CLI.Read
ConstitutionText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ConstitutionUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
convertTimeCardano.CLI.EraBased.Options.Common
ConwayOnwardDelegTargetCardano.CLI.Types.Key
ConwayVote 
1 (Data Constructor)Cardano.CLI.Types.Governance
2 (Type/Class)Cardano.CLI.Types.Governance
createDeviceCardano.CLI.OS.Posix
createFileCardano.CLI.OS.Posix
createLinkCardano.CLI.OS.Posix
createNamedPipeCardano.CLI.OS.Posix
createOpCertIntervalInfoCardano.CLI.Types.Output
createPipeCardano.CLI.OS.Posix
createSymbolicLinkCardano.CLI.OS.Posix
CreateVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
CRLFCardano.CLI.OS.Posix
CurrentEpochCardano.CLI.Types.Common
CurrentKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
customRenderHelpCardano.CLI.Render
cvEraCardano.CLI.Types.Governance
cvFilepathCardano.CLI.Types.Governance
cvGovActionIdCardano.CLI.Types.Governance
cvVoteChoiceCardano.CLI.Types.Governance
cvVoterTypeCardano.CLI.Types.Governance
cvVotingStakeCredentialCardano.CLI.Types.Governance
cyanCardano.CLI.Pretty
decimalCardano.CLI.EraBased.Options.Common
decodeBech32Cardano.CLI.EraBased.Run.Key
decodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
defaultByronEpochSlotsCardano.CLI.EraBased.Options.Common
defaultFileFlagsCardano.CLI.OS.Posix
defaultShelleyBasedEraCardano.CLI.EraBased.Options.Common
defaultShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
DelegationCertificateWriteFileErrorCardano.CLI.Types.Errors.DelegationError
DelegationDRepReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationErrorCardano.CLI.Types.Errors.DelegationError
DelegationReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationsAndRewards 
1 (Data Constructor)Cardano.CLI.EraBased.Run.Query
2 (Type/Class)Cardano.CLI.EraBased.Run.Query
DelegationStakeCredentialErrorCardano.CLI.Types.Errors.DelegationError
deprecationWarningCardano.CLI.Helpers
deserialiseHotCCKeyFromHexCardano.CLI.EraBased.Options.Common
deserialiseScriptInAnyLangCardano.CLI.Read
deviceIDCardano.CLI.OS.Posix
directoryModeCardano.CLI.OS.Posix
DisplayVersionCardano.CLI.Run
DlgCertificateDeserialisationFailedCardano.CLI.Byron.Delegation
DRepHashSourceCardano.CLI.Types.Key
DRepHashSourceScriptCardano.CLI.Types.Key
DRepHashSourceVerificationKeyCardano.CLI.Types.Key
DRepMetadataFileCardano.CLI.Types.Common
drepVkeyDescCardano.CLI.EraBased.Run.Key
dumpGenesisCardano.CLI.Byron.Genesis
dupCardano.CLI.OS.Posix
dupToCardano.CLI.OS.Posix
eDNSNameCardano.CLI.Parser
encodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
ensureNewFileCardano.CLI.Helpers
ensureNewFileLBSCardano.CLI.Helpers
EnvCli 
1 (Data Constructor)Cardano.CLI.Environment
2 (Type/Class)Cardano.CLI.Environment
envCliAnyCardanoEraCardano.CLI.Environment
envCliAnyShelleyBasedEraCardano.CLI.Environment
envCliAnyShelleyToBabbageEraCardano.CLI.Environment
envCliNetworkIdCardano.CLI.Environment
envCliSocketPathCardano.CLI.Environment
eonCardano.CLI.EraBased.Commands.Governance.Hash
EpochLeadershipScheduleCardano.CLI.Types.Common
equivalenceTest.Cardano.CLI.Util
eraCardano.CLI.Types.Errors.NodeEraMismatchError
EraMismatchErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
exclusiveCardano.CLI.OS.Posix
execCardanoCLITest.Cardano.CLI.Util
execDetailCardanoCLITest.Cardano.CLI.Util
FdOptionCardano.CLI.OS.Posix
fdReadCardano.CLI.OS.Posix
fdReadBufCardano.CLI.OS.Posix
fdSeekCardano.CLI.OS.Posix
fdToHandleCardano.CLI.OS.Posix
fdWriteCardano.CLI.OS.Posix
fdWriteBufCardano.CLI.OS.Posix
File 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
fileAccessCardano.CLI.OS.Posix
FileDirectionCardano.CLI.Types.Common
fileExistCardano.CLI.OS.Posix
fileGroupCardano.CLI.OS.Posix
fileIDCardano.CLI.OS.Posix
FileLockCardano.CLI.OS.Posix
fileModeCardano.CLI.OS.Posix
FileNameLimitCardano.CLI.OS.Posix
FileNamesAreNotTruncatedCardano.CLI.OS.Posix
FileOrPipeCardano.CLI.Read
fileOrPipeCardano.CLI.Read
fileOrPipeCacheCardano.CLI.Read
fileOrPipePathCardano.CLI.Read
fileOwnerCardano.CLI.OS.Posix
FilePathCardano.CLI.OS.Posix
fileSizeCardano.CLI.OS.Posix
FileSizeBitsCardano.CLI.OS.Posix
FileStatusCardano.CLI.OS.Posix
fileTypeModesCardano.CLI.OS.Posix
fixIOCardano.CLI.OS.Posix
forMCardano.CLI.IO.Lazy
forStateMCardano.CLI.IO.Lazy
FriendlyFormatCardano.CLI.Json.Friendly
FriendlyJsonCardano.CLI.Json.Friendly
friendlyProposalCardano.CLI.Json.Friendly
friendlyTxCardano.CLI.Json.Friendly
friendlyTxBodyCardano.CLI.Json.Friendly
FriendlyYamlCardano.CLI.Json.Friendly
fromCborTxAuxCardano.CLI.Byron.Tx
futurePoolParametersCardano.CLI.Types.Common
generateKeyPairCardano.CLI.Types.Key
GenesisCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
GenesisAddr 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisAddrCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdAesonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdByronErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdCostModelsErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesDupIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesNoIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileReadErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdKeyHash 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCmdMismatchedGenesisKeyFilesCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdNodeCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdStakeAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayJsonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTooFewPoolsForBulkCredsCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdUnexpectedAddressVerificationKeyCardano.CLI.Types.Errors.GenesisCmdError
GenesisCreate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateCardano 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateCardanoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStaked 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateStakedCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisDir 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisGenerationErrorCardano.CLI.Byron.Genesis
GenesisHashFile 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisKeyGenDelegate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenDelegateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesis 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenGenesisCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxO 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisOutputDirAlreadyExistsCardano.CLI.Byron.Genesis
GenesisParameters 
1 (Data Constructor)Cardano.CLI.Byron.Genesis
2 (Type/Class)Cardano.CLI.Byron.Genesis
GenesisReadErrorCardano.CLI.Byron.Genesis
GenesisSpecErrorCardano.CLI.Byron.Genesis
GenesisTxIn 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisTxInCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKey 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisVerKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
genesisVkeyDelegateDescCardano.CLI.EraBased.Run.Key
genesisVkeyDescCardano.CLI.EraBased.Run.Key
getBinDirPaths_cardano_cli
getCharCardano.CLI.OS.Posix
getCommitteeColdCredentialFromVerKeyHashOrFileCardano.CLI.Read
getCommitteeHotCredentialFromVerKeyHashOrFileCardano.CLI.Read
getContentsCardano.CLI.OS.Posix
getContents'Cardano.CLI.OS.Posix
getDataDirPaths_cardano_cli
getDataFileNamePaths_cardano_cli
getDRepCredentialFromVerKeyHashOrFileCardano.CLI.Read
getDynLibDirPaths_cardano_cli
getEnvCliCardano.CLI.Environment
getEnvNetworkIdCardano.CLI.Environment
getEnvSocketPathCardano.CLI.Environment
getFdPathVarCardano.CLI.OS.Posix
getFdStatusCardano.CLI.OS.Posix
getFileStatusCardano.CLI.OS.Posix
getLibDirPaths_cardano_cli
getLibexecDirPaths_cardano_cli
getLineCardano.CLI.OS.Posix
getLockCardano.CLI.OS.Posix
getPathVarCardano.CLI.OS.Posix
getStakeAddressFromVerifierCardano.CLI.Read
getStakeCredentialFromIdentifierCardano.CLI.Read
getStakeCredentialFromVerifierCardano.CLI.Read
getSymbolicLinkStatusCardano.CLI.OS.Posix
getSysconfDirPaths_cardano_cli
GetTxIdCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
gitRevCardano.CLI.IO.GitRev
GoveranceActionUpdateCommitteeCmdCardano.CLI.EraBased.Commands.Governance.Actions
GoveranceActionUpdateCommitteeCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionsCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdProposalErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadTextEnvelopeFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsValueUpdateProtocolParametersNotFoundCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewOutputFormatCardano.CLI.Types.Common
GovernanceActionViewOutputFormatJsonCardano.CLI.Types.Common
GovernanceActionViewOutputFormatYamlCardano.CLI.Types.Common
GovernanceAnswerPoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceAnswerPollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCmdCddlErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelsJsonDecodeErrCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDecoderErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDRepMetadataValidationErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyCostModelCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyUpdateProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdGenesisDelegationNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdHashErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertificateKeyRewardMistmachCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollInvalidChoiceCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollOutOfBoundAnswerCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCmdTextEnvReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdUnexpectedKeyTypeCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdVerifyPollErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCommitteeCmdKeyDecodeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeKeyGenColdCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenColdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCreateMirCertificateStakeAddressesCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreateMirCertificateTransferToReservesCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreateMirCertificateTransferToTreasuryCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreatePoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCreatePollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceDRepCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceGenesisKeyDelegationCertificate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceHashCmdCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashReadFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashSourceCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceBinaryFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashWriteFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernancePollCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceQueryAcqireFailureErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryDRepKeyErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryEraMismatchCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryUnsupportedNtcVersionCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryWriteFileErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceUpdateProposalCardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVerifyPollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVoteCmdCredentialDecodeErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVerificationKeyErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteFileErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteTextErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCmdWriteErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCreateCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCreateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
gpAvvmBalanceFactorCardano.CLI.Byron.Genesis
gpFakeAvvmOptionsCardano.CLI.Byron.Genesis
gpKCardano.CLI.Byron.Genesis
gpProtocolMagicCardano.CLI.Byron.Genesis
gpProtocolParamsFileCardano.CLI.Byron.Genesis
gpSeedCardano.CLI.Byron.Genesis
gpStartTimeCardano.CLI.Byron.Genesis
gpTestnetBalanceCardano.CLI.Byron.Genesis
greenCardano.CLI.Pretty
groupExecuteModeCardano.CLI.OS.Posix
groupModesCardano.CLI.OS.Posix
groupReadModeCardano.CLI.OS.Posix
groupWriteModeCardano.CLI.OS.Posix
HandleCardano.CLI.OS.Posix
HandlePosnCardano.CLI.OS.Posix
handleToFdCardano.CLI.OS.Posix
hCloseCardano.CLI.OS.Posix
HelpCardano.CLI.Run
HelpersErrorCardano.CLI.Helpers
hFileSizeCardano.CLI.OS.Posix
hFlushCardano.CLI.OS.Posix
hGetBufCardano.CLI.OS.Posix
hGetBufferingCardano.CLI.OS.Posix
hGetBufNonBlockingCardano.CLI.OS.Posix
hGetBufSomeCardano.CLI.OS.Posix
hGetCharCardano.CLI.OS.Posix
hGetContentsCardano.CLI.OS.Posix
hGetContents'Cardano.CLI.OS.Posix
hGetEchoCardano.CLI.OS.Posix
hGetEncodingCardano.CLI.OS.Posix
hGetLineCardano.CLI.OS.Posix
hGetPosnCardano.CLI.OS.Posix
hiddenSubParserCardano.CLI.EraBased.Options.Common
hIsClosedCardano.CLI.OS.Posix
hIsEOFCardano.CLI.OS.Posix
hIsOpenCardano.CLI.OS.Posix
hIsReadableCardano.CLI.OS.Posix
hIsSeekableCardano.CLI.OS.Posix
hIsTerminalDeviceCardano.CLI.OS.Posix
hIsWritableCardano.CLI.OS.Posix
hLookAheadCardano.CLI.OS.Posix
hPrintCardano.CLI.OS.Posix
hPutBufCardano.CLI.OS.Posix
hPutBufNonBlockingCardano.CLI.OS.Posix
hPutCharCardano.CLI.OS.Posix
hPutLnCardano.CLI.Pretty
hPutStrCardano.CLI.OS.Posix
hPutStrLnCardano.CLI.OS.Posix
hReadyCardano.CLI.OS.Posix
hSeekCardano.CLI.OS.Posix
hSetBinaryModeCardano.CLI.OS.Posix
hSetBufferingCardano.CLI.OS.Posix
hSetEchoCardano.CLI.OS.Posix
hSetEncodingCardano.CLI.OS.Posix
hSetFileSizeCardano.CLI.OS.Posix
hSetNewlineModeCardano.CLI.OS.Posix
hSetPosnCardano.CLI.OS.Posix
hShowCardano.CLI.OS.Posix
hTellCardano.CLI.OS.Posix
hWaitForInputCardano.CLI.OS.Posix
IdOutputFormatCardano.CLI.Types.Common
IdOutputFormatBech32Cardano.CLI.Types.Common
IdOutputFormatHexCardano.CLI.Types.Common
InCardano.CLI.Types.Common
IncompleteCddlFormattedTxCardano.CLI.Read
IncompleteTxCardano.CLI.Read
InlineDatumPresentAtTxInCardano.CLI.Types.Common
InOutCardano.CLI.Types.Common
InputCardano.CLI.Types.Common
InputLineLimitCardano.CLI.OS.Posix
inputNLCardano.CLI.OS.Posix
InputQueueLimitCardano.CLI.OS.Posix
InputTxBodyFileCardano.CLI.Types.Common
InputTxBodyOrTxFileCardano.CLI.Types.Common
InputTxFileCardano.CLI.Types.Common
interactCardano.CLI.OS.Posix
intersectFileModesCardano.CLI.OS.Posix
IOCardano.CLI.OS.Posix
IOError'Cardano.CLI.Helpers
IOModeCardano.CLI.OS.Posix
isBlockDeviceCardano.CLI.OS.Posix
isCharacterDeviceCardano.CLI.OS.Posix
isDirectoryCardano.CLI.OS.Posix
isEOFCardano.CLI.OS.Posix
isNamedPipeCardano.CLI.OS.Posix
isRegularFileCardano.CLI.OS.Posix
isSocketCardano.CLI.OS.Posix
issueByronGenesisDelegationCardano.CLI.Byron.Delegation
isSymbolicLinkCardano.CLI.OS.Posix
ItnKeyBech32DecodeErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnKeyConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnReadBech32FileErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnVerificationKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
KeyCmdByronKeyFailureCardano.CLI.Types.Errors.KeyCmdError
KeyCmdByronKeyParseErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdCardanoAddressSigningKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdExpectedExtendedVerificationKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdItnKeyConvErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdNonLegacyKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyCmdVerificationKeyReadErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWriteFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWrongKeyTypeErrorCardano.CLI.Types.Errors.KeyCmdError
KeyConvertByronGenesisVKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertByronGenesisVKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertByronKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertCardanoAddressKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNBip32KeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNExtendedKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeygenCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
KeyNonExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyNonExtendedKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyOutputFormatCardano.CLI.Types.Common
KeyOutputFormatBech32Cardano.CLI.Types.Common
KeyOutputFormatTextEnvelopeCardano.CLI.Types.Common
KeyVerificationKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyVerificationKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyWitnessSigningDataCardano.CLI.Types.Common
latin1Cardano.CLI.OS.Posix
LegacyAddressCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Address
LegacyByronKeyFormatCardano.CLI.Types.Common
LegacyCmds 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyDelegateKey 
1 (Data Constructor)Cardano.CLI.Byron.Legacy
2 (Type/Class)Cardano.CLI.Byron.Legacy
LegacyGenesisCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Genesis
LegacyGovernanceCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Governance
LegacyKeyCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Key
LegacyNodeCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Node
LegacyNodeIssueOpCertCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenColdCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenKESCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyHashVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeNewCounterCmdCardano.CLI.Legacy.Commands.Node
LegacyQueryCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryConstitutionHashCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryKesPeriodInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLeadershipScheduleCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLedgerStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryPoolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolParametersCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQuerySlotNumberCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeAddressInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakePoolsCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeSnapshotCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTipCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTxMempoolCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacySigningKeyDeserialisationFailedCardano.CLI.Byron.Key
LegacyStakeAddressCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.StakeAddress
LegacyStakePoolCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.StakePool
LegacyTextViewCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.TextView
LegacyTransactionCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Transaction
LFCardano.CLI.OS.Posix
LineBufferingCardano.CLI.OS.Posix
linkCountCardano.CLI.OS.Posix
LinkLimitCardano.CLI.OS.Posix
localeEncodingCardano.CLI.OS.Posix
LockRequestCardano.CLI.OS.Posix
lrkSigningKeyCardano.CLI.Byron.Legacy
magentaCardano.CLI.Pretty
MakeGenesisDelegationErrorCardano.CLI.Byron.Genesis
ManualBalanceCardano.CLI.Types.Common
MetadataErrorCardano.CLI.Read
MetadataErrorConversionErrorCardano.CLI.Read
MetadataErrorDecodeErrorCardano.CLI.Read
MetadataErrorFileCardano.CLI.Read
MetadataErrorJsonParseErrorCardano.CLI.Read
MetadataErrorNotAvailableInEraCardano.CLI.Read
MetadataErrorValidationErrorCardano.CLI.Read
MetadataFileCardano.CLI.Types.Common
MetadataFileCBORCardano.CLI.Types.Common
MetadataFileJSONCardano.CLI.Types.Common
MigrateDelegateKeyFromCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
MissingNetworkIdOrByronAddressErrorCardano.CLI.Types.Errors.BootstrapWitnessError
mkGenesisCardano.CLI.Byron.Genesis
mkTextEncodingCardano.CLI.OS.Posix
modificationTimeCardano.CLI.OS.Posix
modificationTimeHiResCardano.CLI.OS.Posix
moutFileCardano.CLI.EraBased.Commands.Governance.Hash
namedPipeModeCardano.CLI.OS.Posix
nativeNewlineCardano.CLI.OS.Posix
nativeNewlineModeCardano.CLI.OS.Posix
NewCertificateFile 
1 (Data Constructor)Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Byron.Commands
NewDirectory 
1 (Data Constructor)Cardano.CLI.Byron.Genesis
2 (Type/Class)Cardano.CLI.Byron.Genesis
NewlineCardano.CLI.OS.Posix
NewlineMode 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
NewSigningKeyFile 
1 (Data Constructor)Cardano.CLI.Byron.Key
2 (Type/Class)Cardano.CLI.Byron.Key
NewTxFile 
1 (Data Constructor)Cardano.CLI.Byron.Tx
2 (Type/Class)Cardano.CLI.Byron.Tx
NewVerificationKeyFile 
1 (Data Constructor)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
NextEpochCardano.CLI.Types.Common
nFpCardano.CLI.Byron.Commands
NoBufferingCardano.CLI.OS.Posix
nocttyCardano.CLI.OS.Posix
NodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdOperationalCertificateIssueErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadKeyFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
3 (Data Constructor)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
4 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
NodeCmdVrfSigningKeyCreationErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdWriteFileErrorCardano.CLI.Types.Errors.NodeCmdError
nodeEraCardano.CLI.Types.Errors.NodeEraMismatchError
NodeEraMismatchError 
1 (Data Constructor)Cardano.CLI.Types.Errors.NodeEraMismatchError
2 (Type/Class)Cardano.CLI.Types.Errors.NodeEraMismatchError
NodeIssueOpCertCmdCardano.CLI.EraBased.Commands.Node
NodeIssueOpCertCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdCardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
nodeSubmitTxCardano.CLI.Byron.Tx
NoGenesisDelegationForKeyCardano.CLI.Byron.Genesis
nonBlockCardano.CLI.OS.Posix
NonBlockingReadCardano.CLI.OS.Posix
noNewlineTranslationCardano.CLI.OS.Posix
NonLegacyByronKeyFormatCardano.CLI.Types.Common
normalByronTxToGenTxCardano.CLI.Byron.Tx
NoScriptDatumOrFileForMintCardano.CLI.Types.Common
NoScriptDatumOrFileForStakeCardano.CLI.Types.Common
noteInputFileTest.Cardano.CLI.Util
noteTempFileTest.Cardano.CLI.Util
nullFileModeCardano.CLI.OS.Posix
OnlyCardano.CLI.Types.Common
OpCertCounterCardano.CLI.Types.Common
OpCertCounterFileCardano.CLI.Types.Common
OpCertEndingKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertExpiredCardano.CLI.Types.Common
OpCertIntervalInformationCardano.CLI.Types.Common
OpCertNoBlocksMintedYetCardano.CLI.Types.Common
OpCertNodeAndOnDiskCounterInformationCardano.CLI.Types.Common
OpCertNodeStateCounter 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertOnDiskCounter 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertOnDiskCounterAheadOfNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterBehindNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterEqualToNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterTooFarAheadOfNodeStateCardano.CLI.Types.Common
OpCertSomeOtherErrorCardano.CLI.Types.Common
OpCertStartingKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertStartingKesPeriodIsInTheFutureCardano.CLI.Types.Common
OpCertWithinIntervalCardano.CLI.Types.Common
openBinaryFileCardano.CLI.OS.Posix
openBinaryTempFileCardano.CLI.OS.Posix
openBinaryTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
openFdCardano.CLI.OS.Posix
openFileCardano.CLI.OS.Posix
OpenFileFlags 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
OpenModeCardano.CLI.OS.Posix
openTempFileCardano.CLI.OS.Posix
openTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
optsCardano.CLI.Options
otherExecuteModeCardano.CLI.OS.Posix
otherModesCardano.CLI.OS.Posix
otherReadModeCardano.CLI.OS.Posix
otherWriteModeCardano.CLI.OS.Posix
OutCardano.CLI.Types.Common
OutputCardano.CLI.Types.Common
OutputMustNotAlreadyExistCardano.CLI.Helpers
outputNLCardano.CLI.OS.Posix
OutputScriptCostOnlyCardano.CLI.Types.Common
OutputTxBodyOnlyCardano.CLI.Types.Common
ownerExecuteModeCardano.CLI.OS.Posix
ownerModesCardano.CLI.OS.Posix
ownerReadModeCardano.CLI.OS.Posix
ownerWriteModeCardano.CLI.OS.Posix
pAddCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pAddressCardano.CLI.EraBased.Options.Common
pAddressCmdsCardano.CLI.EraBased.Options.Address
pAddressKeyTypeCardano.CLI.EraBased.Options.Common
pAlwaysAbstainCardano.CLI.EraBased.Options.Common
pAlwaysNoConfidenceCardano.CLI.EraBased.Options.Common
pAnchorDataHashCardano.CLI.EraBased.Options.Common
pAnchorUrlCardano.CLI.EraBased.Options.Common
pAnyEraCommandCardano.CLI.EraBased.Commands
pAnyShelleyBasedEraCardano.CLI.EraBased.Options.Common
pAnyShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pAnyVerificationKeySourceCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyTextCardano.CLI.EraBased.Options.Common
Params 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
parseByronCommandsCardano.CLI.Byron.Parsers
parseHeavyDelThdCardano.CLI.Byron.Parsers
parseInstallerHashCardano.CLI.Byron.Parsers
parseLegacyCmdsCardano.CLI.Legacy.Options
parseLovelaceCardano.CLI.EraBased.Options.Common
parseMaxBlockSizeCardano.CLI.Byron.Parsers
parseMaxHeaderSizeCardano.CLI.Byron.Parsers
parseMaxProposalSizeCardano.CLI.Byron.Parsers
parseMaxTxSizeCardano.CLI.Byron.Parsers
parseMpcThdCardano.CLI.Byron.Parsers
parsePingCmdCardano.CLI.Run.Ping
ParserFileDirectionCardano.CLI.Types.Common
parseScriptVersionCardano.CLI.Byron.Parsers
parseSlotDurationCardano.CLI.Byron.Parsers
parseSoftforkRuleCardano.CLI.Byron.Parsers
parseStakeAddressCardano.CLI.EraBased.Options.Common
parseSystemTagCardano.CLI.Byron.Parsers
parseTxFeePolicyCardano.CLI.Byron.Parsers
parseTxIdCardano.CLI.EraBased.Options.Common
parseTxInCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
parseTxIxCardano.CLI.EraBased.Options.Common
parseTxOutAnyEraCardano.CLI.EraBased.Options.Common
parseUnlockStakeEpochCardano.CLI.Byron.Parsers
parseUpdateProposalThdCardano.CLI.Byron.Parsers
parseUpdateProposalTTLCardano.CLI.Byron.Parsers
parseUpdateVoteThdCardano.CLI.Byron.Parsers
PathNameLimitCardano.CLI.OS.Posix
PathVarCardano.CLI.OS.Posix
PaymentVerifierCardano.CLI.Types.Key
PaymentVerifierKeyCardano.CLI.Types.Key
PaymentVerifierScriptFileCardano.CLI.Types.Key
paymentVkeyDescCardano.CLI.EraBased.Run.Key
pBech32KeyHashCardano.CLI.EraBased.Options.Common
pByronAddressCardano.CLI.EraBased.Options.Common
pCalculatePlutusScriptCostCardano.CLI.EraBased.Options.Common
pCBORInFileCardano.CLI.EraBased.Options.Common
pCertificateFileCardano.CLI.EraBased.Options.Common
pCmdsCardano.CLI.EraBased.Commands
pColdSigningKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCollateralPercentCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyOrHashOrVerificationFileCardano.CLI.EraBased.Options.Common
pCommitteeTermLengthCardano.CLI.EraBased.Options.Common
pConsensusModeParamsCardano.CLI.EraBased.Options.Common
pConstitutionHashCardano.CLI.EraBased.Options.Common
pConstitutionHashSourceCardano.CLI.EraBased.Options.Common
pConstitutionUrlCardano.CLI.EraBased.Options.Common
pCostModelsCardano.CLI.EraBased.Options.Common
pDecentralParamCardano.CLI.EraBased.Options.Common
pDRepActivityCardano.CLI.EraBased.Options.Common
pDRepDepositCardano.CLI.EraBased.Options.Common
pDrepDepositCardano.CLI.EraBased.Options.Common
pDRepHashSourceCardano.CLI.EraBased.Options.Common
pDRepScriptHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pDRepVotingThresholdsCardano.CLI.EraBased.Options.Common
pEpochBoundRetirementCardano.CLI.EraBased.Options.Common
pEpochNoCardano.CLI.EraBased.Options.Common
pEpochNoUpdatePropCardano.CLI.EraBased.Options.Common
pEpochSlotsCardano.CLI.EraBased.Options.Common
percentageCardano.CLI.EraBased.Run.Query
pExecutionUnitPricesCardano.CLI.EraBased.Options.Common
pExecutionUnitsCardano.CLI.EraBased.Options.Common
pExtendedVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pExtraEntropyCardano.CLI.EraBased.Options.Common
pFeaturedCardano.CLI.EraBased.Options.Common
pFileInDirectionCardano.CLI.EraBased.Options.Common
pFileOutDirectionCardano.CLI.EraBased.Options.Common
pFilterByStakeAddressCardano.CLI.EraBased.Options.Common
pGenesisCmdsCardano.CLI.EraBased.Options.Genesis
pGenesisDelegateVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGenesisFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGovActionDepositCardano.CLI.EraBased.Options.Common
pGovActionLifetimeCardano.CLI.EraBased.Options.Common
pGovernanceActionCmdsCardano.CLI.EraBased.Options.Governance.Actions
pGovernanceActionIdCardano.CLI.EraBased.Options.Common
pGovernanceActionViewOutputFormatCardano.CLI.EraBased.Options.Common
pGovernanceCmdsCardano.CLI.EraBased.Options.Governance
pGovernanceCommitteeCmdsCardano.CLI.EraBased.Options.Governance.Committee
pGovernanceDRepCmdsCardano.CLI.EraBased.Options.Governance.DRep
pGovernanceHashCmdsCardano.CLI.EraBased.Options.Governance.Hash
pGovernancePollCmdsCardano.CLI.EraBased.Options.Governance.Poll
pGovernanceVoteCmdsCardano.CLI.EraBased.Options.Governance.Vote
pHexHashCardano.CLI.EraBased.Options.Common
PingClientCmdError 
1 (Data Constructor)Cardano.CLI.Run.Ping
2 (Type/Class)Cardano.CLI.Run.Ping
PingCmd 
1 (Data Constructor)Cardano.CLI.Run.Ping
2 (Type/Class)Cardano.CLI.Run.Ping
pingCmdCountCardano.CLI.Run.Ping
pingCmdEndPointCardano.CLI.Run.Ping
pingCmdJsonCardano.CLI.Run.Ping
pingCmdMagicCardano.CLI.Run.Ping
pingCmdPortCardano.CLI.Run.Ping
pingCmdQuietCardano.CLI.Run.Ping
pingOptsHandshakeQueryCardano.CLI.Run.Ping
pInputTxOrTxBodyFileCardano.CLI.EraBased.Options.Common
pInvalidBeforeCardano.CLI.EraBased.Options.Common
pInvalidHereafterCardano.CLI.EraBased.Options.Common
PipeBufferLimitCardano.CLI.OS.Posix
pIpV4Cardano.CLI.EraBased.Options.Common
pIpV6Cardano.CLI.EraBased.Options.Common
pKesPeriodCardano.CLI.EraBased.Options.Common
pKesVerificationKeyCardano.CLI.EraBased.Options.Common
pKesVerificationKeyFileCardano.CLI.EraBased.Options.Common
pKesVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pKeyCmds 
1 (Function)Cardano.CLI.EraBased.Options.Key
2 (Function)Cardano.CLI.Legacy.Options.Key
pKeyOutputFormatCardano.CLI.EraBased.Options.Common
pKeyRegistDepositCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pLegacyCardanoEraCardano.CLI.Legacy.Options
pLegacyInvalidHereafterCardano.CLI.EraBased.Options.Common
pLegacyShelleyBasedEraCardano.CLI.Legacy.Options
PlutusReferenceScriptWitnessFilesCardano.CLI.Types.Common
PlutusScriptCostErrorCardano.CLI.Types.Output
PlutusScriptWitnessFilesCardano.CLI.Types.Common
pMaxBlockExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxBlockHeaderSizeCardano.CLI.EraBased.Options.Common
pMaxBodySizeCardano.CLI.EraBased.Options.Common
pMaxCollateralInputsCardano.CLI.EraBased.Options.Common
pMaxTransactionSizeCardano.CLI.EraBased.Options.Common
pMaxTxExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxValueSizeCardano.CLI.EraBased.Options.Common
pMaybeOutputFileCardano.CLI.EraBased.Options.Common
pMetadataFileCardano.CLI.EraBased.Options.Common
pMinCommitteeSizeCardano.CLI.EraBased.Options.Common
pMinFeeConstantFactorCardano.CLI.EraBased.Options.Common
pMinFeePerByteFactorCardano.CLI.EraBased.Options.Common
pMinPoolCostCardano.CLI.EraBased.Options.Common
pMintMultiAssetCardano.CLI.EraBased.Options.Common
pMinUTxOValueCardano.CLI.EraBased.Options.Common
pMIRPotCardano.CLI.EraBased.Options.Common
pMonetaryExpansionCardano.CLI.EraBased.Options.Common
pMultiHostNameCardano.CLI.EraBased.Options.Common
pNetworkIdCardano.CLI.EraBased.Options.Common
pNodeCmdsCardano.CLI.EraBased.Options.Node
pNumberOfPoolsCardano.CLI.EraBased.Options.Common
poolParametersCardano.CLI.Types.Common
PoorKeyFailureCardano.CLI.Byron.Genesis
pOperationalCertificateFileCardano.CLI.EraBased.Options.Common
pOperatorCertIssueCounterFileCardano.CLI.EraBased.Options.Common
pOutputFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextOrFileCardano.CLI.EraBased.Options.Common
pPaymentVerifierCardano.CLI.EraBased.Options.Common
pPlutusScriptLanguageCardano.CLI.EraBased.Options.Common
pPlutusStakeReferenceScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pPolicyIdCardano.CLI.EraBased.Options.Common
pPollAnswerCardano.CLI.EraBased.Options.Common
pPollAnswerIndexCardano.CLI.EraBased.Options.Common
pPollFileCardano.CLI.EraBased.Options.Common
pPollNonceCardano.CLI.EraBased.Options.Common
pPollQuestionCardano.CLI.EraBased.Options.Common
pPollTxFileCardano.CLI.EraBased.Options.Common
pPoolCostCardano.CLI.EraBased.Options.Common
pPoolDepositCardano.CLI.EraBased.Options.Common
pPoolIdOutputFormatCardano.CLI.EraBased.Options.Common
pPoolInfluenceCardano.CLI.EraBased.Options.Common
pPoolMarginCardano.CLI.EraBased.Options.Common
pPoolMetadataFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pPoolPledgeCardano.CLI.EraBased.Options.Common
pPoolRelayCardano.CLI.EraBased.Options.Common
pPoolVotingThresholdsCardano.CLI.EraBased.Options.Common
pPortCardano.CLI.EraBased.Options.Common
pPreviousGovernanceActionCardano.CLI.EraBased.Options.Common
pPrintCBORCardano.CLI.Helpers
pProtocolParametersUpdateCardano.CLI.EraBased.Options.Common
pProtocolParamsFileCardano.CLI.EraBased.Options.Common
pProtocolVersionCardano.CLI.EraBased.Options.Common
pQueryCmdsCardano.CLI.EraBased.Options.Query
pQueryUTxOFilterCardano.CLI.EraBased.Options.Common
pRationalCardano.CLI.EraBased.Options.Common
pReadOnlyReferenceTxInCardano.CLI.EraBased.Options.Common
prefCardano.CLI.Options
pReferenceTxInCardano.CLI.EraBased.Options.Common
prefixFlagCardano.CLI.EraBased.Options.Common
pRefScriptFpCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pRequiredSignerCardano.CLI.EraBased.Options.Common
prettyAddressCardano.CLI.Byron.Tx
PrettyPrintCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
prettyPublicKeyCardano.CLI.Byron.Key
PrettySigningKeyPublicCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
pReturnCollateralCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRewardAmtCardano.CLI.EraBased.Options.Common
printCardano.CLI.OS.Posix
PrintGenesisHashCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
PrintSigningKeyAddressCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
printWarningCardano.CLI.Helpers
PrioIOAvailableCardano.CLI.OS.Posix
PrivKeyFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
propertyOnceTest.Cardano.CLI.Util
ProposalErrorCardano.CLI.Read
ProposalErrorFileCardano.CLI.Read
ProposalFileCardano.CLI.Types.Common
ProposalNotSupportedInEraCardano.CLI.Read
ProposalNotUnicodeErrorCardano.CLI.Read
ProposalText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ProposalUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ProtocolParametersParseFailedCardano.CLI.Byron.Genesis
ProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorFileCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorJSONCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
pScriptCardano.CLI.EraBased.Options.Common
pScriptDataOrFileCardano.CLI.EraBased.Options.Common
pScriptDatumOrFileCardano.CLI.EraBased.Options.Common
pScriptForCardano.CLI.EraBased.Options.Common
pScriptRedeemerOrFileCardano.CLI.EraBased.Options.Common
pScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pShelleyBasedAllegraCardano.CLI.EraBased.Options.Common
pShelleyBasedAlonzoCardano.CLI.EraBased.Options.Common
pShelleyBasedBabbageCardano.CLI.EraBased.Options.Common
pShelleyBasedConwayCardano.CLI.EraBased.Options.Common
pShelleyBasedMaryCardano.CLI.EraBased.Options.Common
pShelleyBasedShelleyCardano.CLI.EraBased.Options.Common
pSigningKeyFileInCardano.CLI.EraBased.Options.Common
pSigningKeyFileOutCardano.CLI.EraBased.Options.Common
pSingleHostAddressCardano.CLI.EraBased.Options.Common
pSingleHostNameCardano.CLI.EraBased.Options.Common
pSocketPathCardano.CLI.EraBased.Options.Common
pStakeAddressCardano.CLI.EraBased.Options.Common
pStakeAddressCmdsCardano.CLI.EraBased.Options.StakeAddress
pStakeIdentifierCardano.CLI.EraBased.Options.Common
pStakePoolCmdsCardano.CLI.EraBased.Options.StakePool
pStakePoolMetadataHashCardano.CLI.EraBased.Options.Common
pStakePoolMetadataReferenceCardano.CLI.EraBased.Options.Common
pStakePoolMetadataUrlCardano.CLI.EraBased.Options.Common
pStakePoolRegistrationParserRequirementsCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakeVerificationKeyCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pStakeVerifierCardano.CLI.EraBased.Options.Common
pTextViewCmdsCardano.CLI.EraBased.Options.TextView
pTotalCollateralCardano.CLI.EraBased.Options.Common
pTransactionCmdsCardano.CLI.EraBased.Options.Transaction
pTransferAmtCardano.CLI.EraBased.Options.Common
pTreasuryExpansionCardano.CLI.EraBased.Options.Common
pTxBodyFileInCardano.CLI.EraBased.Options.Common
pTxBodyFileOutCardano.CLI.EraBased.Options.Common
pTxByronWitnessCountCardano.CLI.EraBased.Options.Common
pTxFeeCardano.CLI.EraBased.Options.Common
pTxFileInCardano.CLI.EraBased.Options.Common
pTxFileOutCardano.CLI.EraBased.Options.Common
pTxIdCardano.CLI.EraBased.Options.Common
pTxInCardano.CLI.EraBased.Options.Common
pTxInCollateralCardano.CLI.EraBased.Options.Common
pTxInCountCardano.CLI.EraBased.Options.Common
pTxMetadataJsonSchemaCardano.CLI.EraBased.Options.Common
pTxOutCardano.CLI.EraBased.Options.Common
pTxOutCountCardano.CLI.EraBased.Options.Common
pTxOutDatumCardano.CLI.EraBased.Options.Common
pTxShelleyWitnessCountCardano.CLI.EraBased.Options.Common
pTxSubmitFileCardano.CLI.EraBased.Options.Common
pTxViewOutputFormatCardano.CLI.EraBased.Options.Common
pUpdateProposalFileCardano.CLI.EraBased.Options.Common
pUrlCardano.CLI.EraBased.Options.Common
putCharCardano.CLI.OS.Posix
putLnCardano.CLI.Pretty
putStrCardano.CLI.OS.Posix
putStrLnCardano.CLI.OS.Posix
pUTxOCostPerByteCardano.CLI.EraBased.Options.Common
pVerificationKeyCardano.CLI.EraBased.Options.Common
pVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pVerificationKeyFileOutCardano.CLI.EraBased.Options.Common
pVerificationKeyOrFileInCardano.CLI.EraBased.Options.Common
pVoteAnchorCardano.CLI.EraBased.Options.Common
pVoteAnchorDataHashCardano.CLI.EraBased.Options.Common
pVoteChoiceCardano.CLI.EraBased.Options.Common
pVoteDelegationTargetCardano.CLI.EraBased.Options.Common
pVoterTypeCardano.CLI.EraBased.Options.Common
pVotingCredentialCardano.CLI.EraBased.Options.Common
pVrfSigningKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyHashCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pWhichLeadershipScheduleCardano.CLI.EraBased.Options.Common
pWithdrawalCardano.CLI.EraBased.Options.Common
pWitnessFileCardano.CLI.EraBased.Options.Common
pWitnessOverrideCardano.CLI.EraBased.Options.Common
pWitnessSigningDataCardano.CLI.EraBased.Options.Common
pWord32Cardano.CLI.EraBased.Options.Common
QueryCmdAcquireFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmdByronEraCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeColdKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeHotKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdConvenienceErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdDRepKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdEraMismatchCardano.CLI.Types.Errors.QueryCmdError
QueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdGenesisReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdHelpersErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLeaderShipErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLocalStateQueryError 
1 (Data Constructor)Cardano.CLI.Types.Errors.QueryCmdError
2 (Type/Class)Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
QueryCmdOpCertCounterReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPastHorizonCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPoolStateDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolParameterConversionErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolStateDecodeFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryCmdStakeSnapshotDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdSystemStartUnavailableCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextEnvelopeReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdUnsupportedNtcVersionCardano.CLI.Types.Errors.QueryCmdError
QueryCmdWriteFileErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCommitteeMembersStateCmdCardano.CLI.EraBased.Commands.Query
QueryCommitteeMembersStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionCmdCardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryConstitutionHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
queryFdOptionCardano.CLI.OS.Posix
QueryGovStateCmdCardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryKesPeriodInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryLeadershipScheduleCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryLeadershipScheduleCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryLedgerStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryNoArgCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryPoolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryProtocolParametersCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryProtocolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QuerySlotNumberCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeAddressInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakePoolsCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeSnapshotCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryTipCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryTipCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryTipLocalState 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryTipLocalStateOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryTxMempoolCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryTxMempoolCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
readAndDecodeShelleyGenesisCardano.CLI.EraBased.Run.Genesis
readByronSigningKeyCardano.CLI.Byron.Key
readByronTxCardano.CLI.Byron.Tx
readByronUpdateProposalCardano.CLI.Byron.UpdateProposal
readByronVoteCardano.CLI.Byron.Vote
readCBORCardano.CLI.Helpers
ReadCBORFileFailureCardano.CLI.Helpers
readCddlTxCardano.CLI.Read
readDRepCredentialCardano.CLI.Types.Key
readerFromAttoParserCardano.CLI.Parser
readerFromParsecParserCardano.CLI.EraBased.Options.Common
readFileCardano.CLI.OS.Posix
readFile'Cardano.CLI.OS.Posix
ReadFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
readFileOrPipeCardano.CLI.Read
readFileScriptInAnyLangCardano.CLI.Read
readFileTxCardano.CLI.Read
readFileTxBodyCardano.CLI.Read
readFileTxKeyWitnessCardano.CLI.Read
readFileTxMetadataCardano.CLI.Read
readFractionAsRationalCardano.CLI.Parser
readGenesisCardano.CLI.Byron.Genesis
readGovernanceActionViewOutputFormatCardano.CLI.Parser
readHexAsSafeHashCardano.CLI.Read
readIdOutputFormatCardano.CLI.Parser
readIOCardano.CLI.OS.Posix
readKeyOutputFormatCardano.CLI.Parser
readLnCardano.CLI.OS.Posix
ReadLockCardano.CLI.OS.Posix
ReadModeCardano.CLI.OS.Posix
ReadOnlyCardano.CLI.OS.Posix
readPaymentVerificationKeyCardano.CLI.Byron.Key
readProposalCardano.CLI.Read
readProtocolParametersCardano.CLI.EraBased.Run.Genesis
readRationalCardano.CLI.Parser
readRationalUnitIntervalCardano.CLI.Parser
readRequiredSignerCardano.CLI.Read
readSafeHashCardano.CLI.Read
ReadSafeHashErrorCardano.CLI.Read
ReadSafeHashErrorInvalidHashCardano.CLI.Read
ReadSafeHashErrorNotHexCardano.CLI.Read
readScriptDataOrFileCardano.CLI.Read
readScriptDatumOrFileCardano.CLI.Read
readScriptRedeemerOrFileCardano.CLI.Read
readScriptWitnessCardano.CLI.Read
readScriptWitnessFilesCardano.CLI.Read
readScriptWitnessFilesThrupleCardano.CLI.Read
ReadSigningKeyFailure 
1 (Data Constructor)Cardano.CLI.Byron.UpdateProposal
2 (Data Constructor)Cardano.CLI.Byron.Key
readSigningKeyFileCardano.CLI.Types.Key
readStringOfMaxLengthCardano.CLI.Parser
readSymbolicLinkCardano.CLI.OS.Posix
readTxGovernanceActionsCardano.CLI.Read
readTxMetadataCardano.CLI.Read
readTxUpdateProposalCardano.CLI.Read
readTxViewOutputFormatCardano.CLI.Parser
readURIOfMaxLengthCardano.CLI.Parser
readVerificationKeyCardano.CLI.EraBased.Options.Common
ReadVerificationKeyFailureCardano.CLI.Byron.Key
readVerificationKeyOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyTextOrFileAnyOfCardano.CLI.Types.Key
readVoteDelegationTargetCardano.CLI.Read
readVotingProceduresFileCardano.CLI.Read
readVotingProceduresFilesCardano.CLI.Read
readWitnessSigningDataCardano.CLI.Read
ReadWitnessSigningDataErrorCardano.CLI.Read
ReadWitnessSigningDataScriptErrorCardano.CLI.Read
ReadWitnessSigningDataSigningKeyAndAddressMismatchCardano.CLI.Read
ReadWitnessSigningDataSigningKeyDecodeErrorCardano.CLI.Read
ReadWriteCardano.CLI.OS.Posix
ReadWriteModeCardano.CLI.OS.Posix
redCardano.CLI.Pretty
redactJsonFieldTest.Cardano.CLI.Util
ReferenceScriptAnyEra 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ReferenceScriptAnyEraNoneCardano.CLI.Types.Common
RegistrationErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationReadErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeCredentialErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationWriteFileErrorCardano.CLI.Types.Errors.RegistrationError
regularFileModeCardano.CLI.OS.Posix
RelativeSeekCardano.CLI.OS.Posix
removeLinkCardano.CLI.OS.Posix
renameCardano.CLI.OS.Posix
renderAddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
renderAddressCmdsCardano.CLI.EraBased.Commands.Address
renderAnyEraCommandCardano.CLI.EraBased.Commands
renderBootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
renderByronClientCmdErrorCardano.CLI.Byron.Run
renderByronDelegationErrorCardano.CLI.Byron.Delegation
renderByronGenesisErrorCardano.CLI.Byron.Genesis
renderByronKeyFailureCardano.CLI.Byron.Key
renderByronTxErrorCardano.CLI.Byron.Tx
renderByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
renderByronVoteErrorCardano.CLI.Byron.Vote
renderCardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
renderClientCommandErrorCardano.CLI.Run
renderCmdErrorCardano.CLI.Types.Errors.CmdError
renderCmdsCardano.CLI.EraBased.Commands
renderConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
renderDefaultCardano.CLI.Pretty
renderFeatureCardano.CLI.Types.TxFeature
renderGenesisCmdsCardano.CLI.EraBased.Commands.Genesis
renderGovernanceActionCmdsCardano.CLI.EraBased.Commands.Governance.Actions
renderGovernanceCmdsCardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
renderGovernanceCommitteeCmdsCardano.CLI.EraBased.Commands.Governance.Committee
renderGovernanceDRepCmdsCardano.CLI.EraBased.Commands.Governance.DRep
renderGovernanceHashCmdsCardano.CLI.EraBased.Commands.Governance.Hash
renderGovernancePollCmdsCardano.CLI.EraBased.Commands.Governance.Poll
renderGovernanceVoteCmdsCardano.CLI.EraBased.Commands.Governance.Vote
renderHelpersErrorCardano.CLI.Helpers
renderKeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
renderKeyCmdsCardano.CLI.EraBased.Commands.Key
renderLegacyAddressCmdsCardano.CLI.Legacy.Commands.Address
renderLegacyCommandCardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
renderLegacyGenesisCmdsCardano.CLI.Legacy.Commands.Genesis
renderLegacyGovernanceCmdsCardano.CLI.Legacy.Commands.Governance
renderLegacyKeyCmdsCardano.CLI.Legacy.Commands.Key
renderLegacyNodeCmdsCardano.CLI.Legacy.Commands.Node
renderLegacyQueryCmdsCardano.CLI.Legacy.Commands.Query
renderLegacyStakeAddressCmdsCardano.CLI.Legacy.Commands.StakeAddress
renderLegacyStakePoolCmdsCardano.CLI.Legacy.Commands.StakePool
renderLegacyTextViewCmdsCardano.CLI.Legacy.Commands.TextView
renderLegacyTransactionCmdsCardano.CLI.Legacy.Commands.Transaction
renderLocalStateQueryErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError, Cardano.CLI.EraBased.Run.Query
renderMetadataErrorCardano.CLI.Read
renderNodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
renderNodeCmdsCardano.CLI.EraBased.Commands.Node
renderOpCertIntervalInformationCardano.CLI.EraBased.Run.Query
renderPingClientCmdErrorCardano.CLI.Run.Ping
renderProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
renderQueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError, Cardano.CLI.EraBased.Run.Query
renderQueryCmdsCardano.CLI.EraBased.Commands.Query
renderReadWitnessSigningDataErrorCardano.CLI.Read
renderScriptCostsCardano.CLI.Types.Output
renderScriptDataErrorCardano.CLI.Read
renderScriptWitnessErrorCardano.CLI.Read
renderStakeAddressCmdsCardano.CLI.EraBased.Commands.StakeAddress
renderStakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
renderStakePoolCmdsCardano.CLI.EraBased.Commands.StakePool
renderStringDefaultCardano.CLI.Pretty
renderTextViewCmdsCardano.CLI.EraBased.Commands.TextView
renderTextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
renderTransactionCmdsCardano.CLI.EraBased.Commands.Transaction
renderTxCmdErrorCardano.CLI.Types.Errors.TxCmdError
renderVerificationKeyTextOrFileErrorCardano.CLI.Types.Key
replicateMCardano.CLI.IO.Lazy
RequiredSignerCardano.CLI.Types.Common
RequiredSignerErrorCardano.CLI.Read
RequiredSignerErrorByronKeyCardano.CLI.Read
RequiredSignerErrorFileCardano.CLI.Read
RequiredSignerHashCardano.CLI.Types.Common
RequiredSignerSkeyFileCardano.CLI.Types.Common
retiringEpochCardano.CLI.Types.Common
runAddressBuildCmdCardano.CLI.EraBased.Run.Address
runAddressCmdsCardano.CLI.EraBased.Run.Address
runAddressInfoCmdCardano.CLI.EraBased.Run.Address.Info
runAddressKeyGenCmdCardano.CLI.EraBased.Run.Address
runAddressKeyHashCmdCardano.CLI.EraBased.Run.Address
runAnyEraCommandCardano.CLI.EraBased.Run
runByronClientCommandCardano.CLI.Byron.Run
runClientCommandCardano.CLI.Run
runCmdsCardano.CLI.EraBased.Run
runConvertByronGenesisVKeyCmdCardano.CLI.EraBased.Run.Key
runConvertByronKeyCmdCardano.CLI.EraBased.Run.Key
runConvertCardanoAddressKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNBip32KeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNKeyCmdCardano.CLI.EraBased.Run.Key
runGenesisAddrCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCmdsCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCardanoCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateStakedCmdCardano.CLI.EraBased.Run.Genesis
runGenesisHashFileCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenDelegateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenGenesisCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenUTxOCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyHashCmdCardano.CLI.EraBased.Run.Genesis
runGenesisTxInCmdCardano.CLI.EraBased.Run.Genesis
runGenesisVerKeyCmdCardano.CLI.EraBased.Run.Genesis
runGovernanceActionCmdsCardano.CLI.EraBased.Run.Governance.Actions
runGovernanceAnswerPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceCmdsCardano.CLI.EraBased.Run.Governance, Cardano.CLI.EraBased.Run
runGovernanceCommitteeCmdsCardano.CLI.EraBased.Run.Governance.Committee
runGovernanceCreateMirCertificateTransferToReservesCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreateMirCertificateTransferToTreasuryCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreatePollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceDRepCmdsCardano.CLI.EraBased.Run.Governance.DRep
runGovernanceGenesisKeyDelegationCertificateCardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
runGovernanceHashCmdsCardano.CLI.EraBased.Run.Governance.Hash
runGovernanceMIRCertificatePayStakeAddrsCardano.CLI.EraBased.Run.Governance
runGovernancePollCmdsCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVerifyPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVoteCmdsCardano.CLI.EraBased.Run.Governance.Vote
runKeyCmdsCardano.CLI.EraBased.Run.Key
runLegacyAddressCmdsCardano.CLI.Legacy.Run.Address
runLegacyCmdsCardano.CLI.Legacy.Run
runLegacyGenesisCmdsCardano.CLI.Legacy.Run.Genesis
runLegacyGovernanceCmdsCardano.CLI.Legacy.Run.Governance
runLegacyKeyCmdsCardano.CLI.Legacy.Run.Key
runLegacyNodeCmdsCardano.CLI.Legacy.Run.Node
runLegacyQueryCmdsCardano.CLI.Legacy.Run.Query
runLegacyStakeAddressCmdsCardano.CLI.Legacy.Run.StakeAddress
runLegacyStakePoolCmdsCardano.CLI.Legacy.Run.StakePool
runLegacyTextViewCmdsCardano.CLI.Legacy.Run.TextView
runLegacyTransactionCmdsCardano.CLI.Legacy.Run.Transaction
runNodeCmdsCardano.CLI.EraBased.Run.Node
runNodeIssueOpCertCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenColdCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenKesCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenVrfCmdCardano.CLI.EraBased.Run.Node
runNodeKeyHashVrfCmdCardano.CLI.EraBased.Run.Node
runNodeNewCounterCmdCardano.CLI.EraBased.Run.Node
runNonExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runPingCmdCardano.CLI.Run.Ping
runProposalCreationCardano.CLI.Byron.UpdateProposal
runQueryCmdsCardano.CLI.EraBased.Run.Query
runQueryConstitutionHashCmdCardano.CLI.EraBased.Run.Query
runQueryKesPeriodInfoCmdCardano.CLI.EraBased.Run.Query
runQueryLeadershipScheduleCmdCardano.CLI.EraBased.Run.Query
runQueryLedgerStateCmdCardano.CLI.EraBased.Run.Query
runQueryPoolStateCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolParametersCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolStateCmdCardano.CLI.EraBased.Run.Query
runQuerySlotNumberCmdCardano.CLI.EraBased.Run.Query
runQueryStakeAddressInfoCmdCardano.CLI.EraBased.Run.Query
runQueryStakeDistributionCmdCardano.CLI.EraBased.Run.Query
runQueryStakePoolsCmdCardano.CLI.EraBased.Run.Query
runQueryStakeSnapshotCmdCardano.CLI.EraBased.Run.Query
runQueryTipCmdCardano.CLI.EraBased.Run.Query
runQueryTxMempoolCmdCardano.CLI.EraBased.Run.Query
runQueryUTxOCmdCardano.CLI.EraBased.Run.Query
runStakeAddressBuildCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressCmdsCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyGenCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyHashCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakePoolCmdsCardano.CLI.EraBased.Run.StakePool
runStakePoolDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolIdCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolMetadataHashCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runTextViewCmdsCardano.CLI.EraBased.Run.TextView
runTextViewInfoCmdCardano.CLI.EraBased.Run.TextView
runTransactionBuildCmdCardano.CLI.EraBased.Run.Transaction
runTransactionBuildRawCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinFeeCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinValueCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCmdsCardano.CLI.EraBased.Run.Transaction
runTransactionHashScriptDataCmdCardano.CLI.EraBased.Run.Transaction
runTransactionPolicyIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignWitnessCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSubmitCmdCardano.CLI.EraBased.Run.Transaction
runTransactionTxIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionViewCmdCardano.CLI.EraBased.Run.Transaction
runTransactionWitnessCmdCardano.CLI.EraBased.Run.Transaction
runVerificationKeyCmdCardano.CLI.EraBased.Run.Key
runVoteCreationCardano.CLI.Byron.Vote
ScriptCostOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
ScriptDataCborFileCardano.CLI.Types.Common
ScriptDataErrorCardano.CLI.Read
ScriptDataErrorConversionCardano.CLI.Read
ScriptDataErrorFileCardano.CLI.Read
ScriptDataErrorJsonBytesCardano.CLI.Read
ScriptDataErrorJsonParseCardano.CLI.Read
ScriptDataErrorMetadataDecodeCardano.CLI.Read
ScriptDataErrorValidationCardano.CLI.Read
ScriptDataJsonFileCardano.CLI.Types.Common
ScriptDataOrFileCardano.CLI.Types.Common
ScriptDataValueCardano.CLI.Types.Common
ScriptDatumOrFileCardano.CLI.Types.Common
ScriptDatumOrFileForTxInCardano.CLI.Types.Common
ScriptDecodeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeSimpleScriptErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeTextEnvelopeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
scriptHashReaderCardano.CLI.Read
ScriptInvalidCardano.CLI.Byron.Tx
ScriptRedeemerOrFileCardano.CLI.Types.Common
ScriptValidCardano.CLI.Byron.Tx
ScriptValidityCardano.CLI.Byron.Tx
ScriptValidityNotSupportedCardano.CLI.Types.Errors.TxValidationError
ScriptWitnessErrorCardano.CLI.Read
ScriptWitnessErrorExpectedPlutusCardano.CLI.Read
ScriptWitnessErrorExpectedSimpleCardano.CLI.Read
ScriptWitnessErrorFileCardano.CLI.Read
ScriptWitnessErrorReferenceScriptsNotSupportedInEraCardano.CLI.Read
ScriptWitnessErrorScriptDataCardano.CLI.Read
ScriptWitnessErrorScriptLanguageNotSupportedInEraCardano.CLI.Read
ScriptWitnessFilesCardano.CLI.Types.Common
SeekFromEndCardano.CLI.OS.Posix
SeekModeCardano.CLI.OS.Posix
sequenceMCardano.CLI.IO.Lazy
serialiseByronWitnessCardano.CLI.Byron.Delegation
serialiseDelegationCertCardano.CLI.Byron.Delegation
setFdModeCardano.CLI.OS.Posix
setFdOptionCardano.CLI.OS.Posix
setFdOwnerAndGroupCardano.CLI.OS.Posix
setFdSizeCardano.CLI.OS.Posix
setFdTimesHiResCardano.CLI.OS.Posix
setFileCreationMaskCardano.CLI.OS.Posix
setFileModeCardano.CLI.OS.Posix
setFileSizeCardano.CLI.OS.Posix
setFileTimesCardano.CLI.OS.Posix
setFileTimesHiResCardano.CLI.OS.Posix
setGroupIDModeCardano.CLI.OS.Posix
setLockCardano.CLI.OS.Posix
setOwnerAndGroupCardano.CLI.OS.Posix
SetOwnerAndGroupIsRestrictedCardano.CLI.OS.Posix
setSymbolicLinkOwnerAndGroupCardano.CLI.OS.Posix
setSymbolicLinkTimesHiResCardano.CLI.OS.Posix
setUserIDModeCardano.CLI.OS.Posix
ShelleyAddressInvalidCardano.CLI.Types.Errors.AddressInfoError
ShelleyBootstrapWitnessSigningKeyData 
1 (Data Constructor)Cardano.CLI.Read
2 (Type/Class)Cardano.CLI.Read
ShelleyToBabbageDelegTargetCardano.CLI.Types.Key
SigningKeyDeserialisationFailedCardano.CLI.Byron.Key
SigningKeyFileCardano.CLI.Types.Common
SimpleReferenceScriptWitnessFilesCardano.CLI.Types.Common
SimpleScriptWitnessFileCardano.CLI.Types.Common
SlotsTillKesKeyExpiry 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
socketModeCardano.CLI.OS.Posix
SomeKeyFileCardano.CLI.Types.Common
SomeSigningKeyCardano.CLI.Types.Key
SomeSigningWitnessCardano.CLI.Read
specialDeviceIDCardano.CLI.OS.Posix
SpendGenesisUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SpendUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
spoPoolOwnerKeysCardano.CLI.Types.Key
sprMetadataCardano.CLI.Types.Key
sprNetworkIdCardano.CLI.Types.Key
sprPoolCostCardano.CLI.Types.Key
sprPoolMarginCardano.CLI.Types.Key
sprPoolPledgeCardano.CLI.Types.Key
sprRelaysCardano.CLI.Types.Key
sprRewardAccountKeyCardano.CLI.Types.Key
sprStakePoolKeyCardano.CLI.Types.Key
sprVrfKeyCardano.CLI.Types.Key
StakeAddressBuildCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressCmdDelegationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdRegistrationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressCmdStakeCredentialErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdWriteFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressDelegationCertificateCmdCardano.CLI.Legacy.Commands.StakeAddress
StakeAddressDelegationErrorCardano.CLI.Types.Errors.StakeAddressDelegationError
StakeAddressDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressKeyGenCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressKeyHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressRegistrationDepositRequiredCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressRegistrationErrorCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressStakeAndVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeCredentialErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialInputDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialScriptDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredGovCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
StakeIdentifierCardano.CLI.Types.Key
StakeIdentifierAddressCardano.CLI.Types.Key
StakeIdentifierVerifierCardano.CLI.Types.Key
StakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdMetadataValidationErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolCmdWriteFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolDeregistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataFileCardano.CLI.Types.Common
StakePoolMetadataHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolMetadataHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolRegistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationParserRequirements 
1 (Data Constructor)Cardano.CLI.Types.Key
2 (Type/Class)Cardano.CLI.Types.Key
StakeTargetCardano.CLI.Types.Key
StakeVerifierCardano.CLI.Types.Key
StakeVerifierKeyCardano.CLI.Types.Key
StakeVerifierScriptFileCardano.CLI.Types.Key
stakeVkeyDescCardano.CLI.EraBased.Run.Key
statusChangeTimeCardano.CLI.OS.Posix
statusChangeTimeHiResCardano.CLI.OS.Posix
stderrCardano.CLI.OS.Posix
stdErrorCardano.CLI.OS.Posix
stdFileModeCardano.CLI.OS.Posix
stdinCardano.CLI.OS.Posix
stdInputCardano.CLI.OS.Posix
stdoutCardano.CLI.OS.Posix
stdOutputCardano.CLI.OS.Posix
subInfoParserCardano.CLI.EraBased.Options.Common
submitByronUpdateProposalCardano.CLI.Byron.UpdateProposal
submitByronVoteCardano.CLI.Byron.Vote
SubmitTxCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitUpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
subParserCardano.CLI.EraBased.Options.Common
SymbolicLinkLimitCardano.CLI.OS.Posix
symbolicLinkModeCardano.CLI.OS.Posix
SynchronousWritesCardano.CLI.OS.Posix
SyncIOAvailableCardano.CLI.OS.Posix
TargetAlwaysAbstainCardano.CLI.Types.Key
TargetAlwaysNoConfidenceCardano.CLI.Types.Key
TargetStakePoolCardano.CLI.Types.Key
TargetVotingDrepCardano.CLI.Types.Key
TargetVotingDrepAndStakePoolCardano.CLI.Types.Key
TargetVotingDRepScriptHashCardano.CLI.Types.Key
TextEncodingCardano.CLI.OS.Posix
TextViewCBORPrettyPrintErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.TextView
TextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewInfo 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.TextView
2 (Data Constructor)Cardano.CLI.EraBased.Commands.TextView
TextViewReadFileErrorCardano.CLI.Types.Errors.TextViewFileError
toCborTxAuxCardano.CLI.Byron.Tx
toHashCardano.CLI.EraBased.Commands.Governance.Hash
toplevelExceptionHandlerCardano.CLI.TopHandler
touchFdCardano.CLI.OS.Posix
touchFileCardano.CLI.OS.Posix
touchSymbolicLinkCardano.CLI.OS.Posix
toUnitIntervalOrErrCardano.CLI.EraBased.Options.Common
ToVerificationCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
TransactionBuildCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionBuildCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionBuildRawCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionCalculateMinFeeCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionCalculateMinValueCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionHashScriptDataCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionHashScriptDataCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionPolicyIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSignCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSignWitnessCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSubmitCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionTxIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionWitnessCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransferDirectionCardano.CLI.Types.Common
TransferToReservesCardano.CLI.Types.Common
TransferToTreasuryCardano.CLI.Types.Common
traverseMCardano.CLI.IO.Lazy
traverseStateMCardano.CLI.IO.Lazy
truncCardano.CLI.OS.Posix
tryExecCardanoCLITest.Cardano.CLI.Util
TxCardano.CLI.Byron.Tx
TxAuxScriptsLanguageErrorCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsNotSupportedInEraCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxBodyFileCardano.CLI.Types.Common
TxBuildOutputOptionsCardano.CLI.Types.Common
TxByronWitnessCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxCertificatesValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxCertificatesValidationNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxCmdAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdBalanceTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdBootstrapWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdByronEraCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdConstitutionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdMetadataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdNotImplementedCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptCostErrCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptsRequireCardanoModeCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsExcessCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsMissingCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamExecutionUnitsNotAvailableCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersNotPresentInTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsConverstionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryConvenienceErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryNotScriptLockedCardano.CLI.Types.Errors.TxCmdError
TxCmdReadTextViewFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReadWitnessSigningDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignerErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptValidityValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTextEnvCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxBodyErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxCertificatesValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxExecUnitsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeatureMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeeValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxInsDoNotExistCardano.CLI.Types.Errors.TxCmdError
TxCmdTxNodeEraMismatchErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdVoteErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdWitnessEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdWriteFileErrorCardano.CLI.Types.Errors.TxCmdError
TxDeserialisationFailedCardano.CLI.Byron.Tx
TxFeatureCardano.CLI.Types.TxFeature
TxFeatureAuxScriptsCardano.CLI.Types.TxFeature
TxFeatureCertificatesCardano.CLI.Types.TxFeature
TxFeatureCollateralCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureExtraKeyWitsCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureInlineDatumsCardano.CLI.Types.TxFeature
TxFeatureMintValueCardano.CLI.Types.TxFeature
TxFeatureMultiAssetOutputsCardano.CLI.Types.TxFeature
TxFeatureProtocolParametersCardano.CLI.Types.TxFeature
TxFeatureReferenceInputsCardano.CLI.Types.TxFeature
TxFeatureReturnCollateralCardano.CLI.Types.TxFeature
TxFeatureScriptValidityCardano.CLI.Types.TxFeature
TxFeatureScriptWitnessesCardano.CLI.Types.TxFeature
TxFeatureShelleyAddressesCardano.CLI.Types.TxFeature
TxFeatureShelleyKeysCardano.CLI.Types.TxFeature
TxFeatureTotalCollateralCardano.CLI.Types.TxFeature
TxFeatureTxMetadataCardano.CLI.Types.TxFeature
TxFeatureTxOutDatumCardano.CLI.Types.TxFeature
TxFeatureValidityLowerBoundCardano.CLI.Types.TxFeature
TxFeatureValidityNoUpperBoundCardano.CLI.Types.TxFeature
TxFeatureValidityUpperBoundCardano.CLI.Types.TxFeature
TxFeatureWithdrawalsCardano.CLI.Types.TxFeature
TxFeeValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Tx
TxInCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxMempoolQueryCardano.CLI.Types.Common
TxMempoolQueryInfoCardano.CLI.Types.Common
TxMempoolQueryNextTxCardano.CLI.Types.Common
TxMempoolQueryTxExistsCardano.CLI.Types.Common
TxOutAnyEra 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutChangeAddress 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutDatumAnyEraCardano.CLI.Types.Common
TxOutDatumByHashOfCardano.CLI.Types.Common
TxOutDatumByHashOnlyCardano.CLI.Types.Common
TxOutDatumByNoneCardano.CLI.Types.Common
TxOutDatumByValueCardano.CLI.Types.Common
TxOutInlineDatumByValueCardano.CLI.Types.Common
TxProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxScriptValidityValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxShelleyWitnessCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
txSpendGenesisUTxOByronPBFTCardano.CLI.Byron.Tx
txSpendUTxOByronPBFTCardano.CLI.Byron.Tx
TxTotalCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxViewOutputFormatCardano.CLI.Types.Common
TxViewOutputFormatJsonCardano.CLI.Types.Common
TxViewOutputFormatYamlCardano.CLI.Types.Common
TxWithdrawalsNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxValidationError
unAnyVerificationKeyTextCardano.CLI.Types.Key.VerificationKey
unCddlTxCardano.CLI.Read
unCertificateFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
unConstitutionTextCardano.CLI.Types.Common
unConstitutionUrlCardano.CLI.Types.Common
unCurrentKesPeriodCardano.CLI.Types.Common
unFileCardano.CLI.Types.Common
unGenesisFileCardano.CLI.Types.Common
unionFileModesCardano.CLI.OS.Posix
universalNewlineModeCardano.CLI.OS.Posix
UnlockCardano.CLI.OS.Posix
unOpCertEndingKesPeriodCardano.CLI.Types.Common
unOpCertNodeStateCounterCardano.CLI.Types.Common
unOpCertOnDiskCounterCardano.CLI.Types.Common
unOpCertStartingKesPeriodCardano.CLI.Types.Common
unProposalTextCardano.CLI.Types.Common
unProposalUrlCardano.CLI.Types.Common
unScriptFileCardano.CLI.Types.Common
unSlotsTillKesKeyExpiryCardano.CLI.Types.Common
unUpdateProposalFileCardano.CLI.Types.Common
unVoteTextCardano.CLI.Types.Common
unVoteUrlCardano.CLI.Types.Common
UnwitnessedCliFormattedTxBodyCardano.CLI.Read
UpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
UpdateProposalDecodingErrorCardano.CLI.Byron.UpdateProposal
UpdateProposalFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
UpdateProtocolParametersConwayOnwards 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
UpdateProtocolParametersPreConway 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
utf16Cardano.CLI.OS.Posix
utf16beCardano.CLI.OS.Posix
utf16leCardano.CLI.OS.Posix
utf32Cardano.CLI.OS.Posix
utf32beCardano.CLI.OS.Posix
utf32leCardano.CLI.OS.Posix
utf8Cardano.CLI.OS.Posix
utf8_bomCardano.CLI.OS.Posix
ValidateCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
validateCBORCardano.CLI.Helpers
validateProtocolParametersCardano.CLI.Types.Errors.TxValidationError
validateRequiredSignersCardano.CLI.Types.Errors.TxValidationError
validateScriptSupportedInEraCardano.CLI.Types.Errors.TxValidationError
validateTxAuxScriptsCardano.CLI.Types.Errors.TxValidationError
validateTxCertificatesCardano.CLI.Types.Errors.TxValidationError
validateTxFeeCardano.CLI.Types.Errors.TxValidationError
validateTxReturnCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxScriptValidityCardano.CLI.Types.Errors.TxValidationError
validateTxTotalCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxValidityLowerBoundCardano.CLI.Types.Errors.TxValidationError
validateTxValidityUpperBoundCardano.CLI.Types.Errors.TxValidationError
validateTxWithdrawalsCardano.CLI.Types.Errors.TxValidationError
validateUpdateProposalFileCardano.CLI.Types.Errors.TxValidationError
VCCCardano.CLI.Types.Governance
VDisableCharCardano.CLI.OS.Posix
VDRCardano.CLI.Types.Governance
VerificationKeyBase64 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VerificationKeyDeserialisationFailedCardano.CLI.Byron.Key
VerificationKeyFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
VerificationKeyFileErrorCardano.CLI.Types.Key
VerificationKeyFilePathCardano.CLI.Types.Key
VerificationKeyHashCardano.CLI.Types.Key
VerificationKeyOrFile 
1 (Type/Class)Cardano.CLI.Types.Key
2 (Data Constructor)Cardano.CLI.Types.Key
VerificationKeyOrHashOrFileCardano.CLI.Types.Key
VerificationKeyTextErrorCardano.CLI.Types.Key
VerificationKeyTextOrFileCardano.CLI.Types.Key
VerificationKeyTextOrFileErrorCardano.CLI.Types.Key
VerificationKeyValueCardano.CLI.Types.Key
versionPaths_cardano_cli
VktofVerificationKeyFileCardano.CLI.Types.Key
VktofVerificationKeyTextCardano.CLI.Types.Key
VoteDelegationNotSupportedCardano.CLI.Types.Errors.StakeAddressDelegationError
VoteDelegationTargetCardano.CLI.Types.Governance
VoteDelegationTargetOfAbstainCardano.CLI.Types.Governance
VoteDelegationTargetOfDRepCardano.CLI.Types.Governance
VoteDelegationTargetOfNoConfidenceCardano.CLI.Types.Governance
VoteErrorCardano.CLI.Read
VoteErrorFileCardano.CLI.Read
VoteErrorTextNotUnicodeCardano.CLI.Read
VoteFileCardano.CLI.Types.Governance
VoteHashSourceCardano.CLI.Types.Common
VoteHashSourceFileCardano.CLI.Types.Common
VoteHashSourceHashCardano.CLI.Types.Common
VoteHashSourceTextCardano.CLI.Types.Common
VoteText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VoteUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VotingCredentialDecodeGovCmdErorCardano.CLI.Types.Errors.GovernanceCmdError
VSPCardano.CLI.Types.Governance
VTypeCardano.CLI.Types.Governance
waitToSetLockCardano.CLI.OS.Posix
whiteCardano.CLI.Pretty
withBinaryFileCardano.CLI.OS.Posix
withFileCardano.CLI.OS.Posix
withSndTest.Cardano.CLI.Util
withSomeSigningKeyCardano.CLI.Types.Key
WitnessFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
WitnessSigningDataCardano.CLI.Types.Common
writeFileCardano.CLI.OS.Posix
WriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
WriteLockCardano.CLI.OS.Posix
WriteModeCardano.CLI.OS.Posix
WriteOnlyCardano.CLI.OS.Posix
yellowCardano.CLI.Pretty
\ No newline at end of file diff --git a/doc-index-B.html b/doc-index-B.html new file mode 100644 index 0000000000..ba960ec7b3 --- /dev/null +++ b/doc-index-B.html @@ -0,0 +1 @@ +cardano-cli API (Index - B)
cardano-cli API

Index - B

backwardsCompatibilityCommandsCardano.CLI.Byron.Parsers
BalanceTxExecUnitsCardano.CLI.Types.Common
blackCardano.CLI.Pretty
BlockBufferingCardano.CLI.OS.Posix
BlockId 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
blockSpecialModeCardano.CLI.OS.Posix
blueCardano.CLI.Pretty
BootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
BufferModeCardano.CLI.OS.Posix
ByronClientCmdErrorCardano.CLI.Byron.Run
ByronCommand 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
ByronDelegateKeyCardano.CLI.Types.Common
ByronDelegationCertSerializationErrorCardano.CLI.Byron.Genesis
ByronDelegationErrorCardano.CLI.Byron.Delegation
ByronDelegationKeyErrorCardano.CLI.Byron.Delegation
ByronDelegationKeySerializationErrorCardano.CLI.Byron.Genesis
ByronGenesisErrorCardano.CLI.Byron.Genesis
ByronGenesisKeyCardano.CLI.Types.Common
ByronKeyFailureCardano.CLI.Byron.Key
ByronKeyFormatCardano.CLI.Types.Common
ByronKeyTypeCardano.CLI.Types.Common
ByronOrShelleyWitnessCardano.CLI.Read
ByronPaymentKeyCardano.CLI.Types.Common
ByronReadUpdateProposalFileFailureCardano.CLI.Byron.UpdateProposal
ByronTxErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorCardano.CLI.Byron.Tx
ByronTxSubmitErrorEraMismatchCardano.CLI.Byron.Tx
ByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalGenesisReadErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalTxErrorCardano.CLI.Byron.UpdateProposal
ByronUpdateProposalWriteErrorCardano.CLI.Byron.UpdateProposal
ByronVoteDecodingErrorCardano.CLI.Byron.Vote
ByronVoteErrorCardano.CLI.Byron.Vote
ByronVoteGenesisReadErrorCardano.CLI.Byron.Vote
ByronVoteKeyReadFailureCardano.CLI.Byron.Vote
ByronVoteReadFileFailureCardano.CLI.Byron.Vote
ByronVoteTxSubmissionErrorCardano.CLI.Byron.Vote
ByronVoteUpdateHelperErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalDecodingErrorCardano.CLI.Byron.Vote
ByronVoteUpdateProposalFailureCardano.CLI.Byron.Vote
byronWitnessToVerKeyCardano.CLI.Byron.Key
\ No newline at end of file diff --git a/doc-index-C.html b/doc-index-C.html new file mode 100644 index 0000000000..ac5bf7f8b2 --- /dev/null +++ b/doc-index-C.html @@ -0,0 +1 @@ +cardano-cli API (Index - C)
cardano-cli API

Index - C

CannotMigrateFromNonLegacySigningKeyCardano.CLI.Byron.Key
CardanoAddressByronPaymentKeyCardano.CLI.Types.Common
CardanoAddressIcarusPaymentKeyCardano.CLI.Types.Common
CardanoAddressKeyTypeCardano.CLI.Types.Common
CardanoAddressShelleyPaymentKeyCardano.CLI.Types.Common
CardanoAddressShelleyStakeKeyCardano.CLI.Types.Common
CardanoAddressSigningKeyBech32DecodeErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
CardanoAddressSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
catCommandsCardano.CLI.EraBased.Options.Common
categoriseSomeSigningWitnessCardano.CLI.Read
CBORBlockByronCardano.CLI.Types.Common
CBORDecodingErrorCardano.CLI.Helpers
CBORDelegationCertificateByronCardano.CLI.Types.Common
CBORObjectCardano.CLI.Types.Common
CBORPrettyPrintErrorCardano.CLI.Helpers
CBORTxByronCardano.CLI.Types.Common
CBORUpdateProposalByronCardano.CLI.Types.Common
CBORVoteByronCardano.CLI.Types.Common
CddlErrorCardano.CLI.Read
CddlErrorTextEnvCardano.CLI.Read
CddlIOErrorCardano.CLI.Read
CddlTx 
1 (Data Constructor)Cardano.CLI.Read
2 (Type/Class)Cardano.CLI.Read
CddlWitnessErrorCardano.CLI.Read
CddlWitnessErrorTextEnvCardano.CLI.Read
CddlWitnessIOErrorCardano.CLI.Read
CertificateFile 
1 (Data Constructor)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
CertificateValidationErrorsCardano.CLI.Byron.Delegation
char8Cardano.CLI.OS.Posix
characterSpecialModeCardano.CLI.OS.Posix
checkByronGenesisDelegationCardano.CLI.Byron.Delegation
checkTextEnvelopeFormatTest.Cardano.CLI.Util
checkTxCddlFormatTest.Cardano.CLI.Util
ClientCommandCardano.CLI.Run
ClientCommandErrorsCardano.CLI.Run
CliPingCommandCardano.CLI.Run
closeFdCardano.CLI.OS.Posix
CloseOnExecCardano.CLI.OS.Posix
CmdAddressErrorCardano.CLI.Types.Errors.CmdError
CmdEraDelegationErrorCardano.CLI.Types.Errors.CmdError
CmdErrorCardano.CLI.Types.Errors.CmdError
CmdGenesisErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceActionErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCmdErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceCommitteeErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceQueryErrorCardano.CLI.Types.Errors.CmdError
CmdGovernanceVoteErrorCardano.CLI.Types.Errors.CmdError
CmdKeyErrorCardano.CLI.Types.Errors.CmdError
CmdNodeErrorCardano.CLI.Types.Errors.CmdError
CmdQueryErrorCardano.CLI.Types.Errors.CmdError
CmdRegistrationErrorCardano.CLI.Types.Errors.CmdError
CmdsCardano.CLI.EraBased.Commands
CmdStakeAddressErrorCardano.CLI.Types.Errors.CmdError
CmdStakePoolErrorCardano.CLI.Types.Errors.CmdError
CmdTextViewErrorCardano.CLI.Types.Errors.CmdError
CmdTransactionErrorCardano.CLI.Types.Errors.CmdError
ColdGenesisDelegateVerificationKeyCardano.CLI.Types.Key
ColdStakePoolVerificationKeyCardano.CLI.Types.Key
ColdVerificationKeyFileCardano.CLI.Types.Key
ColdVerificationKeyOrFileCardano.CLI.Types.Key
command'Cardano.CLI.EraBased.Options.Common
ConstitutionErrorCardano.CLI.Read
ConstitutionErrorFileCardano.CLI.Read
ConstitutionHashSourceCardano.CLI.Types.Common
ConstitutionHashSourceFileCardano.CLI.Types.Common
ConstitutionHashSourceHashCardano.CLI.Types.Common
ConstitutionHashSourceTextCardano.CLI.Types.Common
constitutionHashSourceToHashCardano.CLI.Read
ConstitutionNotSupportedInEraCardano.CLI.Read
ConstitutionNotUnicodeErrorCardano.CLI.Read
ConstitutionText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ConstitutionUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
convertTimeCardano.CLI.EraBased.Options.Common
ConwayOnwardDelegTargetCardano.CLI.Types.Key
ConwayVote 
1 (Data Constructor)Cardano.CLI.Types.Governance
2 (Type/Class)Cardano.CLI.Types.Governance
createDeviceCardano.CLI.OS.Posix
createFileCardano.CLI.OS.Posix
createLinkCardano.CLI.OS.Posix
createNamedPipeCardano.CLI.OS.Posix
createOpCertIntervalInfoCardano.CLI.Types.Output
createPipeCardano.CLI.OS.Posix
createSymbolicLinkCardano.CLI.OS.Posix
CreateVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
CRLFCardano.CLI.OS.Posix
CurrentEpochCardano.CLI.Types.Common
CurrentKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
customRenderHelpCardano.CLI.Render
cvEraCardano.CLI.Types.Governance
cvFilepathCardano.CLI.Types.Governance
cvGovActionIdCardano.CLI.Types.Governance
cvVoteChoiceCardano.CLI.Types.Governance
cvVoterTypeCardano.CLI.Types.Governance
cvVotingStakeCredentialCardano.CLI.Types.Governance
cyanCardano.CLI.Pretty
\ No newline at end of file diff --git a/doc-index-D.html b/doc-index-D.html new file mode 100644 index 0000000000..f9986223c6 --- /dev/null +++ b/doc-index-D.html @@ -0,0 +1 @@ +cardano-cli API (Index - D)
cardano-cli API

Index - D

decimalCardano.CLI.EraBased.Options.Common
decodeBech32Cardano.CLI.EraBased.Run.Key
decodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
defaultByronEpochSlotsCardano.CLI.EraBased.Options.Common
defaultFileFlagsCardano.CLI.OS.Posix
defaultShelleyBasedEraCardano.CLI.EraBased.Options.Common
defaultShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
DelegationCertificateWriteFileErrorCardano.CLI.Types.Errors.DelegationError
DelegationDRepReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationErrorCardano.CLI.Types.Errors.DelegationError
DelegationReadErrorCardano.CLI.Types.Errors.DelegationError
DelegationsAndRewards 
1 (Data Constructor)Cardano.CLI.EraBased.Run.Query
2 (Type/Class)Cardano.CLI.EraBased.Run.Query
DelegationStakeCredentialErrorCardano.CLI.Types.Errors.DelegationError
deprecationWarningCardano.CLI.Helpers
deserialiseHotCCKeyFromHexCardano.CLI.EraBased.Options.Common
deserialiseScriptInAnyLangCardano.CLI.Read
deviceIDCardano.CLI.OS.Posix
directoryModeCardano.CLI.OS.Posix
DisplayVersionCardano.CLI.Run
DlgCertificateDeserialisationFailedCardano.CLI.Byron.Delegation
DRepHashSourceCardano.CLI.Types.Key
DRepHashSourceScriptCardano.CLI.Types.Key
DRepHashSourceVerificationKeyCardano.CLI.Types.Key
DRepMetadataFileCardano.CLI.Types.Common
drepVkeyDescCardano.CLI.EraBased.Run.Key
dumpGenesisCardano.CLI.Byron.Genesis
dupCardano.CLI.OS.Posix
dupToCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-E.html b/doc-index-E.html new file mode 100644 index 0000000000..b630642d93 --- /dev/null +++ b/doc-index-E.html @@ -0,0 +1 @@ +cardano-cli API (Index - E)
cardano-cli API

Index - E

eDNSNameCardano.CLI.Parser
encodeLegacyDelegateKeyCardano.CLI.Byron.Legacy
ensureNewFileCardano.CLI.Helpers
ensureNewFileLBSCardano.CLI.Helpers
EnvCli 
1 (Data Constructor)Cardano.CLI.Environment
2 (Type/Class)Cardano.CLI.Environment
envCliAnyCardanoEraCardano.CLI.Environment
envCliAnyShelleyBasedEraCardano.CLI.Environment
envCliAnyShelleyToBabbageEraCardano.CLI.Environment
envCliNetworkIdCardano.CLI.Environment
envCliSocketPathCardano.CLI.Environment
eonCardano.CLI.EraBased.Commands.Governance.Hash
EpochLeadershipScheduleCardano.CLI.Types.Common
equivalenceTest.Cardano.CLI.Util
eraCardano.CLI.Types.Errors.NodeEraMismatchError
EraMismatchErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
exclusiveCardano.CLI.OS.Posix
execCardanoCLITest.Cardano.CLI.Util
execDetailCardanoCLITest.Cardano.CLI.Util
\ No newline at end of file diff --git a/doc-index-F.html b/doc-index-F.html new file mode 100644 index 0000000000..cbb5385a61 --- /dev/null +++ b/doc-index-F.html @@ -0,0 +1 @@ +cardano-cli API (Index - F)
cardano-cli API

Index - F

FdOptionCardano.CLI.OS.Posix
fdReadCardano.CLI.OS.Posix
fdReadBufCardano.CLI.OS.Posix
fdSeekCardano.CLI.OS.Posix
fdToHandleCardano.CLI.OS.Posix
fdWriteCardano.CLI.OS.Posix
fdWriteBufCardano.CLI.OS.Posix
File 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
fileAccessCardano.CLI.OS.Posix
FileDirectionCardano.CLI.Types.Common
fileExistCardano.CLI.OS.Posix
fileGroupCardano.CLI.OS.Posix
fileIDCardano.CLI.OS.Posix
FileLockCardano.CLI.OS.Posix
fileModeCardano.CLI.OS.Posix
FileNameLimitCardano.CLI.OS.Posix
FileNamesAreNotTruncatedCardano.CLI.OS.Posix
FileOrPipeCardano.CLI.Read
fileOrPipeCardano.CLI.Read
fileOrPipeCacheCardano.CLI.Read
fileOrPipePathCardano.CLI.Read
fileOwnerCardano.CLI.OS.Posix
FilePathCardano.CLI.OS.Posix
fileSizeCardano.CLI.OS.Posix
FileSizeBitsCardano.CLI.OS.Posix
FileStatusCardano.CLI.OS.Posix
fileTypeModesCardano.CLI.OS.Posix
fixIOCardano.CLI.OS.Posix
forMCardano.CLI.IO.Lazy
forStateMCardano.CLI.IO.Lazy
FriendlyFormatCardano.CLI.Json.Friendly
FriendlyJsonCardano.CLI.Json.Friendly
friendlyProposalCardano.CLI.Json.Friendly
friendlyTxCardano.CLI.Json.Friendly
friendlyTxBodyCardano.CLI.Json.Friendly
FriendlyYamlCardano.CLI.Json.Friendly
fromCborTxAuxCardano.CLI.Byron.Tx
futurePoolParametersCardano.CLI.Types.Common
\ No newline at end of file diff --git a/doc-index-G.html b/doc-index-G.html new file mode 100644 index 0000000000..b01f559b8d --- /dev/null +++ b/doc-index-G.html @@ -0,0 +1 @@ +cardano-cli API (Index - G)
cardano-cli API

Index - G

generateKeyPairCardano.CLI.Types.Key
GenesisCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
GenesisAddr 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisAddrCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdAesonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdByronErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdCostModelsErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesDupIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdFilesNoIndexCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdGenesisFileReadErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdKeyHash 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCmdMismatchedGenesisKeyFilesCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdNodeCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCmdStakeAddressCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolCmdErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdStakePoolRelayJsonDecodeErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdTooFewPoolsForBulkCredsCardano.CLI.Types.Errors.GenesisCmdError
GenesisCmdUnexpectedAddressVerificationKeyCardano.CLI.Types.Errors.GenesisCmdError
GenesisCreate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateCardano 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateCardanoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisCreateStaked 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisCreateStakedCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisDir 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisGenerationErrorCardano.CLI.Byron.Genesis
GenesisHashFile 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
GenesisKeyGenDelegate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenDelegateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenGenesis 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenGenesisCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisKeyGenUTxO 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisKeyGenUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisOutputDirAlreadyExistsCardano.CLI.Byron.Genesis
GenesisParameters 
1 (Data Constructor)Cardano.CLI.Byron.Genesis
2 (Type/Class)Cardano.CLI.Byron.Genesis
GenesisReadErrorCardano.CLI.Byron.Genesis
GenesisSpecErrorCardano.CLI.Byron.Genesis
GenesisTxIn 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisTxInCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
GenesisVerKey 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Genesis
GenesisVerKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Genesis
2 (Type/Class)Cardano.CLI.EraBased.Commands.Genesis
genesisVkeyDelegateDescCardano.CLI.EraBased.Run.Key
genesisVkeyDescCardano.CLI.EraBased.Run.Key
getBinDirPaths_cardano_cli
getCharCardano.CLI.OS.Posix
getCommitteeColdCredentialFromVerKeyHashOrFileCardano.CLI.Read
getCommitteeHotCredentialFromVerKeyHashOrFileCardano.CLI.Read
getContentsCardano.CLI.OS.Posix
getContents'Cardano.CLI.OS.Posix
getDataDirPaths_cardano_cli
getDataFileNamePaths_cardano_cli
getDRepCredentialFromVerKeyHashOrFileCardano.CLI.Read
getDynLibDirPaths_cardano_cli
getEnvCliCardano.CLI.Environment
getEnvNetworkIdCardano.CLI.Environment
getEnvSocketPathCardano.CLI.Environment
getFdPathVarCardano.CLI.OS.Posix
getFdStatusCardano.CLI.OS.Posix
getFileStatusCardano.CLI.OS.Posix
getLibDirPaths_cardano_cli
getLibexecDirPaths_cardano_cli
getLineCardano.CLI.OS.Posix
getLockCardano.CLI.OS.Posix
getPathVarCardano.CLI.OS.Posix
getStakeAddressFromVerifierCardano.CLI.Read
getStakeCredentialFromIdentifierCardano.CLI.Read
getStakeCredentialFromVerifierCardano.CLI.Read
getSymbolicLinkStatusCardano.CLI.OS.Posix
getSysconfDirPaths_cardano_cli
GetTxIdCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
gitRevCardano.CLI.IO.GitRev
GoveranceActionUpdateCommitteeCmdCardano.CLI.EraBased.Commands.Governance.Actions
GoveranceActionUpdateCommitteeCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateConstitutionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionCreateNoConfidenceCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionProtocolParametersUpdateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionsCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdProposalErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdReadTextEnvelopeFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsErrorCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionsValueUpdateProtocolParametersNotFoundCardano.CLI.Types.Errors.GovernanceActionsError, Cardano.CLI.EraBased.Run.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionTreasuryWithdrawalCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdCardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
GovernanceActionViewOutputFormatCardano.CLI.Types.Common
GovernanceActionViewOutputFormatJsonCardano.CLI.Types.Common
GovernanceActionViewOutputFormatYamlCardano.CLI.Types.Common
GovernanceAnswerPoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceAnswerPollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCmdCddlErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdConstitutionErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdCostModelsJsonDecodeErrCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDecoderErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdDRepMetadataValidationErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyCostModelCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdEmptyUpdateProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdGenesisDelegationNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdHashErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertificateKeyRewardMistmachCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdMIRCertNotSupportedInConwayCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollInvalidChoiceCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdPollOutOfBoundAnswerCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdProposalErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
GovernanceCmdTextEnvReadErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdUnexpectedKeyTypeCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdVerifyPollErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
GovernanceCommitteeCmdKeyDecodeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdKeyReadErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCmdTextEnvReadFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdTextEnvWriteErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCmdWriteFileErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeErrorCardano.CLI.Types.Errors.GovernanceCommitteeError, Cardano.CLI.EraBased.Run.Governance.Committee
GovernanceCommitteeKeyGenColdCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenColdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyGenHotCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdCardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCommitteeKeyHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Committee
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Committee
GovernanceCreateMirCertificateStakeAddressesCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreateMirCertificateTransferToReservesCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreateMirCertificateTransferToTreasuryCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceCreatePoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceCreatePollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceDRepCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepKeyGenCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepMetadataHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRegistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdCardano.CLI.EraBased.Commands.Governance.DRep
GovernanceDRepRetirementCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.DRep
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.DRep
GovernanceGenesisKeyDelegationCertificate 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
GovernanceHashCmdCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Hash
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashReadFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernanceHashSourceCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceBinaryFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashSourceTextFileCardano.CLI.EraBased.Commands.Governance.Hash
GovernanceHashWriteFileErrorCardano.CLI.Types.Errors.GovernanceHashError
GovernancePollCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceQueryAcqireFailureErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryDRepKeyErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryEraMismatchCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryUnsupportedNtcVersionCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceQueryWriteFileErrorCardano.CLI.Types.Errors.GovernanceQueryError
GovernanceUpdateProposalCardano.CLI.Legacy.Commands.Governance
GovernanceVerifyPoll 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Governance
2 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVerifyPollCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Poll
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Poll
GovernanceVoteCmdCredentialDecodeErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVerificationKeyErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteFileErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmdReadVoteTextErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCmdWriteErrorCardano.CLI.Types.Errors.GovernanceVoteCmdError
GovernanceVoteCreateCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteCreateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdCardano.CLI.EraBased.Commands.Governance.Vote
GovernanceVoteViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Vote
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Vote
gpAvvmBalanceFactorCardano.CLI.Byron.Genesis
gpFakeAvvmOptionsCardano.CLI.Byron.Genesis
gpKCardano.CLI.Byron.Genesis
gpProtocolMagicCardano.CLI.Byron.Genesis
gpProtocolParamsFileCardano.CLI.Byron.Genesis
gpSeedCardano.CLI.Byron.Genesis
gpStartTimeCardano.CLI.Byron.Genesis
gpTestnetBalanceCardano.CLI.Byron.Genesis
greenCardano.CLI.Pretty
groupExecuteModeCardano.CLI.OS.Posix
groupModesCardano.CLI.OS.Posix
groupReadModeCardano.CLI.OS.Posix
groupWriteModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-H.html b/doc-index-H.html new file mode 100644 index 0000000000..4442212caa --- /dev/null +++ b/doc-index-H.html @@ -0,0 +1 @@ +cardano-cli API (Index - H)
cardano-cli API

Index - H

HandleCardano.CLI.OS.Posix
HandlePosnCardano.CLI.OS.Posix
handleToFdCardano.CLI.OS.Posix
hCloseCardano.CLI.OS.Posix
HelpCardano.CLI.Run
HelpersErrorCardano.CLI.Helpers
hFileSizeCardano.CLI.OS.Posix
hFlushCardano.CLI.OS.Posix
hGetBufCardano.CLI.OS.Posix
hGetBufferingCardano.CLI.OS.Posix
hGetBufNonBlockingCardano.CLI.OS.Posix
hGetBufSomeCardano.CLI.OS.Posix
hGetCharCardano.CLI.OS.Posix
hGetContentsCardano.CLI.OS.Posix
hGetContents'Cardano.CLI.OS.Posix
hGetEchoCardano.CLI.OS.Posix
hGetEncodingCardano.CLI.OS.Posix
hGetLineCardano.CLI.OS.Posix
hGetPosnCardano.CLI.OS.Posix
hiddenSubParserCardano.CLI.EraBased.Options.Common
hIsClosedCardano.CLI.OS.Posix
hIsEOFCardano.CLI.OS.Posix
hIsOpenCardano.CLI.OS.Posix
hIsReadableCardano.CLI.OS.Posix
hIsSeekableCardano.CLI.OS.Posix
hIsTerminalDeviceCardano.CLI.OS.Posix
hIsWritableCardano.CLI.OS.Posix
hLookAheadCardano.CLI.OS.Posix
hPrintCardano.CLI.OS.Posix
hPutBufCardano.CLI.OS.Posix
hPutBufNonBlockingCardano.CLI.OS.Posix
hPutCharCardano.CLI.OS.Posix
hPutLnCardano.CLI.Pretty
hPutStrCardano.CLI.OS.Posix
hPutStrLnCardano.CLI.OS.Posix
hReadyCardano.CLI.OS.Posix
hSeekCardano.CLI.OS.Posix
hSetBinaryModeCardano.CLI.OS.Posix
hSetBufferingCardano.CLI.OS.Posix
hSetEchoCardano.CLI.OS.Posix
hSetEncodingCardano.CLI.OS.Posix
hSetFileSizeCardano.CLI.OS.Posix
hSetNewlineModeCardano.CLI.OS.Posix
hSetPosnCardano.CLI.OS.Posix
hShowCardano.CLI.OS.Posix
hTellCardano.CLI.OS.Posix
hWaitForInputCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-I.html b/doc-index-I.html new file mode 100644 index 0000000000..78487ea31f --- /dev/null +++ b/doc-index-I.html @@ -0,0 +1 @@ +cardano-cli API (Index - I)
cardano-cli API

Index - I

IdOutputFormatCardano.CLI.Types.Common
IdOutputFormatBech32Cardano.CLI.Types.Common
IdOutputFormatHexCardano.CLI.Types.Common
InCardano.CLI.Types.Common
IncompleteCddlFormattedTxCardano.CLI.Read
IncompleteTxCardano.CLI.Read
InlineDatumPresentAtTxInCardano.CLI.Types.Common
InOutCardano.CLI.Types.Common
InputCardano.CLI.Types.Common
InputLineLimitCardano.CLI.OS.Posix
inputNLCardano.CLI.OS.Posix
InputQueueLimitCardano.CLI.OS.Posix
InputTxBodyFileCardano.CLI.Types.Common
InputTxBodyOrTxFileCardano.CLI.Types.Common
InputTxFileCardano.CLI.Types.Common
interactCardano.CLI.OS.Posix
intersectFileModesCardano.CLI.OS.Posix
IOCardano.CLI.OS.Posix
IOError'Cardano.CLI.Helpers
IOModeCardano.CLI.OS.Posix
isBlockDeviceCardano.CLI.OS.Posix
isCharacterDeviceCardano.CLI.OS.Posix
isDirectoryCardano.CLI.OS.Posix
isEOFCardano.CLI.OS.Posix
isNamedPipeCardano.CLI.OS.Posix
isRegularFileCardano.CLI.OS.Posix
isSocketCardano.CLI.OS.Posix
issueByronGenesisDelegationCardano.CLI.Byron.Delegation
isSymbolicLinkCardano.CLI.OS.Posix
ItnKeyBech32DecodeErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnKeyConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnReadBech32FileErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnSigningKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
ItnVerificationKeyDeserialisationErrorCardano.CLI.Types.Errors.ItnKeyConversionError
\ No newline at end of file diff --git a/doc-index-K.html b/doc-index-K.html new file mode 100644 index 0000000000..92122d4b14 --- /dev/null +++ b/doc-index-K.html @@ -0,0 +1 @@ +cardano-cli API (Index - K)
cardano-cli API

Index - K

KeyCmdByronKeyFailureCardano.CLI.Types.Errors.KeyCmdError
KeyCmdByronKeyParseErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdCardanoAddressSigningKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdExpectedExtendedVerificationKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdItnKeyConvErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdNonLegacyKeyCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdReadKeyFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyCmdVerificationKeyReadErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWriteFileErrorCardano.CLI.Types.Errors.KeyCmdError
KeyCmdWrongKeyTypeErrorCardano.CLI.Types.Errors.KeyCmdError
KeyConvertByronGenesisVKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertByronGenesisVKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertByronKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertByronKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertCardanoAddressKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertCardanoAddressKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNBip32KeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNBip32KeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNExtendedKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyConvertITNKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyConvertITNKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeygenCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
KeyNonExtendedKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyNonExtendedKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyOutputFormatCardano.CLI.Types.Common
KeyOutputFormatBech32Cardano.CLI.Types.Common
KeyOutputFormatTextEnvelopeCardano.CLI.Types.Common
KeyVerificationKeyCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Key
KeyVerificationKeyCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Key
2 (Type/Class)Cardano.CLI.EraBased.Commands.Key
KeyWitnessSigningDataCardano.CLI.Types.Common
\ No newline at end of file diff --git a/doc-index-L.html b/doc-index-L.html new file mode 100644 index 0000000000..2fc35afce6 --- /dev/null +++ b/doc-index-L.html @@ -0,0 +1 @@ +cardano-cli API (Index - L)
cardano-cli API

Index - L

latin1Cardano.CLI.OS.Posix
LegacyAddressCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Address
LegacyByronKeyFormatCardano.CLI.Types.Common
LegacyCmds 
1 (Data Constructor)Cardano.CLI.Run
2 (Type/Class)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
LegacyDelegateKey 
1 (Data Constructor)Cardano.CLI.Byron.Legacy
2 (Type/Class)Cardano.CLI.Byron.Legacy
LegacyGenesisCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Genesis
LegacyGovernanceCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Governance
LegacyKeyCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Key
LegacyNodeCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Node
LegacyNodeIssueOpCertCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenColdCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenKESCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyGenVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeKeyHashVRFCmdCardano.CLI.Legacy.Commands.Node
LegacyNodeNewCounterCmdCardano.CLI.Legacy.Commands.Node
LegacyQueryCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryConstitutionHashCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryKesPeriodInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLeadershipScheduleCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryLedgerStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryPoolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolParametersCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryProtocolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQuerySlotNumberCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeAddressInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakePoolsCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryStakeSnapshotCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTipCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryTxMempoolCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacyQueryUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
2 (Type/Class)Cardano.CLI.Legacy.Commands.Query
LegacySigningKeyDeserialisationFailedCardano.CLI.Byron.Key
LegacyStakeAddressCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.StakeAddress
LegacyStakePoolCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.StakePool
LegacyTextViewCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.TextView
LegacyTransactionCmds 
1 (Data Constructor)Cardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
2 (Type/Class)Cardano.CLI.Legacy.Commands.Transaction
LFCardano.CLI.OS.Posix
LineBufferingCardano.CLI.OS.Posix
linkCountCardano.CLI.OS.Posix
LinkLimitCardano.CLI.OS.Posix
localeEncodingCardano.CLI.OS.Posix
LockRequestCardano.CLI.OS.Posix
lrkSigningKeyCardano.CLI.Byron.Legacy
\ No newline at end of file diff --git a/doc-index-M.html b/doc-index-M.html new file mode 100644 index 0000000000..ec386c9c20 --- /dev/null +++ b/doc-index-M.html @@ -0,0 +1 @@ +cardano-cli API (Index - M)
cardano-cli API

Index - M

magentaCardano.CLI.Pretty
MakeGenesisDelegationErrorCardano.CLI.Byron.Genesis
ManualBalanceCardano.CLI.Types.Common
MetadataErrorCardano.CLI.Read
MetadataErrorConversionErrorCardano.CLI.Read
MetadataErrorDecodeErrorCardano.CLI.Read
MetadataErrorFileCardano.CLI.Read
MetadataErrorJsonParseErrorCardano.CLI.Read
MetadataErrorNotAvailableInEraCardano.CLI.Read
MetadataErrorValidationErrorCardano.CLI.Read
MetadataFileCardano.CLI.Types.Common
MetadataFileCBORCardano.CLI.Types.Common
MetadataFileJSONCardano.CLI.Types.Common
MigrateDelegateKeyFromCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
MissingNetworkIdOrByronAddressErrorCardano.CLI.Types.Errors.BootstrapWitnessError
mkGenesisCardano.CLI.Byron.Genesis
mkTextEncodingCardano.CLI.OS.Posix
modificationTimeCardano.CLI.OS.Posix
modificationTimeHiResCardano.CLI.OS.Posix
moutFileCardano.CLI.EraBased.Commands.Governance.Hash
\ No newline at end of file diff --git a/doc-index-N.html b/doc-index-N.html new file mode 100644 index 0000000000..108b4c4fe5 --- /dev/null +++ b/doc-index-N.html @@ -0,0 +1 @@ +cardano-cli API (Index - N)
cardano-cli API

Index - N

namedPipeModeCardano.CLI.OS.Posix
nativeNewlineCardano.CLI.OS.Posix
nativeNewlineModeCardano.CLI.OS.Posix
NewCertificateFile 
1 (Data Constructor)Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Byron.Commands
NewDirectory 
1 (Data Constructor)Cardano.CLI.Byron.Genesis
2 (Type/Class)Cardano.CLI.Byron.Genesis
NewlineCardano.CLI.OS.Posix
NewlineMode 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
NewSigningKeyFile 
1 (Data Constructor)Cardano.CLI.Byron.Key
2 (Type/Class)Cardano.CLI.Byron.Key
NewTxFile 
1 (Data Constructor)Cardano.CLI.Byron.Tx
2 (Type/Class)Cardano.CLI.Byron.Tx
NewVerificationKeyFile 
1 (Data Constructor)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
2 (Type/Class)Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
NextEpochCardano.CLI.Types.Common
nFpCardano.CLI.Byron.Commands
NoBufferingCardano.CLI.OS.Posix
nocttyCardano.CLI.OS.Posix
NodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdOperationalCertificateIssueErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdReadKeyFileErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
3 (Data Constructor)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
4 (Type/Class)Cardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
NodeCmdVrfSigningKeyCreationErrorCardano.CLI.Types.Errors.NodeCmdError
NodeCmdWriteFileErrorCardano.CLI.Types.Errors.NodeCmdError
nodeEraCardano.CLI.Types.Errors.NodeEraMismatchError
NodeEraMismatchError 
1 (Data Constructor)Cardano.CLI.Types.Errors.NodeEraMismatchError
2 (Type/Class)Cardano.CLI.Types.Errors.NodeEraMismatchError
NodeIssueOpCertCmdCardano.CLI.EraBased.Commands.Node
NodeIssueOpCertCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenColdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenKESCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyGenVRFCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdCardano.CLI.EraBased.Commands.Node
NodeKeyHashVRFCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdCardano.CLI.EraBased.Commands.Node
NodeNewCounterCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Node
2 (Type/Class)Cardano.CLI.EraBased.Commands.Node
nodeSubmitTxCardano.CLI.Byron.Tx
NoGenesisDelegationForKeyCardano.CLI.Byron.Genesis
nonBlockCardano.CLI.OS.Posix
NonBlockingReadCardano.CLI.OS.Posix
noNewlineTranslationCardano.CLI.OS.Posix
NonLegacyByronKeyFormatCardano.CLI.Types.Common
normalByronTxToGenTxCardano.CLI.Byron.Tx
NoScriptDatumOrFileForMintCardano.CLI.Types.Common
NoScriptDatumOrFileForStakeCardano.CLI.Types.Common
noteInputFileTest.Cardano.CLI.Util
noteTempFileTest.Cardano.CLI.Util
nullFileModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-O.html b/doc-index-O.html new file mode 100644 index 0000000000..109fb46d34 --- /dev/null +++ b/doc-index-O.html @@ -0,0 +1 @@ +cardano-cli API (Index - O)
cardano-cli API

Index - O

OnlyCardano.CLI.Types.Common
OpCertCounterCardano.CLI.Types.Common
OpCertCounterFileCardano.CLI.Types.Common
OpCertEndingKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertExpiredCardano.CLI.Types.Common
OpCertIntervalInformationCardano.CLI.Types.Common
OpCertNoBlocksMintedYetCardano.CLI.Types.Common
OpCertNodeAndOnDiskCounterInformationCardano.CLI.Types.Common
OpCertNodeStateCounter 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertOnDiskCounter 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertOnDiskCounterAheadOfNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterBehindNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterEqualToNodeStateCardano.CLI.Types.Common
OpCertOnDiskCounterTooFarAheadOfNodeStateCardano.CLI.Types.Common
OpCertSomeOtherErrorCardano.CLI.Types.Common
OpCertStartingKesPeriod 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
OpCertStartingKesPeriodIsInTheFutureCardano.CLI.Types.Common
OpCertWithinIntervalCardano.CLI.Types.Common
openBinaryFileCardano.CLI.OS.Posix
openBinaryTempFileCardano.CLI.OS.Posix
openBinaryTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
openFdCardano.CLI.OS.Posix
openFileCardano.CLI.OS.Posix
OpenFileFlags 
1 (Data Constructor)Cardano.CLI.OS.Posix
2 (Type/Class)Cardano.CLI.OS.Posix
OpenModeCardano.CLI.OS.Posix
openTempFileCardano.CLI.OS.Posix
openTempFileWithDefaultPermissionsCardano.CLI.OS.Posix
optsCardano.CLI.Options
otherExecuteModeCardano.CLI.OS.Posix
otherModesCardano.CLI.OS.Posix
otherReadModeCardano.CLI.OS.Posix
otherWriteModeCardano.CLI.OS.Posix
OutCardano.CLI.Types.Common
OutputCardano.CLI.Types.Common
OutputMustNotAlreadyExistCardano.CLI.Helpers
outputNLCardano.CLI.OS.Posix
OutputScriptCostOnlyCardano.CLI.Types.Common
OutputTxBodyOnlyCardano.CLI.Types.Common
ownerExecuteModeCardano.CLI.OS.Posix
ownerModesCardano.CLI.OS.Posix
ownerReadModeCardano.CLI.OS.Posix
ownerWriteModeCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-P.html b/doc-index-P.html new file mode 100644 index 0000000000..82a8639303 --- /dev/null +++ b/doc-index-P.html @@ -0,0 +1 @@ +cardano-cli API (Index - P)
cardano-cli API

Index - P

pAddCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pAddCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pAddressCardano.CLI.EraBased.Options.Common
pAddressCmdsCardano.CLI.EraBased.Options.Address
pAddressKeyTypeCardano.CLI.EraBased.Options.Common
pAlwaysAbstainCardano.CLI.EraBased.Options.Common
pAlwaysNoConfidenceCardano.CLI.EraBased.Options.Common
pAnchorDataHashCardano.CLI.EraBased.Options.Common
pAnchorUrlCardano.CLI.EraBased.Options.Common
pAnyEraCommandCardano.CLI.EraBased.Commands
pAnyShelleyBasedEraCardano.CLI.EraBased.Options.Common
pAnyShelleyToBabbageEraCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pAnyVerificationKeySourceCardano.CLI.EraBased.Options.Common
pAnyVerificationKeyTextCardano.CLI.EraBased.Options.Common
Params 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
parseByronCommandsCardano.CLI.Byron.Parsers
parseHeavyDelThdCardano.CLI.Byron.Parsers
parseInstallerHashCardano.CLI.Byron.Parsers
parseLegacyCmdsCardano.CLI.Legacy.Options
parseLovelaceCardano.CLI.EraBased.Options.Common
parseMaxBlockSizeCardano.CLI.Byron.Parsers
parseMaxHeaderSizeCardano.CLI.Byron.Parsers
parseMaxProposalSizeCardano.CLI.Byron.Parsers
parseMaxTxSizeCardano.CLI.Byron.Parsers
parseMpcThdCardano.CLI.Byron.Parsers
parsePingCmdCardano.CLI.Run.Ping
ParserFileDirectionCardano.CLI.Types.Common
parseScriptVersionCardano.CLI.Byron.Parsers
parseSlotDurationCardano.CLI.Byron.Parsers
parseSoftforkRuleCardano.CLI.Byron.Parsers
parseStakeAddressCardano.CLI.EraBased.Options.Common
parseSystemTagCardano.CLI.Byron.Parsers
parseTxFeePolicyCardano.CLI.Byron.Parsers
parseTxIdCardano.CLI.EraBased.Options.Common
parseTxInCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
parseTxIxCardano.CLI.EraBased.Options.Common
parseTxOutAnyEraCardano.CLI.EraBased.Options.Common
parseUnlockStakeEpochCardano.CLI.Byron.Parsers
parseUpdateProposalThdCardano.CLI.Byron.Parsers
parseUpdateProposalTTLCardano.CLI.Byron.Parsers
parseUpdateVoteThdCardano.CLI.Byron.Parsers
PathNameLimitCardano.CLI.OS.Posix
PathVarCardano.CLI.OS.Posix
PaymentVerifierCardano.CLI.Types.Key
PaymentVerifierKeyCardano.CLI.Types.Key
PaymentVerifierScriptFileCardano.CLI.Types.Key
paymentVkeyDescCardano.CLI.EraBased.Run.Key
pBech32KeyHashCardano.CLI.EraBased.Options.Common
pByronAddressCardano.CLI.EraBased.Options.Common
pCalculatePlutusScriptCostCardano.CLI.EraBased.Options.Common
pCBORInFileCardano.CLI.EraBased.Options.Common
pCertificateFileCardano.CLI.EraBased.Options.Common
pCmdsCardano.CLI.EraBased.Commands
pColdSigningKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCollateralPercentCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCombinedStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyHashCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyFileCardano.CLI.EraBased.Options.Common
pCommitteeHotVerificationKeyOrHashOrVerificationFileCardano.CLI.EraBased.Options.Common
pCommitteeTermLengthCardano.CLI.EraBased.Options.Common
pConsensusModeParamsCardano.CLI.EraBased.Options.Common
pConstitutionHashCardano.CLI.EraBased.Options.Common
pConstitutionHashSourceCardano.CLI.EraBased.Options.Common
pConstitutionUrlCardano.CLI.EraBased.Options.Common
pCostModelsCardano.CLI.EraBased.Options.Common
pDecentralParamCardano.CLI.EraBased.Options.Common
pDRepActivityCardano.CLI.EraBased.Options.Common
pDRepDepositCardano.CLI.EraBased.Options.Common
pDrepDepositCardano.CLI.EraBased.Options.Common
pDRepHashSourceCardano.CLI.EraBased.Options.Common
pDRepScriptHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyHashCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pDRepVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pDRepVotingThresholdsCardano.CLI.EraBased.Options.Common
pEpochBoundRetirementCardano.CLI.EraBased.Options.Common
pEpochNoCardano.CLI.EraBased.Options.Common
pEpochNoUpdatePropCardano.CLI.EraBased.Options.Common
pEpochSlotsCardano.CLI.EraBased.Options.Common
percentageCardano.CLI.EraBased.Run.Query
pExecutionUnitPricesCardano.CLI.EraBased.Options.Common
pExecutionUnitsCardano.CLI.EraBased.Options.Common
pExtendedVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pExtraEntropyCardano.CLI.EraBased.Options.Common
pFeaturedCardano.CLI.EraBased.Options.Common
pFileInDirectionCardano.CLI.EraBased.Options.Common
pFileOutDirectionCardano.CLI.EraBased.Options.Common
pFilterByStakeAddressCardano.CLI.EraBased.Options.Common
pGenesisCmdsCardano.CLI.EraBased.Options.Genesis
pGenesisDelegateVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisDelegateVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGenesisFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyHashCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pGenesisVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pGovActionDepositCardano.CLI.EraBased.Options.Common
pGovActionLifetimeCardano.CLI.EraBased.Options.Common
pGovernanceActionCmdsCardano.CLI.EraBased.Options.Governance.Actions
pGovernanceActionIdCardano.CLI.EraBased.Options.Common
pGovernanceActionViewOutputFormatCardano.CLI.EraBased.Options.Common
pGovernanceCmdsCardano.CLI.EraBased.Options.Governance
pGovernanceCommitteeCmdsCardano.CLI.EraBased.Options.Governance.Committee
pGovernanceDRepCmdsCardano.CLI.EraBased.Options.Governance.DRep
pGovernanceHashCmdsCardano.CLI.EraBased.Options.Governance.Hash
pGovernancePollCmdsCardano.CLI.EraBased.Options.Governance.Poll
pGovernanceVoteCmdsCardano.CLI.EraBased.Options.Governance.Vote
pHexHashCardano.CLI.EraBased.Options.Common
PingClientCmdError 
1 (Data Constructor)Cardano.CLI.Run.Ping
2 (Type/Class)Cardano.CLI.Run.Ping
PingCmd 
1 (Data Constructor)Cardano.CLI.Run.Ping
2 (Type/Class)Cardano.CLI.Run.Ping
pingCmdCountCardano.CLI.Run.Ping
pingCmdEndPointCardano.CLI.Run.Ping
pingCmdJsonCardano.CLI.Run.Ping
pingCmdMagicCardano.CLI.Run.Ping
pingCmdPortCardano.CLI.Run.Ping
pingCmdQuietCardano.CLI.Run.Ping
pingOptsHandshakeQueryCardano.CLI.Run.Ping
pInputTxOrTxBodyFileCardano.CLI.EraBased.Options.Common
pInvalidBeforeCardano.CLI.EraBased.Options.Common
pInvalidHereafterCardano.CLI.EraBased.Options.Common
PipeBufferLimitCardano.CLI.OS.Posix
pIpV4Cardano.CLI.EraBased.Options.Common
pIpV6Cardano.CLI.EraBased.Options.Common
pKesPeriodCardano.CLI.EraBased.Options.Common
pKesVerificationKeyCardano.CLI.EraBased.Options.Common
pKesVerificationKeyFileCardano.CLI.EraBased.Options.Common
pKesVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pKeyCmds 
1 (Function)Cardano.CLI.EraBased.Options.Key
2 (Function)Cardano.CLI.Legacy.Options.Key
pKeyOutputFormatCardano.CLI.EraBased.Options.Common
pKeyRegistDepositCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pLegacyCardanoEraCardano.CLI.Legacy.Options
pLegacyInvalidHereafterCardano.CLI.EraBased.Options.Common
pLegacyShelleyBasedEraCardano.CLI.Legacy.Options
PlutusReferenceScriptWitnessFilesCardano.CLI.Types.Common
PlutusScriptCostErrorCardano.CLI.Types.Output
PlutusScriptWitnessFilesCardano.CLI.Types.Common
pMaxBlockExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxBlockHeaderSizeCardano.CLI.EraBased.Options.Common
pMaxBodySizeCardano.CLI.EraBased.Options.Common
pMaxCollateralInputsCardano.CLI.EraBased.Options.Common
pMaxTransactionSizeCardano.CLI.EraBased.Options.Common
pMaxTxExecutionUnitsCardano.CLI.EraBased.Options.Common
pMaxValueSizeCardano.CLI.EraBased.Options.Common
pMaybeOutputFileCardano.CLI.EraBased.Options.Common
pMetadataFileCardano.CLI.EraBased.Options.Common
pMinCommitteeSizeCardano.CLI.EraBased.Options.Common
pMinFeeConstantFactorCardano.CLI.EraBased.Options.Common
pMinFeePerByteFactorCardano.CLI.EraBased.Options.Common
pMinPoolCostCardano.CLI.EraBased.Options.Common
pMintMultiAssetCardano.CLI.EraBased.Options.Common
pMinUTxOValueCardano.CLI.EraBased.Options.Common
pMIRPotCardano.CLI.EraBased.Options.Common
pMonetaryExpansionCardano.CLI.EraBased.Options.Common
pMultiHostNameCardano.CLI.EraBased.Options.Common
pNetworkIdCardano.CLI.EraBased.Options.Common
pNodeCmdsCardano.CLI.EraBased.Options.Node
pNumberOfPoolsCardano.CLI.EraBased.Options.Common
poolParametersCardano.CLI.Types.Common
PoorKeyFailureCardano.CLI.Byron.Genesis
pOperationalCertificateFileCardano.CLI.EraBased.Options.Common
pOperatorCertIssueCounterFileCardano.CLI.EraBased.Options.Common
pOutputFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextCardano.CLI.EraBased.Options.Common
pPaymentVerificationKeyTextOrFileCardano.CLI.EraBased.Options.Common
pPaymentVerifierCardano.CLI.EraBased.Options.Common
pPlutusScriptLanguageCardano.CLI.EraBased.Options.Common
pPlutusStakeReferenceScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pPolicyIdCardano.CLI.EraBased.Options.Common
pPollAnswerCardano.CLI.EraBased.Options.Common
pPollAnswerIndexCardano.CLI.EraBased.Options.Common
pPollFileCardano.CLI.EraBased.Options.Common
pPollNonceCardano.CLI.EraBased.Options.Common
pPollQuestionCardano.CLI.EraBased.Options.Common
pPollTxFileCardano.CLI.EraBased.Options.Common
pPoolCostCardano.CLI.EraBased.Options.Common
pPoolDepositCardano.CLI.EraBased.Options.Common
pPoolIdOutputFormatCardano.CLI.EraBased.Options.Common
pPoolInfluenceCardano.CLI.EraBased.Options.Common
pPoolMarginCardano.CLI.EraBased.Options.Common
pPoolMetadataFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyFileCardano.CLI.EraBased.Options.Common
pPoolOwnerVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pPoolPledgeCardano.CLI.EraBased.Options.Common
pPoolRelayCardano.CLI.EraBased.Options.Common
pPoolVotingThresholdsCardano.CLI.EraBased.Options.Common
pPortCardano.CLI.EraBased.Options.Common
pPreviousGovernanceActionCardano.CLI.EraBased.Options.Common
pPrintCBORCardano.CLI.Helpers
pProtocolParametersUpdateCardano.CLI.EraBased.Options.Common
pProtocolParamsFileCardano.CLI.EraBased.Options.Common
pProtocolVersionCardano.CLI.EraBased.Options.Common
pQueryCmdsCardano.CLI.EraBased.Options.Query
pQueryUTxOFilterCardano.CLI.EraBased.Options.Common
pRationalCardano.CLI.EraBased.Options.Common
pReadOnlyReferenceTxInCardano.CLI.EraBased.Options.Common
prefCardano.CLI.Options
pReferenceTxInCardano.CLI.EraBased.Options.Common
prefixFlagCardano.CLI.EraBased.Options.Common
pRefScriptFpCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyHashCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRemoveCommitteeColdVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pRequiredSignerCardano.CLI.EraBased.Options.Common
prettyAddressCardano.CLI.Byron.Tx
PrettyPrintCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
prettyPublicKeyCardano.CLI.Byron.Key
PrettySigningKeyPublicCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
pReturnCollateralCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyFileCardano.CLI.EraBased.Options.Common
pRewardAcctVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pRewardAmtCardano.CLI.EraBased.Options.Common
printCardano.CLI.OS.Posix
PrintGenesisHashCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
PrintSigningKeyAddressCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
printWarningCardano.CLI.Helpers
PrioIOAvailableCardano.CLI.OS.Posix
PrivKeyFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
propertyOnceTest.Cardano.CLI.Util
ProposalErrorCardano.CLI.Read
ProposalErrorFileCardano.CLI.Read
ProposalFileCardano.CLI.Types.Common
ProposalNotSupportedInEraCardano.CLI.Read
ProposalNotUnicodeErrorCardano.CLI.Read
ProposalText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ProposalUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ProtocolParametersParseFailedCardano.CLI.Byron.Genesis
ProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorFileCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsErrorJSONCardano.CLI.Types.Errors.ProtocolParamsError
ProtocolParamsFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
pScriptCardano.CLI.EraBased.Options.Common
pScriptDataOrFileCardano.CLI.EraBased.Options.Common
pScriptDatumOrFileCardano.CLI.EraBased.Options.Common
pScriptForCardano.CLI.EraBased.Options.Common
pScriptRedeemerOrFileCardano.CLI.EraBased.Options.Common
pScriptWitnessFilesCardano.CLI.EraBased.Options.Common
pShelleyBasedAllegraCardano.CLI.EraBased.Options.Common
pShelleyBasedAlonzoCardano.CLI.EraBased.Options.Common
pShelleyBasedBabbageCardano.CLI.EraBased.Options.Common
pShelleyBasedConwayCardano.CLI.EraBased.Options.Common
pShelleyBasedMaryCardano.CLI.EraBased.Options.Common
pShelleyBasedShelleyCardano.CLI.EraBased.Options.Common
pSigningKeyFileInCardano.CLI.EraBased.Options.Common
pSigningKeyFileOutCardano.CLI.EraBased.Options.Common
pSingleHostAddressCardano.CLI.EraBased.Options.Common
pSingleHostNameCardano.CLI.EraBased.Options.Common
pSocketPathCardano.CLI.EraBased.Options.Common
pStakeAddressCardano.CLI.EraBased.Options.Common
pStakeAddressCmdsCardano.CLI.EraBased.Options.StakeAddress
pStakeIdentifierCardano.CLI.EraBased.Options.Common
pStakePoolCmdsCardano.CLI.EraBased.Options.StakePool
pStakePoolMetadataHashCardano.CLI.EraBased.Options.Common
pStakePoolMetadataReferenceCardano.CLI.EraBased.Options.Common
pStakePoolMetadataUrlCardano.CLI.EraBased.Options.Common
pStakePoolRegistrationParserRequirementsCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakePoolVerificationKeyCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakePoolVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common, Cardano.CLI.Legacy.Options
pStakeVerificationKeyCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyHashCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pStakeVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pStakeVerifierCardano.CLI.EraBased.Options.Common
pTextViewCmdsCardano.CLI.EraBased.Options.TextView
pTotalCollateralCardano.CLI.EraBased.Options.Common
pTransactionCmdsCardano.CLI.EraBased.Options.Transaction
pTransferAmtCardano.CLI.EraBased.Options.Common
pTreasuryExpansionCardano.CLI.EraBased.Options.Common
pTxBodyFileInCardano.CLI.EraBased.Options.Common
pTxBodyFileOutCardano.CLI.EraBased.Options.Common
pTxByronWitnessCountCardano.CLI.EraBased.Options.Common
pTxFeeCardano.CLI.EraBased.Options.Common
pTxFileInCardano.CLI.EraBased.Options.Common
pTxFileOutCardano.CLI.EraBased.Options.Common
pTxIdCardano.CLI.EraBased.Options.Common
pTxInCardano.CLI.EraBased.Options.Common
pTxInCollateralCardano.CLI.EraBased.Options.Common
pTxInCountCardano.CLI.EraBased.Options.Common
pTxMetadataJsonSchemaCardano.CLI.EraBased.Options.Common
pTxOutCardano.CLI.EraBased.Options.Common
pTxOutCountCardano.CLI.EraBased.Options.Common
pTxOutDatumCardano.CLI.EraBased.Options.Common
pTxShelleyWitnessCountCardano.CLI.EraBased.Options.Common
pTxSubmitFileCardano.CLI.EraBased.Options.Common
pTxViewOutputFormatCardano.CLI.EraBased.Options.Common
pUpdateProposalFileCardano.CLI.EraBased.Options.Common
pUrlCardano.CLI.EraBased.Options.Common
putCharCardano.CLI.OS.Posix
putLnCardano.CLI.Pretty
putStrCardano.CLI.OS.Posix
putStrLnCardano.CLI.OS.Posix
pUTxOCostPerByteCardano.CLI.EraBased.Options.Common
pVerificationKeyCardano.CLI.EraBased.Options.Common
pVerificationKeyFileInCardano.CLI.EraBased.Options.Common
pVerificationKeyFileOutCardano.CLI.EraBased.Options.Common
pVerificationKeyOrFileInCardano.CLI.EraBased.Options.Common
pVoteAnchorCardano.CLI.EraBased.Options.Common
pVoteAnchorDataHashCardano.CLI.EraBased.Options.Common
pVoteChoiceCardano.CLI.EraBased.Options.Common
pVoteDelegationTargetCardano.CLI.EraBased.Options.Common
pVoterTypeCardano.CLI.EraBased.Options.Common
pVotingCredentialCardano.CLI.EraBased.Options.Common
pVrfSigningKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyHashCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrFileCardano.CLI.EraBased.Options.Common
pVrfVerificationKeyOrHashOrFileCardano.CLI.EraBased.Options.Common
pWhichLeadershipScheduleCardano.CLI.EraBased.Options.Common
pWithdrawalCardano.CLI.EraBased.Options.Common
pWitnessFileCardano.CLI.EraBased.Options.Common
pWitnessOverrideCardano.CLI.EraBased.Options.Common
pWitnessSigningDataCardano.CLI.EraBased.Options.Common
pWord32Cardano.CLI.EraBased.Options.Common
\ No newline at end of file diff --git a/doc-index-Q.html b/doc-index-Q.html new file mode 100644 index 0000000000..69daff1b71 --- /dev/null +++ b/doc-index-Q.html @@ -0,0 +1 @@ +cardano-cli API (Index - Q)
cardano-cli API

Index - Q

QueryCmdAcquireFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmdByronEraCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeColdKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdCommitteeHotKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdConvenienceErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdDRepKeyErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdEraMismatchCardano.CLI.Types.Errors.QueryCmdError
QueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdGenesisReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdHelpersErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLeaderShipErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdLocalStateQueryError 
1 (Data Constructor)Cardano.CLI.Types.Errors.QueryCmdError
2 (Type/Class)Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError
QueryCmdOpCertCounterReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPastHorizonCardano.CLI.Types.Errors.QueryCmdError
QueryCmdPoolStateDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolParameterConversionErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdProtocolStateDecodeFailureCardano.CLI.Types.Errors.QueryCmdError
QueryCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryCmdStakeSnapshotDecodeErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdSystemStartUnavailableCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextEnvelopeReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdTextReadErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCmdUnsupportedNtcVersionCardano.CLI.Types.Errors.QueryCmdError
QueryCmdWriteFileErrorCardano.CLI.Types.Errors.QueryCmdError
QueryCommitteeMembersStateCmdCardano.CLI.EraBased.Commands.Query
QueryCommitteeMembersStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryConstitutionCmdCardano.CLI.EraBased.Commands.Query
QueryConstitutionHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryConstitutionHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdCardano.CLI.EraBased.Commands.Query
QueryDRepStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
queryFdOptionCardano.CLI.OS.Posix
QueryGovStateCmdCardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryKesPeriodInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryKesPeriodInfoOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryLeadershipScheduleCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryLeadershipScheduleCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryLedgerStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryLedgerStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryNoArgCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryPoolStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryPoolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryProtocolParametersCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryProtocolParametersCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryProtocolStateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryProtocolStateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QuerySlotNumberCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QuerySlotNumberCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeAddressInfoCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeAddressInfoCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeDistributionCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeDistributionCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakePoolsCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakePoolsCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryStakeSnapshotCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryStakeSnapshotCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryTipCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryTipCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryTipLocalState 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryTipLocalStateOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
QueryTxMempoolCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryTxMempoolCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
QueryUTxOCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Query
QueryUTxOCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Query
2 (Type/Class)Cardano.CLI.EraBased.Commands.Query
\ No newline at end of file diff --git a/doc-index-R.html b/doc-index-R.html new file mode 100644 index 0000000000..b9abbbfbfa --- /dev/null +++ b/doc-index-R.html @@ -0,0 +1 @@ +cardano-cli API (Index - R)
cardano-cli API

Index - R

readAndDecodeShelleyGenesisCardano.CLI.EraBased.Run.Genesis
readByronSigningKeyCardano.CLI.Byron.Key
readByronTxCardano.CLI.Byron.Tx
readByronUpdateProposalCardano.CLI.Byron.UpdateProposal
readByronVoteCardano.CLI.Byron.Vote
readCBORCardano.CLI.Helpers
ReadCBORFileFailureCardano.CLI.Helpers
readCddlTxCardano.CLI.Read
readDRepCredentialCardano.CLI.Types.Key
readerFromAttoParserCardano.CLI.Parser
readerFromParsecParserCardano.CLI.EraBased.Options.Common
readFileCardano.CLI.OS.Posix
readFile'Cardano.CLI.OS.Posix
ReadFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
readFileOrPipeCardano.CLI.Read
readFileScriptInAnyLangCardano.CLI.Read
readFileTxCardano.CLI.Read
readFileTxBodyCardano.CLI.Read
readFileTxKeyWitnessCardano.CLI.Read
readFileTxMetadataCardano.CLI.Read
readFractionAsRationalCardano.CLI.Parser
readGenesisCardano.CLI.Byron.Genesis
readGovernanceActionViewOutputFormatCardano.CLI.Parser
readHexAsSafeHashCardano.CLI.Read
readIdOutputFormatCardano.CLI.Parser
readIOCardano.CLI.OS.Posix
readKeyOutputFormatCardano.CLI.Parser
readLnCardano.CLI.OS.Posix
ReadLockCardano.CLI.OS.Posix
ReadModeCardano.CLI.OS.Posix
ReadOnlyCardano.CLI.OS.Posix
readPaymentVerificationKeyCardano.CLI.Byron.Key
readProposalCardano.CLI.Read
readProtocolParametersCardano.CLI.EraBased.Run.Genesis
readRationalCardano.CLI.Parser
readRationalUnitIntervalCardano.CLI.Parser
readRequiredSignerCardano.CLI.Read
readSafeHashCardano.CLI.Read
ReadSafeHashErrorCardano.CLI.Read
ReadSafeHashErrorInvalidHashCardano.CLI.Read
ReadSafeHashErrorNotHexCardano.CLI.Read
readScriptDataOrFileCardano.CLI.Read
readScriptDatumOrFileCardano.CLI.Read
readScriptRedeemerOrFileCardano.CLI.Read
readScriptWitnessCardano.CLI.Read
readScriptWitnessFilesCardano.CLI.Read
readScriptWitnessFilesThrupleCardano.CLI.Read
ReadSigningKeyFailure 
1 (Data Constructor)Cardano.CLI.Byron.UpdateProposal
2 (Data Constructor)Cardano.CLI.Byron.Key
readSigningKeyFileCardano.CLI.Types.Key
readStringOfMaxLengthCardano.CLI.Parser
readSymbolicLinkCardano.CLI.OS.Posix
readTxGovernanceActionsCardano.CLI.Read
readTxMetadataCardano.CLI.Read
readTxUpdateProposalCardano.CLI.Read
readTxViewOutputFormatCardano.CLI.Parser
readURIOfMaxLengthCardano.CLI.Parser
readVerificationKeyCardano.CLI.EraBased.Options.Common
ReadVerificationKeyFailureCardano.CLI.Byron.Key
readVerificationKeyOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrFileCardano.CLI.Types.Key
readVerificationKeyOrHashOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyOrTextEnvFileCardano.CLI.Types.Key
readVerificationKeyTextOrFileAnyOfCardano.CLI.Types.Key
readVoteDelegationTargetCardano.CLI.Read
readVotingProceduresFileCardano.CLI.Read
readVotingProceduresFilesCardano.CLI.Read
readWitnessSigningDataCardano.CLI.Read
ReadWitnessSigningDataErrorCardano.CLI.Read
ReadWitnessSigningDataScriptErrorCardano.CLI.Read
ReadWitnessSigningDataSigningKeyAndAddressMismatchCardano.CLI.Read
ReadWitnessSigningDataSigningKeyDecodeErrorCardano.CLI.Read
ReadWriteCardano.CLI.OS.Posix
ReadWriteModeCardano.CLI.OS.Posix
redCardano.CLI.Pretty
redactJsonFieldTest.Cardano.CLI.Util
ReferenceScriptAnyEra 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
ReferenceScriptAnyEraNoneCardano.CLI.Types.Common
RegistrationErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationReadErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeCredentialErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationStakeErrorCardano.CLI.Types.Errors.RegistrationError
RegistrationWriteFileErrorCardano.CLI.Types.Errors.RegistrationError
regularFileModeCardano.CLI.OS.Posix
RelativeSeekCardano.CLI.OS.Posix
removeLinkCardano.CLI.OS.Posix
renameCardano.CLI.OS.Posix
renderAddressCmdErrorCardano.CLI.Types.Errors.AddressCmdError
renderAddressCmdsCardano.CLI.EraBased.Commands.Address
renderAnyEraCommandCardano.CLI.EraBased.Commands
renderBootstrapWitnessErrorCardano.CLI.Types.Errors.BootstrapWitnessError
renderByronClientCmdErrorCardano.CLI.Byron.Run
renderByronDelegationErrorCardano.CLI.Byron.Delegation
renderByronGenesisErrorCardano.CLI.Byron.Genesis
renderByronKeyFailureCardano.CLI.Byron.Key
renderByronTxErrorCardano.CLI.Byron.Tx
renderByronUpdateProposalErrorCardano.CLI.Byron.UpdateProposal
renderByronVoteErrorCardano.CLI.Byron.Vote
renderCardanoAddressSigningKeyConversionErrorCardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError
renderClientCommandErrorCardano.CLI.Run
renderCmdErrorCardano.CLI.Types.Errors.CmdError
renderCmdsCardano.CLI.EraBased.Commands
renderConversionErrorCardano.CLI.Types.Errors.ItnKeyConversionError
renderDefaultCardano.CLI.Pretty
renderFeatureCardano.CLI.Types.TxFeature
renderGenesisCmdsCardano.CLI.EraBased.Commands.Genesis
renderGovernanceActionCmdsCardano.CLI.EraBased.Commands.Governance.Actions
renderGovernanceCmdsCardano.CLI.EraBased.Commands.Governance, Cardano.CLI.EraBased.Options.Governance
renderGovernanceCommitteeCmdsCardano.CLI.EraBased.Commands.Governance.Committee
renderGovernanceDRepCmdsCardano.CLI.EraBased.Commands.Governance.DRep
renderGovernanceHashCmdsCardano.CLI.EraBased.Commands.Governance.Hash
renderGovernancePollCmdsCardano.CLI.EraBased.Commands.Governance.Poll
renderGovernanceVoteCmdsCardano.CLI.EraBased.Commands.Governance.Vote
renderHelpersErrorCardano.CLI.Helpers
renderKeyCmdErrorCardano.CLI.Types.Errors.KeyCmdError
renderKeyCmdsCardano.CLI.EraBased.Commands.Key
renderLegacyAddressCmdsCardano.CLI.Legacy.Commands.Address
renderLegacyCommandCardano.CLI.Legacy.Commands, Cardano.CLI.Legacy.Options
renderLegacyGenesisCmdsCardano.CLI.Legacy.Commands.Genesis
renderLegacyGovernanceCmdsCardano.CLI.Legacy.Commands.Governance
renderLegacyKeyCmdsCardano.CLI.Legacy.Commands.Key
renderLegacyNodeCmdsCardano.CLI.Legacy.Commands.Node
renderLegacyQueryCmdsCardano.CLI.Legacy.Commands.Query
renderLegacyStakeAddressCmdsCardano.CLI.Legacy.Commands.StakeAddress
renderLegacyStakePoolCmdsCardano.CLI.Legacy.Commands.StakePool
renderLegacyTextViewCmdsCardano.CLI.Legacy.Commands.TextView
renderLegacyTransactionCmdsCardano.CLI.Legacy.Commands.Transaction
renderLocalStateQueryErrorCardano.CLI.Types.Errors.QueryCmdLocalStateQueryError, Cardano.CLI.EraBased.Run.Query
renderMetadataErrorCardano.CLI.Read
renderNodeCmdErrorCardano.CLI.Types.Errors.NodeCmdError
renderNodeCmdsCardano.CLI.EraBased.Commands.Node
renderOpCertIntervalInformationCardano.CLI.EraBased.Run.Query
renderPingClientCmdErrorCardano.CLI.Run.Ping
renderProtocolParamsErrorCardano.CLI.Types.Errors.ProtocolParamsError
renderQueryCmdErrorCardano.CLI.Types.Errors.QueryCmdError, Cardano.CLI.EraBased.Run.Query
renderQueryCmdsCardano.CLI.EraBased.Commands.Query
renderReadWitnessSigningDataErrorCardano.CLI.Read
renderScriptCostsCardano.CLI.Types.Output
renderScriptDataErrorCardano.CLI.Read
renderScriptWitnessErrorCardano.CLI.Read
renderStakeAddressCmdsCardano.CLI.EraBased.Commands.StakeAddress
renderStakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
renderStakePoolCmdsCardano.CLI.EraBased.Commands.StakePool
renderStringDefaultCardano.CLI.Pretty
renderTextViewCmdsCardano.CLI.EraBased.Commands.TextView
renderTextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
renderTransactionCmdsCardano.CLI.EraBased.Commands.Transaction
renderTxCmdErrorCardano.CLI.Types.Errors.TxCmdError
renderVerificationKeyTextOrFileErrorCardano.CLI.Types.Key
replicateMCardano.CLI.IO.Lazy
RequiredSignerCardano.CLI.Types.Common
RequiredSignerErrorCardano.CLI.Read
RequiredSignerErrorByronKeyCardano.CLI.Read
RequiredSignerErrorFileCardano.CLI.Read
RequiredSignerHashCardano.CLI.Types.Common
RequiredSignerSkeyFileCardano.CLI.Types.Common
retiringEpochCardano.CLI.Types.Common
runAddressBuildCmdCardano.CLI.EraBased.Run.Address
runAddressCmdsCardano.CLI.EraBased.Run.Address
runAddressInfoCmdCardano.CLI.EraBased.Run.Address.Info
runAddressKeyGenCmdCardano.CLI.EraBased.Run.Address
runAddressKeyHashCmdCardano.CLI.EraBased.Run.Address
runAnyEraCommandCardano.CLI.EraBased.Run
runByronClientCommandCardano.CLI.Byron.Run
runClientCommandCardano.CLI.Run
runCmdsCardano.CLI.EraBased.Run
runConvertByronGenesisVKeyCmdCardano.CLI.EraBased.Run.Key
runConvertByronKeyCmdCardano.CLI.EraBased.Run.Key
runConvertCardanoAddressKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNBip32KeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runConvertITNKeyCmdCardano.CLI.EraBased.Run.Key
runGenesisAddrCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCmdsCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCardanoCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisCreateStakedCmdCardano.CLI.EraBased.Run.Genesis
runGenesisHashFileCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenDelegateCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenGenesisCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyGenUTxOCmdCardano.CLI.EraBased.Run.Genesis
runGenesisKeyHashCmdCardano.CLI.EraBased.Run.Genesis
runGenesisTxInCmdCardano.CLI.EraBased.Run.Genesis
runGenesisVerKeyCmdCardano.CLI.EraBased.Run.Genesis
runGovernanceActionCmdsCardano.CLI.EraBased.Run.Governance.Actions
runGovernanceAnswerPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceCmdsCardano.CLI.EraBased.Run.Governance, Cardano.CLI.EraBased.Run
runGovernanceCommitteeCmdsCardano.CLI.EraBased.Run.Governance.Committee
runGovernanceCreateMirCertificateTransferToReservesCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreateMirCertificateTransferToTreasuryCmdCardano.CLI.EraBased.Run.Governance
runGovernanceCreatePollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceDRepCmdsCardano.CLI.EraBased.Run.Governance.DRep
runGovernanceGenesisKeyDelegationCertificateCardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate
runGovernanceHashCmdsCardano.CLI.EraBased.Run.Governance.Hash
runGovernanceMIRCertificatePayStakeAddrsCardano.CLI.EraBased.Run.Governance
runGovernancePollCmdsCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVerifyPollCmdCardano.CLI.EraBased.Run.Governance.Poll
runGovernanceVoteCmdsCardano.CLI.EraBased.Run.Governance.Vote
runKeyCmdsCardano.CLI.EraBased.Run.Key
runLegacyAddressCmdsCardano.CLI.Legacy.Run.Address
runLegacyCmdsCardano.CLI.Legacy.Run
runLegacyGenesisCmdsCardano.CLI.Legacy.Run.Genesis
runLegacyGovernanceCmdsCardano.CLI.Legacy.Run.Governance
runLegacyKeyCmdsCardano.CLI.Legacy.Run.Key
runLegacyNodeCmdsCardano.CLI.Legacy.Run.Node
runLegacyQueryCmdsCardano.CLI.Legacy.Run.Query
runLegacyStakeAddressCmdsCardano.CLI.Legacy.Run.StakeAddress
runLegacyStakePoolCmdsCardano.CLI.Legacy.Run.StakePool
runLegacyTextViewCmdsCardano.CLI.Legacy.Run.TextView
runLegacyTransactionCmdsCardano.CLI.Legacy.Run.Transaction
runNodeCmdsCardano.CLI.EraBased.Run.Node
runNodeIssueOpCertCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenColdCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenKesCmdCardano.CLI.EraBased.Run.Node
runNodeKeyGenVrfCmdCardano.CLI.EraBased.Run.Node
runNodeKeyHashVrfCmdCardano.CLI.EraBased.Run.Node
runNodeNewCounterCmdCardano.CLI.EraBased.Run.Node
runNonExtendedKeyCmdCardano.CLI.EraBased.Run.Key
runPingCmdCardano.CLI.Run.Ping
runProposalCreationCardano.CLI.Byron.UpdateProposal
runQueryCmdsCardano.CLI.EraBased.Run.Query
runQueryConstitutionHashCmdCardano.CLI.EraBased.Run.Query
runQueryKesPeriodInfoCmdCardano.CLI.EraBased.Run.Query
runQueryLeadershipScheduleCmdCardano.CLI.EraBased.Run.Query
runQueryLedgerStateCmdCardano.CLI.EraBased.Run.Query
runQueryPoolStateCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolParametersCmdCardano.CLI.EraBased.Run.Query
runQueryProtocolStateCmdCardano.CLI.EraBased.Run.Query
runQuerySlotNumberCmdCardano.CLI.EraBased.Run.Query
runQueryStakeAddressInfoCmdCardano.CLI.EraBased.Run.Query
runQueryStakeDistributionCmdCardano.CLI.EraBased.Run.Query
runQueryStakePoolsCmdCardano.CLI.EraBased.Run.Query
runQueryStakeSnapshotCmdCardano.CLI.EraBased.Run.Query
runQueryTipCmdCardano.CLI.EraBased.Run.Query
runQueryTxMempoolCmdCardano.CLI.EraBased.Run.Query
runQueryUTxOCmdCardano.CLI.EraBased.Run.Query
runStakeAddressBuildCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressCmdsCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyGenCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressKeyHashCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Run.StakeAddress
runStakePoolCmdsCardano.CLI.EraBased.Run.StakePool
runStakePoolDeregistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolIdCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolMetadataHashCmdCardano.CLI.EraBased.Run.StakePool
runStakePoolRegistrationCertificateCmdCardano.CLI.EraBased.Run.StakePool
runTextViewCmdsCardano.CLI.EraBased.Run.TextView
runTextViewInfoCmdCardano.CLI.EraBased.Run.TextView
runTransactionBuildCmdCardano.CLI.EraBased.Run.Transaction
runTransactionBuildRawCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinFeeCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCalculateMinValueCmdCardano.CLI.EraBased.Run.Transaction
runTransactionCmdsCardano.CLI.EraBased.Run.Transaction
runTransactionHashScriptDataCmdCardano.CLI.EraBased.Run.Transaction
runTransactionPolicyIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSignWitnessCmdCardano.CLI.EraBased.Run.Transaction
runTransactionSubmitCmdCardano.CLI.EraBased.Run.Transaction
runTransactionTxIdCmdCardano.CLI.EraBased.Run.Transaction
runTransactionViewCmdCardano.CLI.EraBased.Run.Transaction
runTransactionWitnessCmdCardano.CLI.EraBased.Run.Transaction
runVerificationKeyCmdCardano.CLI.EraBased.Run.Key
runVoteCreationCardano.CLI.Byron.Vote
\ No newline at end of file diff --git a/doc-index-S.html b/doc-index-S.html new file mode 100644 index 0000000000..c6e04a9d9a --- /dev/null +++ b/doc-index-S.html @@ -0,0 +1 @@ +cardano-cli API (Index - S)
cardano-cli API

Index - S

ScriptCostOutput 
1 (Data Constructor)Cardano.CLI.Types.Output
2 (Type/Class)Cardano.CLI.Types.Output
ScriptDataCborFileCardano.CLI.Types.Common
ScriptDataErrorCardano.CLI.Read
ScriptDataErrorConversionCardano.CLI.Read
ScriptDataErrorFileCardano.CLI.Read
ScriptDataErrorJsonBytesCardano.CLI.Read
ScriptDataErrorJsonParseCardano.CLI.Read
ScriptDataErrorMetadataDecodeCardano.CLI.Read
ScriptDataErrorValidationCardano.CLI.Read
ScriptDataJsonFileCardano.CLI.Types.Common
ScriptDataOrFileCardano.CLI.Types.Common
ScriptDataValueCardano.CLI.Types.Common
ScriptDatumOrFileCardano.CLI.Types.Common
ScriptDatumOrFileForTxInCardano.CLI.Types.Common
ScriptDecodeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeSimpleScriptErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptDecodeTextEnvelopeErrorCardano.CLI.Types.Errors.ScriptDecodeError, Cardano.CLI.Read
ScriptFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
scriptHashReaderCardano.CLI.Read
ScriptInvalidCardano.CLI.Byron.Tx
ScriptRedeemerOrFileCardano.CLI.Types.Common
ScriptValidCardano.CLI.Byron.Tx
ScriptValidityCardano.CLI.Byron.Tx
ScriptValidityNotSupportedCardano.CLI.Types.Errors.TxValidationError
ScriptWitnessErrorCardano.CLI.Read
ScriptWitnessErrorExpectedPlutusCardano.CLI.Read
ScriptWitnessErrorExpectedSimpleCardano.CLI.Read
ScriptWitnessErrorFileCardano.CLI.Read
ScriptWitnessErrorReferenceScriptsNotSupportedInEraCardano.CLI.Read
ScriptWitnessErrorScriptDataCardano.CLI.Read
ScriptWitnessErrorScriptLanguageNotSupportedInEraCardano.CLI.Read
ScriptWitnessFilesCardano.CLI.Types.Common
SeekFromEndCardano.CLI.OS.Posix
SeekModeCardano.CLI.OS.Posix
sequenceMCardano.CLI.IO.Lazy
serialiseByronWitnessCardano.CLI.Byron.Delegation
serialiseDelegationCertCardano.CLI.Byron.Delegation
setFdModeCardano.CLI.OS.Posix
setFdOptionCardano.CLI.OS.Posix
setFdOwnerAndGroupCardano.CLI.OS.Posix
setFdSizeCardano.CLI.OS.Posix
setFdTimesHiResCardano.CLI.OS.Posix
setFileCreationMaskCardano.CLI.OS.Posix
setFileModeCardano.CLI.OS.Posix
setFileSizeCardano.CLI.OS.Posix
setFileTimesCardano.CLI.OS.Posix
setFileTimesHiResCardano.CLI.OS.Posix
setGroupIDModeCardano.CLI.OS.Posix
setLockCardano.CLI.OS.Posix
setOwnerAndGroupCardano.CLI.OS.Posix
SetOwnerAndGroupIsRestrictedCardano.CLI.OS.Posix
setSymbolicLinkOwnerAndGroupCardano.CLI.OS.Posix
setSymbolicLinkTimesHiResCardano.CLI.OS.Posix
setUserIDModeCardano.CLI.OS.Posix
ShelleyAddressInvalidCardano.CLI.Types.Errors.AddressInfoError
ShelleyBootstrapWitnessSigningKeyData 
1 (Data Constructor)Cardano.CLI.Read
2 (Type/Class)Cardano.CLI.Read
ShelleyToBabbageDelegTargetCardano.CLI.Types.Key
SigningKeyDeserialisationFailedCardano.CLI.Byron.Key
SigningKeyFileCardano.CLI.Types.Common
SimpleReferenceScriptWitnessFilesCardano.CLI.Types.Common
SimpleScriptWitnessFileCardano.CLI.Types.Common
SlotsTillKesKeyExpiry 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
socketModeCardano.CLI.OS.Posix
SomeKeyFileCardano.CLI.Types.Common
SomeSigningKeyCardano.CLI.Types.Key
SomeSigningWitnessCardano.CLI.Read
specialDeviceIDCardano.CLI.OS.Posix
SpendGenesisUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SpendUTxOCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
spoPoolOwnerKeysCardano.CLI.Types.Key
sprMetadataCardano.CLI.Types.Key
sprNetworkIdCardano.CLI.Types.Key
sprPoolCostCardano.CLI.Types.Key
sprPoolMarginCardano.CLI.Types.Key
sprPoolPledgeCardano.CLI.Types.Key
sprRelaysCardano.CLI.Types.Key
sprRewardAccountKeyCardano.CLI.Types.Key
sprStakePoolKeyCardano.CLI.Types.Key
sprVrfKeyCardano.CLI.Types.Key
StakeAddressBuildCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressCmdDelegationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdReadScriptFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdRegistrationErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakeAddress
StakeAddressCmdStakeCredentialErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressCmdWriteFileErrorCardano.CLI.Types.Errors.StakeAddressCmdError
StakeAddressDelegationCertificateCmdCardano.CLI.Legacy.Commands.StakeAddress
StakeAddressDelegationErrorCardano.CLI.Types.Errors.StakeAddressDelegationError
StakeAddressDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressKeyGenCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressKeyHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakeAddress
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakeAddress
StakeAddressRegistrationDepositRequiredCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressRegistrationErrorCardano.CLI.Types.Errors.StakeAddressRegistrationError
StakeAddressStakeAndVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressStakeDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeAddressVoteDelegationCertificateCmdCardano.CLI.EraBased.Commands.StakeAddress
StakeCredentialErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialInputDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredentialScriptDecodeErrorCardano.CLI.Types.Errors.StakeCredentialError
StakeCredGovCmdErrorCardano.CLI.Types.Errors.GovernanceCmdError
StakeIdentifierCardano.CLI.Types.Key
StakeIdentifierAddressCardano.CLI.Types.Key
StakeIdentifierVerifierCardano.CLI.Types.Key
StakePoolCmdErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdMetadataValidationErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmdReadKeyFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolCmdWriteFileErrorCardano.CLI.Types.Errors.StakePoolCmdError
StakePoolDeregistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolDeregistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolMetadataFileCardano.CLI.Types.Common
StakePoolMetadataHashCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolMetadataHashCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationCertificateCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Data Constructor)Cardano.CLI.Legacy.Commands.StakePool
StakePoolRegistrationCertificateCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.StakePool
2 (Type/Class)Cardano.CLI.EraBased.Commands.StakePool
StakePoolRegistrationParserRequirements 
1 (Data Constructor)Cardano.CLI.Types.Key
2 (Type/Class)Cardano.CLI.Types.Key
StakeTargetCardano.CLI.Types.Key
StakeVerifierCardano.CLI.Types.Key
StakeVerifierKeyCardano.CLI.Types.Key
StakeVerifierScriptFileCardano.CLI.Types.Key
stakeVkeyDescCardano.CLI.EraBased.Run.Key
statusChangeTimeCardano.CLI.OS.Posix
statusChangeTimeHiResCardano.CLI.OS.Posix
stderrCardano.CLI.OS.Posix
stdErrorCardano.CLI.OS.Posix
stdFileModeCardano.CLI.OS.Posix
stdinCardano.CLI.OS.Posix
stdInputCardano.CLI.OS.Posix
stdoutCardano.CLI.OS.Posix
stdOutputCardano.CLI.OS.Posix
subInfoParserCardano.CLI.EraBased.Options.Common
submitByronUpdateProposalCardano.CLI.Byron.UpdateProposal
submitByronVoteCardano.CLI.Byron.Vote
SubmitTxCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitUpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
SubmitVoteCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
subParserCardano.CLI.EraBased.Options.Common
SymbolicLinkLimitCardano.CLI.OS.Posix
symbolicLinkModeCardano.CLI.OS.Posix
SynchronousWritesCardano.CLI.OS.Posix
SyncIOAvailableCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-T.html b/doc-index-T.html new file mode 100644 index 0000000000..2f0bd5e0fb --- /dev/null +++ b/doc-index-T.html @@ -0,0 +1 @@ +cardano-cli API (Index - T)
cardano-cli API

Index - T

TargetAlwaysAbstainCardano.CLI.Types.Key
TargetAlwaysNoConfidenceCardano.CLI.Types.Key
TargetStakePoolCardano.CLI.Types.Key
TargetVotingDrepCardano.CLI.Types.Key
TargetVotingDrepAndStakePoolCardano.CLI.Types.Key
TargetVotingDRepScriptHashCardano.CLI.Types.Key
TextEncodingCardano.CLI.OS.Posix
TextViewCBORPrettyPrintErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.TextView
TextViewFileErrorCardano.CLI.Types.Errors.TextViewFileError
TextViewInfo 
1 (Data Constructor)Cardano.CLI.Legacy.Commands.TextView
2 (Data Constructor)Cardano.CLI.EraBased.Commands.TextView
TextViewReadFileErrorCardano.CLI.Types.Errors.TextViewFileError
toCborTxAuxCardano.CLI.Byron.Tx
toHashCardano.CLI.EraBased.Commands.Governance.Hash
toplevelExceptionHandlerCardano.CLI.TopHandler
touchFdCardano.CLI.OS.Posix
touchFileCardano.CLI.OS.Posix
touchSymbolicLinkCardano.CLI.OS.Posix
toUnitIntervalOrErrCardano.CLI.EraBased.Options.Common
ToVerificationCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
TransactionBuildCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionBuildCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionBuildRawCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionBuildRawCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinFeeCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionCalculateMinFeeCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCalculateMinValueCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionCalculateMinValueCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionCmds 
1 (Data Constructor)Cardano.CLI.EraBased.Commands
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionHashScriptDataCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionHashScriptDataCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionPolicyIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionPolicyIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSignCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSignWitnessCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSignWitnessCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionSubmitCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionSubmitCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionTxIdCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionTxIdCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionViewCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionViewCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransactionWitnessCmd 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Data Constructor)Cardano.CLI.Legacy.Commands.Transaction
TransactionWitnessCmdArgs 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Transaction
2 (Type/Class)Cardano.CLI.EraBased.Commands.Transaction
TransferDirectionCardano.CLI.Types.Common
TransferToReservesCardano.CLI.Types.Common
TransferToTreasuryCardano.CLI.Types.Common
traverseMCardano.CLI.IO.Lazy
traverseStateMCardano.CLI.IO.Lazy
truncCardano.CLI.OS.Posix
tryExecCardanoCLITest.Cardano.CLI.Util
TxCardano.CLI.Byron.Tx
TxAuxScriptsLanguageErrorCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsNotSupportedInEraCardano.CLI.Types.Errors.TxValidationError
TxAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxBodyFileCardano.CLI.Types.Common
TxBuildOutputOptionsCardano.CLI.Types.Common
TxByronWitnessCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxCertificatesValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxCertificatesValidationNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxCmdAuxScriptsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdBalanceTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdBootstrapWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdByronEraCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdCddlWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdConstitutionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdMetadataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdNotImplementedCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptCostErrCardano.CLI.Types.Errors.TxCmdError
TxCmdPlutusScriptsRequireCardanoModeCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsExcessCardano.CLI.Types.Errors.TxCmdError
TxCmdPolicyIdsMissingCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamExecutionUnitsNotAvailableCardano.CLI.Types.Errors.TxCmdError
TxCmdPParamsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersNotPresentInTxBodyCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsConverstionErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdProtocolParamsErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryConvenienceErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdQueryNotScriptLockedCardano.CLI.Types.Errors.TxCmdError
TxCmdReadTextViewFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReadWitnessSigningDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignerErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptDataErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptFileErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptValidityValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdScriptWitnessErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTextEnvCddlErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxBodyErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxCertificatesValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxExecUnitsErrCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeatureMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxFeeValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxInsDoNotExistCardano.CLI.Types.Errors.TxCmdError
TxCmdTxNodeEraMismatchErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxSubmitErrorEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdTxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdTxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdVoteErrorCardano.CLI.Types.Errors.TxCmdError
TxCmdWitnessEraMismatchCardano.CLI.Types.Errors.TxCmdError
TxCmdWriteFileErrorCardano.CLI.Types.Errors.TxCmdError
TxDeserialisationFailedCardano.CLI.Byron.Tx
TxFeatureCardano.CLI.Types.TxFeature
TxFeatureAuxScriptsCardano.CLI.Types.TxFeature
TxFeatureCertificatesCardano.CLI.Types.TxFeature
TxFeatureCollateralCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesCardano.CLI.Types.TxFeature
TxFeatureExplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureExtraKeyWitsCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesCardano.CLI.Types.TxFeature
TxFeatureImplicitFeesECardano.CLI.Types.Errors.TxValidationError
TxFeatureInlineDatumsCardano.CLI.Types.TxFeature
TxFeatureMintValueCardano.CLI.Types.TxFeature
TxFeatureMultiAssetOutputsCardano.CLI.Types.TxFeature
TxFeatureProtocolParametersCardano.CLI.Types.TxFeature
TxFeatureReferenceInputsCardano.CLI.Types.TxFeature
TxFeatureReturnCollateralCardano.CLI.Types.TxFeature
TxFeatureScriptValidityCardano.CLI.Types.TxFeature
TxFeatureScriptWitnessesCardano.CLI.Types.TxFeature
TxFeatureShelleyAddressesCardano.CLI.Types.TxFeature
TxFeatureShelleyKeysCardano.CLI.Types.TxFeature
TxFeatureTotalCollateralCardano.CLI.Types.TxFeature
TxFeatureTxMetadataCardano.CLI.Types.TxFeature
TxFeatureTxOutDatumCardano.CLI.Types.TxFeature
TxFeatureValidityLowerBoundCardano.CLI.Types.TxFeature
TxFeatureValidityNoUpperBoundCardano.CLI.Types.TxFeature
TxFeatureValidityUpperBoundCardano.CLI.Types.TxFeature
TxFeatureWithdrawalsCardano.CLI.Types.TxFeature
TxFeeValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Tx
TxInCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxMempoolQueryCardano.CLI.Types.Common
TxMempoolQueryInfoCardano.CLI.Types.Common
TxMempoolQueryNextTxCardano.CLI.Types.Common
TxMempoolQueryTxExistsCardano.CLI.Types.Common
TxOutAnyEra 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutChangeAddress 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
TxOutDatumAnyEraCardano.CLI.Types.Common
TxOutDatumByHashOfCardano.CLI.Types.Common
TxOutDatumByHashOnlyCardano.CLI.Types.Common
TxOutDatumByNoneCardano.CLI.Types.Common
TxOutDatumByValueCardano.CLI.Types.Common
TxOutInlineDatumByValueCardano.CLI.Types.Common
TxProtocolParametersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxRequiredSignersValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxReturnCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxScriptValidityValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxShelleyWitnessCount 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
txSpendGenesisUTxOByronPBFTCardano.CLI.Byron.Tx
txSpendUTxOByronPBFTCardano.CLI.Byron.Tx
TxTotalCollateralNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxTotalCollateralValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxUpdateProposalValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityLowerBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxValidityUpperBoundValidationErrorCardano.CLI.Types.Errors.TxValidationError
TxViewOutputFormatCardano.CLI.Types.Common
TxViewOutputFormatJsonCardano.CLI.Types.Common
TxViewOutputFormatYamlCardano.CLI.Types.Common
TxWithdrawalsNotSupportedCardano.CLI.Types.Errors.TxValidationError
TxWithdrawalsValidationErrorCardano.CLI.Types.Errors.TxValidationError
\ No newline at end of file diff --git a/doc-index-U.html b/doc-index-U.html new file mode 100644 index 0000000000..5b8368dc36 --- /dev/null +++ b/doc-index-U.html @@ -0,0 +1 @@ +cardano-cli API (Index - U)
cardano-cli API

Index - U

unAnyVerificationKeyTextCardano.CLI.Types.Key.VerificationKey
unCddlTxCardano.CLI.Read
unCertificateFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Commands
unConstitutionTextCardano.CLI.Types.Common
unConstitutionUrlCardano.CLI.Types.Common
unCurrentKesPeriodCardano.CLI.Types.Common
unFileCardano.CLI.Types.Common
unGenesisFileCardano.CLI.Types.Common
unionFileModesCardano.CLI.OS.Posix
universalNewlineModeCardano.CLI.OS.Posix
UnlockCardano.CLI.OS.Posix
unOpCertEndingKesPeriodCardano.CLI.Types.Common
unOpCertNodeStateCounterCardano.CLI.Types.Common
unOpCertOnDiskCounterCardano.CLI.Types.Common
unOpCertStartingKesPeriodCardano.CLI.Types.Common
unProposalTextCardano.CLI.Types.Common
unProposalUrlCardano.CLI.Types.Common
unScriptFileCardano.CLI.Types.Common
unSlotsTillKesKeyExpiryCardano.CLI.Types.Common
unUpdateProposalFileCardano.CLI.Types.Common
unVoteTextCardano.CLI.Types.Common
unVoteUrlCardano.CLI.Types.Common
UnwitnessedCliFormattedTxBodyCardano.CLI.Read
UpdateProposalCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
UpdateProposalDecodingErrorCardano.CLI.Byron.UpdateProposal
UpdateProposalFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
UpdateProtocolParametersConwayOnwards 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
UpdateProtocolParametersPreConway 
1 (Data Constructor)Cardano.CLI.EraBased.Commands.Governance.Actions
2 (Type/Class)Cardano.CLI.EraBased.Commands.Governance.Actions
utf16Cardano.CLI.OS.Posix
utf16beCardano.CLI.OS.Posix
utf16leCardano.CLI.OS.Posix
utf32Cardano.CLI.OS.Posix
utf32beCardano.CLI.OS.Posix
utf32leCardano.CLI.OS.Posix
utf8Cardano.CLI.OS.Posix
utf8_bomCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-V.html b/doc-index-V.html new file mode 100644 index 0000000000..2dec38730e --- /dev/null +++ b/doc-index-V.html @@ -0,0 +1 @@ +cardano-cli API (Index - V)
cardano-cli API

Index - V

ValidateCBORCardano.CLI.Byron.Commands, Cardano.CLI.Byron.Parsers
validateCBORCardano.CLI.Helpers
validateProtocolParametersCardano.CLI.Types.Errors.TxValidationError
validateRequiredSignersCardano.CLI.Types.Errors.TxValidationError
validateScriptSupportedInEraCardano.CLI.Types.Errors.TxValidationError
validateTxAuxScriptsCardano.CLI.Types.Errors.TxValidationError
validateTxCertificatesCardano.CLI.Types.Errors.TxValidationError
validateTxFeeCardano.CLI.Types.Errors.TxValidationError
validateTxReturnCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxScriptValidityCardano.CLI.Types.Errors.TxValidationError
validateTxTotalCollateralCardano.CLI.Types.Errors.TxValidationError
validateTxValidityLowerBoundCardano.CLI.Types.Errors.TxValidationError
validateTxValidityUpperBoundCardano.CLI.Types.Errors.TxValidationError
validateTxWithdrawalsCardano.CLI.Types.Errors.TxValidationError
validateUpdateProposalFileCardano.CLI.Types.Errors.TxValidationError
VCCCardano.CLI.Types.Governance
VDisableCharCardano.CLI.OS.Posix
VDRCardano.CLI.Types.Governance
VerificationKeyBase64 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VerificationKeyDeserialisationFailedCardano.CLI.Byron.Key
VerificationKeyFileCardano.CLI.Types.Common, Cardano.CLI.Byron.Key, Cardano.CLI.Byron.Commands
VerificationKeyFileErrorCardano.CLI.Types.Key
VerificationKeyFilePathCardano.CLI.Types.Key
VerificationKeyHashCardano.CLI.Types.Key
VerificationKeyOrFile 
1 (Type/Class)Cardano.CLI.Types.Key
2 (Data Constructor)Cardano.CLI.Types.Key
VerificationKeyOrHashOrFileCardano.CLI.Types.Key
VerificationKeyTextErrorCardano.CLI.Types.Key
VerificationKeyTextOrFileCardano.CLI.Types.Key
VerificationKeyTextOrFileErrorCardano.CLI.Types.Key
VerificationKeyValueCardano.CLI.Types.Key
versionPaths_cardano_cli
VktofVerificationKeyFileCardano.CLI.Types.Key
VktofVerificationKeyTextCardano.CLI.Types.Key
VoteDelegationNotSupportedCardano.CLI.Types.Errors.StakeAddressDelegationError
VoteDelegationTargetCardano.CLI.Types.Governance
VoteDelegationTargetOfAbstainCardano.CLI.Types.Governance
VoteDelegationTargetOfDRepCardano.CLI.Types.Governance
VoteDelegationTargetOfNoConfidenceCardano.CLI.Types.Governance
VoteErrorCardano.CLI.Read
VoteErrorFileCardano.CLI.Read
VoteErrorTextNotUnicodeCardano.CLI.Read
VoteFileCardano.CLI.Types.Governance
VoteHashSourceCardano.CLI.Types.Common
VoteHashSourceFileCardano.CLI.Types.Common
VoteHashSourceHashCardano.CLI.Types.Common
VoteHashSourceTextCardano.CLI.Types.Common
VoteText 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VoteUrl 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
VotingCredentialDecodeGovCmdErorCardano.CLI.Types.Errors.GovernanceCmdError
VSPCardano.CLI.Types.Governance
VTypeCardano.CLI.Types.Governance
\ No newline at end of file diff --git a/doc-index-W.html b/doc-index-W.html new file mode 100644 index 0000000000..110a1b2df5 --- /dev/null +++ b/doc-index-W.html @@ -0,0 +1 @@ +cardano-cli API (Index - W)
cardano-cli API

Index - W

waitToSetLockCardano.CLI.OS.Posix
whiteCardano.CLI.Pretty
withBinaryFileCardano.CLI.OS.Posix
withFileCardano.CLI.OS.Posix
withSndTest.Cardano.CLI.Util
withSomeSigningKeyCardano.CLI.Types.Key
WitnessFile 
1 (Data Constructor)Cardano.CLI.Types.Common
2 (Type/Class)Cardano.CLI.Types.Common
WitnessSigningDataCardano.CLI.Types.Common
writeFileCardano.CLI.OS.Posix
WriteFileErrorCardano.CLI.Types.Errors.GovernanceCmdError
WriteLockCardano.CLI.OS.Posix
WriteModeCardano.CLI.OS.Posix
WriteOnlyCardano.CLI.OS.Posix
\ No newline at end of file diff --git a/doc-index-Y.html b/doc-index-Y.html new file mode 100644 index 0000000000..b154cc746a --- /dev/null +++ b/doc-index-Y.html @@ -0,0 +1 @@ +cardano-cli API (Index - Y)
cardano-cli API

Index - Y

yellowCardano.CLI.Pretty
\ No newline at end of file diff --git a/doc-index.html b/doc-index.html new file mode 100644 index 0000000000..e356575a3a --- /dev/null +++ b/doc-index.html @@ -0,0 +1 @@ +cardano-cli API (Index)
cardano-cli API
\ No newline at end of file diff --git a/doc-index.json b/doc-index.json new file mode 100644 index 0000000000..a95024d68f --- /dev/null +++ b/doc-index.json @@ -0,0 +1,5894 @@ +[ + { + "display_html": "newtype LegacyDelegateKey = LegacyDelegateKey {}", + "name": "LegacyDelegateKey LegacyDelegateKey lrkSigningKey", + "module": "Cardano.CLI.Byron.Legacy", + "link": "lib/Cardano-CLI-Byron-Legacy.html#t:LegacyDelegateKey" + }, + { + "display_html": "encodeLegacyDelegateKey ∷ LegacyDelegateKey → Encoding", + "name": "encodeLegacyDelegateKey", + "module": "Cardano.CLI.Byron.Legacy", + "link": "lib/Cardano-CLI-Byron-Legacy.html#v:encodeLegacyDelegateKey" + }, + { + "display_html": "decodeLegacyDelegateKey ∷ Decoder s LegacyDelegateKey", + "name": "decodeLegacyDelegateKey", + "module": "Cardano.CLI.Byron.Legacy", + "link": "lib/Cardano-CLI-Byron-Legacy.html#v:decodeLegacyDelegateKey" + }, + { + "display_html": "data EnvCli = EnvCli {}", + "name": "EnvCli EnvCli envCliNetworkId envCliSocketPath envCliAnyCardanoEra", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#t:EnvCli" + }, + { + "display_html": "envCliAnyShelleyBasedEra ∷ EnvCli → Maybe (EraInEon ShelleyBasedEra)", + "name": "envCliAnyShelleyBasedEra", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#v:envCliAnyShelleyBasedEra" + }, + { + "display_html": "envCliAnyShelleyToBabbageEra ∷ EnvCli → Maybe (EraInEon ShelleyToBabbageEra)", + "name": "envCliAnyShelleyToBabbageEra", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#v:envCliAnyShelleyToBabbageEra" + }, + { + "display_html": "getEnvCli ∷ IO EnvCli", + "name": "getEnvCli", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#v:getEnvCli" + }, + { + "display_html": "getEnvNetworkId ∷ IO (Maybe NetworkId)", + "name": "getEnvNetworkId", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#v:getEnvNetworkId" + }, + { + "display_html": "getEnvSocketPath ∷ IO (Maybe FilePath)", + "name": "getEnvSocketPath", + "module": "Cardano.CLI.Environment", + "link": "lib/Cardano-CLI-Environment.html#v:getEnvSocketPath" + }, + { + "display_html": "data GovernancePollCmds era", + "name": "GovernancePollCmds GovernanceCreatePoll GovernanceAnswerPoll GovernanceVerifyPoll", + "module": "Cardano.CLI.EraBased.Commands.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernancePollCmds" + }, + { + "display_html": "renderGovernancePollCmds ∷ GovernancePollCmds era → Text", + "name": "renderGovernancePollCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html#v:renderGovernancePollCmds" + }, + { + "display_html": "data GovernanceCreatePollCmdArgs era = GovernanceCreatePollCmdArgs {}", + "name": "GovernanceCreatePollCmdArgs GovernanceCreatePollCmdArgs $sel:prompt:GovernanceCreatePollCmdArgs $sel:nonce:GovernanceCreatePollCmdArgs $sel:choices:GovernanceCreatePollCmdArgs $sel:eon:GovernanceCreatePollCmdArgs $sel:outFile:GovernanceCreatePollCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceCreatePollCmdArgs" + }, + { + "display_html": "data GovernanceAnswerPollCmdArgs era = GovernanceAnswerPollCmdArgs {}", + "name": "GovernanceAnswerPollCmdArgs GovernanceAnswerPollCmdArgs $sel:eon:GovernanceAnswerPollCmdArgs $sel:pollFile:GovernanceAnswerPollCmdArgs $sel:answerIndex:GovernanceAnswerPollCmdArgs $sel:mOutFile:GovernanceAnswerPollCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceAnswerPollCmdArgs" + }, + { + "display_html": "data GovernanceVerifyPollCmdArgs era = GovernanceVerifyPollCmdArgs {}", + "name": "GovernanceVerifyPollCmdArgs GovernanceVerifyPollCmdArgs $sel:eon:GovernanceVerifyPollCmdArgs $sel:pollFile:GovernanceVerifyPollCmdArgs $sel:mOutFile:GovernanceVerifyPollCmdArgs $sel:txFile:GovernanceVerifyPollCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Poll.html#t:GovernanceVerifyPollCmdArgs" + }, + { + "display_html": "data TextViewCmds era = TextViewInfo !FilePath (Maybe (File () Out))", + "name": "TextViewCmds TextViewInfo", + "module": "Cardano.CLI.EraBased.Commands.TextView", + "link": "lib/Cardano-CLI-EraBased-Commands-TextView.html#t:TextViewCmds" + }, + { + "display_html": "renderTextViewCmds ∷ TextViewCmds era → Text", + "name": "renderTextViewCmds", + "module": "Cardano.CLI.EraBased.Commands.TextView", + "link": "lib/Cardano-CLI-EraBased-Commands-TextView.html#v:renderTextViewCmds" + }, + { + "display_html": "gitRev ∷ Text", + "name": "gitRev", + "module": "Cardano.CLI.IO.GitRev", + "link": "lib/Cardano-CLI-IO-GitRev.html#v:gitRev" + }, + { + "display_html": "replicateM ∷ MonadUnliftIO m ⇒ Int → m a → m [a]", + "name": "replicateM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:replicateM" + }, + { + "display_html": "sequenceM ∷ MonadUnliftIO m ⇒ [m a] → m [a]", + "name": "sequenceM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:sequenceM" + }, + { + "display_html": "traverseM ∷ MonadUnliftIO m ⇒ (a → m b) → [a] → m [b]", + "name": "traverseM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:traverseM" + }, + { + "display_html": "traverseStateM ∷ ∀ m s a b. MonadUnliftIO m ⇒ s → (s → a → m (s, b)) → [a] → m [b]", + "name": "traverseStateM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:traverseStateM" + }, + { + "display_html": "forM ∷ MonadUnliftIO m ⇒ [a] → (a → m b) → m [b]", + "name": "forM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:forM" + }, + { + "display_html": "forStateM ∷ MonadUnliftIO m ⇒ s → [a] → (s → a → m (s, b)) → m [b]", + "name": "forStateM", + "module": "Cardano.CLI.IO.Lazy", + "link": "lib/Cardano-CLI-IO-Lazy.html#v:forStateM" + }, + { + "display_html": "friendlyTx ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → Tx era → m (Either (FileError e) ())", + "name": "friendlyTx", + "module": "Cardano.CLI.Json.Friendly", + "link": "lib/Cardano-CLI-Json-Friendly.html#v:friendlyTx" + }, + { + "display_html": "friendlyTxBody ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → CardanoEra era → TxBody era → m (Either (FileError e) ())", + "name": "friendlyTxBody", + "module": "Cardano.CLI.Json.Friendly", + "link": "lib/Cardano-CLI-Json-Friendly.html#v:friendlyTxBody" + }, + { + "display_html": "friendlyProposal ∷ MonadIO m ⇒ FriendlyFormat → Maybe (File () Out) → ConwayEraOnwards era → Proposal era → m (Either (FileError e) ())", + "name": "friendlyProposal", + "module": "Cardano.CLI.Json.Friendly", + "link": "lib/Cardano-CLI-Json-Friendly.html#v:friendlyProposal" + }, + { + "display_html": "data FriendlyFormat", + "name": "FriendlyFormat FriendlyJson FriendlyYaml", + "module": "Cardano.CLI.Json.Friendly", + "link": "lib/Cardano-CLI-Json-Friendly.html#t:FriendlyFormat" + }, + { + "display_html": "data LegacyTextViewCmds = TextViewInfo !FilePath (Maybe (File () Out))", + "name": "LegacyTextViewCmds TextViewInfo", + "module": "Cardano.CLI.Legacy.Commands.TextView", + "link": "lib/Cardano-CLI-Legacy-Commands-TextView.html#t:LegacyTextViewCmds" + }, + { + "display_html": "renderLegacyTextViewCmds ∷ LegacyTextViewCmds → Text", + "name": "renderLegacyTextViewCmds", + "module": "Cardano.CLI.Legacy.Commands.TextView", + "link": "lib/Cardano-CLI-Legacy-Commands-TextView.html#v:renderLegacyTextViewCmds" + }, + { + "display_html": "module System.IO", + "name": "", + "module": "Cardano.CLI.OS.Posix", + "link": "lib/" + }, + { + "display_html": "module System.Posix.IO", + "name": "", + "module": "Cardano.CLI.OS.Posix", + "link": "lib/" + }, + { + "display_html": "module System.Posix.Files", + "name": "", + "module": "Cardano.CLI.OS.Posix", + "link": "lib/" + }, + { + "display_html": "type Ann = AnsiStyle", + "name": "Ann", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#t:Ann" + }, + { + "display_html": "putLn ∷ MonadIO m ⇒ Doc AnsiStyle → m ()", + "name": "putLn", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:putLn" + }, + { + "display_html": "hPutLn ∷ MonadIO m ⇒ Handle → Doc AnsiStyle → m ()", + "name": "hPutLn", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:hPutLn" + }, + { + "display_html": "renderDefault ∷ Doc AnsiStyle → Text", + "name": "renderDefault", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:renderDefault" + }, + { + "display_html": "renderStringDefault ∷ Doc AnsiStyle → String", + "name": "renderStringDefault", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:renderStringDefault" + }, + { + "display_html": "black ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "black", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:black" + }, + { + "display_html": "red ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "red", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:red" + }, + { + "display_html": "green ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "green", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:green" + }, + { + "display_html": "yellow ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "yellow", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:yellow" + }, + { + "display_html": "blue ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "blue", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:blue" + }, + { + "display_html": "magenta ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "magenta", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:magenta" + }, + { + "display_html": "cyan ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "cyan", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:cyan" + }, + { + "display_html": "white ∷ Doc AnsiStyle → Doc AnsiStyle", + "name": "white", + "module": "Cardano.CLI.Pretty", + "link": "lib/Cardano-CLI-Pretty.html#v:white" + }, + { + "display_html": "customRenderHelp ∷ Int → ParserHelp → String", + "name": "customRenderHelp", + "module": "Cardano.CLI.Render", + "link": "lib/Cardano-CLI-Render.html#v:customRenderHelp" + }, + { + "display_html": "data PingCmd = PingCmd {}", + "name": "PingCmd PingCmd pingOptsHandshakeQuery pingCmdCount pingCmdEndPoint pingCmdPort pingCmdMagic pingCmdJson pingCmdQuiet", + "module": "Cardano.CLI.Run.Ping", + "link": "lib/Cardano-CLI-Run-Ping.html#t:PingCmd" + }, + { + "display_html": "newtype PingClientCmdError = PingClientCmdError [(AddrInfo, SomeException)]", + "name": "PingClientCmdError PingClientCmdError", + "module": "Cardano.CLI.Run.Ping", + "link": "lib/Cardano-CLI-Run-Ping.html#t:PingClientCmdError" + }, + { + "display_html": "renderPingClientCmdError ∷ PingClientCmdError → Text", + "name": "renderPingClientCmdError", + "module": "Cardano.CLI.Run.Ping", + "link": "lib/Cardano-CLI-Run-Ping.html#v:renderPingClientCmdError" + }, + { + "display_html": "runPingCmd ∷ PingCmd → ExceptT PingClientCmdError IO ()", + "name": "runPingCmd", + "module": "Cardano.CLI.Run.Ping", + "link": "lib/Cardano-CLI-Run-Ping.html#v:runPingCmd" + }, + { + "display_html": "parsePingCmd ∷ Parser PingCmd", + "name": "parsePingCmd", + "module": "Cardano.CLI.Run.Ping", + "link": "lib/Cardano-CLI-Run-Ping.html#v:parsePingCmd" + }, + { + "display_html": "toplevelExceptionHandler ∷ IO a → IO a", + "name": "toplevelExceptionHandler", + "module": "Cardano.CLI.TopHandler", + "link": "lib/Cardano-CLI-TopHandler.html#v:toplevelExceptionHandler" + }, + { + "display_html": "data AllOrOnly a", + "name": "AllOrOnly Only All", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:AllOrOnly" + }, + { + "display_html": "data AddressKeyType", + "name": "AddressKeyType AddressKeyShelley AddressKeyShelleyExtended AddressKeyByron", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:AddressKeyType" + }, + { + "display_html": "data BalanceTxExecUnits", + "name": "BalanceTxExecUnits AutoBalance ManualBalance", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:BalanceTxExecUnits" + }, + { + "display_html": "newtype BlockId = BlockId String", + "name": "BlockId BlockId", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:BlockId" + }, + { + "display_html": "data ByronKeyFormat", + "name": "ByronKeyFormat NonLegacyByronKeyFormat LegacyByronKeyFormat", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ByronKeyFormat" + }, + { + "display_html": "data ByronKeyType", + "name": "ByronKeyType ByronPaymentKey ByronGenesisKey ByronDelegateKey", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ByronKeyType" + }, + { + "display_html": "data CardanoAddressKeyType", + "name": "CardanoAddressKeyType CardanoAddressShelleyPaymentKey CardanoAddressShelleyStakeKey CardanoAddressIcarusPaymentKey CardanoAddressByronPaymentKey", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:CardanoAddressKeyType" + }, + { + "display_html": "data CBORObject", + "name": "CBORObject CBORBlockByron CBORDelegationCertificateByron CBORTxByron CBORUpdateProposalByron CBORVoteByron", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:CBORObject" + }, + { + "display_html": "newtype CertificateFile = CertificateFile {}", + "name": "CertificateFile CertificateFile unCertificateFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:CertificateFile" + }, + { + "display_html": "data ConstitutionHashSource", + "name": "ConstitutionHashSource ConstitutionHashSourceFile ConstitutionHashSourceText ConstitutionHashSourceHash", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ConstitutionHashSource" + }, + { + "display_html": "newtype ConstitutionText = ConstitutionText {}", + "name": "ConstitutionText ConstitutionText unConstitutionText", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ConstitutionText" + }, + { + "display_html": "newtype ConstitutionUrl = ConstitutionUrl {}", + "name": "ConstitutionUrl ConstitutionUrl unConstitutionUrl", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ConstitutionUrl" + }, + { + "display_html": "newtype CurrentKesPeriod = CurrentKesPeriod {}", + "name": "CurrentKesPeriod CurrentKesPeriod unCurrentKesPeriod", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:CurrentKesPeriod" + }, + { + "display_html": "data EpochLeadershipSchedule", + "name": "EpochLeadershipSchedule CurrentEpoch NextEpoch", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:EpochLeadershipSchedule" + }, + { + "display_html": "newtype File content (direction ∷ FileDirection) = File {}", + "name": "File File unFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:File" + }, + { + "display_html": "data FileDirection", + "name": "FileDirection In InOut Out", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:FileDirection" + }, + { + "display_html": "newtype GenesisDir = GenesisDir FilePath", + "name": "GenesisDir GenesisDir", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:GenesisDir" + }, + { + "display_html": "newtype GenesisFile = GenesisFile {}", + "name": "GenesisFile GenesisFile unGenesisFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:GenesisFile" + }, + { + "display_html": "newtype GenesisKeyFile = GenesisKeyFile FilePath", + "name": "GenesisKeyFile GenesisKeyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:GenesisKeyFile" + }, + { + "display_html": "data GovernanceActionViewOutputFormat", + "name": "GovernanceActionViewOutputFormat GovernanceActionViewOutputFormatJson GovernanceActionViewOutputFormatYaml", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:GovernanceActionViewOutputFormat" + }, + { + "display_html": "data InputTxBodyOrTxFile", + "name": "InputTxBodyOrTxFile InputTxBodyFile InputTxFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:InputTxBodyOrTxFile" + }, + { + "display_html": "data KeyOutputFormat", + "name": "KeyOutputFormat KeyOutputFormatTextEnvelope KeyOutputFormatBech32", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:KeyOutputFormat" + }, + { + "display_html": "data MetadataFile", + "name": "MetadataFile MetadataFileJSON MetadataFileCBOR", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:MetadataFile" + }, + { + "display_html": "data OpCertCounter", + "name": "OpCertCounter", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertCounter" + }, + { + "display_html": "type OpCertCounterFile = File OpCertCounter", + "name": "OpCertCounterFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertCounterFile" + }, + { + "display_html": "newtype OpCertEndingKesPeriod = OpCertEndingKesPeriod {}", + "name": "OpCertEndingKesPeriod OpCertEndingKesPeriod unOpCertEndingKesPeriod", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertEndingKesPeriod" + }, + { + "display_html": "data OpCertIntervalInformation", + "name": "OpCertIntervalInformation OpCertWithinInterval OpCertStartingKesPeriodIsInTheFuture OpCertExpired OpCertSomeOtherError", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertIntervalInformation" + }, + { + "display_html": "data OpCertNodeAndOnDiskCounterInformation", + "name": "OpCertNodeAndOnDiskCounterInformation OpCertOnDiskCounterEqualToNodeState OpCertOnDiskCounterAheadOfNodeState OpCertOnDiskCounterTooFarAheadOfNodeState OpCertOnDiskCounterBehindNodeState OpCertNoBlocksMintedYet", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertNodeAndOnDiskCounterInformation" + }, + { + "display_html": "newtype OpCertNodeStateCounter = OpCertNodeStateCounter {}", + "name": "OpCertNodeStateCounter OpCertNodeStateCounter unOpCertNodeStateCounter", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertNodeStateCounter" + }, + { + "display_html": "newtype OpCertOnDiskCounter = OpCertOnDiskCounter {}", + "name": "OpCertOnDiskCounter OpCertOnDiskCounter unOpCertOnDiskCounter", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertOnDiskCounter" + }, + { + "display_html": "newtype OpCertStartingKesPeriod = OpCertStartingKesPeriod {}", + "name": "OpCertStartingKesPeriod OpCertStartingKesPeriod unOpCertStartingKesPeriod", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:OpCertStartingKesPeriod" + }, + { + "display_html": "data Params crypto = Params {}", + "name": "Params Params poolParameters futurePoolParameters retiringEpoch", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:Params" + }, + { + "display_html": "data ParserFileDirection", + "name": "ParserFileDirection Input Output", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ParserFileDirection" + }, + { + "display_html": "data IdOutputFormat", + "name": "IdOutputFormat IdOutputFormatHex IdOutputFormatBech32", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:IdOutputFormat" + }, + { + "display_html": "newtype PrivKeyFile = PrivKeyFile FilePath", + "name": "PrivKeyFile PrivKeyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:PrivKeyFile" + }, + { + "display_html": "type ProposalFile = File ()", + "name": "ProposalFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ProposalFile" + }, + { + "display_html": "newtype ProposalText = ProposalText {}", + "name": "ProposalText ProposalText unProposalText", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ProposalText" + }, + { + "display_html": "newtype ProposalUrl = ProposalUrl {}", + "name": "ProposalUrl ProposalUrl unProposalUrl", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ProposalUrl" + }, + { + "display_html": "newtype ProtocolParamsFile = ProtocolParamsFile FilePath", + "name": "ProtocolParamsFile ProtocolParamsFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ProtocolParamsFile" + }, + { + "display_html": "data ReferenceScriptAnyEra", + "name": "ReferenceScriptAnyEra ReferenceScriptAnyEra ReferenceScriptAnyEraNone", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ReferenceScriptAnyEra" + }, + { + "display_html": "data RequiredSigner", + "name": "RequiredSigner RequiredSignerSkeyFile RequiredSignerHash", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:RequiredSigner" + }, + { + "display_html": "data ScriptDataOrFile", + "name": "ScriptDataOrFile ScriptDataCborFile ScriptDataJsonFile ScriptDataValue", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ScriptDataOrFile" + }, + { + "display_html": "data ScriptDatumOrFile witctx where", + "name": "ScriptDatumOrFile ScriptDatumOrFileForTxIn InlineDatumPresentAtTxIn NoScriptDatumOrFileForMint NoScriptDatumOrFileForStake", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ScriptDatumOrFile" + }, + { + "display_html": "newtype ScriptFile = ScriptFile {}", + "name": "ScriptFile ScriptFile unScriptFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ScriptFile" + }, + { + "display_html": "type ScriptRedeemerOrFile = ScriptDataOrFile", + "name": "ScriptRedeemerOrFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ScriptRedeemerOrFile" + }, + { + "display_html": "data ScriptWitnessFiles witctx where", + "name": "ScriptWitnessFiles SimpleScriptWitnessFile PlutusScriptWitnessFiles PlutusReferenceScriptWitnessFiles SimpleReferenceScriptWitnessFiles", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:ScriptWitnessFiles" + }, + { + "display_html": "type SigningKeyFile = File (SigningKey ())", + "name": "SigningKeyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:SigningKeyFile" + }, + { + "display_html": "newtype SlotsTillKesKeyExpiry = SlotsTillKesKeyExpiry {}", + "name": "SlotsTillKesKeyExpiry SlotsTillKesKeyExpiry unSlotsTillKesKeyExpiry", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:SlotsTillKesKeyExpiry" + }, + { + "display_html": "data SomeKeyFile direction", + "name": "SomeKeyFile AVerificationKeyFile ASigningKeyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:SomeKeyFile" + }, + { + "display_html": "type StakePoolMetadataFile = File StakePoolMetadata", + "name": "StakePoolMetadataFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:StakePoolMetadataFile" + }, + { + "display_html": "data TransferDirection", + "name": "TransferDirection TransferToReserves TransferToTreasury", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TransferDirection" + }, + { + "display_html": "type TxBodyFile = File (TxBody ())", + "name": "TxBodyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxBodyFile" + }, + { + "display_html": "data TxBuildOutputOptions", + "name": "TxBuildOutputOptions OutputScriptCostOnly OutputTxBodyOnly", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxBuildOutputOptions" + }, + { + "display_html": "newtype TxByronWitnessCount = TxByronWitnessCount Int", + "name": "TxByronWitnessCount TxByronWitnessCount", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxByronWitnessCount" + }, + { + "display_html": "type TxFile = File (Tx ())", + "name": "TxFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxFile" + }, + { + "display_html": "newtype TxInCount = TxInCount Int", + "name": "TxInCount TxInCount", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxInCount" + }, + { + "display_html": "data TxMempoolQuery", + "name": "TxMempoolQuery TxMempoolQueryTxExists TxMempoolQueryNextTx TxMempoolQueryInfo", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxMempoolQuery" + }, + { + "display_html": "data TxOutAnyEra = TxOutAnyEra AddressAny Value TxOutDatumAnyEra ReferenceScriptAnyEra", + "name": "TxOutAnyEra TxOutAnyEra", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxOutAnyEra" + }, + { + "display_html": "newtype TxOutChangeAddress = TxOutChangeAddress AddressAny", + "name": "TxOutChangeAddress TxOutChangeAddress", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxOutChangeAddress" + }, + { + "display_html": "newtype TxOutCount = TxOutCount Int", + "name": "TxOutCount TxOutCount", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxOutCount" + }, + { + "display_html": "data TxOutDatumAnyEra", + "name": "TxOutDatumAnyEra TxOutDatumByHashOnly TxOutDatumByHashOf TxOutDatumByValue TxOutInlineDatumByValue TxOutDatumByNone", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxOutDatumAnyEra" + }, + { + "display_html": "newtype TxShelleyWitnessCount = TxShelleyWitnessCount Int", + "name": "TxShelleyWitnessCount TxShelleyWitnessCount", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxShelleyWitnessCount" + }, + { + "display_html": "data TxViewOutputFormat", + "name": "TxViewOutputFormat TxViewOutputFormatJson TxViewOutputFormatYaml", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:TxViewOutputFormat" + }, + { + "display_html": "newtype UpdateProposalFile = UpdateProposalFile {}", + "name": "UpdateProposalFile UpdateProposalFile unUpdateProposalFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:UpdateProposalFile" + }, + { + "display_html": "newtype VerificationKeyBase64 = VerificationKeyBase64 String", + "name": "VerificationKeyBase64 VerificationKeyBase64", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:VerificationKeyBase64" + }, + { + "display_html": "type VerificationKeyFile = File (VerificationKey ())", + "name": "VerificationKeyFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:VerificationKeyFile" + }, + { + "display_html": "newtype VoteUrl = VoteUrl {}", + "name": "VoteUrl VoteUrl unVoteUrl", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:VoteUrl" + }, + { + "display_html": "newtype VoteText = VoteText {}", + "name": "VoteText VoteText unVoteText", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:VoteText" + }, + { + "display_html": "data VoteHashSource", + "name": "VoteHashSource VoteHashSourceFile VoteHashSourceText VoteHashSourceHash", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:VoteHashSource" + }, + { + "display_html": "newtype WitnessFile = WitnessFile FilePath", + "name": "WitnessFile WitnessFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:WitnessFile" + }, + { + "display_html": "data WitnessSigningData = KeyWitnessSigningData !(SigningKeyFile In) !(Maybe (Address ByronAddr))", + "name": "WitnessSigningData KeyWitnessSigningData", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:WitnessSigningData" + }, + { + "display_html": "type DRepMetadataFile = File DRepMetadata", + "name": "DRepMetadataFile", + "module": "Cardano.CLI.Types.Common", + "link": "lib/Cardano-CLI-Types-Common.html#t:DRepMetadataFile" + }, + { + "display_html": "readerFromAttoParser ∷ Parser a → ReadM a", + "name": "readerFromAttoParser", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readerFromAttoParser" + }, + { + "display_html": "readFractionAsRational ∷ ReadM Rational", + "name": "readFractionAsRational", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readFractionAsRational" + }, + { + "display_html": "readKeyOutputFormat ∷ ReadM KeyOutputFormat", + "name": "readKeyOutputFormat", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readKeyOutputFormat" + }, + { + "display_html": "readIdOutputFormat ∷ ReadM IdOutputFormat", + "name": "readIdOutputFormat", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readIdOutputFormat" + }, + { + "display_html": "readTxViewOutputFormat ∷ ReadM TxViewOutputFormat", + "name": "readTxViewOutputFormat", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readTxViewOutputFormat" + }, + { + "display_html": "readRational ∷ ReadM Rational", + "name": "readRational", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readRational" + }, + { + "display_html": "readRationalUnitInterval ∷ ReadM Rational", + "name": "readRationalUnitInterval", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readRationalUnitInterval" + }, + { + "display_html": "readStringOfMaxLength ∷ Int → ReadM String", + "name": "readStringOfMaxLength", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readStringOfMaxLength" + }, + { + "display_html": "readURIOfMaxLength ∷ Int → ReadM Text", + "name": "readURIOfMaxLength", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readURIOfMaxLength" + }, + { + "display_html": "eDNSName ∷ String → Either String ByteString", + "name": "eDNSName", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:eDNSName" + }, + { + "display_html": "readGovernanceActionViewOutputFormat ∷ ReadM GovernanceActionViewOutputFormat", + "name": "readGovernanceActionViewOutputFormat", + "module": "Cardano.CLI.Parser", + "link": "lib/Cardano-CLI-Parser.html#v:readGovernanceActionViewOutputFormat" + }, + { + "display_html": "data LegacyKeyCmds", + "name": "LegacyKeyCmds KeyVerificationKeyCmd KeyNonExtendedKeyCmd KeyConvertByronKeyCmd KeyConvertByronGenesisVKeyCmd KeyConvertITNKeyCmd KeyConvertITNExtendedKeyCmd KeyConvertITNBip32KeyCmd KeyConvertCardanoAddressKeyCmd", + "module": "Cardano.CLI.Legacy.Commands.Key", + "link": "lib/Cardano-CLI-Legacy-Commands-Key.html#t:LegacyKeyCmds" + }, + { + "display_html": "renderLegacyKeyCmds ∷ LegacyKeyCmds → Text", + "name": "renderLegacyKeyCmds", + "module": "Cardano.CLI.Legacy.Commands.Key", + "link": "lib/Cardano-CLI-Legacy-Commands-Key.html#v:renderLegacyKeyCmds" + }, + { + "display_html": "data LegacyGenesisCmds", + "name": "LegacyGenesisCmds GenesisCreate GenesisCreateCardano GenesisCreateStaked GenesisKeyGenGenesis GenesisKeyGenDelegate GenesisKeyGenUTxO GenesisCmdKeyHash GenesisVerKey GenesisTxIn GenesisAddr GenesisHashFile", + "module": "Cardano.CLI.Legacy.Commands.Genesis", + "link": "lib/Cardano-CLI-Legacy-Commands-Genesis.html#t:LegacyGenesisCmds" + }, + { + "display_html": "renderLegacyGenesisCmds ∷ LegacyGenesisCmds → Text", + "name": "renderLegacyGenesisCmds", + "module": "Cardano.CLI.Legacy.Commands.Genesis", + "link": "lib/Cardano-CLI-Legacy-Commands-Genesis.html#v:renderLegacyGenesisCmds" + }, + { + "display_html": "data HelpersError", + "name": "HelpersError CBORPrettyPrintError CBORDecodingError IOError' OutputMustNotAlreadyExist ReadCBORFileFailure", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#t:HelpersError" + }, + { + "display_html": "printWarning ∷ String → IO ()", + "name": "printWarning", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:printWarning" + }, + { + "display_html": "deprecationWarning ∷ String → IO ()", + "name": "deprecationWarning", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:deprecationWarning" + }, + { + "display_html": "ensureNewFile ∷ (FilePath → a → IO ()) → FilePath → a → ExceptT HelpersError IO ()", + "name": "ensureNewFile", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:ensureNewFile" + }, + { + "display_html": "ensureNewFileLBS ∷ FilePath → ByteString → ExceptT HelpersError IO ()", + "name": "ensureNewFileLBS", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:ensureNewFileLBS" + }, + { + "display_html": "pPrintCBOR ∷ ByteString → ExceptT HelpersError IO ()", + "name": "pPrintCBOR", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:pPrintCBOR" + }, + { + "display_html": "readCBOR ∷ FilePath → ExceptT HelpersError IO ByteString", + "name": "readCBOR", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:readCBOR" + }, + { + "display_html": "renderHelpersError ∷ HelpersError → Text", + "name": "renderHelpersError", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:renderHelpersError" + }, + { + "display_html": "validateCBOR ∷ CBORObject → ByteString → Either HelpersError Text", + "name": "validateCBOR", + "module": "Cardano.CLI.Helpers", + "link": "lib/Cardano-CLI-Helpers.html#v:validateCBOR" + }, + { + "display_html": "data KeyCmds era", + "name": "KeyCmds KeyVerificationKeyCmd KeyNonExtendedKeyCmd KeyConvertByronKeyCmd KeyConvertByronGenesisVKeyCmd KeyConvertITNKeyCmd KeyConvertITNExtendedKeyCmd KeyConvertITNBip32KeyCmd KeyConvertCardanoAddressKeyCmd", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyCmds" + }, + { + "display_html": "data KeyVerificationKeyCmdArgs = KeyVerificationKeyCmdArgs {}", + "name": "KeyVerificationKeyCmdArgs KeyVerificationKeyCmdArgs $sel:skeyFile:KeyVerificationKeyCmdArgs $sel:vkeyFile:KeyVerificationKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyVerificationKeyCmdArgs" + }, + { + "display_html": "data KeyNonExtendedKeyCmdArgs = KeyNonExtendedKeyCmdArgs {}", + "name": "KeyNonExtendedKeyCmdArgs KeyNonExtendedKeyCmdArgs $sel:extendedVkeyFileIn:KeyNonExtendedKeyCmdArgs $sel:nonExtendedVkeyFileOut:KeyNonExtendedKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyNonExtendedKeyCmdArgs" + }, + { + "display_html": "data KeyConvertByronKeyCmdArgs = KeyConvertByronKeyCmdArgs {}", + "name": "KeyConvertByronKeyCmdArgs KeyConvertByronKeyCmdArgs $sel:mPassword:KeyConvertByronKeyCmdArgs $sel:byronKeyType:KeyConvertByronKeyCmdArgs $sel:someKeyFileIn:KeyConvertByronKeyCmdArgs $sel:someKeyFileOut:KeyConvertByronKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertByronKeyCmdArgs" + }, + { + "display_html": "data KeyConvertByronGenesisVKeyCmdArgs = KeyConvertByronGenesisVKeyCmdArgs {}", + "name": "KeyConvertByronGenesisVKeyCmdArgs KeyConvertByronGenesisVKeyCmdArgs $sel:vkey:KeyConvertByronGenesisVKeyCmdArgs $sel:vkeyFileOut:KeyConvertByronGenesisVKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertByronGenesisVKeyCmdArgs" + }, + { + "display_html": "data KeyConvertITNKeyCmdArgs = KeyConvertITNKeyCmdArgs {}", + "name": "KeyConvertITNKeyCmdArgs KeyConvertITNKeyCmdArgs $sel:outFile:KeyConvertITNKeyCmdArgs $sel:itnKeyFile:KeyConvertITNKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNKeyCmdArgs" + }, + { + "display_html": "data KeyConvertITNExtendedKeyCmdArgs = KeyConvertITNExtendedKeyCmdArgs {}", + "name": "KeyConvertITNExtendedKeyCmdArgs KeyConvertITNExtendedKeyCmdArgs $sel:outFile:KeyConvertITNExtendedKeyCmdArgs $sel:itnPrivKeyFile:KeyConvertITNExtendedKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNExtendedKeyCmdArgs" + }, + { + "display_html": "data KeyConvertITNBip32KeyCmdArgs = KeyConvertITNBip32KeyCmdArgs {}", + "name": "KeyConvertITNBip32KeyCmdArgs KeyConvertITNBip32KeyCmdArgs $sel:outFile:KeyConvertITNBip32KeyCmdArgs $sel:itnPrivKeyFile:KeyConvertITNBip32KeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertITNBip32KeyCmdArgs" + }, + { + "display_html": "data KeyConvertCardanoAddressKeyCmdArgs = KeyConvertCardanoAddressKeyCmdArgs {}", + "name": "KeyConvertCardanoAddressKeyCmdArgs KeyConvertCardanoAddressKeyCmdArgs $sel:cardanoAddressKeyType:KeyConvertCardanoAddressKeyCmdArgs $sel:skeyFileIn:KeyConvertCardanoAddressKeyCmdArgs $sel:skeyFileOut:KeyConvertCardanoAddressKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#t:KeyConvertCardanoAddressKeyCmdArgs" + }, + { + "display_html": "renderKeyCmds ∷ KeyCmds era → Text", + "name": "renderKeyCmds", + "module": "Cardano.CLI.EraBased.Commands.Key", + "link": "lib/Cardano-CLI-EraBased-Commands-Key.html#v:renderKeyCmds" + }, + { + "display_html": "newtype GovernanceHashCmds era = GovernanceHashCmd (GovernanceHashCmdArgs era)", + "name": "GovernanceHashCmds GovernanceHashCmd", + "module": "Cardano.CLI.EraBased.Commands.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashCmds" + }, + { + "display_html": "data GovernanceHashCmdArgs era = GovernanceHashCmdArgs {}", + "name": "GovernanceHashCmdArgs GovernanceHashCmdArgs toHash eon moutFile", + "module": "Cardano.CLI.EraBased.Commands.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashCmdArgs" + }, + { + "display_html": "data GovernanceHashSource", + "name": "GovernanceHashSource GovernanceHashSourceBinaryFile GovernanceHashSourceTextFile GovernanceHashSourceText", + "module": "Cardano.CLI.EraBased.Commands.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html#t:GovernanceHashSource" + }, + { + "display_html": "renderGovernanceHashCmds ∷ GovernanceHashCmds era → Text", + "name": "renderGovernanceHashCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Hash.html#v:renderGovernanceHashCmds" + }, + { + "display_html": "data GenesisCmds era", + "name": "GenesisCmds GenesisCreate GenesisCreateCardano GenesisCreateStaked GenesisKeyGenGenesis GenesisKeyGenDelegate GenesisKeyGenUTxO GenesisCmdKeyHash GenesisVerKey GenesisTxIn GenesisAddr GenesisHashFile", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCmds" + }, + { + "display_html": "data GenesisCreateCmdArgs = GenesisCreateCmdArgs {}", + "name": "GenesisCreateCmdArgs GenesisCreateCmdArgs $sel:network:GenesisCreateCmdArgs $sel:keyOutputFormat:GenesisCreateCmdArgs $sel:genesisDir:GenesisCreateCmdArgs $sel:numGenesisKeys:GenesisCreateCmdArgs $sel:numUTxOKeys:GenesisCreateCmdArgs $sel:mSystemStart:GenesisCreateCmdArgs $sel:mSupply:GenesisCreateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateCmdArgs" + }, + { + "display_html": "data GenesisCreateCardanoCmdArgs = GenesisCreateCardanoCmdArgs {}", + "name": "GenesisCreateCardanoCmdArgs GenesisCreateCardanoCmdArgs $sel:network:GenesisCreateCardanoCmdArgs $sel:slotLength:GenesisCreateCardanoCmdArgs $sel:genesisDir:GenesisCreateCardanoCmdArgs $sel:numGenesisKeys:GenesisCreateCardanoCmdArgs $sel:numUTxOKeys:GenesisCreateCardanoCmdArgs $sel:mSystemStart:GenesisCreateCardanoCmdArgs $sel:mSupply:GenesisCreateCardanoCmdArgs $sel:security:GenesisCreateCardanoCmdArgs $sel:slotCoeff:GenesisCreateCardanoCmdArgs $sel:byronGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:shelleyGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:alonzoGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:conwayGenesisTemplate:GenesisCreateCardanoCmdArgs $sel:mNodeConfigTemplate:GenesisCreateCardanoCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateCardanoCmdArgs" + }, + { + "display_html": "data GenesisCreateStakedCmdArgs = GenesisCreateStakedCmdArgs {}", + "name": "GenesisCreateStakedCmdArgs GenesisCreateStakedCmdArgs $sel:network:GenesisCreateStakedCmdArgs $sel:keyOutputFormat:GenesisCreateStakedCmdArgs $sel:genesisDir:GenesisCreateStakedCmdArgs $sel:numGenesisKeys:GenesisCreateStakedCmdArgs $sel:numUTxOKeys:GenesisCreateStakedCmdArgs $sel:mSystemStart:GenesisCreateStakedCmdArgs $sel:numPools:GenesisCreateStakedCmdArgs $sel:numStakeDelegators:GenesisCreateStakedCmdArgs $sel:mNonDelegatedSupply:GenesisCreateStakedCmdArgs $sel:delegatedSupply:GenesisCreateStakedCmdArgs $sel:numBulkPoolCredFiles:GenesisCreateStakedCmdArgs $sel:numBulkPoolsPerFile:GenesisCreateStakedCmdArgs $sel:numStuffedUtxo:GenesisCreateStakedCmdArgs $sel:mStakePoolRelaySpecFile:GenesisCreateStakedCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisCreateStakedCmdArgs" + }, + { + "display_html": "data GenesisKeyGenGenesisCmdArgs = GenesisKeyGenGenesisCmdArgs {}", + "name": "GenesisKeyGenGenesisCmdArgs GenesisKeyGenGenesisCmdArgs $sel:verificationKeyPath:GenesisKeyGenGenesisCmdArgs $sel:signingKeyPath:GenesisKeyGenGenesisCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenGenesisCmdArgs" + }, + { + "display_html": "data GenesisKeyGenDelegateCmdArgs = GenesisKeyGenDelegateCmdArgs {}", + "name": "GenesisKeyGenDelegateCmdArgs GenesisKeyGenDelegateCmdArgs $sel:verificationKeyPath:GenesisKeyGenDelegateCmdArgs $sel:signingKeyPath:GenesisKeyGenDelegateCmdArgs $sel:opCertCounterPath:GenesisKeyGenDelegateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenDelegateCmdArgs" + }, + { + "display_html": "data GenesisKeyGenUTxOCmdArgs = GenesisKeyGenUTxOCmdArgs {}", + "name": "GenesisKeyGenUTxOCmdArgs GenesisKeyGenUTxOCmdArgs $sel:verificationKeyPath:GenesisKeyGenUTxOCmdArgs $sel:signingKeyPath:GenesisKeyGenUTxOCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisKeyGenUTxOCmdArgs" + }, + { + "display_html": "data GenesisVerKeyCmdArgs = GenesisVerKeyCmdArgs {}", + "name": "GenesisVerKeyCmdArgs GenesisVerKeyCmdArgs $sel:verificationKeyPath:GenesisVerKeyCmdArgs $sel:signingKeyPath:GenesisVerKeyCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisVerKeyCmdArgs" + }, + { + "display_html": "data GenesisTxInCmdArgs = GenesisTxInCmdArgs {}", + "name": "GenesisTxInCmdArgs GenesisTxInCmdArgs $sel:network:GenesisTxInCmdArgs $sel:mOutFile:GenesisTxInCmdArgs $sel:verificationKeyPath:GenesisTxInCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisTxInCmdArgs" + }, + { + "display_html": "data GenesisAddrCmdArgs = GenesisAddrCmdArgs {}", + "name": "GenesisAddrCmdArgs GenesisAddrCmdArgs $sel:network:GenesisAddrCmdArgs $sel:mOutFile:GenesisAddrCmdArgs $sel:verificationKeyPath:GenesisAddrCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#t:GenesisAddrCmdArgs" + }, + { + "display_html": "renderGenesisCmds ∷ GenesisCmds era → Text", + "name": "renderGenesisCmds", + "module": "Cardano.CLI.EraBased.Commands.Genesis", + "link": "lib/Cardano-CLI-EraBased-Commands-Genesis.html#v:renderGenesisCmds" + }, + { + "display_html": "data ByronKeyFailure", + "name": "ByronKeyFailure ReadSigningKeyFailure ReadVerificationKeyFailure LegacySigningKeyDeserialisationFailed SigningKeyDeserialisationFailed VerificationKeyDeserialisationFailed CannotMigrateFromNonLegacySigningKey", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#t:ByronKeyFailure" + }, + { + "display_html": "newtype NewSigningKeyFile = NewSigningKeyFile FilePath", + "name": "NewSigningKeyFile NewSigningKeyFile", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#t:NewSigningKeyFile" + }, + { + "display_html": "newtype NewVerificationKeyFile = NewVerificationKeyFile FilePath", + "name": "NewVerificationKeyFile NewVerificationKeyFile", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#t:NewVerificationKeyFile" + }, + { + "display_html": "type VerificationKeyFile = File (VerificationKey ())", + "name": "VerificationKeyFile", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#t:VerificationKeyFile" + }, + { + "display_html": "prettyPublicKey ∷ VerificationKey ByronKey → Text", + "name": "prettyPublicKey", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#v:prettyPublicKey" + }, + { + "display_html": "readByronSigningKey ∷ ByronKeyFormat → SigningKeyFile In → ExceptT ByronKeyFailure IO SomeByronSigningKey", + "name": "readByronSigningKey", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#v:readByronSigningKey" + }, + { + "display_html": "readPaymentVerificationKey ∷ VerificationKeyFile In → ExceptT ByronKeyFailure IO VerificationKey", + "name": "readPaymentVerificationKey", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#v:readPaymentVerificationKey" + }, + { + "display_html": "renderByronKeyFailure ∷ ByronKeyFailure → Text", + "name": "renderByronKeyFailure", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#v:renderByronKeyFailure" + }, + { + "display_html": "byronWitnessToVerKey ∷ SomeByronSigningKey → VerificationKey ByronKey", + "name": "byronWitnessToVerKey", + "module": "Cardano.CLI.Byron.Key", + "link": "lib/Cardano-CLI-Byron-Key.html#v:byronWitnessToVerKey" + }, + { + "display_html": "data ByronTxError", + "name": "ByronTxError TxDeserialisationFailed ByronTxSubmitError ByronTxSubmitErrorEraMismatch", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#t:ByronTxError" + }, + { + "display_html": "data Tx era", + "name": "Tx", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#t:Tx" + }, + { + "display_html": "type TxFile = File (Tx ())", + "name": "TxFile", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#t:TxFile" + }, + { + "display_html": "newtype NewTxFile = NewTxFile FilePath", + "name": "NewTxFile NewTxFile", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#t:NewTxFile" + }, + { + "display_html": "prettyAddress ∷ Address ByronAddr → Text", + "name": "prettyAddress", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:prettyAddress" + }, + { + "display_html": "readByronTx ∷ TxFile In → ExceptT ByronTxError IO (ATxAux ByteString)", + "name": "readByronTx", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:readByronTx" + }, + { + "display_html": "normalByronTxToGenTx ∷ ATxAux ByteString → GenTx ByronBlock", + "name": "normalByronTxToGenTx", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:normalByronTxToGenTx" + }, + { + "display_html": "txSpendGenesisUTxOByronPBFT ∷ Config → NetworkId → SomeByronSigningKey → Address ByronAddr → [TxOut CtxTx ByronEra] → Tx ByronEra", + "name": "txSpendGenesisUTxOByronPBFT", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:txSpendGenesisUTxOByronPBFT" + }, + { + "display_html": "txSpendUTxOByronPBFT ∷ NetworkId → SomeByronSigningKey → [TxIn] → [TxOut CtxTx ByronEra] → Tx ByronEra", + "name": "txSpendUTxOByronPBFT", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:txSpendUTxOByronPBFT" + }, + { + "display_html": "nodeSubmitTx ∷ SocketPath → NetworkId → GenTx ByronBlock → ExceptT ByronTxError IO ()", + "name": "nodeSubmitTx", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:nodeSubmitTx" + }, + { + "display_html": "renderByronTxError ∷ ByronTxError → Text", + "name": "renderByronTxError", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:renderByronTxError" + }, + { + "display_html": "fromCborTxAux ∷ ByteString → Either DecoderError (ATxAux ByteString)", + "name": "fromCborTxAux", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:fromCborTxAux" + }, + { + "display_html": "toCborTxAux ∷ ATxAux ByteString → ByteString", + "name": "toCborTxAux", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#v:toCborTxAux" + }, + { + "display_html": "data ScriptValidity", + "name": "ScriptValidity ScriptValid ScriptInvalid", + "module": "Cardano.CLI.Byron.Tx", + "link": "lib/Cardano-CLI-Byron-Tx.html#t:ScriptValidity" + }, + { + "display_html": "data ByronDelegationError", + "name": "ByronDelegationError CertificateValidationErrors DlgCertificateDeserialisationFailed ByronDelegationKeyError", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#t:ByronDelegationError" + }, + { + "display_html": "checkByronGenesisDelegation ∷ CertificateFile → ProtocolMagicId → VerificationKey → VerificationKey → ExceptT ByronDelegationError IO ()", + "name": "checkByronGenesisDelegation", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#v:checkByronGenesisDelegation" + }, + { + "display_html": "issueByronGenesisDelegation ∷ ProtocolMagicId → EpochNumber → SigningKey → VerificationKey → Certificate", + "name": "issueByronGenesisDelegation", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#v:issueByronGenesisDelegation" + }, + { + "display_html": "renderByronDelegationError ∷ ByronDelegationError → Text", + "name": "renderByronDelegationError", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#v:renderByronDelegationError" + }, + { + "display_html": "serialiseDelegationCert ∷ Certificate → ByteString", + "name": "serialiseDelegationCert", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#v:serialiseDelegationCert" + }, + { + "display_html": "serialiseByronWitness ∷ SomeByronSigningKey → ByteString", + "name": "serialiseByronWitness", + "module": "Cardano.CLI.Byron.Delegation", + "link": "lib/Cardano-CLI-Byron-Delegation.html#v:serialiseByronWitness" + }, + { + "display_html": "data ByronGenesisError", + "name": "ByronGenesisError ByronDelegationCertSerializationError ByronDelegationKeySerializationError GenesisGenerationError GenesisOutputDirAlreadyExists GenesisReadError GenesisSpecError MakeGenesisDelegationError NoGenesisDelegationForKey ProtocolParametersParseFailed PoorKeyFailure", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#t:ByronGenesisError" + }, + { + "display_html": "data GenesisParameters = GenesisParameters {}", + "name": "GenesisParameters GenesisParameters gpStartTime gpProtocolParamsFile gpK gpProtocolMagic gpTestnetBalance gpFakeAvvmOptions gpAvvmBalanceFactor gpSeed", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#t:GenesisParameters" + }, + { + "display_html": "newtype NewDirectory = NewDirectory FilePath", + "name": "NewDirectory NewDirectory", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#t:NewDirectory" + }, + { + "display_html": "dumpGenesis ∷ NewDirectory → GenesisData → GeneratedSecrets → ExceptT ByronGenesisError IO ()", + "name": "dumpGenesis", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#v:dumpGenesis" + }, + { + "display_html": "mkGenesis ∷ GenesisParameters → ExceptT ByronGenesisError IO (GenesisData, GeneratedSecrets)", + "name": "mkGenesis", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#v:mkGenesis" + }, + { + "display_html": "readGenesis ∷ GenesisFile → NetworkId → ExceptT ByronGenesisError IO Config", + "name": "readGenesis", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#v:readGenesis" + }, + { + "display_html": "renderByronGenesisError ∷ ByronGenesisError → Text", + "name": "renderByronGenesisError", + "module": "Cardano.CLI.Byron.Genesis", + "link": "lib/Cardano-CLI-Byron-Genesis.html#v:renderByronGenesisError" + }, + { + "display_html": "data ByronUpdateProposalError", + "name": "ByronUpdateProposalError ReadSigningKeyFailure ByronReadUpdateProposalFileFailure ByronUpdateProposalWriteError ByronUpdateProposalGenesisReadError ByronUpdateProposalTxError UpdateProposalDecodingError", + "module": "Cardano.CLI.Byron.UpdateProposal", + "link": "lib/Cardano-CLI-Byron-UpdateProposal.html#t:ByronUpdateProposalError" + }, + { + "display_html": "runProposalCreation ∷ NetworkId → SigningKeyFile In → ProtocolVersion → SoftwareVersion → SystemTag → InstallerHash → FilePath → ByronProtocolParametersUpdate → ExceptT ByronUpdateProposalError IO ()", + "name": "runProposalCreation", + "module": "Cardano.CLI.Byron.UpdateProposal", + "link": "lib/Cardano-CLI-Byron-UpdateProposal.html#v:runProposalCreation" + }, + { + "display_html": "readByronUpdateProposal ∷ FilePath → ExceptT ByronUpdateProposalError IO ByronUpdateProposal", + "name": "readByronUpdateProposal", + "module": "Cardano.CLI.Byron.UpdateProposal", + "link": "lib/Cardano-CLI-Byron-UpdateProposal.html#v:readByronUpdateProposal" + }, + { + "display_html": "renderByronUpdateProposalError ∷ ByronUpdateProposalError → Text", + "name": "renderByronUpdateProposalError", + "module": "Cardano.CLI.Byron.UpdateProposal", + "link": "lib/Cardano-CLI-Byron-UpdateProposal.html#v:renderByronUpdateProposalError" + }, + { + "display_html": "submitByronUpdateProposal ∷ SocketPath → NetworkId → FilePath → ExceptT ByronUpdateProposalError IO ()", + "name": "submitByronUpdateProposal", + "module": "Cardano.CLI.Byron.UpdateProposal", + "link": "lib/Cardano-CLI-Byron-UpdateProposal.html#v:submitByronUpdateProposal" + }, + { + "display_html": "data ByronVoteError", + "name": "ByronVoteError ByronVoteDecodingError ByronVoteGenesisReadError ByronVoteKeyReadFailure ByronVoteReadFileFailure ByronVoteTxSubmissionError ByronVoteUpdateProposalFailure ByronVoteUpdateProposalDecodingError ByronVoteUpdateHelperError", + "module": "Cardano.CLI.Byron.Vote", + "link": "lib/Cardano-CLI-Byron-Vote.html#t:ByronVoteError" + }, + { + "display_html": "readByronVote ∷ FilePath → ExceptT ByronVoteError IO ByronVote", + "name": "readByronVote", + "module": "Cardano.CLI.Byron.Vote", + "link": "lib/Cardano-CLI-Byron-Vote.html#v:readByronVote" + }, + { + "display_html": "renderByronVoteError ∷ ByronVoteError → Text", + "name": "renderByronVoteError", + "module": "Cardano.CLI.Byron.Vote", + "link": "lib/Cardano-CLI-Byron-Vote.html#v:renderByronVoteError" + }, + { + "display_html": "runVoteCreation ∷ NetworkId → SigningKeyFile In → FilePath → Bool → FilePath → ExceptT ByronVoteError IO ()", + "name": "runVoteCreation", + "module": "Cardano.CLI.Byron.Vote", + "link": "lib/Cardano-CLI-Byron-Vote.html#v:runVoteCreation" + }, + { + "display_html": "submitByronVote ∷ SocketPath → NetworkId → FilePath → ExceptT ByronVoteError IO ()", + "name": "submitByronVote", + "module": "Cardano.CLI.Byron.Vote", + "link": "lib/Cardano-CLI-Byron-Vote.html#v:submitByronVote" + }, + { + "display_html": "data ByronCommand", + "name": "ByronCommand Genesis NodeCmds PrintGenesisHash Keygen ToVerification PrettySigningKeyPublic MigrateDelegateKeyFrom PrintSigningKeyAddress SubmitTx SpendGenesisUTxO SpendUTxO GetTxId ValidateCBOR PrettyPrintCBOR", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:ByronCommand" + }, + { + "display_html": "data NodeCmds", + "name": "NodeCmds UpdateProposal CreateVote SubmitUpdateProposal SubmitVote", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:NodeCmds" + }, + { + "display_html": "type VerificationKeyFile = File (VerificationKey ())", + "name": "VerificationKeyFile", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:VerificationKeyFile" + }, + { + "display_html": "newtype NewVerificationKeyFile = NewVerificationKeyFile FilePath", + "name": "NewVerificationKeyFile NewVerificationKeyFile", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:NewVerificationKeyFile" + }, + { + "display_html": "newtype CertificateFile = CertificateFile {}", + "name": "CertificateFile CertificateFile unCertificateFile", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:CertificateFile" + }, + { + "display_html": "newtype NewCertificateFile = NewCertificateFile {}", + "name": "NewCertificateFile NewCertificateFile nFp", + "module": "Cardano.CLI.Byron.Commands", + "link": "lib/Cardano-CLI-Byron-Commands.html#t:NewCertificateFile" + }, + { + "display_html": "data ByronClientCmdError", + "name": "ByronClientCmdError", + "module": "Cardano.CLI.Byron.Run", + "link": "lib/Cardano-CLI-Byron-Run.html#t:ByronClientCmdError" + }, + { + "display_html": "renderByronClientCmdError ∷ ByronClientCmdError → Text", + "name": "renderByronClientCmdError", + "module": "Cardano.CLI.Byron.Run", + "link": "lib/Cardano-CLI-Byron-Run.html#v:renderByronClientCmdError" + }, + { + "display_html": "runByronClientCommand ∷ ByronCommand → ExceptT ByronClientCmdError IO ()", + "name": "runByronClientCommand", + "module": "Cardano.CLI.Byron.Run", + "link": "lib/Cardano-CLI-Byron-Run.html#v:runByronClientCommand" + }, + { + "display_html": "newtype AddressInfoError = ShelleyAddressInvalid Text", + "name": "AddressInfoError ShelleyAddressInvalid", + "module": "Cardano.CLI.Types.Errors.AddressInfoError", + "link": "lib/Cardano-CLI-Types-Errors-AddressInfoError.html#t:AddressInfoError" + }, + { + "display_html": "runAddressInfoCmd ∷ Text → Maybe (File () Out) → ExceptT AddressInfoError IO ()", + "name": "runAddressInfoCmd", + "module": "Cardano.CLI.EraBased.Run.Address.Info", + "link": "lib/Cardano-CLI-EraBased-Run-Address-Info.html#v:runAddressInfoCmd" + }, + { + "display_html": "data BootstrapWitnessError = MissingNetworkIdOrByronAddressError", + "name": "BootstrapWitnessError MissingNetworkIdOrByronAddressError", + "module": "Cardano.CLI.Types.Errors.BootstrapWitnessError", + "link": "lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html#t:BootstrapWitnessError" + }, + { + "display_html": "renderBootstrapWitnessError ∷ BootstrapWitnessError → Text", + "name": "renderBootstrapWitnessError", + "module": "Cardano.CLI.Types.Errors.BootstrapWitnessError", + "link": "lib/Cardano-CLI-Types-Errors-BootstrapWitnessError.html#v:renderBootstrapWitnessError" + }, + { + "display_html": "data CardanoAddressSigningKeyConversionError", + "name": "CardanoAddressSigningKeyConversionError CardanoAddressSigningKeyBech32DecodeError CardanoAddressSigningKeyDeserialisationError", + "module": "Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError", + "link": "lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html#t:CardanoAddressSigningKeyConversionError" + }, + { + "display_html": "renderCardanoAddressSigningKeyConversionError ∷ CardanoAddressSigningKeyConversionError → Text", + "name": "renderCardanoAddressSigningKeyConversionError", + "module": "Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError", + "link": "lib/Cardano-CLI-Types-Errors-CardanoAddressSigningKeyConversionError.html#v:renderCardanoAddressSigningKeyConversionError" + }, + { + "display_html": "data GovernanceCommitteeError", + "name": "GovernanceCommitteeError GovernanceCommitteeCmdKeyDecodeError GovernanceCommitteeCmdKeyReadError GovernanceCommitteeCmdTextEnvReadFileError GovernanceCommitteeCmdTextEnvWriteError GovernanceCommitteeCmdWriteFileError", + "module": "Cardano.CLI.Types.Errors.GovernanceCommitteeError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceCommitteeError.html#t:GovernanceCommitteeError" + }, + { + "display_html": "data GovernanceHashError", + "name": "GovernanceHashError GovernanceHashReadFileError GovernanceHashWriteFileError", + "module": "Cardano.CLI.Types.Errors.GovernanceHashError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceHashError.html#t:GovernanceHashError" + }, + { + "display_html": "data GovernanceQueryError", + "name": "GovernanceQueryError GovernanceQueryDRepKeyError GovernanceQueryEraMismatch GovernanceQueryUnsupportedNtcVersion GovernanceQueryAcqireFailureError GovernanceQueryWriteFileError", + "module": "Cardano.CLI.Types.Errors.GovernanceQueryError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceQueryError.html#t:GovernanceQueryError" + }, + { + "display_html": "data ItnKeyConversionError", + "name": "ItnKeyConversionError ItnKeyBech32DecodeError ItnReadBech32FileError ItnSigningKeyDeserialisationError ItnVerificationKeyDeserialisationError", + "module": "Cardano.CLI.Types.Errors.ItnKeyConversionError", + "link": "lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html#t:ItnKeyConversionError" + }, + { + "display_html": "renderConversionError ∷ ItnKeyConversionError → Text", + "name": "renderConversionError", + "module": "Cardano.CLI.Types.Errors.ItnKeyConversionError", + "link": "lib/Cardano-CLI-Types-Errors-ItnKeyConversionError.html#v:renderConversionError" + }, + { + "display_html": "data NodeCmdError", + "name": "NodeCmdError NodeCmdReadFileError NodeCmdReadKeyFileError NodeCmdWriteFileError NodeCmdOperationalCertificateIssueError NodeCmdVrfSigningKeyCreationError", + "module": "Cardano.CLI.Types.Errors.NodeCmdError", + "link": "lib/Cardano-CLI-Types-Errors-NodeCmdError.html#t:NodeCmdError" + }, + { + "display_html": "renderNodeCmdError ∷ NodeCmdError → Text", + "name": "renderNodeCmdError", + "module": "Cardano.CLI.Types.Errors.NodeCmdError", + "link": "lib/Cardano-CLI-Types-Errors-NodeCmdError.html#v:renderNodeCmdError" + }, + { + "display_html": "data NodeEraMismatchError = ∀ era nodeEra.NodeEraMismatchError {}", + "name": "NodeEraMismatchError NodeEraMismatchError era nodeEra", + "module": "Cardano.CLI.Types.Errors.NodeEraMismatchError", + "link": "lib/Cardano-CLI-Types-Errors-NodeEraMismatchError.html#t:NodeEraMismatchError" + }, + { + "display_html": "data ProtocolParamsError", + "name": "ProtocolParamsError ProtocolParamsErrorFile ProtocolParamsErrorJSON", + "module": "Cardano.CLI.Types.Errors.ProtocolParamsError", + "link": "lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html#t:ProtocolParamsError" + }, + { + "display_html": "renderProtocolParamsError ∷ ProtocolParamsError → Text", + "name": "renderProtocolParamsError", + "module": "Cardano.CLI.Types.Errors.ProtocolParamsError", + "link": "lib/Cardano-CLI-Types-Errors-ProtocolParamsError.html#v:renderProtocolParamsError" + }, + { + "display_html": "newtype QueryCmdLocalStateQueryError = EraMismatchError EraMismatch", + "name": "QueryCmdLocalStateQueryError EraMismatchError", + "module": "Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError", + "link": "lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html#t:QueryCmdLocalStateQueryError" + }, + { + "display_html": "renderLocalStateQueryError ∷ QueryCmdLocalStateQueryError → Text", + "name": "renderLocalStateQueryError", + "module": "Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError", + "link": "lib/Cardano-CLI-Types-Errors-QueryCmdLocalStateQueryError.html#v:renderLocalStateQueryError" + }, + { + "display_html": "data ScriptDecodeError", + "name": "ScriptDecodeError ScriptDecodeTextEnvelopeError ScriptDecodeSimpleScriptError", + "module": "Cardano.CLI.Types.Errors.ScriptDecodeError", + "link": "lib/Cardano-CLI-Types-Errors-ScriptDecodeError.html#t:ScriptDecodeError" + }, + { + "display_html": "newtype StakeAddressDelegationError = VoteDelegationNotSupported (EraInEon ShelleyToBabbageEra)", + "name": "StakeAddressDelegationError VoteDelegationNotSupported", + "module": "Cardano.CLI.Types.Errors.StakeAddressDelegationError", + "link": "lib/Cardano-CLI-Types-Errors-StakeAddressDelegationError.html#t:StakeAddressDelegationError" + }, + { + "display_html": "data StakeAddressRegistrationError = StakeAddressRegistrationDepositRequired", + "name": "StakeAddressRegistrationError StakeAddressRegistrationDepositRequired", + "module": "Cardano.CLI.Types.Errors.StakeAddressRegistrationError", + "link": "lib/Cardano-CLI-Types-Errors-StakeAddressRegistrationError.html#t:StakeAddressRegistrationError" + }, + { + "display_html": "data StakeCredentialError", + "name": "StakeCredentialError StakeCredentialScriptDecodeError StakeCredentialInputDecodeError", + "module": "Cardano.CLI.Types.Errors.StakeCredentialError", + "link": "lib/Cardano-CLI-Types-Errors-StakeCredentialError.html#t:StakeCredentialError" + }, + { + "display_html": "data RegistrationError", + "name": "RegistrationError RegistrationReadError RegistrationWriteFileError RegistrationStakeCredentialError RegistrationStakeError", + "module": "Cardano.CLI.Types.Errors.RegistrationError", + "link": "lib/Cardano-CLI-Types-Errors-RegistrationError.html#t:RegistrationError" + }, + { + "display_html": "data DelegationError", + "name": "DelegationError DelegationReadError DelegationCertificateWriteFileError DelegationDRepReadError DelegationStakeCredentialError", + "module": "Cardano.CLI.Types.Errors.DelegationError", + "link": "lib/Cardano-CLI-Types-Errors-DelegationError.html#t:DelegationError" + }, + { + "display_html": "data StakeAddressCmdError", + "name": "StakeAddressCmdError StakeAddressCmdReadKeyFileError StakeAddressCmdReadScriptFileError StakeAddressCmdStakeCredentialError StakeAddressCmdWriteFileError StakeAddressCmdDelegationError StakeAddressCmdRegistrationError", + "module": "Cardano.CLI.Types.Errors.StakeAddressCmdError", + "link": "lib/Cardano-CLI-Types-Errors-StakeAddressCmdError.html#t:StakeAddressCmdError" + }, + { + "display_html": "data StakePoolCmdError", + "name": "StakePoolCmdError StakePoolCmdReadFileError StakePoolCmdReadKeyFileError StakePoolCmdWriteFileError StakePoolCmdMetadataValidationError", + "module": "Cardano.CLI.Types.Errors.StakePoolCmdError", + "link": "lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html#t:StakePoolCmdError" + }, + { + "display_html": "renderStakePoolCmdError ∷ StakePoolCmdError → Text", + "name": "renderStakePoolCmdError", + "module": "Cardano.CLI.Types.Errors.StakePoolCmdError", + "link": "lib/Cardano-CLI-Types-Errors-StakePoolCmdError.html#v:renderStakePoolCmdError" + }, + { + "display_html": "data TextViewFileError", + "name": "TextViewFileError TextViewReadFileError TextViewCBORPrettyPrintError", + "module": "Cardano.CLI.Types.Errors.TextViewFileError", + "link": "lib/Cardano-CLI-Types-Errors-TextViewFileError.html#t:TextViewFileError" + }, + { + "display_html": "renderTextViewFileError ∷ TextViewFileError → Text", + "name": "renderTextViewFileError", + "module": "Cardano.CLI.Types.Errors.TextViewFileError", + "link": "lib/Cardano-CLI-Types-Errors-TextViewFileError.html#v:renderTextViewFileError" + }, + { + "display_html": "runTextViewCmds ∷ TextViewCmds era → ExceptT TextViewFileError IO ()", + "name": "runTextViewCmds", + "module": "Cardano.CLI.EraBased.Run.TextView", + "link": "lib/Cardano-CLI-EraBased-Run-TextView.html#v:runTextViewCmds" + }, + { + "display_html": "runTextViewInfoCmd ∷ FilePath → Maybe (File () Out) → ExceptT TextViewFileError IO ()", + "name": "runTextViewInfoCmd", + "module": "Cardano.CLI.EraBased.Run.TextView", + "link": "lib/Cardano-CLI-EraBased-Run-TextView.html#v:runTextViewInfoCmd" + }, + { + "display_html": "runLegacyTextViewCmds ∷ LegacyTextViewCmds → ExceptT TextViewFileError IO ()", + "name": "runLegacyTextViewCmds", + "module": "Cardano.CLI.Legacy.Run.TextView", + "link": "lib/Cardano-CLI-Legacy-Run-TextView.html#v:runLegacyTextViewCmds" + }, + { + "display_html": "data TxAuxScriptsValidationError", + "name": "TxAuxScriptsValidationError TxAuxScriptsNotSupportedInEra TxAuxScriptsLanguageError", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxAuxScriptsValidationError" + }, + { + "display_html": "newtype TxCertificatesValidationError = TxCertificatesValidationNotSupported AnyCardanoEra", + "name": "TxCertificatesValidationError TxCertificatesValidationNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxCertificatesValidationError" + }, + { + "display_html": "data TxFeeValidationError", + "name": "TxFeeValidationError TxFeatureImplicitFeesE TxFeatureExplicitFeesE", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxFeeValidationError" + }, + { + "display_html": "data TxProtocolParametersValidationError", + "name": "TxProtocolParametersValidationError", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxProtocolParametersValidationError" + }, + { + "display_html": "newtype TxScriptValidityValidationError = ScriptValidityNotSupported AnyCardanoEra", + "name": "TxScriptValidityValidationError ScriptValidityNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxScriptValidityValidationError" + }, + { + "display_html": "newtype TxUpdateProposalValidationError = TxUpdateProposalNotSupported AnyCardanoEra", + "name": "TxUpdateProposalValidationError TxUpdateProposalNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxUpdateProposalValidationError" + }, + { + "display_html": "newtype TxValidityLowerBoundValidationError = TxValidityLowerBoundNotSupported AnyCardanoEra", + "name": "TxValidityLowerBoundValidationError TxValidityLowerBoundNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxValidityLowerBoundValidationError" + }, + { + "display_html": "newtype TxValidityUpperBoundValidationError = TxValidityUpperBoundNotSupported AnyCardanoEra", + "name": "TxValidityUpperBoundValidationError TxValidityUpperBoundNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxValidityUpperBoundValidationError" + }, + { + "display_html": "data TxRequiredSignersValidationError", + "name": "TxRequiredSignersValidationError", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxRequiredSignersValidationError" + }, + { + "display_html": "newtype TxReturnCollateralValidationError = TxReturnCollateralNotSupported AnyCardanoEra", + "name": "TxReturnCollateralValidationError TxReturnCollateralNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxReturnCollateralValidationError" + }, + { + "display_html": "newtype TxTotalCollateralValidationError = TxTotalCollateralNotSupported AnyCardanoEra", + "name": "TxTotalCollateralValidationError TxTotalCollateralNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxTotalCollateralValidationError" + }, + { + "display_html": "newtype TxWithdrawalsValidationError = TxWithdrawalsNotSupported AnyCardanoEra", + "name": "TxWithdrawalsValidationError TxWithdrawalsNotSupported", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#t:TxWithdrawalsValidationError" + }, + { + "display_html": "validateProtocolParameters ∷ CardanoEra era → Maybe (LedgerProtocolParameters era) → Either TxProtocolParametersValidationError (BuildTxWith BuildTx (Maybe (LedgerProtocolParameters era)))", + "name": "validateProtocolParameters", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateProtocolParameters" + }, + { + "display_html": "validateScriptSupportedInEra ∷ CardanoEra era → ScriptInAnyLang → Either ScriptLanguageValidationError (ScriptInEra era)", + "name": "validateScriptSupportedInEra", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateScriptSupportedInEra" + }, + { + "display_html": "validateTxAuxScripts ∷ CardanoEra era → [ScriptInAnyLang] → Either TxAuxScriptsValidationError (TxAuxScripts era)", + "name": "validateTxAuxScripts", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxAuxScripts" + }, + { + "display_html": "validateTxCertificates ∷ ∀ era. CardanoEra era → [(Certificate era, Maybe (ScriptWitness WitCtxStake era))] → Either TxCertificatesValidationError (TxCertificates BuildTx era)", + "name": "validateTxCertificates", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxCertificates" + }, + { + "display_html": "validateTxFee ∷ CardanoEra era → Maybe Lovelace → Either TxFeeValidationError (TxFee era)", + "name": "validateTxFee", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxFee" + }, + { + "display_html": "validateRequiredSigners ∷ CardanoEra era → [Hash PaymentKey] → Either TxRequiredSignersValidationError (TxExtraKeyWitnesses era)", + "name": "validateRequiredSigners", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateRequiredSigners" + }, + { + "display_html": "validateTxReturnCollateral ∷ CardanoEra era → Maybe (TxOut CtxTx era) → Either TxReturnCollateralValidationError (TxReturnCollateral CtxTx era)", + "name": "validateTxReturnCollateral", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxReturnCollateral" + }, + { + "display_html": "validateTxScriptValidity ∷ CardanoEra era → Maybe ScriptValidity → Either TxScriptValidityValidationError (TxScriptValidity era)", + "name": "validateTxScriptValidity", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxScriptValidity" + }, + { + "display_html": "validateTxTotalCollateral ∷ CardanoEra era → Maybe Lovelace → Either TxTotalCollateralValidationError (TxTotalCollateral era)", + "name": "validateTxTotalCollateral", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxTotalCollateral" + }, + { + "display_html": "validateTxValidityUpperBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityUpperBoundValidationError (TxValidityUpperBound era)", + "name": "validateTxValidityUpperBound", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxValidityUpperBound" + }, + { + "display_html": "validateTxValidityLowerBound ∷ CardanoEra era → Maybe SlotNo → Either TxValidityLowerBoundValidationError (TxValidityLowerBound era)", + "name": "validateTxValidityLowerBound", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxValidityLowerBound" + }, + { + "display_html": "validateTxWithdrawals ∷ ∀ era. CardanoEra era → [(StakeAddress, Lovelace, Maybe (ScriptWitness WitCtxStake era))] → Either TxWithdrawalsValidationError (TxWithdrawals BuildTx era)", + "name": "validateTxWithdrawals", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateTxWithdrawals" + }, + { + "display_html": "validateUpdateProposalFile ∷ CardanoEra era → Maybe UpdateProposalFile → Either TxUpdateProposalValidationError (Maybe (Featured ShelleyToBabbageEra era (Maybe UpdateProposalFile)))", + "name": "validateUpdateProposalFile", + "module": "Cardano.CLI.Types.Errors.TxValidationError", + "link": "lib/Cardano-CLI-Types-Errors-TxValidationError.html#v:validateUpdateProposalFile" + }, + { + "display_html": "data VerificationKeyOrFile keyrole", + "name": "VerificationKeyOrFile VerificationKeyValue VerificationKeyFilePath", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:VerificationKeyOrFile" + }, + { + "display_html": "readVerificationKeyOrFile ∷ (HasTextEnvelope (VerificationKey keyrole), SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole))", + "name": "readVerificationKeyOrFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readVerificationKeyOrFile" + }, + { + "display_html": "readVerificationKeyOrTextEnvFile ∷ HasTextEnvelope (VerificationKey keyrole) ⇒ AsType keyrole → VerificationKeyOrFile keyrole → IO (Either (FileError InputDecodeError) (VerificationKey keyrole))", + "name": "readVerificationKeyOrTextEnvFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readVerificationKeyOrTextEnvFile" + }, + { + "display_html": "data VerificationKeyTextOrFile", + "name": "VerificationKeyTextOrFile VktofVerificationKeyText VktofVerificationKeyFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:VerificationKeyTextOrFile" + }, + { + "display_html": "data VerificationKeyTextOrFileError", + "name": "VerificationKeyTextOrFileError VerificationKeyTextError VerificationKeyFileError", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:VerificationKeyTextOrFileError" + }, + { + "display_html": "readVerificationKeyTextOrFileAnyOf ∷ VerificationKeyTextOrFile → IO (Either VerificationKeyTextOrFileError SomeAddressVerificationKey)", + "name": "readVerificationKeyTextOrFileAnyOf", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readVerificationKeyTextOrFileAnyOf" + }, + { + "display_html": "renderVerificationKeyTextOrFileError ∷ VerificationKeyTextOrFileError → Text", + "name": "renderVerificationKeyTextOrFileError", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:renderVerificationKeyTextOrFileError" + }, + { + "display_html": "data VerificationKeyOrHashOrFile keyrole", + "name": "VerificationKeyOrHashOrFile VerificationKeyOrFile VerificationKeyHash", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:VerificationKeyOrHashOrFile" + }, + { + "display_html": "readVerificationKeyOrHashOrFile ∷ (Key keyrole, SerialiseAsBech32 (VerificationKey keyrole)) ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole))", + "name": "readVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readVerificationKeyOrHashOrFile" + }, + { + "display_html": "readVerificationKeyOrHashOrTextEnvFile ∷ Key keyrole ⇒ AsType keyrole → VerificationKeyOrHashOrFile keyrole → IO (Either (FileError InputDecodeError) (Hash keyrole))", + "name": "readVerificationKeyOrHashOrTextEnvFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readVerificationKeyOrHashOrTextEnvFile" + }, + { + "display_html": "data PaymentVerifier", + "name": "PaymentVerifier PaymentVerifierKey PaymentVerifierScriptFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:PaymentVerifier" + }, + { + "display_html": "data StakeIdentifier", + "name": "StakeIdentifier StakeIdentifierVerifier StakeIdentifierAddress", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:StakeIdentifier" + }, + { + "display_html": "data StakeVerifier", + "name": "StakeVerifier StakeVerifierKey StakeVerifierScriptFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:StakeVerifier" + }, + { + "display_html": "generateKeyPair ∷ Key keyrole ⇒ HasTypeProxy keyrole ⇒ AsType keyrole → IO (VerificationKey keyrole, SigningKey keyrole)", + "name": "generateKeyPair", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:generateKeyPair" + }, + { + "display_html": "data StakePoolRegistrationParserRequirements = StakePoolRegistrationParserRequirements {}", + "name": "StakePoolRegistrationParserRequirements StakePoolRegistrationParserRequirements sprStakePoolKey sprVrfKey sprPoolPledge sprPoolCost sprPoolMargin sprRewardAccountKey spoPoolOwnerKeys sprRelays sprMetadata sprNetworkId", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:StakePoolRegistrationParserRequirements" + }, + { + "display_html": "data AnyDelegationTarget where", + "name": "AnyDelegationTarget ShelleyToBabbageDelegTarget ConwayOnwardDelegTarget", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:AnyDelegationTarget" + }, + { + "display_html": "data StakeTarget era where", + "name": "StakeTarget TargetStakePool TargetVotingDrep TargetVotingDrepAndStakePool TargetAlwaysAbstain TargetAlwaysNoConfidence TargetVotingDRepScriptHash", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:StakeTarget" + }, + { + "display_html": "data ColdVerificationKeyOrFile", + "name": "ColdVerificationKeyOrFile ColdStakePoolVerificationKey ColdGenesisDelegateVerificationKey ColdVerificationKeyFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:ColdVerificationKeyOrFile" + }, + { + "display_html": "data DRepHashSource", + "name": "DRepHashSource DRepHashSourceScript DRepHashSourceVerificationKey", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:DRepHashSource" + }, + { + "display_html": "readDRepCredential ∷ DRepHashSource → ExceptT DelegationError IO (Credential 'DRepRole StandardCrypto)", + "name": "readDRepCredential", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readDRepCredential" + }, + { + "display_html": "data SomeSigningKey", + "name": "SomeSigningKey AByronSigningKey APaymentSigningKey APaymentExtendedSigningKey AStakeSigningKey AStakeExtendedSigningKey AStakePoolSigningKey AGenesisSigningKey AGenesisExtendedSigningKey AGenesisDelegateSigningKey AGenesisDelegateExtendedSigningKey AGenesisUTxOSigningKey AVrfSigningKey AKesSigningKey", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#t:SomeSigningKey" + }, + { + "display_html": "withSomeSigningKey ∷ SomeSigningKey → (∀ keyrole. (Key keyrole, HasTypeProxy keyrole) ⇒ SigningKey keyrole → a) → a", + "name": "withSomeSigningKey", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:withSomeSigningKey" + }, + { + "display_html": "readSigningKeyFile ∷ SigningKeyFile In → ExceptT (FileError InputDecodeError) IO SomeSigningKey", + "name": "readSigningKeyFile", + "module": "Cardano.CLI.Types.Key", + "link": "lib/Cardano-CLI-Types-Key.html#v:readSigningKeyFile" + }, + { + "display_html": "type VoteFile = File ConwayVote", + "name": "VoteFile", + "module": "Cardano.CLI.Types.Governance", + "link": "lib/Cardano-CLI-Types-Governance.html#t:VoteFile" + }, + { + "display_html": "data ConwayVote = ConwayVote {}", + "name": "ConwayVote cvFilepath cvEra cvVotingStakeCredential cvGovActionId cvVoterType cvVoteChoice ConwayVote", + "module": "Cardano.CLI.Types.Governance", + "link": "lib/Cardano-CLI-Types-Governance.html#t:ConwayVote" + }, + { + "display_html": "data VType", + "name": "VType VSP VDR VCC", + "module": "Cardano.CLI.Types.Governance", + "link": "lib/Cardano-CLI-Types-Governance.html#t:VType" + }, + { + "display_html": "data AnyVotingStakeVerificationKeyOrHashOrFile where", + "name": "AnyVotingStakeVerificationKeyOrHashOrFile AnyCommitteeHotVerificationKeyOrHashOrFile AnyStakePoolVerificationKeyOrHashOrFile AnyDRepVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.Types.Governance", + "link": "lib/Cardano-CLI-Types-Governance.html#t:AnyVotingStakeVerificationKeyOrHashOrFile" + }, + { + "display_html": "data VoteDelegationTarget", + "name": "VoteDelegationTarget VoteDelegationTargetOfNoConfidence VoteDelegationTargetOfAbstain VoteDelegationTargetOfDRep", + "module": "Cardano.CLI.Types.Governance", + "link": "lib/Cardano-CLI-Types-Governance.html#t:VoteDelegationTarget" + }, + { + "display_html": "data LegacyTransactionCmds", + "name": "LegacyTransactionCmds TransactionBuildRawCmd TransactionBuildCmd TransactionSignCmd TransactionWitnessCmd TransactionSignWitnessCmd TransactionSubmitCmd TransactionPolicyIdCmd TransactionCalculateMinFeeCmd TransactionCalculateMinValueCmd TransactionHashScriptDataCmd TransactionTxIdCmd TransactionViewCmd", + "module": "Cardano.CLI.Legacy.Commands.Transaction", + "link": "lib/Cardano-CLI-Legacy-Commands-Transaction.html#t:LegacyTransactionCmds" + }, + { + "display_html": "renderLegacyTransactionCmds ∷ LegacyTransactionCmds → Text", + "name": "renderLegacyTransactionCmds", + "module": "Cardano.CLI.Legacy.Commands.Transaction", + "link": "lib/Cardano-CLI-Legacy-Commands-Transaction.html#v:renderLegacyTransactionCmds" + }, + { + "display_html": "data TransactionCmds era", + "name": "TransactionCmds TransactionBuildRawCmd TransactionBuildCmd TransactionSignCmd TransactionWitnessCmd TransactionSignWitnessCmd TransactionSubmitCmd TransactionPolicyIdCmd TransactionCalculateMinFeeCmd TransactionCalculateMinValueCmd TransactionHashScriptDataCmd TransactionTxIdCmd TransactionViewCmd", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCmds" + }, + { + "display_html": "data TransactionBuildRawCmdArgs era = TransactionBuildRawCmdArgs {}", + "name": "TransactionBuildRawCmdArgs TransactionBuildRawCmdArgs $sel:txInsCollateral:TransactionBuildRawCmdArgs $sel:txIns:TransactionBuildRawCmdArgs $sel:txouts:TransactionBuildRawCmdArgs $sel:withdrawals:TransactionBuildRawCmdArgs $sel:fee:TransactionBuildRawCmdArgs $sel:eon:TransactionBuildRawCmdArgs $sel:certificates:TransactionBuildRawCmdArgs $sel:mValue:TransactionBuildRawCmdArgs $sel:mScriptValidity:TransactionBuildRawCmdArgs $sel:readOnlyRefIns:TransactionBuildRawCmdArgs $sel:mReturnCollateral:TransactionBuildRawCmdArgs $sel:mTotalCollateral:TransactionBuildRawCmdArgs $sel:requiredSigners:TransactionBuildRawCmdArgs $sel:mValidityLowerBound:TransactionBuildRawCmdArgs $sel:mValidityUpperBound:TransactionBuildRawCmdArgs $sel:metadataSchema:TransactionBuildRawCmdArgs $sel:scriptFiles:TransactionBuildRawCmdArgs $sel:metadataFiles:TransactionBuildRawCmdArgs $sel:mProtocolParamsFile:TransactionBuildRawCmdArgs $sel:mUpdateProprosalFile:TransactionBuildRawCmdArgs $sel:voteFiles:TransactionBuildRawCmdArgs $sel:proposalFiles:TransactionBuildRawCmdArgs $sel:txBodyOutFile:TransactionBuildRawCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionBuildRawCmdArgs" + }, + { + "display_html": "data TransactionBuildCmdArgs era = TransactionBuildCmdArgs {}", + "name": "TransactionBuildCmdArgs TransactionBuildCmdArgs $sel:txouts:TransactionBuildCmdArgs $sel:networkId:TransactionBuildCmdArgs $sel:txins:TransactionBuildCmdArgs $sel:withdrawals:TransactionBuildCmdArgs $sel:eon:TransactionBuildCmdArgs $sel:certificates:TransactionBuildCmdArgs $sel:mValue:TransactionBuildCmdArgs $sel:nodeSocketPath:TransactionBuildCmdArgs $sel:mScriptValidity:TransactionBuildCmdArgs $sel:mReturnCollateral:TransactionBuildCmdArgs $sel:mTotalCollateral:TransactionBuildCmdArgs $sel:requiredSigners:TransactionBuildCmdArgs $sel:mValidityLowerBound:TransactionBuildCmdArgs $sel:mValidityUpperBound:TransactionBuildCmdArgs $sel:metadataSchema:TransactionBuildCmdArgs $sel:scriptFiles:TransactionBuildCmdArgs $sel:metadataFiles:TransactionBuildCmdArgs $sel:voteFiles:TransactionBuildCmdArgs $sel:proposalFiles:TransactionBuildCmdArgs $sel:consensusModeParams:TransactionBuildCmdArgs $sel:mOverrideWitnesses:TransactionBuildCmdArgs $sel:readOnlyReferenceInputs:TransactionBuildCmdArgs $sel:txinsc:TransactionBuildCmdArgs $sel:changeAddresses:TransactionBuildCmdArgs $sel:mfUpdateProposalFile:TransactionBuildCmdArgs $sel:buildOutputOptions:TransactionBuildCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionBuildCmdArgs" + }, + { + "display_html": "data TransactionSignCmdArgs = TransactionSignCmdArgs {}", + "name": "TransactionSignCmdArgs TransactionSignCmdArgs $sel:mNetworkId:TransactionSignCmdArgs $sel:txOrTxBodyFile:TransactionSignCmdArgs $sel:witnessSigningData:TransactionSignCmdArgs $sel:outTxFile:TransactionSignCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSignCmdArgs" + }, + { + "display_html": "data TransactionWitnessCmdArgs = TransactionWitnessCmdArgs {}", + "name": "TransactionWitnessCmdArgs TransactionWitnessCmdArgs $sel:mNetworkId:TransactionWitnessCmdArgs $sel:outFile:TransactionWitnessCmdArgs $sel:witnessSigningData:TransactionWitnessCmdArgs $sel:txBodyFile:TransactionWitnessCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionWitnessCmdArgs" + }, + { + "display_html": "data TransactionSignWitnessCmdArgs = TransactionSignWitnessCmdArgs {}", + "name": "TransactionSignWitnessCmdArgs TransactionSignWitnessCmdArgs $sel:outFile:TransactionSignWitnessCmdArgs $sel:txBodyFile:TransactionSignWitnessCmdArgs $sel:witnessFiles:TransactionSignWitnessCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSignWitnessCmdArgs" + }, + { + "display_html": "data TransactionSubmitCmdArgs = TransactionSubmitCmdArgs {}", + "name": "TransactionSubmitCmdArgs TransactionSubmitCmdArgs $sel:networkId:TransactionSubmitCmdArgs $sel:txFile:TransactionSubmitCmdArgs $sel:nodeSocketPath:TransactionSubmitCmdArgs $sel:consensusModeParams:TransactionSubmitCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionSubmitCmdArgs" + }, + { + "display_html": "newtype TransactionPolicyIdCmdArgs = TransactionPolicyIdCmdArgs {}", + "name": "TransactionPolicyIdCmdArgs TransactionPolicyIdCmdArgs $sel:scriptFile:TransactionPolicyIdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionPolicyIdCmdArgs" + }, + { + "display_html": "data TransactionCalculateMinFeeCmdArgs = TransactionCalculateMinFeeCmdArgs {}", + "name": "TransactionCalculateMinFeeCmdArgs TransactionCalculateMinFeeCmdArgs $sel:networkId:TransactionCalculateMinFeeCmdArgs $sel:txBodyFile:TransactionCalculateMinFeeCmdArgs $sel:protocolParamsFile:TransactionCalculateMinFeeCmdArgs $sel:txInCount:TransactionCalculateMinFeeCmdArgs $sel:txOutCount:TransactionCalculateMinFeeCmdArgs $sel:txShelleyWitnessCount:TransactionCalculateMinFeeCmdArgs $sel:txByronWitnessCount:TransactionCalculateMinFeeCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCalculateMinFeeCmdArgs" + }, + { + "display_html": "data TransactionCalculateMinValueCmdArgs era = TransactionCalculateMinValueCmdArgs {}", + "name": "TransactionCalculateMinValueCmdArgs TransactionCalculateMinValueCmdArgs $sel:txOut:TransactionCalculateMinValueCmdArgs $sel:eon:TransactionCalculateMinValueCmdArgs $sel:protocolParamsFile:TransactionCalculateMinValueCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionCalculateMinValueCmdArgs" + }, + { + "display_html": "newtype TransactionHashScriptDataCmdArgs = TransactionHashScriptDataCmdArgs {}", + "name": "TransactionHashScriptDataCmdArgs TransactionHashScriptDataCmdArgs $sel:scriptDataOrFile:TransactionHashScriptDataCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionHashScriptDataCmdArgs" + }, + { + "display_html": "newtype TransactionTxIdCmdArgs = TransactionTxIdCmdArgs {}", + "name": "TransactionTxIdCmdArgs TransactionTxIdCmdArgs $sel:inputTxBodyOrTxFile:TransactionTxIdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionTxIdCmdArgs" + }, + { + "display_html": "data TransactionViewCmdArgs = TransactionViewCmdArgs {}", + "name": "TransactionViewCmdArgs TransactionViewCmdArgs $sel:mOutFile:TransactionViewCmdArgs $sel:inputTxBodyOrTxFile:TransactionViewCmdArgs $sel:outputFormat:TransactionViewCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#t:TransactionViewCmdArgs" + }, + { + "display_html": "renderTransactionCmds ∷ TransactionCmds era → Text", + "name": "renderTransactionCmds", + "module": "Cardano.CLI.EraBased.Commands.Transaction", + "link": "lib/Cardano-CLI-EraBased-Commands-Transaction.html#v:renderTransactionCmds" + }, + { + "display_html": "data GovernanceVoteCmds era", + "name": "GovernanceVoteCmds GovernanceVoteCreateCmd GovernanceVoteViewCmd", + "module": "Cardano.CLI.EraBased.Commands.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteCmds" + }, + { + "display_html": "data GovernanceVoteViewCmdArgs era = GovernanceVoteViewCmdArgs {}", + "name": "GovernanceVoteViewCmdArgs GovernanceVoteViewCmdArgs $sel:eon:GovernanceVoteViewCmdArgs $sel:mOutFile:GovernanceVoteViewCmdArgs $sel:yamlOutput:GovernanceVoteViewCmdArgs $sel:voteFile:GovernanceVoteViewCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteViewCmdArgs" + }, + { + "display_html": "data GovernanceVoteCreateCmdArgs era = GovernanceVoteCreateCmdArgs {}", + "name": "GovernanceVoteCreateCmdArgs GovernanceVoteCreateCmdArgs $sel:mAnchor:GovernanceVoteCreateCmdArgs $sel:eon:GovernanceVoteCreateCmdArgs $sel:outFile:GovernanceVoteCreateCmdArgs $sel:voteChoice:GovernanceVoteCreateCmdArgs $sel:governanceAction:GovernanceVoteCreateCmdArgs $sel:votingStakeCredentialSource:GovernanceVoteCreateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html#t:GovernanceVoteCreateCmdArgs" + }, + { + "display_html": "renderGovernanceVoteCmds ∷ GovernanceVoteCmds era → Text", + "name": "renderGovernanceVoteCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Vote.html#v:renderGovernanceVoteCmds" + }, + { + "display_html": "data KeyCmdError", + "name": "KeyCmdError KeyCmdReadFileError KeyCmdReadKeyFileError KeyCmdWriteFileError KeyCmdByronKeyFailure KeyCmdByronKeyParseError KeyCmdItnKeyConvError KeyCmdWrongKeyTypeError KeyCmdCardanoAddressSigningKeyFileError KeyCmdNonLegacyKey KeyCmdExpectedExtendedVerificationKey KeyCmdVerificationKeyReadError", + "module": "Cardano.CLI.Types.Errors.KeyCmdError", + "link": "lib/Cardano-CLI-Types-Errors-KeyCmdError.html#t:KeyCmdError" + }, + { + "display_html": "renderKeyCmdError ∷ KeyCmdError → Text", + "name": "renderKeyCmdError", + "module": "Cardano.CLI.Types.Errors.KeyCmdError", + "link": "lib/Cardano-CLI-Types-Errors-KeyCmdError.html#v:renderKeyCmdError" + }, + { + "display_html": "data MetadataError", + "name": "MetadataError MetadataErrorFile MetadataErrorJsonParseError MetadataErrorConversionError MetadataErrorValidationError MetadataErrorDecodeError MetadataErrorNotAvailableInEra", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:MetadataError" + }, + { + "display_html": "renderMetadataError ∷ MetadataError → Text", + "name": "renderMetadataError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:renderMetadataError" + }, + { + "display_html": "readFileTxMetadata ∷ TxMetadataJsonSchema → MetadataFile → ExceptT MetadataError IO TxMetadata", + "name": "readFileTxMetadata", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileTxMetadata" + }, + { + "display_html": "readTxMetadata ∷ CardanoEra era → TxMetadataJsonSchema → [MetadataFile] → IO (Either MetadataError (TxMetadataInEra era))", + "name": "readTxMetadata", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readTxMetadata" + }, + { + "display_html": "data ScriptWitnessError", + "name": "ScriptWitnessError ScriptWitnessErrorFile ScriptWitnessErrorScriptLanguageNotSupportedInEra ScriptWitnessErrorExpectedSimple ScriptWitnessErrorExpectedPlutus ScriptWitnessErrorReferenceScriptsNotSupportedInEra ScriptWitnessErrorScriptData", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ScriptWitnessError" + }, + { + "display_html": "renderScriptWitnessError ∷ ScriptWitnessError → Text", + "name": "renderScriptWitnessError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:renderScriptWitnessError" + }, + { + "display_html": "readScriptDataOrFile ∷ ScriptDataOrFile → ExceptT ScriptDataError IO HashableScriptData", + "name": "readScriptDataOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptDataOrFile" + }, + { + "display_html": "readScriptWitness ∷ CardanoEra era → ScriptWitnessFiles witctx → ExceptT ScriptWitnessError IO (ScriptWitness witctx era)", + "name": "readScriptWitness", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptWitness" + }, + { + "display_html": "readScriptWitnessFiles ∷ CardanoEra era → [(a, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, Maybe (ScriptWitness ctx era))]", + "name": "readScriptWitnessFiles", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptWitnessFiles" + }, + { + "display_html": "readScriptWitnessFilesThruple ∷ CardanoEra era → [(a, b, Maybe (ScriptWitnessFiles ctx))] → ExceptT ScriptWitnessError IO [(a, b, Maybe (ScriptWitness ctx era))]", + "name": "readScriptWitnessFilesThruple", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptWitnessFilesThruple" + }, + { + "display_html": "data ScriptDecodeError", + "name": "ScriptDecodeError ScriptDecodeTextEnvelopeError ScriptDecodeSimpleScriptError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ScriptDecodeError" + }, + { + "display_html": "deserialiseScriptInAnyLang ∷ ByteString → Either ScriptDecodeError ScriptInAnyLang", + "name": "deserialiseScriptInAnyLang", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:deserialiseScriptInAnyLang" + }, + { + "display_html": "readFileScriptInAnyLang ∷ FilePath → ExceptT (FileError ScriptDecodeError) IO ScriptInAnyLang", + "name": "readFileScriptInAnyLang", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileScriptInAnyLang" + }, + { + "display_html": "data ScriptDataError", + "name": "ScriptDataError ScriptDataErrorFile ScriptDataErrorJsonParse ScriptDataErrorConversion ScriptDataErrorValidation ScriptDataErrorMetadataDecode ScriptDataErrorJsonBytes", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ScriptDataError" + }, + { + "display_html": "readScriptDatumOrFile ∷ ScriptDatumOrFile witctx → ExceptT ScriptDataError IO (ScriptDatum witctx)", + "name": "readScriptDatumOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptDatumOrFile" + }, + { + "display_html": "readScriptRedeemerOrFile ∷ ScriptRedeemerOrFile → ExceptT ScriptDataError IO ScriptRedeemer", + "name": "readScriptRedeemerOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readScriptRedeemerOrFile" + }, + { + "display_html": "renderScriptDataError ∷ ScriptDataError → Text", + "name": "renderScriptDataError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:renderScriptDataError" + }, + { + "display_html": "data CddlError", + "name": "CddlError CddlErrorTextEnv CddlIOError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:CddlError" + }, + { + "display_html": "newtype CddlTx = CddlTx {}", + "name": "CddlTx CddlTx unCddlTx", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:CddlTx" + }, + { + "display_html": "data IncompleteTx", + "name": "IncompleteTx UnwitnessedCliFormattedTxBody IncompleteCddlFormattedTx", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:IncompleteTx" + }, + { + "display_html": "readFileTx ∷ FileOrPipe → IO (Either CddlError (InAnyCardanoEra Tx))", + "name": "readFileTx", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileTx" + }, + { + "display_html": "readFileTxBody ∷ FileOrPipe → IO (Either CddlError IncompleteTx)", + "name": "readFileTxBody", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileTxBody" + }, + { + "display_html": "readCddlTx ∷ FileOrPipe → IO (Either (FileError TextEnvelopeCddlError) CddlTx)", + "name": "readCddlTx", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readCddlTx" + }, + { + "display_html": "data ReadWitnessSigningDataError", + "name": "ReadWitnessSigningDataError ReadWitnessSigningDataSigningKeyDecodeError ReadWitnessSigningDataScriptError ReadWitnessSigningDataSigningKeyAndAddressMismatch", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ReadWitnessSigningDataError" + }, + { + "display_html": "renderReadWitnessSigningDataError ∷ ReadWitnessSigningDataError → Text", + "name": "renderReadWitnessSigningDataError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:renderReadWitnessSigningDataError" + }, + { + "display_html": "data SomeSigningWitness", + "name": "SomeSigningWitness AByronSigningWitness APaymentSigningWitness APaymentExtendedSigningWitness AStakeSigningWitness AStakeExtendedSigningWitness AStakePoolSigningWitness AGenesisSigningWitness AGenesisExtendedSigningWitness AGenesisDelegateSigningWitness AGenesisDelegateExtendedSigningWitness AGenesisUTxOSigningWitness ADRepSigningWitness ACommitteeColdSigningWitness ACommitteeHotSigningWitness", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:SomeSigningWitness" + }, + { + "display_html": "data ByronOrShelleyWitness", + "name": "ByronOrShelleyWitness AByronWitness AShelleyKeyWitness", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ByronOrShelleyWitness" + }, + { + "display_html": "data ShelleyBootstrapWitnessSigningKeyData = ShelleyBootstrapWitnessSigningKeyData !(SigningKey ByronKey) !(Maybe (Address ByronAddr))", + "name": "ShelleyBootstrapWitnessSigningKeyData ShelleyBootstrapWitnessSigningKeyData", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ShelleyBootstrapWitnessSigningKeyData" + }, + { + "display_html": "data CddlWitnessError", + "name": "CddlWitnessError CddlWitnessErrorTextEnv CddlWitnessIOError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:CddlWitnessError" + }, + { + "display_html": "readFileTxKeyWitness ∷ FilePath → IO (Either CddlWitnessError (InAnyCardanoEra KeyWitness))", + "name": "readFileTxKeyWitness", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileTxKeyWitness" + }, + { + "display_html": "readWitnessSigningData ∷ WitnessSigningData → IO (Either ReadWitnessSigningDataError SomeSigningWitness)", + "name": "readWitnessSigningData", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readWitnessSigningData" + }, + { + "display_html": "data RequiredSignerError", + "name": "RequiredSignerError RequiredSignerErrorFile RequiredSignerErrorByronKey", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:RequiredSignerError" + }, + { + "display_html": "categoriseSomeSigningWitness ∷ SomeSigningWitness → ByronOrShelleyWitness", + "name": "categoriseSomeSigningWitness", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:categoriseSomeSigningWitness" + }, + { + "display_html": "readRequiredSigner ∷ RequiredSigner → IO (Either RequiredSignerError (Hash PaymentKey))", + "name": "readRequiredSigner", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readRequiredSigner" + }, + { + "display_html": "data ConstitutionError", + "name": "ConstitutionError ConstitutionErrorFile ConstitutionNotSupportedInEra ConstitutionNotUnicodeError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ConstitutionError" + }, + { + "display_html": "data ProposalError", + "name": "ProposalError ProposalErrorFile ProposalNotSupportedInEra ProposalNotUnicodeError", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ProposalError" + }, + { + "display_html": "data VoteError", + "name": "VoteError VoteErrorFile VoteErrorTextNotUnicode", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:VoteError" + }, + { + "display_html": "readTxGovernanceActions ∷ CardanoEra era → [ProposalFile In] → IO (Either ConstitutionError [Proposal era])", + "name": "readTxGovernanceActions", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readTxGovernanceActions" + }, + { + "display_html": "constitutionHashSourceToHash ∷ ConstitutionHashSource → ExceptT ConstitutionError IO (SafeHash StandardCrypto AnchorData)", + "name": "constitutionHashSourceToHash", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:constitutionHashSourceToHash" + }, + { + "display_html": "readProposal ∷ ConwayEraOnwards era → ProposalFile In → IO (Either (FileError TextEnvelopeError) (Proposal era))", + "name": "readProposal", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readProposal" + }, + { + "display_html": "data FileOrPipe", + "name": "FileOrPipe", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:FileOrPipe" + }, + { + "display_html": "fileOrPipe ∷ FilePath → IO FileOrPipe", + "name": "fileOrPipe", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:fileOrPipe" + }, + { + "display_html": "fileOrPipePath ∷ FileOrPipe → FilePath", + "name": "fileOrPipePath", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:fileOrPipePath" + }, + { + "display_html": "fileOrPipeCache ∷ FileOrPipe → IO (Maybe ByteString)", + "name": "fileOrPipeCache", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:fileOrPipeCache" + }, + { + "display_html": "readFileOrPipe ∷ FileOrPipe → IO ByteString", + "name": "readFileOrPipe", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readFileOrPipe" + }, + { + "display_html": "getStakeCredentialFromVerifier ∷ StakeVerifier → ExceptT StakeCredentialError IO StakeCredential", + "name": "getStakeCredentialFromVerifier", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getStakeCredentialFromVerifier" + }, + { + "display_html": "getStakeCredentialFromIdentifier ∷ StakeIdentifier → ExceptT StakeCredentialError IO StakeCredential", + "name": "getStakeCredentialFromIdentifier", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getStakeCredentialFromIdentifier" + }, + { + "display_html": "getStakeAddressFromVerifier ∷ NetworkId → StakeVerifier → ExceptT StakeCredentialError IO StakeAddress", + "name": "getStakeAddressFromVerifier", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getStakeAddressFromVerifier" + }, + { + "display_html": "readVotingProceduresFiles ∷ ConwayEraOnwards era → [VoteFile In] → IO (Either VoteError (VotingProcedures era))", + "name": "readVotingProceduresFiles", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readVotingProceduresFiles" + }, + { + "display_html": "readVotingProceduresFile ∷ ConwayEraOnwards era → VoteFile In → IO (Either VoteError (VotingProcedures era))", + "name": "readVotingProceduresFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readVotingProceduresFile" + }, + { + "display_html": "getDRepCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile DRepKey → ExceptT (FileError InputDecodeError) IO (Credential DRepRole StandardCrypto)", + "name": "getDRepCredentialFromVerKeyHashOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getDRepCredentialFromVerKeyHashOrFile" + }, + { + "display_html": "getCommitteeColdCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeColdKey → ExceptT (FileError InputDecodeError) IO (Credential ColdCommitteeRole StandardCrypto)", + "name": "getCommitteeColdCredentialFromVerKeyHashOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getCommitteeColdCredentialFromVerKeyHashOrFile" + }, + { + "display_html": "getCommitteeHotCredentialFromVerKeyHashOrFile ∷ VerificationKeyOrHashOrFile CommitteeHotKey → ExceptT (FileError InputDecodeError) IO (Credential HotCommitteeRole StandardCrypto)", + "name": "getCommitteeHotCredentialFromVerKeyHashOrFile", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:getCommitteeHotCredentialFromVerKeyHashOrFile" + }, + { + "display_html": "data ReadSafeHashError", + "name": "ReadSafeHashError ReadSafeHashErrorNotHex ReadSafeHashErrorInvalidHash", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#t:ReadSafeHashError" + }, + { + "display_html": "readHexAsSafeHash ∷ Text → Either ReadSafeHashError (SafeHash StandardCrypto AnchorData)", + "name": "readHexAsSafeHash", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readHexAsSafeHash" + }, + { + "display_html": "readSafeHash ∷ ReadM (SafeHash StandardCrypto AnchorData)", + "name": "readSafeHash", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readSafeHash" + }, + { + "display_html": "scriptHashReader ∷ ReadM ScriptHash", + "name": "scriptHashReader", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:scriptHashReader" + }, + { + "display_html": "readTxUpdateProposal ∷ ShelleyToBabbageEra era → UpdateProposalFile → ExceptT (FileError TextEnvelopeError) IO (TxUpdateProposal era)", + "name": "readTxUpdateProposal", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readTxUpdateProposal" + }, + { + "display_html": "readVoteDelegationTarget ∷ VoteDelegationTarget → ExceptT DelegationError IO (DRep StandardCrypto)", + "name": "readVoteDelegationTarget", + "module": "Cardano.CLI.Read", + "link": "lib/Cardano-CLI-Read.html#v:readVoteDelegationTarget" + }, + { + "display_html": "data GovernanceVoteCmdError", + "name": "GovernanceVoteCmdError GovernanceVoteCmdReadVoteTextError GovernanceVoteCmdWriteError GovernanceVoteCmdCredentialDecodeError GovernanceVoteCmdReadVoteFileError GovernanceVoteCmdReadVerificationKeyError", + "module": "Cardano.CLI.Types.Errors.GovernanceVoteCmdError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceVoteCmdError.html#t:GovernanceVoteCmdError" + }, + { + "display_html": "data GovernanceCmdError", + "name": "GovernanceCmdError GovernanceCmdGenesisDelegationNotSupportedInConway GovernanceCmdMIRCertNotSupportedInConway GovernanceCmdDRepMetadataValidationError GovernanceCmdWriteFileError GovernanceCmdVerifyPollError GovernanceCmdDecoderError GovernanceCmdPollInvalidChoice GovernanceCmdPollOutOfBoundAnswer GovernanceCmdUnexpectedKeyType GovernanceCmdEmptyCostModel GovernanceCmdCostModelsJsonDecodeErr GovernanceCmdMIRCertificateKeyRewardMistmach GovernanceCmdEmptyUpdateProposalError GovernanceCmdTextEnvWriteError GovernanceCmdCostModelReadError GovernanceCmdKeyReadError GovernanceCmdCddlError GovernanceCmdTextEnvReadError GovernanceCmdProposalError GovernanceCmdHashError GovernanceCmdConstitutionError ReadFileError WriteFileError VotingCredentialDecodeGovCmdEror StakeCredGovCmdError", + "module": "Cardano.CLI.Types.Errors.GovernanceCmdError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceCmdError.html#t:GovernanceCmdError" + }, + { + "display_html": "data GovernanceActionsError", + "name": "GovernanceActionsError GovernanceActionsCmdConstitutionError GovernanceActionsCmdProposalError GovernanceActionsCmdReadFileError GovernanceActionsCmdReadTextEnvelopeFileError GovernanceActionsCmdWriteFileError GovernanceActionsValueUpdateProtocolParametersNotFound", + "module": "Cardano.CLI.Types.Errors.GovernanceActionsError", + "link": "lib/Cardano-CLI-Types-Errors-GovernanceActionsError.html#t:GovernanceActionsError" + }, + { + "display_html": "data AddressCmdError", + "name": "AddressCmdError AddressCmdAddressInfoError AddressCmdReadKeyFileError AddressCmdReadScriptFileError AddressCmdVerificationKeyTextOrFileError AddressCmdWriteFileError AddressCmdExpectedPaymentVerificationKey", + "module": "Cardano.CLI.Types.Errors.AddressCmdError", + "link": "lib/Cardano-CLI-Types-Errors-AddressCmdError.html#t:AddressCmdError" + }, + { + "display_html": "renderAddressCmdError ∷ AddressCmdError → Text", + "name": "renderAddressCmdError", + "module": "Cardano.CLI.Types.Errors.AddressCmdError", + "link": "lib/Cardano-CLI-Types-Errors-AddressCmdError.html#v:renderAddressCmdError" + }, + { + "display_html": "data GenesisCmdError", + "name": "GenesisCmdError GenesisCmdAesonDecodeError GenesisCmdGenesisFileReadError GenesisCmdGenesisFileDecodeError GenesisCmdGenesisFileError GenesisCmdFileError GenesisCmdMismatchedGenesisKeyFiles GenesisCmdFilesNoIndex GenesisCmdFilesDupIndex GenesisCmdTextEnvReadFileError GenesisCmdUnexpectedAddressVerificationKey GenesisCmdTooFewPoolsForBulkCreds GenesisCmdAddressCmdError GenesisCmdNodeCmdError GenesisCmdStakeAddressCmdError GenesisCmdStakePoolCmdError GenesisCmdCostModelsError GenesisCmdByronError GenesisCmdStakePoolRelayFileError GenesisCmdStakePoolRelayJsonDecodeError", + "module": "Cardano.CLI.Types.Errors.GenesisCmdError", + "link": "lib/Cardano-CLI-Types-Errors-GenesisCmdError.html#t:GenesisCmdError" + }, + { + "display_html": "data QueryCmdError", + "name": "QueryCmdError QueryCmdLocalStateQueryError QueryCmdConvenienceError QueryCmdWriteFileError QueryCmdHelpersError QueryCmdAcquireFailure QueryCmdByronEra QueryCmdEraMismatch QueryCmdPastHorizon QueryCmdSystemStartUnavailable QueryCmdGenesisReadError QueryCmdLeaderShipError QueryCmdTextEnvelopeReadError QueryCmdTextReadError QueryCmdOpCertCounterReadError QueryCmdProtocolStateDecodeFailure QueryCmdPoolStateDecodeError QueryCmdStakeSnapshotDecodeError QueryCmdUnsupportedNtcVersion QueryCmdProtocolParameterConversionError QueryCmdDRepKeyError QueryCmdCommitteeColdKeyError QueryCmdCommitteeHotKeyError", + "module": "Cardano.CLI.Types.Errors.QueryCmdError", + "link": "lib/Cardano-CLI-Types-Errors-QueryCmdError.html#t:QueryCmdError" + }, + { + "display_html": "renderQueryCmdError ∷ QueryCmdError → Text", + "name": "renderQueryCmdError", + "module": "Cardano.CLI.Types.Errors.QueryCmdError", + "link": "lib/Cardano-CLI-Types-Errors-QueryCmdError.html#v:renderQueryCmdError" + }, + { + "display_html": "runGovernancePollCmds ∷ GovernancePollCmds era → ExceptT GovernanceCmdError IO ()", + "name": "runGovernancePollCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernancePollCmds" + }, + { + "display_html": "runGovernanceCreatePollCmd ∷ GovernanceCreatePollCmdArgs era → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceCreatePollCmd", + "module": "Cardano.CLI.EraBased.Run.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceCreatePollCmd" + }, + { + "display_html": "runGovernanceAnswerPollCmd ∷ GovernanceAnswerPollCmdArgs era → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceAnswerPollCmd", + "module": "Cardano.CLI.EraBased.Run.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceAnswerPollCmd" + }, + { + "display_html": "runGovernanceVerifyPollCmd ∷ GovernanceVerifyPollCmdArgs era → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceVerifyPollCmd", + "module": "Cardano.CLI.EraBased.Run.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Poll.html#v:runGovernanceVerifyPollCmd" + }, + { + "display_html": "data LegacyStakePoolCmds", + "name": "LegacyStakePoolCmds StakePoolDeregistrationCertificateCmd StakePoolIdCmd StakePoolMetadataHashCmd StakePoolRegistrationCertificateCmd", + "module": "Cardano.CLI.Legacy.Commands.StakePool", + "link": "lib/Cardano-CLI-Legacy-Commands-StakePool.html#t:LegacyStakePoolCmds" + }, + { + "display_html": "renderLegacyStakePoolCmds ∷ LegacyStakePoolCmds → Text", + "name": "renderLegacyStakePoolCmds", + "module": "Cardano.CLI.Legacy.Commands.StakePool", + "link": "lib/Cardano-CLI-Legacy-Commands-StakePool.html#v:renderLegacyStakePoolCmds" + }, + { + "display_html": "data LegacyStakeAddressCmds", + "name": "LegacyStakeAddressCmds StakeAddressKeyGenCmd StakeAddressKeyHashCmd StakeAddressBuildCmd StakeAddressRegistrationCertificateCmd StakeAddressDelegationCertificateCmd StakeAddressDeregistrationCertificateCmd", + "module": "Cardano.CLI.Legacy.Commands.StakeAddress", + "link": "lib/Cardano-CLI-Legacy-Commands-StakeAddress.html#t:LegacyStakeAddressCmds" + }, + { + "display_html": "renderLegacyStakeAddressCmds ∷ LegacyStakeAddressCmds → Text", + "name": "renderLegacyStakeAddressCmds", + "module": "Cardano.CLI.Legacy.Commands.StakeAddress", + "link": "lib/Cardano-CLI-Legacy-Commands-StakeAddress.html#v:renderLegacyStakeAddressCmds" + }, + { + "display_html": "data LegacyQueryCmds", + "name": "LegacyQueryCmds QueryLeadershipScheduleCmd QueryProtocolParametersCmd QueryConstitutionHashCmd QueryTipCmd QueryStakePoolsCmd QueryStakeDistributionCmd QueryStakeAddressInfoCmd QueryUTxOCmd QueryLedgerStateCmd QueryProtocolStateCmd QueryStakeSnapshotCmd QueryKesPeriodInfoCmd QueryPoolStateCmd QueryTxMempoolCmd QuerySlotNumberCmd", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryCmds" + }, + { + "display_html": "data LegacyQueryLeadershipScheduleCmdArgs = LegacyQueryLeadershipScheduleCmdArgs {}", + "name": "LegacyQueryLeadershipScheduleCmdArgs LegacyQueryLeadershipScheduleCmdArgs $sel:networkId:LegacyQueryLeadershipScheduleCmdArgs $sel:mOutFile:LegacyQueryLeadershipScheduleCmdArgs $sel:nodeSocketPath:LegacyQueryLeadershipScheduleCmdArgs $sel:consensusModeParams:LegacyQueryLeadershipScheduleCmdArgs $sel:genesisFp:LegacyQueryLeadershipScheduleCmdArgs $sel:poolColdVerKeyFile:LegacyQueryLeadershipScheduleCmdArgs $sel:vrkSkeyFp:LegacyQueryLeadershipScheduleCmdArgs $sel:whichSchedule:LegacyQueryLeadershipScheduleCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryLeadershipScheduleCmdArgs" + }, + { + "display_html": "data LegacyQueryProtocolParametersCmdArgs = LegacyQueryProtocolParametersCmdArgs {}", + "name": "LegacyQueryProtocolParametersCmdArgs LegacyQueryProtocolParametersCmdArgs $sel:networkId:LegacyQueryProtocolParametersCmdArgs $sel:mOutFile:LegacyQueryProtocolParametersCmdArgs $sel:nodeSocketPath:LegacyQueryProtocolParametersCmdArgs $sel:consensusModeParams:LegacyQueryProtocolParametersCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryProtocolParametersCmdArgs" + }, + { + "display_html": "data LegacyQueryConstitutionHashCmdArgs = LegacyQueryConstitutionHashCmdArgs {}", + "name": "LegacyQueryConstitutionHashCmdArgs LegacyQueryConstitutionHashCmdArgs $sel:networkId:LegacyQueryConstitutionHashCmdArgs $sel:mOutFile:LegacyQueryConstitutionHashCmdArgs $sel:nodeSocketPath:LegacyQueryConstitutionHashCmdArgs $sel:consensusModeParams:LegacyQueryConstitutionHashCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryConstitutionHashCmdArgs" + }, + { + "display_html": "data LegacyQueryTipCmdArgs = LegacyQueryTipCmdArgs {}", + "name": "LegacyQueryTipCmdArgs LegacyQueryTipCmdArgs $sel:networkId:LegacyQueryTipCmdArgs $sel:mOutFile:LegacyQueryTipCmdArgs $sel:nodeSocketPath:LegacyQueryTipCmdArgs $sel:consensusModeParams:LegacyQueryTipCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryTipCmdArgs" + }, + { + "display_html": "data LegacyQueryStakePoolsCmdArgs = LegacyQueryStakePoolsCmdArgs {}", + "name": "LegacyQueryStakePoolsCmdArgs LegacyQueryStakePoolsCmdArgs $sel:networkId:LegacyQueryStakePoolsCmdArgs $sel:mOutFile:LegacyQueryStakePoolsCmdArgs $sel:nodeSocketPath:LegacyQueryStakePoolsCmdArgs $sel:consensusModeParams:LegacyQueryStakePoolsCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakePoolsCmdArgs" + }, + { + "display_html": "data LegacyQueryStakeDistributionCmdArgs = LegacyQueryStakeDistributionCmdArgs {}", + "name": "LegacyQueryStakeDistributionCmdArgs LegacyQueryStakeDistributionCmdArgs $sel:networkId:LegacyQueryStakeDistributionCmdArgs $sel:mOutFile:LegacyQueryStakeDistributionCmdArgs $sel:nodeSocketPath:LegacyQueryStakeDistributionCmdArgs $sel:consensusModeParams:LegacyQueryStakeDistributionCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeDistributionCmdArgs" + }, + { + "display_html": "data LegacyQueryStakeAddressInfoCmdArgs = LegacyQueryStakeAddressInfoCmdArgs {}", + "name": "LegacyQueryStakeAddressInfoCmdArgs LegacyQueryStakeAddressInfoCmdArgs $sel:networkId:LegacyQueryStakeAddressInfoCmdArgs $sel:addr:LegacyQueryStakeAddressInfoCmdArgs $sel:mOutFile:LegacyQueryStakeAddressInfoCmdArgs $sel:nodeSocketPath:LegacyQueryStakeAddressInfoCmdArgs $sel:consensusModeParams:LegacyQueryStakeAddressInfoCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeAddressInfoCmdArgs" + }, + { + "display_html": "data LegacyQueryUTxOCmdArgs = LegacyQueryUTxOCmdArgs {}", + "name": "LegacyQueryUTxOCmdArgs LegacyQueryUTxOCmdArgs $sel:networkId:LegacyQueryUTxOCmdArgs $sel:mOutFile:LegacyQueryUTxOCmdArgs $sel:nodeSocketPath:LegacyQueryUTxOCmdArgs $sel:consensusModeParams:LegacyQueryUTxOCmdArgs $sel:queryFilter:LegacyQueryUTxOCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryUTxOCmdArgs" + }, + { + "display_html": "data LegacyQueryLedgerStateCmdArgs = LegacyQueryLedgerStateCmdArgs {}", + "name": "LegacyQueryLedgerStateCmdArgs LegacyQueryLedgerStateCmdArgs $sel:networkId:LegacyQueryLedgerStateCmdArgs $sel:mOutFile:LegacyQueryLedgerStateCmdArgs $sel:nodeSocketPath:LegacyQueryLedgerStateCmdArgs $sel:consensusModeParams:LegacyQueryLedgerStateCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryLedgerStateCmdArgs" + }, + { + "display_html": "data LegacyQueryProtocolStateCmdArgs = LegacyQueryProtocolStateCmdArgs {}", + "name": "LegacyQueryProtocolStateCmdArgs LegacyQueryProtocolStateCmdArgs $sel:networkId:LegacyQueryProtocolStateCmdArgs $sel:mOutFile:LegacyQueryProtocolStateCmdArgs $sel:nodeSocketPath:LegacyQueryProtocolStateCmdArgs $sel:consensusModeParams:LegacyQueryProtocolStateCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryProtocolStateCmdArgs" + }, + { + "display_html": "data LegacyQueryStakeSnapshotCmdArgs = LegacyQueryStakeSnapshotCmdArgs {}", + "name": "LegacyQueryStakeSnapshotCmdArgs LegacyQueryStakeSnapshotCmdArgs $sel:networkId:LegacyQueryStakeSnapshotCmdArgs $sel:mOutFile:LegacyQueryStakeSnapshotCmdArgs $sel:nodeSocketPath:LegacyQueryStakeSnapshotCmdArgs $sel:consensusModeParams:LegacyQueryStakeSnapshotCmdArgs $sel:allOrOnlyPoolIds:LegacyQueryStakeSnapshotCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryStakeSnapshotCmdArgs" + }, + { + "display_html": "data LegacyQueryKesPeriodInfoCmdArgs = LegacyQueryKesPeriodInfoCmdArgs {}", + "name": "LegacyQueryKesPeriodInfoCmdArgs LegacyQueryKesPeriodInfoCmdArgs $sel:networkId:LegacyQueryKesPeriodInfoCmdArgs $sel:mOutFile:LegacyQueryKesPeriodInfoCmdArgs $sel:nodeSocketPath:LegacyQueryKesPeriodInfoCmdArgs $sel:consensusModeParams:LegacyQueryKesPeriodInfoCmdArgs $sel:nodeOpCertFp:LegacyQueryKesPeriodInfoCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryKesPeriodInfoCmdArgs" + }, + { + "display_html": "data LegacyQueryPoolStateCmdArgs = LegacyQueryPoolStateCmdArgs {}", + "name": "LegacyQueryPoolStateCmdArgs LegacyQueryPoolStateCmdArgs $sel:networkId:LegacyQueryPoolStateCmdArgs $sel:nodeSocketPath:LegacyQueryPoolStateCmdArgs $sel:consensusModeParams:LegacyQueryPoolStateCmdArgs $sel:poolIds:LegacyQueryPoolStateCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryPoolStateCmdArgs" + }, + { + "display_html": "data LegacyQueryTxMempoolCmdArgs = LegacyQueryTxMempoolCmdArgs {}", + "name": "LegacyQueryTxMempoolCmdArgs LegacyQueryTxMempoolCmdArgs $sel:networkId:LegacyQueryTxMempoolCmdArgs $sel:query:LegacyQueryTxMempoolCmdArgs $sel:mOutFile:LegacyQueryTxMempoolCmdArgs $sel:nodeSocketPath:LegacyQueryTxMempoolCmdArgs $sel:consensusModeParams:LegacyQueryTxMempoolCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQueryTxMempoolCmdArgs" + }, + { + "display_html": "data LegacyQuerySlotNumberCmdArgs = LegacyQuerySlotNumberCmdArgs {}", + "name": "LegacyQuerySlotNumberCmdArgs LegacyQuerySlotNumberCmdArgs $sel:utcTime:LegacyQuerySlotNumberCmdArgs $sel:networkId:LegacyQuerySlotNumberCmdArgs $sel:nodeSocketPath:LegacyQuerySlotNumberCmdArgs $sel:consensusModeParams:LegacyQuerySlotNumberCmdArgs", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#t:LegacyQuerySlotNumberCmdArgs" + }, + { + "display_html": "renderLegacyQueryCmds ∷ LegacyQueryCmds → Text", + "name": "renderLegacyQueryCmds", + "module": "Cardano.CLI.Legacy.Commands.Query", + "link": "lib/Cardano-CLI-Legacy-Commands-Query.html#v:renderLegacyQueryCmds" + }, + { + "display_html": "data LegacyGovernanceCmds", + "name": "LegacyGovernanceCmds GovernanceUpdateProposal GovernanceGenesisKeyDelegationCertificate GovernanceCreateMirCertificateTransferToReservesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateStakeAddressesCmd GovernanceVerifyPoll GovernanceAnswerPoll GovernanceCreatePoll", + "module": "Cardano.CLI.Legacy.Commands.Governance", + "link": "lib/Cardano-CLI-Legacy-Commands-Governance.html#t:LegacyGovernanceCmds" + }, + { + "display_html": "renderLegacyGovernanceCmds ∷ LegacyGovernanceCmds → Text", + "name": "renderLegacyGovernanceCmds", + "module": "Cardano.CLI.Legacy.Commands.Governance", + "link": "lib/Cardano-CLI-Legacy-Commands-Governance.html#v:renderLegacyGovernanceCmds" + }, + { + "display_html": "data LegacyAddressCmds", + "name": "LegacyAddressCmds AddressInfo AddressKeyGen AddressKeyHash AddressBuild", + "module": "Cardano.CLI.Legacy.Commands.Address", + "link": "lib/Cardano-CLI-Legacy-Commands-Address.html#t:LegacyAddressCmds" + }, + { + "display_html": "renderLegacyAddressCmds ∷ LegacyAddressCmds → Text", + "name": "renderLegacyAddressCmds", + "module": "Cardano.CLI.Legacy.Commands.Address", + "link": "lib/Cardano-CLI-Legacy-Commands-Address.html#v:renderLegacyAddressCmds" + }, + { + "display_html": "runKeyCmds ∷ KeyCmds era → ExceptT KeyCmdError IO ()", + "name": "runKeyCmds", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runKeyCmds" + }, + { + "display_html": "runConvertByronGenesisVKeyCmd ∷ KeyConvertByronGenesisVKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertByronGenesisVKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertByronGenesisVKeyCmd" + }, + { + "display_html": "runConvertByronKeyCmd ∷ KeyConvertByronKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertByronKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertByronKeyCmd" + }, + { + "display_html": "runConvertCardanoAddressKeyCmd ∷ KeyConvertCardanoAddressKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertCardanoAddressKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertCardanoAddressKeyCmd" + }, + { + "display_html": "runConvertITNBip32KeyCmd ∷ KeyConvertITNBip32KeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertITNBip32KeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNBip32KeyCmd" + }, + { + "display_html": "runConvertITNExtendedKeyCmd ∷ KeyConvertITNExtendedKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertITNExtendedKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNExtendedKeyCmd" + }, + { + "display_html": "runConvertITNKeyCmd ∷ KeyConvertITNKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runConvertITNKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runConvertITNKeyCmd" + }, + { + "display_html": "runNonExtendedKeyCmd ∷ KeyNonExtendedKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runNonExtendedKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runNonExtendedKeyCmd" + }, + { + "display_html": "runVerificationKeyCmd ∷ KeyVerificationKeyCmdArgs → ExceptT KeyCmdError IO ()", + "name": "runVerificationKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:runVerificationKeyCmd" + }, + { + "display_html": "drepVkeyDesc ∷ TextEnvelopeDescr", + "name": "drepVkeyDesc", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:drepVkeyDesc" + }, + { + "display_html": "genesisVkeyDesc ∷ TextEnvelopeDescr", + "name": "genesisVkeyDesc", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:genesisVkeyDesc" + }, + { + "display_html": "genesisVkeyDelegateDesc ∷ TextEnvelopeDescr", + "name": "genesisVkeyDelegateDesc", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:genesisVkeyDelegateDesc" + }, + { + "display_html": "stakeVkeyDesc ∷ TextEnvelopeDescr", + "name": "stakeVkeyDesc", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:stakeVkeyDesc" + }, + { + "display_html": "paymentVkeyDesc ∷ TextEnvelopeDescr", + "name": "paymentVkeyDesc", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:paymentVkeyDesc" + }, + { + "display_html": "decodeBech32 ∷ Text → Either Bech32DecodeError (HumanReadablePart, DataPart, ByteString)", + "name": "decodeBech32", + "module": "Cardano.CLI.EraBased.Run.Key", + "link": "lib/Cardano-CLI-EraBased-Run-Key.html#v:decodeBech32" + }, + { + "display_html": "runLegacyKeyCmds ∷ LegacyKeyCmds → ExceptT KeyCmdError IO ()", + "name": "runLegacyKeyCmds", + "module": "Cardano.CLI.Legacy.Run.Key", + "link": "lib/Cardano-CLI-Legacy-Run-Key.html#v:runLegacyKeyCmds" + }, + { + "display_html": "runGovernanceGenesisKeyDelegationCertificate ∷ ShelleyToBabbageEra era → VerificationKeyOrHashOrFile GenesisKey → VerificationKeyOrHashOrFile GenesisDelegateKey → VerificationKeyOrHashOrFile VrfKey → File () Out → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceGenesisKeyDelegationCertificate", + "module": "Cardano.CLI.EraBased.Run.Governance.GenesisKeyDelegationCertificate", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-GenesisKeyDelegationCertificate.html#v:runGovernanceGenesisKeyDelegationCertificate" + }, + { + "display_html": "data StakePoolCmds era", + "name": "StakePoolCmds StakePoolDeregistrationCertificateCmd StakePoolIdCmd StakePoolMetadataHashCmd StakePoolRegistrationCertificateCmd", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolCmds" + }, + { + "display_html": "renderStakePoolCmds ∷ StakePoolCmds era → Text", + "name": "renderStakePoolCmds", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#v:renderStakePoolCmds" + }, + { + "display_html": "data StakePoolDeregistrationCertificateCmdArgs era = StakePoolDeregistrationCertificateCmdArgs {}", + "name": "StakePoolDeregistrationCertificateCmdArgs StakePoolDeregistrationCertificateCmdArgs $sel:sbe:StakePoolDeregistrationCertificateCmdArgs $sel:outFile:StakePoolDeregistrationCertificateCmdArgs $sel:poolVerificationKeyOrFile:StakePoolDeregistrationCertificateCmdArgs $sel:retireEpoch:StakePoolDeregistrationCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolDeregistrationCertificateCmdArgs" + }, + { + "display_html": "data StakePoolIdCmdArgs era = StakePoolIdCmdArgs {}", + "name": "StakePoolIdCmdArgs StakePoolIdCmdArgs $sel:mOutFile:StakePoolIdCmdArgs $sel:outputFormat:StakePoolIdCmdArgs $sel:poolVerificationKeyOrFile:StakePoolIdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolIdCmdArgs" + }, + { + "display_html": "data StakePoolMetadataHashCmdArgs era = StakePoolMetadataHashCmdArgs {}", + "name": "StakePoolMetadataHashCmdArgs StakePoolMetadataHashCmdArgs $sel:mOutFile:StakePoolMetadataHashCmdArgs $sel:poolMetadataFile:StakePoolMetadataHashCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolMetadataHashCmdArgs" + }, + { + "display_html": "data StakePoolRegistrationCertificateCmdArgs era = StakePoolRegistrationCertificateCmdArgs {}", + "name": "StakePoolRegistrationCertificateCmdArgs StakePoolRegistrationCertificateCmdArgs $sel:network:StakePoolRegistrationCertificateCmdArgs $sel:sbe:StakePoolRegistrationCertificateCmdArgs $sel:outFile:StakePoolRegistrationCertificateCmdArgs $sel:poolVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:vrfVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:poolPledge:StakePoolRegistrationCertificateCmdArgs $sel:poolCost:StakePoolRegistrationCertificateCmdArgs $sel:poolMargin:StakePoolRegistrationCertificateCmdArgs $sel:rewardStakeVerificationKeyOrFile:StakePoolRegistrationCertificateCmdArgs $sel:ownerStakeVerificationKeyOrFiles:StakePoolRegistrationCertificateCmdArgs $sel:relays:StakePoolRegistrationCertificateCmdArgs $sel:mMetadata:StakePoolRegistrationCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.StakePool", + "link": "lib/Cardano-CLI-EraBased-Commands-StakePool.html#t:StakePoolRegistrationCertificateCmdArgs" + }, + { + "display_html": "runStakePoolCmds ∷ StakePoolCmds era → ExceptT StakePoolCmdError IO ()", + "name": "runStakePoolCmds", + "module": "Cardano.CLI.EraBased.Run.StakePool", + "link": "lib/Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolCmds" + }, + { + "display_html": "runStakePoolIdCmd ∷ StakePoolIdCmdArgs era → ExceptT StakePoolCmdError IO ()", + "name": "runStakePoolIdCmd", + "module": "Cardano.CLI.EraBased.Run.StakePool", + "link": "lib/Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolIdCmd" + }, + { + "display_html": "runStakePoolMetadataHashCmd ∷ StakePoolMetadataHashCmdArgs era → ExceptT StakePoolCmdError IO ()", + "name": "runStakePoolMetadataHashCmd", + "module": "Cardano.CLI.EraBased.Run.StakePool", + "link": "lib/Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolMetadataHashCmd" + }, + { + "display_html": "runStakePoolRegistrationCertificateCmd ∷ StakePoolRegistrationCertificateCmdArgs era → ExceptT StakePoolCmdError IO ()", + "name": "runStakePoolRegistrationCertificateCmd", + "module": "Cardano.CLI.EraBased.Run.StakePool", + "link": "lib/Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolRegistrationCertificateCmd" + }, + { + "display_html": "runStakePoolDeregistrationCertificateCmd ∷ StakePoolDeregistrationCertificateCmdArgs era → ExceptT StakePoolCmdError IO ()", + "name": "runStakePoolDeregistrationCertificateCmd", + "module": "Cardano.CLI.EraBased.Run.StakePool", + "link": "lib/Cardano-CLI-EraBased-Run-StakePool.html#v:runStakePoolDeregistrationCertificateCmd" + }, + { + "display_html": "runLegacyStakePoolCmds ∷ LegacyStakePoolCmds → ExceptT StakePoolCmdError IO ()", + "name": "runLegacyStakePoolCmds", + "module": "Cardano.CLI.Legacy.Run.StakePool", + "link": "lib/Cardano-CLI-Legacy-Run-StakePool.html#v:runLegacyStakePoolCmds" + }, + { + "display_html": "data StakeAddressCmds era", + "name": "StakeAddressCmds StakeAddressKeyGenCmd StakeAddressKeyHashCmd StakeAddressBuildCmd StakeAddressRegistrationCertificateCmd StakeAddressDeregistrationCertificateCmd StakeAddressStakeDelegationCertificateCmd StakeAddressStakeAndVoteDelegationCertificateCmd StakeAddressVoteDelegationCertificateCmd", + "module": "Cardano.CLI.EraBased.Commands.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Commands-StakeAddress.html#t:StakeAddressCmds" + }, + { + "display_html": "renderStakeAddressCmds ∷ StakeAddressCmds era → Text", + "name": "renderStakeAddressCmds", + "module": "Cardano.CLI.EraBased.Commands.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Commands-StakeAddress.html#v:renderStakeAddressCmds" + }, + { + "display_html": "runStakeAddressCmds ∷ StakeAddressCmds era → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressCmds", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressCmds" + }, + { + "display_html": "runStakeAddressBuildCmd ∷ StakeVerifier → NetworkId → Maybe (File () Out) → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressBuildCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressBuildCmd" + }, + { + "display_html": "runStakeAddressKeyGenCmd ∷ KeyOutputFormat → VerificationKeyFile Out → SigningKeyFile Out → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressKeyGenCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressKeyGenCmd" + }, + { + "display_html": "runStakeAddressKeyHashCmd ∷ VerificationKeyOrFile StakeKey → Maybe (File () Out) → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressKeyHashCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressKeyHashCmd" + }, + { + "display_html": "runStakeAddressStakeDelegationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → VerificationKeyOrHashOrFile StakePoolKey → File () Out → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressStakeDelegationCertificateCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressStakeDelegationCertificateCmd" + }, + { + "display_html": "runStakeAddressDeregistrationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → Maybe Lovelace → File () Out → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressDeregistrationCertificateCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressDeregistrationCertificateCmd" + }, + { + "display_html": "runStakeAddressRegistrationCertificateCmd ∷ ShelleyBasedEra era → StakeIdentifier → Maybe Lovelace → File () Out → ExceptT StakeAddressCmdError IO ()", + "name": "runStakeAddressRegistrationCertificateCmd", + "module": "Cardano.CLI.EraBased.Run.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Run-StakeAddress.html#v:runStakeAddressRegistrationCertificateCmd" + }, + { + "display_html": "runLegacyStakeAddressCmds ∷ LegacyStakeAddressCmds → ExceptT StakeAddressCmdError IO ()", + "name": "runLegacyStakeAddressCmds", + "module": "Cardano.CLI.Legacy.Run.StakeAddress", + "link": "lib/Cardano-CLI-Legacy-Run-StakeAddress.html#v:runLegacyStakeAddressCmds" + }, + { + "display_html": "data QueryCmds era", + "name": "QueryCmds QueryLeadershipScheduleCmd QueryProtocolParametersCmd QueryConstitutionHashCmd QueryTipCmd QueryStakePoolsCmd QueryStakeDistributionCmd QueryStakeAddressInfoCmd QueryUTxOCmd QueryLedgerStateCmd QueryProtocolStateCmd QueryStakeSnapshotCmd QueryKesPeriodInfoCmd QueryPoolStateCmd QueryTxMempoolCmd QuerySlotNumberCmd QueryConstitutionCmd QueryGovStateCmd QueryDRepStateCmd QueryDRepStakeDistributionCmd QueryCommitteeMembersStateCmd", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryCmds" + }, + { + "display_html": "data QueryCommitteeMembersStateCmdArgs era = QueryCommitteeMembersStateCmdArgs {}", + "name": "QueryCommitteeMembersStateCmdArgs QueryCommitteeMembersStateCmdArgs $sel:networkId:QueryCommitteeMembersStateCmdArgs $sel:eon:QueryCommitteeMembersStateCmdArgs $sel:mOutFile:QueryCommitteeMembersStateCmdArgs $sel:nodeSocketPath:QueryCommitteeMembersStateCmdArgs $sel:consensusModeParams:QueryCommitteeMembersStateCmdArgs $sel:committeeColdKeys:QueryCommitteeMembersStateCmdArgs $sel:committeeHotKeys:QueryCommitteeMembersStateCmdArgs $sel:memberStatuses:QueryCommitteeMembersStateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryCommitteeMembersStateCmdArgs" + }, + { + "display_html": "data QueryLeadershipScheduleCmdArgs = QueryLeadershipScheduleCmdArgs {}", + "name": "QueryLeadershipScheduleCmdArgs QueryLeadershipScheduleCmdArgs $sel:networkId:QueryLeadershipScheduleCmdArgs $sel:mOutFile:QueryLeadershipScheduleCmdArgs $sel:nodeSocketPath:QueryLeadershipScheduleCmdArgs $sel:consensusModeParams:QueryLeadershipScheduleCmdArgs $sel:genesisFp:QueryLeadershipScheduleCmdArgs $sel:poolColdVerKeyFile:QueryLeadershipScheduleCmdArgs $sel:vrkSkeyFp:QueryLeadershipScheduleCmdArgs $sel:whichSchedule:QueryLeadershipScheduleCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryLeadershipScheduleCmdArgs" + }, + { + "display_html": "data QueryProtocolParametersCmdArgs = QueryProtocolParametersCmdArgs {}", + "name": "QueryProtocolParametersCmdArgs QueryProtocolParametersCmdArgs $sel:networkId:QueryProtocolParametersCmdArgs $sel:mOutFile:QueryProtocolParametersCmdArgs $sel:nodeSocketPath:QueryProtocolParametersCmdArgs $sel:consensusModeParams:QueryProtocolParametersCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryProtocolParametersCmdArgs" + }, + { + "display_html": "data QueryConstitutionHashCmdArgs = QueryConstitutionHashCmdArgs {}", + "name": "QueryConstitutionHashCmdArgs QueryConstitutionHashCmdArgs $sel:networkId:QueryConstitutionHashCmdArgs $sel:mOutFile:QueryConstitutionHashCmdArgs $sel:nodeSocketPath:QueryConstitutionHashCmdArgs $sel:consensusModeParams:QueryConstitutionHashCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryConstitutionHashCmdArgs" + }, + { + "display_html": "data QueryTipCmdArgs = QueryTipCmdArgs {}", + "name": "QueryTipCmdArgs QueryTipCmdArgs $sel:networkId:QueryTipCmdArgs $sel:mOutFile:QueryTipCmdArgs $sel:nodeSocketPath:QueryTipCmdArgs $sel:consensusModeParams:QueryTipCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryTipCmdArgs" + }, + { + "display_html": "data QueryStakePoolsCmdArgs = QueryStakePoolsCmdArgs {}", + "name": "QueryStakePoolsCmdArgs QueryStakePoolsCmdArgs $sel:networkId:QueryStakePoolsCmdArgs $sel:mOutFile:QueryStakePoolsCmdArgs $sel:nodeSocketPath:QueryStakePoolsCmdArgs $sel:consensusModeParams:QueryStakePoolsCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakePoolsCmdArgs" + }, + { + "display_html": "data QueryStakeDistributionCmdArgs = QueryStakeDistributionCmdArgs {}", + "name": "QueryStakeDistributionCmdArgs QueryStakeDistributionCmdArgs $sel:networkId:QueryStakeDistributionCmdArgs $sel:mOutFile:QueryStakeDistributionCmdArgs $sel:nodeSocketPath:QueryStakeDistributionCmdArgs $sel:consensusModeParams:QueryStakeDistributionCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeDistributionCmdArgs" + }, + { + "display_html": "data QueryStakeAddressInfoCmdArgs = QueryStakeAddressInfoCmdArgs {}", + "name": "QueryStakeAddressInfoCmdArgs QueryStakeAddressInfoCmdArgs $sel:networkId:QueryStakeAddressInfoCmdArgs $sel:addr:QueryStakeAddressInfoCmdArgs $sel:mOutFile:QueryStakeAddressInfoCmdArgs $sel:nodeSocketPath:QueryStakeAddressInfoCmdArgs $sel:consensusModeParams:QueryStakeAddressInfoCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeAddressInfoCmdArgs" + }, + { + "display_html": "data QueryUTxOCmdArgs = QueryUTxOCmdArgs {}", + "name": "QueryUTxOCmdArgs QueryUTxOCmdArgs $sel:networkId:QueryUTxOCmdArgs $sel:mOutFile:QueryUTxOCmdArgs $sel:nodeSocketPath:QueryUTxOCmdArgs $sel:consensusModeParams:QueryUTxOCmdArgs $sel:queryFilter:QueryUTxOCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryUTxOCmdArgs" + }, + { + "display_html": "data QueryLedgerStateCmdArgs = QueryLedgerStateCmdArgs {}", + "name": "QueryLedgerStateCmdArgs QueryLedgerStateCmdArgs $sel:networkId:QueryLedgerStateCmdArgs $sel:mOutFile:QueryLedgerStateCmdArgs $sel:nodeSocketPath:QueryLedgerStateCmdArgs $sel:consensusModeParams:QueryLedgerStateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryLedgerStateCmdArgs" + }, + { + "display_html": "data QueryProtocolStateCmdArgs = QueryProtocolStateCmdArgs {}", + "name": "QueryProtocolStateCmdArgs QueryProtocolStateCmdArgs $sel:networkId:QueryProtocolStateCmdArgs $sel:mOutFile:QueryProtocolStateCmdArgs $sel:nodeSocketPath:QueryProtocolStateCmdArgs $sel:consensusModeParams:QueryProtocolStateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryProtocolStateCmdArgs" + }, + { + "display_html": "data QueryStakeSnapshotCmdArgs = QueryStakeSnapshotCmdArgs {}", + "name": "QueryStakeSnapshotCmdArgs QueryStakeSnapshotCmdArgs $sel:networkId:QueryStakeSnapshotCmdArgs $sel:mOutFile:QueryStakeSnapshotCmdArgs $sel:nodeSocketPath:QueryStakeSnapshotCmdArgs $sel:consensusModeParams:QueryStakeSnapshotCmdArgs $sel:allOrOnlyPoolIds:QueryStakeSnapshotCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryStakeSnapshotCmdArgs" + }, + { + "display_html": "data QueryKesPeriodInfoCmdArgs = QueryKesPeriodInfoCmdArgs {}", + "name": "QueryKesPeriodInfoCmdArgs QueryKesPeriodInfoCmdArgs $sel:networkId:QueryKesPeriodInfoCmdArgs $sel:mOutFile:QueryKesPeriodInfoCmdArgs $sel:nodeSocketPath:QueryKesPeriodInfoCmdArgs $sel:consensusModeParams:QueryKesPeriodInfoCmdArgs $sel:nodeOpCertFp:QueryKesPeriodInfoCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryKesPeriodInfoCmdArgs" + }, + { + "display_html": "data QueryPoolStateCmdArgs = QueryPoolStateCmdArgs {}", + "name": "QueryPoolStateCmdArgs QueryPoolStateCmdArgs $sel:networkId:QueryPoolStateCmdArgs $sel:nodeSocketPath:QueryPoolStateCmdArgs $sel:consensusModeParams:QueryPoolStateCmdArgs $sel:poolIds:QueryPoolStateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryPoolStateCmdArgs" + }, + { + "display_html": "data QueryTxMempoolCmdArgs = QueryTxMempoolCmdArgs {}", + "name": "QueryTxMempoolCmdArgs QueryTxMempoolCmdArgs $sel:networkId:QueryTxMempoolCmdArgs $sel:query:QueryTxMempoolCmdArgs $sel:mOutFile:QueryTxMempoolCmdArgs $sel:nodeSocketPath:QueryTxMempoolCmdArgs $sel:consensusModeParams:QueryTxMempoolCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryTxMempoolCmdArgs" + }, + { + "display_html": "data QuerySlotNumberCmdArgs = QuerySlotNumberCmdArgs {}", + "name": "QuerySlotNumberCmdArgs QuerySlotNumberCmdArgs $sel:utcTime:QuerySlotNumberCmdArgs $sel:networkId:QuerySlotNumberCmdArgs $sel:nodeSocketPath:QuerySlotNumberCmdArgs $sel:consensusModeParams:QuerySlotNumberCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QuerySlotNumberCmdArgs" + }, + { + "display_html": "data QueryNoArgCmdArgs era = QueryNoArgCmdArgs {}", + "name": "QueryNoArgCmdArgs QueryNoArgCmdArgs $sel:networkId:QueryNoArgCmdArgs $sel:eon:QueryNoArgCmdArgs $sel:mOutFile:QueryNoArgCmdArgs $sel:nodeSocketPath:QueryNoArgCmdArgs $sel:consensusModeParams:QueryNoArgCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryNoArgCmdArgs" + }, + { + "display_html": "data QueryDRepStateCmdArgs era = QueryDRepStateCmdArgs {}", + "name": "QueryDRepStateCmdArgs QueryDRepStateCmdArgs $sel:networkId:QueryDRepStateCmdArgs $sel:eon:QueryDRepStateCmdArgs $sel:mOutFile:QueryDRepStateCmdArgs $sel:nodeSocketPath:QueryDRepStateCmdArgs $sel:consensusModeParams:QueryDRepStateCmdArgs $sel:drepKeys:QueryDRepStateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryDRepStateCmdArgs" + }, + { + "display_html": "data QueryDRepStakeDistributionCmdArgs era = QueryDRepStakeDistributionCmdArgs {}", + "name": "QueryDRepStakeDistributionCmdArgs QueryDRepStakeDistributionCmdArgs $sel:networkId:QueryDRepStakeDistributionCmdArgs $sel:eon:QueryDRepStakeDistributionCmdArgs $sel:mOutFile:QueryDRepStakeDistributionCmdArgs $sel:nodeSocketPath:QueryDRepStakeDistributionCmdArgs $sel:consensusModeParams:QueryDRepStakeDistributionCmdArgs $sel:drepKeys:QueryDRepStakeDistributionCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#t:QueryDRepStakeDistributionCmdArgs" + }, + { + "display_html": "renderQueryCmds ∷ QueryCmds era → Text", + "name": "renderQueryCmds", + "module": "Cardano.CLI.EraBased.Commands.Query", + "link": "lib/Cardano-CLI-EraBased-Commands-Query.html#v:renderQueryCmds" + }, + { + "display_html": "data NodeCmds era", + "name": "NodeCmds NodeKeyGenColdCmd NodeKeyGenKESCmd NodeKeyGenVRFCmd NodeKeyHashVRFCmd NodeNewCounterCmd NodeIssueOpCertCmd", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeCmds" + }, + { + "display_html": "renderNodeCmds ∷ NodeCmds era → Text", + "name": "renderNodeCmds", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#v:renderNodeCmds" + }, + { + "display_html": "data NodeKeyGenColdCmdArgs = NodeKeyGenColdCmdArgs {}", + "name": "NodeKeyGenColdCmdArgs NodeKeyGenColdCmdArgs $sel:skeyFile:NodeKeyGenColdCmdArgs $sel:vkeyFile:NodeKeyGenColdCmdArgs $sel:keyOutputFormat:NodeKeyGenColdCmdArgs $sel:operationalCertificateIssueCounter:NodeKeyGenColdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenColdCmdArgs" + }, + { + "display_html": "data NodeKeyGenKESCmdArgs = NodeKeyGenKESCmdArgs {}", + "name": "NodeKeyGenKESCmdArgs NodeKeyGenKESCmdArgs $sel:skeyFile:NodeKeyGenKESCmdArgs $sel:vkeyFile:NodeKeyGenKESCmdArgs $sel:keyOutputFormat:NodeKeyGenKESCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenKESCmdArgs" + }, + { + "display_html": "data NodeKeyGenVRFCmdArgs = NodeKeyGenVRFCmdArgs {}", + "name": "NodeKeyGenVRFCmdArgs NodeKeyGenVRFCmdArgs $sel:skeyFile:NodeKeyGenVRFCmdArgs $sel:vkeyFile:NodeKeyGenVRFCmdArgs $sel:keyOutputFormat:NodeKeyGenVRFCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyGenVRFCmdArgs" + }, + { + "display_html": "data NodeKeyHashVRFCmdArgs = NodeKeyHashVRFCmdArgs {}", + "name": "NodeKeyHashVRFCmdArgs NodeKeyHashVRFCmdArgs $sel:mOutFile:NodeKeyHashVRFCmdArgs $sel:vkeySource:NodeKeyHashVRFCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeKeyHashVRFCmdArgs" + }, + { + "display_html": "data NodeNewCounterCmdArgs = NodeNewCounterCmdArgs {}", + "name": "NodeNewCounterCmdArgs NodeNewCounterCmdArgs $sel:counter:NodeNewCounterCmdArgs $sel:mOutFile:NodeNewCounterCmdArgs $sel:coldVkeyFile:NodeNewCounterCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeNewCounterCmdArgs" + }, + { + "display_html": "data NodeIssueOpCertCmdArgs = NodeIssueOpCertCmdArgs {}", + "name": "NodeIssueOpCertCmdArgs NodeIssueOpCertCmdArgs $sel:kesPeriod:NodeIssueOpCertCmdArgs $sel:outFile:NodeIssueOpCertCmdArgs $sel:kesVkeySource:NodeIssueOpCertCmdArgs $sel:poolSkeyFile:NodeIssueOpCertCmdArgs $sel:operationalCertificateCounterFile:NodeIssueOpCertCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Node", + "link": "lib/Cardano-CLI-EraBased-Commands-Node.html#t:NodeIssueOpCertCmdArgs" + }, + { + "display_html": "data LegacyNodeCmds", + "name": "LegacyNodeCmds LegacyNodeKeyGenColdCmd LegacyNodeKeyGenKESCmd LegacyNodeKeyGenVRFCmd LegacyNodeKeyHashVRFCmd LegacyNodeNewCounterCmd LegacyNodeIssueOpCertCmd", + "module": "Cardano.CLI.Legacy.Commands.Node", + "link": "lib/Cardano-CLI-Legacy-Commands-Node.html#t:LegacyNodeCmds" + }, + { + "display_html": "renderLegacyNodeCmds ∷ LegacyNodeCmds → Text", + "name": "renderLegacyNodeCmds", + "module": "Cardano.CLI.Legacy.Commands.Node", + "link": "lib/Cardano-CLI-Legacy-Commands-Node.html#v:renderLegacyNodeCmds" + }, + { + "display_html": "data LegacyCmds", + "name": "LegacyCmds LegacyAddressCmds LegacyGenesisCmds LegacyGovernanceCmds LegacyKeyCmds LegacyNodeCmds LegacyQueryCmds LegacyStakeAddressCmds LegacyStakePoolCmds LegacyTextViewCmds LegacyTransactionCmds", + "module": "Cardano.CLI.Legacy.Commands", + "link": "lib/Cardano-CLI-Legacy-Commands.html#t:LegacyCmds" + }, + { + "display_html": "renderLegacyCommand ∷ LegacyCmds → Text", + "name": "renderLegacyCommand", + "module": "Cardano.CLI.Legacy.Commands", + "link": "lib/Cardano-CLI-Legacy-Commands.html#v:renderLegacyCommand" + }, + { + "display_html": "runNodeCmds ∷ NodeCmds era → ExceptT NodeCmdError IO ()", + "name": "runNodeCmds", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeCmds" + }, + { + "display_html": "runNodeIssueOpCertCmd ∷ NodeIssueOpCertCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeIssueOpCertCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeIssueOpCertCmd" + }, + { + "display_html": "runNodeKeyGenColdCmd ∷ NodeKeyGenColdCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeKeyGenColdCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenColdCmd" + }, + { + "display_html": "runNodeKeyGenKesCmd ∷ NodeKeyGenKESCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeKeyGenKesCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenKesCmd" + }, + { + "display_html": "runNodeKeyGenVrfCmd ∷ NodeKeyGenVRFCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeKeyGenVrfCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyGenVrfCmd" + }, + { + "display_html": "runNodeKeyHashVrfCmd ∷ NodeKeyHashVRFCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeKeyHashVrfCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeKeyHashVrfCmd" + }, + { + "display_html": "runNodeNewCounterCmd ∷ NodeNewCounterCmdArgs → ExceptT NodeCmdError IO ()", + "name": "runNodeNewCounterCmd", + "module": "Cardano.CLI.EraBased.Run.Node", + "link": "lib/Cardano-CLI-EraBased-Run-Node.html#v:runNodeNewCounterCmd" + }, + { + "display_html": "runLegacyNodeCmds ∷ LegacyNodeCmds → ExceptT NodeCmdError IO ()", + "name": "runLegacyNodeCmds", + "module": "Cardano.CLI.Legacy.Run.Node", + "link": "lib/Cardano-CLI-Legacy-Run-Node.html#v:runLegacyNodeCmds" + }, + { + "display_html": "runGenesisCmds ∷ GenesisCmds era → ExceptT GenesisCmdError IO ()", + "name": "runGenesisCmds", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCmds" + }, + { + "display_html": "runGenesisAddrCmd ∷ GenesisAddrCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisAddrCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisAddrCmd" + }, + { + "display_html": "runGenesisCreateCardanoCmd ∷ GenesisCreateCardanoCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisCreateCardanoCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateCardanoCmd" + }, + { + "display_html": "runGenesisCreateCmd ∷ GenesisCreateCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisCreateCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateCmd" + }, + { + "display_html": "runGenesisCreateStakedCmd ∷ GenesisCreateStakedCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisCreateStakedCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisCreateStakedCmd" + }, + { + "display_html": "runGenesisHashFileCmd ∷ GenesisFile → ExceptT GenesisCmdError IO ()", + "name": "runGenesisHashFileCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisHashFileCmd" + }, + { + "display_html": "runGenesisKeyGenDelegateCmd ∷ GenesisKeyGenDelegateCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisKeyGenDelegateCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenDelegateCmd" + }, + { + "display_html": "runGenesisKeyGenGenesisCmd ∷ GenesisKeyGenGenesisCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisKeyGenGenesisCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenGenesisCmd" + }, + { + "display_html": "runGenesisKeyGenUTxOCmd ∷ GenesisKeyGenUTxOCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisKeyGenUTxOCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyGenUTxOCmd" + }, + { + "display_html": "runGenesisKeyHashCmd ∷ VerificationKeyFile In → ExceptT GenesisCmdError IO ()", + "name": "runGenesisKeyHashCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisKeyHashCmd" + }, + { + "display_html": "runGenesisTxInCmd ∷ GenesisTxInCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisTxInCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisTxInCmd" + }, + { + "display_html": "runGenesisVerKeyCmd ∷ GenesisVerKeyCmdArgs → ExceptT GenesisCmdError IO ()", + "name": "runGenesisVerKeyCmd", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:runGenesisVerKeyCmd" + }, + { + "display_html": "readAndDecodeShelleyGenesis ∷ FilePath → IO (Either GenesisCmdError (ShelleyGenesis StandardCrypto))", + "name": "readAndDecodeShelleyGenesis", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:readAndDecodeShelleyGenesis" + }, + { + "display_html": "readProtocolParameters ∷ ProtocolParamsFile → ExceptT ProtocolParamsError IO ProtocolParameters", + "name": "readProtocolParameters", + "module": "Cardano.CLI.EraBased.Run.Genesis", + "link": "lib/Cardano-CLI-EraBased-Run-Genesis.html#v:readProtocolParameters" + }, + { + "display_html": "runLegacyGenesisCmds ∷ LegacyGenesisCmds → ExceptT GenesisCmdError IO ()", + "name": "runLegacyGenesisCmds", + "module": "Cardano.CLI.Legacy.Run.Genesis", + "link": "lib/Cardano-CLI-Legacy-Run-Genesis.html#v:runLegacyGenesisCmds" + }, + { + "display_html": "data GovernanceDRepCmds era", + "name": "GovernanceDRepCmds GovernanceDRepKeyGenCmd GovernanceDRepIdCmd GovernanceDRepRegistrationCertificateCmd GovernanceDRepRetirementCertificateCmd GovernanceDRepMetadataHashCmd", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepCmds" + }, + { + "display_html": "renderGovernanceDRepCmds ∷ GovernanceDRepCmds era → Text", + "name": "renderGovernanceDRepCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#v:renderGovernanceDRepCmds" + }, + { + "display_html": "data GovernanceDRepKeyGenCmdArgs era = GovernanceDRepKeyGenCmdArgs {}", + "name": "GovernanceDRepKeyGenCmdArgs GovernanceDRepKeyGenCmdArgs $sel:eon:GovernanceDRepKeyGenCmdArgs $sel:skeyFile:GovernanceDRepKeyGenCmdArgs $sel:vkeyFile:GovernanceDRepKeyGenCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepKeyGenCmdArgs" + }, + { + "display_html": "data GovernanceDRepIdCmdArgs era = GovernanceDRepIdCmdArgs {}", + "name": "GovernanceDRepIdCmdArgs GovernanceDRepIdCmdArgs $sel:eon:GovernanceDRepIdCmdArgs $sel:mOutFile:GovernanceDRepIdCmdArgs $sel:vkeySource:GovernanceDRepIdCmdArgs $sel:idOutputFormat:GovernanceDRepIdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepIdCmdArgs" + }, + { + "display_html": "data GovernanceDRepRegistrationCertificateCmdArgs era = GovernanceDRepRegistrationCertificateCmdArgs {}", + "name": "GovernanceDRepRegistrationCertificateCmdArgs GovernanceDRepRegistrationCertificateCmdArgs $sel:deposit:GovernanceDRepRegistrationCertificateCmdArgs $sel:mAnchor:GovernanceDRepRegistrationCertificateCmdArgs $sel:eon:GovernanceDRepRegistrationCertificateCmdArgs $sel:outFile:GovernanceDRepRegistrationCertificateCmdArgs $sel:drepVkeyHashSource:GovernanceDRepRegistrationCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepRegistrationCertificateCmdArgs" + }, + { + "display_html": "data GovernanceDRepRetirementCertificateCmdArgs era = GovernanceDRepRetirementCertificateCmdArgs {}", + "name": "GovernanceDRepRetirementCertificateCmdArgs GovernanceDRepRetirementCertificateCmdArgs $sel:deposit:GovernanceDRepRetirementCertificateCmdArgs $sel:eon:GovernanceDRepRetirementCertificateCmdArgs $sel:outFile:GovernanceDRepRetirementCertificateCmdArgs $sel:vkeyHashSource:GovernanceDRepRetirementCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepRetirementCertificateCmdArgs" + }, + { + "display_html": "data GovernanceDRepMetadataHashCmdArgs era = GovernanceDRepMetadataHashCmdArgs {}", + "name": "GovernanceDRepMetadataHashCmdArgs GovernanceDRepMetadataHashCmdArgs $sel:eon:GovernanceDRepMetadataHashCmdArgs $sel:mOutFile:GovernanceDRepMetadataHashCmdArgs $sel:metadataFile:GovernanceDRepMetadataHashCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-DRep.html#t:GovernanceDRepMetadataHashCmdArgs" + }, + { + "display_html": "data GovernanceActionCmds era", + "name": "GovernanceActionCmds GovernanceActionCreateConstitutionCmd GoveranceActionUpdateCommitteeCmd GovernanceActionCreateNoConfidenceCmd GovernanceActionProtocolParametersUpdateCmd GovernanceActionTreasuryWithdrawalCmd GovernanceActionInfoCmd GovernanceActionViewCmd", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCmds" + }, + { + "display_html": "data GoveranceActionUpdateCommitteeCmdArgs era = GoveranceActionUpdateCommitteeCmdArgs {}", + "name": "GoveranceActionUpdateCommitteeCmdArgs GoveranceActionUpdateCommitteeCmdArgs $sel:networkId:GoveranceActionUpdateCommitteeCmdArgs $sel:deposit:GoveranceActionUpdateCommitteeCmdArgs $sel:eon:GoveranceActionUpdateCommitteeCmdArgs $sel:outFile:GoveranceActionUpdateCommitteeCmdArgs $sel:returnAddress:GoveranceActionUpdateCommitteeCmdArgs $sel:proposalUrl:GoveranceActionUpdateCommitteeCmdArgs $sel:proposalHash:GoveranceActionUpdateCommitteeCmdArgs $sel:oldCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs $sel:newCommitteeVkeySource:GoveranceActionUpdateCommitteeCmdArgs $sel:requiredQuorum:GoveranceActionUpdateCommitteeCmdArgs $sel:mPrevGovernanceActionId:GoveranceActionUpdateCommitteeCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GoveranceActionUpdateCommitteeCmdArgs" + }, + { + "display_html": "data GovernanceActionCreateConstitutionCmdArgs era = GovernanceActionCreateConstitutionCmdArgs {}", + "name": "GovernanceActionCreateConstitutionCmdArgs GovernanceActionCreateConstitutionCmdArgs $sel:networkId:GovernanceActionCreateConstitutionCmdArgs $sel:deposit:GovernanceActionCreateConstitutionCmdArgs $sel:eon:GovernanceActionCreateConstitutionCmdArgs $sel:outFile:GovernanceActionCreateConstitutionCmdArgs $sel:stakeCredential:GovernanceActionCreateConstitutionCmdArgs $sel:constitutionHashSource:GovernanceActionCreateConstitutionCmdArgs $sel:proposalUrl:GovernanceActionCreateConstitutionCmdArgs $sel:proposalHash:GovernanceActionCreateConstitutionCmdArgs $sel:mPrevGovernanceActionId:GovernanceActionCreateConstitutionCmdArgs $sel:constitutionUrl:GovernanceActionCreateConstitutionCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCreateConstitutionCmdArgs" + }, + { + "display_html": "data GovernanceActionCreateNoConfidenceCmdArgs era = GovernanceActionCreateNoConfidenceCmdArgs {}", + "name": "GovernanceActionCreateNoConfidenceCmdArgs GovernanceActionCreateNoConfidenceCmdArgs $sel:networkId:GovernanceActionCreateNoConfidenceCmdArgs $sel:deposit:GovernanceActionCreateNoConfidenceCmdArgs $sel:eon:GovernanceActionCreateNoConfidenceCmdArgs $sel:outFile:GovernanceActionCreateNoConfidenceCmdArgs $sel:proposalUrl:GovernanceActionCreateNoConfidenceCmdArgs $sel:proposalHash:GovernanceActionCreateNoConfidenceCmdArgs $sel:returnStakeAddress:GovernanceActionCreateNoConfidenceCmdArgs $sel:governanceActionId:GovernanceActionCreateNoConfidenceCmdArgs $sel:governanceActionIndex:GovernanceActionCreateNoConfidenceCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionCreateNoConfidenceCmdArgs" + }, + { + "display_html": "data GovernanceActionInfoCmdArgs era = GovernanceActionInfoCmdArgs {}", + "name": "GovernanceActionInfoCmdArgs GovernanceActionInfoCmdArgs $sel:networkId:GovernanceActionInfoCmdArgs $sel:deposit:GovernanceActionInfoCmdArgs $sel:eon:GovernanceActionInfoCmdArgs $sel:outFile:GovernanceActionInfoCmdArgs $sel:proposalUrl:GovernanceActionInfoCmdArgs $sel:proposalHash:GovernanceActionInfoCmdArgs $sel:returnStakeAddress:GovernanceActionInfoCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionInfoCmdArgs" + }, + { + "display_html": "data GovernanceActionViewCmdArgs era = GovernanceActionViewCmdArgs {}", + "name": "GovernanceActionViewCmdArgs GovernanceActionViewCmdArgs $sel:eon:GovernanceActionViewCmdArgs $sel:mOutFile:GovernanceActionViewCmdArgs $sel:actionFile:GovernanceActionViewCmdArgs $sel:outFormat:GovernanceActionViewCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionViewCmdArgs" + }, + { + "display_html": "data GovernanceActionProtocolParametersUpdateCmdArgs era = GovernanceActionProtocolParametersUpdateCmdArgs {}", + "name": "GovernanceActionProtocolParametersUpdateCmdArgs GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppShelleyBasedEra:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppPreConway:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppConwayOnwards:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppNewPParams:GovernanceActionProtocolParametersUpdateCmdArgs $sel:uppFilePath:GovernanceActionProtocolParametersUpdateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionProtocolParametersUpdateCmdArgs" + }, + { + "display_html": "data GovernanceActionTreasuryWithdrawalCmdArgs era = GovernanceActionTreasuryWithdrawalCmdArgs {}", + "name": "GovernanceActionTreasuryWithdrawalCmdArgs GovernanceActionTreasuryWithdrawalCmdArgs $sel:networkId:GovernanceActionTreasuryWithdrawalCmdArgs $sel:deposit:GovernanceActionTreasuryWithdrawalCmdArgs $sel:eon:GovernanceActionTreasuryWithdrawalCmdArgs $sel:outFile:GovernanceActionTreasuryWithdrawalCmdArgs $sel:proposalUrl:GovernanceActionTreasuryWithdrawalCmdArgs $sel:proposalHash:GovernanceActionTreasuryWithdrawalCmdArgs $sel:returnAddr:GovernanceActionTreasuryWithdrawalCmdArgs $sel:treasuryWithdrawal:GovernanceActionTreasuryWithdrawalCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:GovernanceActionTreasuryWithdrawalCmdArgs" + }, + { + "display_html": "data UpdateProtocolParametersConwayOnwards era = UpdateProtocolParametersConwayOnwards {}", + "name": "UpdateProtocolParametersConwayOnwards UpdateProtocolParametersConwayOnwards $sel:networkId:UpdateProtocolParametersConwayOnwards $sel:deposit:UpdateProtocolParametersConwayOnwards $sel:eon:UpdateProtocolParametersConwayOnwards $sel:proposalUrl:UpdateProtocolParametersConwayOnwards $sel:proposalHash:UpdateProtocolParametersConwayOnwards $sel:governanceActionId:UpdateProtocolParametersConwayOnwards $sel:returnAddr:UpdateProtocolParametersConwayOnwards", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:UpdateProtocolParametersConwayOnwards" + }, + { + "display_html": "data UpdateProtocolParametersPreConway era = UpdateProtocolParametersPreConway {}", + "name": "UpdateProtocolParametersPreConway UpdateProtocolParametersPreConway $sel:eon:UpdateProtocolParametersPreConway $sel:expiryEpoch:UpdateProtocolParametersPreConway $sel:genesisVerificationKeys:UpdateProtocolParametersPreConway", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#t:UpdateProtocolParametersPreConway" + }, + { + "display_html": "renderGovernanceActionCmds ∷ GovernanceActionCmds era → Text", + "name": "renderGovernanceActionCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Actions.html#v:renderGovernanceActionCmds" + }, + { + "display_html": "runGovernanceActionCmds ∷ GovernanceActionCmds era → ExceptT GovernanceActionsError IO ()", + "name": "runGovernanceActionCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Actions.html#v:runGovernanceActionCmds" + }, + { + "display_html": "data GovernanceActionsError", + "name": "GovernanceActionsError GovernanceActionsCmdConstitutionError GovernanceActionsCmdProposalError GovernanceActionsCmdReadFileError GovernanceActionsCmdReadTextEnvelopeFileError GovernanceActionsCmdWriteFileError GovernanceActionsValueUpdateProtocolParametersNotFound", + "module": "Cardano.CLI.EraBased.Run.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Actions.html#t:GovernanceActionsError" + }, + { + "display_html": "data AddressCmds era", + "name": "AddressCmds AddressInfo AddressKeyGen AddressKeyHash AddressBuild", + "module": "Cardano.CLI.EraBased.Commands.Address", + "link": "lib/Cardano-CLI-EraBased-Commands-Address.html#t:AddressCmds" + }, + { + "display_html": "renderAddressCmds ∷ AddressCmds era → Text", + "name": "renderAddressCmds", + "module": "Cardano.CLI.EraBased.Commands.Address", + "link": "lib/Cardano-CLI-EraBased-Commands-Address.html#v:renderAddressCmds" + }, + { + "display_html": "runAddressCmds ∷ AddressCmds era → ExceptT AddressCmdError IO ()", + "name": "runAddressCmds", + "module": "Cardano.CLI.EraBased.Run.Address", + "link": "lib/Cardano-CLI-EraBased-Run-Address.html#v:runAddressCmds" + }, + { + "display_html": "runAddressBuildCmd ∷ PaymentVerifier → Maybe StakeIdentifier → NetworkId → Maybe (File () Out) → ExceptT AddressCmdError IO ()", + "name": "runAddressBuildCmd", + "module": "Cardano.CLI.EraBased.Run.Address", + "link": "lib/Cardano-CLI-EraBased-Run-Address.html#v:runAddressBuildCmd" + }, + { + "display_html": "runAddressKeyGenCmd ∷ KeyOutputFormat → AddressKeyType → VerificationKeyFile Out → SigningKeyFile Out → ExceptT AddressCmdError IO ()", + "name": "runAddressKeyGenCmd", + "module": "Cardano.CLI.EraBased.Run.Address", + "link": "lib/Cardano-CLI-EraBased-Run-Address.html#v:runAddressKeyGenCmd" + }, + { + "display_html": "runAddressKeyHashCmd ∷ VerificationKeyTextOrFile → Maybe (File () Out) → ExceptT AddressCmdError IO ()", + "name": "runAddressKeyHashCmd", + "module": "Cardano.CLI.EraBased.Run.Address", + "link": "lib/Cardano-CLI-EraBased-Run-Address.html#v:runAddressKeyHashCmd" + }, + { + "display_html": "runLegacyAddressCmds ∷ LegacyAddressCmds → ExceptT AddressCmdError IO ()", + "name": "runLegacyAddressCmds", + "module": "Cardano.CLI.Legacy.Run.Address", + "link": "lib/Cardano-CLI-Legacy-Run-Address.html#v:runLegacyAddressCmds" + }, + { + "display_html": "data AnyVerificationKeySource", + "name": "AnyVerificationKeySource AnyVerificationKeySourceOfText AnyVerificationKeySourceOfFile", + "module": "Cardano.CLI.Types.Key.VerificationKey", + "link": "lib/Cardano-CLI-Types-Key-VerificationKey.html#t:AnyVerificationKeySource" + }, + { + "display_html": "newtype AnyVerificationKeyText = AnyVerificationKeyText {}", + "name": "AnyVerificationKeyText AnyVerificationKeyText unAnyVerificationKeyText", + "module": "Cardano.CLI.Types.Key.VerificationKey", + "link": "lib/Cardano-CLI-Types-Key-VerificationKey.html#t:AnyVerificationKeyText" + }, + { + "display_html": "defaultShelleyBasedEra ∷ EraInEon ShelleyBasedEra", + "name": "defaultShelleyBasedEra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:defaultShelleyBasedEra" + }, + { + "display_html": "defaultShelleyToBabbageEra ∷ EraInEon ShelleyToBabbageEra", + "name": "defaultShelleyToBabbageEra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:defaultShelleyToBabbageEra" + }, + { + "display_html": "command' ∷ String → String → Parser a → Mod CommandFields a", + "name": "command'", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:command-39-" + }, + { + "display_html": "prefixFlag ∷ Maybe String → String → String", + "name": "prefixFlag", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:prefixFlag" + }, + { + "display_html": "pNetworkId ∷ EnvCli → Parser NetworkId", + "name": "pNetworkId", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pNetworkId" + }, + { + "display_html": "toUnitIntervalOrErr ∷ Rational → UnitInterval", + "name": "toUnitIntervalOrErr", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:toUnitIntervalOrErr" + }, + { + "display_html": "pConsensusModeParams ∷ Parser ConsensusModeParams", + "name": "pConsensusModeParams", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pConsensusModeParams" + }, + { + "display_html": "defaultByronEpochSlots ∷ Word64", + "name": "defaultByronEpochSlots", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:defaultByronEpochSlots" + }, + { + "display_html": "pEpochSlots ∷ Parser EpochSlots", + "name": "pEpochSlots", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pEpochSlots" + }, + { + "display_html": "pSocketPath ∷ EnvCli → Parser SocketPath", + "name": "pSocketPath", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pSocketPath" + }, + { + "display_html": "readerFromParsecParser ∷ Parser a → ReadM a", + "name": "readerFromParsecParser", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:readerFromParsecParser" + }, + { + "display_html": "parseTxIn ∷ Parser TxIn", + "name": "parseTxIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseTxIn" + }, + { + "display_html": "parseTxId ∷ Parser TxId", + "name": "parseTxId", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseTxId" + }, + { + "display_html": "parseTxIx ∷ Parser TxIx", + "name": "parseTxIx", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseTxIx" + }, + { + "display_html": "decimal ∷ Parser Integer", + "name": "decimal", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:decimal" + }, + { + "display_html": "pStakeIdentifier ∷ Parser StakeIdentifier", + "name": "pStakeIdentifier", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeIdentifier" + }, + { + "display_html": "pStakeVerifier ∷ Parser StakeVerifier", + "name": "pStakeVerifier", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerifier" + }, + { + "display_html": "pStakeAddress ∷ Parser StakeAddress", + "name": "pStakeAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeAddress" + }, + { + "display_html": "parseStakeAddress ∷ Parser StakeAddress", + "name": "parseStakeAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseStakeAddress" + }, + { + "display_html": "pStakeVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakeKey)", + "name": "pStakeVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyOrFile" + }, + { + "display_html": "pScriptFor ∷ String → Maybe String → String → Parser ScriptFile", + "name": "pScriptFor", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScriptFor" + }, + { + "display_html": "pStakeVerificationKey ∷ Maybe String → Parser (VerificationKey StakeKey)", + "name": "pStakeVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKey" + }, + { + "display_html": "readVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → ReadM (VerificationKey keyrole)", + "name": "readVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:readVerificationKey" + }, + { + "display_html": "pStakeVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In)", + "name": "pStakeVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyFile" + }, + { + "display_html": "subParser ∷ String → ParserInfo a → Parser a", + "name": "subParser", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:subParser" + }, + { + "display_html": "subInfoParser ∷ String → InfoMod a → [Maybe (Parser a)] → Maybe (Parser a)", + "name": "subInfoParser", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:subInfoParser" + }, + { + "display_html": "pAnyShelleyBasedEra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pAnyShelleyBasedEra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnyShelleyBasedEra" + }, + { + "display_html": "pAnyShelleyToBabbageEra ∷ EnvCli → Parser (EraInEon ShelleyToBabbageEra)", + "name": "pAnyShelleyToBabbageEra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnyShelleyToBabbageEra" + }, + { + "display_html": "pShelleyBasedShelley ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedShelley", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedShelley" + }, + { + "display_html": "pShelleyBasedAllegra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedAllegra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedAllegra" + }, + { + "display_html": "pShelleyBasedMary ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedMary", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedMary" + }, + { + "display_html": "pShelleyBasedAlonzo ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedAlonzo", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedAlonzo" + }, + { + "display_html": "pShelleyBasedBabbage ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedBabbage", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedBabbage" + }, + { + "display_html": "pShelleyBasedConway ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pShelleyBasedConway", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pShelleyBasedConway" + }, + { + "display_html": "pFileOutDirection ∷ String → String → Parser (File a Out)", + "name": "pFileOutDirection", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pFileOutDirection" + }, + { + "display_html": "pFileInDirection ∷ String → String → Parser (File a In)", + "name": "pFileInDirection", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pFileInDirection" + }, + { + "display_html": "parseLovelace ∷ Parser Lovelace", + "name": "parseLovelace", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseLovelace" + }, + { + "display_html": "pStakePoolVerificationKeyOrFile ∷ Maybe String → Parser (VerificationKeyOrFile StakePoolKey)", + "name": "pStakePoolVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyOrFile" + }, + { + "display_html": "pStakePoolVerificationKey ∷ Maybe String → Parser (VerificationKey StakePoolKey)", + "name": "pStakePoolVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKey" + }, + { + "display_html": "pStakePoolVerificationKeyFile ∷ Maybe String → Parser (VerificationKeyFile In)", + "name": "pStakePoolVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyFile" + }, + { + "display_html": "pOutputFile ∷ Parser (File content Out)", + "name": "pOutputFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pOutputFile" + }, + { + "display_html": "pMIRPot ∷ Parser MIRPot", + "name": "pMIRPot", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMIRPot" + }, + { + "display_html": "pRewardAmt ∷ Parser Lovelace", + "name": "pRewardAmt", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRewardAmt" + }, + { + "display_html": "pTransferAmt ∷ Parser Lovelace", + "name": "pTransferAmt", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTransferAmt" + }, + { + "display_html": "pHexHash ∷ SerialiseAsRawBytes (Hash a) ⇒ AsType a → ReadM (Hash a)", + "name": "pHexHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pHexHash" + }, + { + "display_html": "pBech32KeyHash ∷ SerialiseAsBech32 (Hash a) ⇒ AsType a → ReadM (Hash a)", + "name": "pBech32KeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pBech32KeyHash" + }, + { + "display_html": "pGenesisDelegateVerificationKey ∷ Parser (VerificationKey GenesisDelegateKey)", + "name": "pGenesisDelegateVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKey" + }, + { + "display_html": "pColdVerificationKeyOrFile ∷ Maybe String → Parser ColdVerificationKeyOrFile", + "name": "pColdVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pColdVerificationKeyOrFile" + }, + { + "display_html": "pColdVerificationKeyFile ∷ Parser (VerificationKeyFile direction)", + "name": "pColdVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pColdVerificationKeyFile" + }, + { + "display_html": "pColdSigningKeyFile ∷ Parser (File (SigningKey keyrole) direction)", + "name": "pColdSigningKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pColdSigningKeyFile" + }, + { + "display_html": "pVerificationKeyFileOut ∷ Parser (File (VerificationKey keyrole) Out)", + "name": "pVerificationKeyFileOut", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyFileOut" + }, + { + "display_html": "pSigningKeyFileOut ∷ Parser (File (SigningKey keyrole) Out)", + "name": "pSigningKeyFileOut", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pSigningKeyFileOut" + }, + { + "display_html": "pOperatorCertIssueCounterFile ∷ Parser (File OpCertCounter direction)", + "name": "pOperatorCertIssueCounterFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pOperatorCertIssueCounterFile" + }, + { + "display_html": "pAddCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)", + "name": "pAddCommitteeColdVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyOrHashOrFile" + }, + { + "display_html": "pAddCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)", + "name": "pAddCommitteeColdVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyHash" + }, + { + "display_html": "pAddCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)", + "name": "pAddCommitteeColdVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyOrFile" + }, + { + "display_html": "pAddCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)", + "name": "pAddCommitteeColdVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKey" + }, + { + "display_html": "pAddCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)", + "name": "pAddCommitteeColdVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddCommitteeColdVerificationKeyFile" + }, + { + "display_html": "pRemoveCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)", + "name": "pRemoveCommitteeColdVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyOrHashOrFile" + }, + { + "display_html": "pRemoveCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)", + "name": "pRemoveCommitteeColdVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyHash" + }, + { + "display_html": "pRemoveCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)", + "name": "pRemoveCommitteeColdVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyOrFile" + }, + { + "display_html": "pRemoveCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)", + "name": "pRemoveCommitteeColdVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKey" + }, + { + "display_html": "pRemoveCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)", + "name": "pRemoveCommitteeColdVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRemoveCommitteeColdVerificationKeyFile" + }, + { + "display_html": "pCommitteeColdVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeColdKey)", + "name": "pCommitteeColdVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyOrHashOrFile" + }, + { + "display_html": "pCommitteeColdVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeColdKey)", + "name": "pCommitteeColdVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyOrFile" + }, + { + "display_html": "pCommitteeColdVerificationKey ∷ Parser (VerificationKey CommitteeColdKey)", + "name": "pCommitteeColdVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKey" + }, + { + "display_html": "pCommitteeColdVerificationKeyHash ∷ Parser (Hash CommitteeColdKey)", + "name": "pCommitteeColdVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyHash" + }, + { + "display_html": "pCommitteeColdVerificationKeyFile ∷ Parser (File (VerificationKey keyrole) In)", + "name": "pCommitteeColdVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeColdVerificationKeyFile" + }, + { + "display_html": "pVerificationKeyFileIn ∷ Parser (VerificationKeyFile In)", + "name": "pVerificationKeyFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyFileIn" + }, + { + "display_html": "pAnyVerificationKeyFileIn ∷ String → Parser (VerificationKeyFile In)", + "name": "pAnyVerificationKeyFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeyFileIn" + }, + { + "display_html": "pAnyVerificationKeyText ∷ String → Parser AnyVerificationKeyText", + "name": "pAnyVerificationKeyText", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeyText" + }, + { + "display_html": "pAnyVerificationKeySource ∷ String → Parser AnyVerificationKeySource", + "name": "pAnyVerificationKeySource", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnyVerificationKeySource" + }, + { + "display_html": "pCommitteeHotKey ∷ Parser (VerificationKey CommitteeHotKey)", + "name": "pCommitteeHotKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKey" + }, + { + "display_html": "pCommitteeHotVerificationKey ∷ Parser (VerificationKey CommitteeHotKey)", + "name": "pCommitteeHotVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKey" + }, + { + "display_html": "deserialiseHotCCKeyFromHex ∷ String → Either String (VerificationKey CommitteeHotKey)", + "name": "deserialiseHotCCKeyFromHex", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:deserialiseHotCCKeyFromHex" + }, + { + "display_html": "pCommitteeHotKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pCommitteeHotKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyFile" + }, + { + "display_html": "pCommitteeHotVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pCommitteeHotVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKeyFile" + }, + { + "display_html": "pCommitteeHotKeyHash ∷ Maybe String → Parser (Hash CommitteeHotKey)", + "name": "pCommitteeHotKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyHash" + }, + { + "display_html": "pCommitteeHotKeyOrFile ∷ Parser (VerificationKeyOrFile CommitteeHotKey)", + "name": "pCommitteeHotKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyOrFile" + }, + { + "display_html": "pCommitteeHotKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey)", + "name": "pCommitteeHotKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotKeyOrHashOrFile" + }, + { + "display_html": "pCommitteeHotVerificationKeyOrHashOrVerificationFile ∷ Parser (VerificationKeyOrHashOrFile CommitteeHotKey)", + "name": "pCommitteeHotVerificationKeyOrHashOrVerificationFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeHotVerificationKeyOrHashOrVerificationFile" + }, + { + "display_html": "catCommands ∷ [Parser a] → Maybe (Parser a)", + "name": "catCommands", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:catCommands" + }, + { + "display_html": "pConstitutionUrl ∷ Parser ConstitutionUrl", + "name": "pConstitutionUrl", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionUrl" + }, + { + "display_html": "pConstitutionHashSource ∷ Parser ConstitutionHashSource", + "name": "pConstitutionHashSource", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionHashSource" + }, + { + "display_html": "pConstitutionHash ∷ Parser (SafeHash StandardCrypto AnchorData)", + "name": "pConstitutionHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pConstitutionHash" + }, + { + "display_html": "pUrl ∷ String → String → Parser Url", + "name": "pUrl", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pUrl" + }, + { + "display_html": "pGovActionDeposit ∷ Parser Lovelace", + "name": "pGovActionDeposit", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGovActionDeposit" + }, + { + "display_html": "pStakeVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakeKey)", + "name": "pStakeVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyOrHashOrFile" + }, + { + "display_html": "pStakeVerificationKeyHash ∷ Maybe String → Parser (Hash StakeKey)", + "name": "pStakeVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakeVerificationKeyHash" + }, + { + "display_html": "pStakePoolVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakePoolKey)", + "name": "pStakePoolVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyOrHashOrFile" + }, + { + "display_html": "pCombinedStakePoolVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile StakePoolKey)", + "name": "pCombinedStakePoolVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyOrHashOrFile" + }, + { + "display_html": "pCombinedStakePoolVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakePoolKey)", + "name": "pCombinedStakePoolVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyOrFile" + }, + { + "display_html": "pCombinedStakePoolVerificationKeyHash ∷ Parser (Hash StakePoolKey)", + "name": "pCombinedStakePoolVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyHash" + }, + { + "display_html": "pCombinedStakePoolVerificationKey ∷ Parser (VerificationKey StakePoolKey)", + "name": "pCombinedStakePoolVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKey" + }, + { + "display_html": "pCombinedStakePoolVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pCombinedStakePoolVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedStakePoolVerificationKeyFile" + }, + { + "display_html": "pCBORInFile ∷ Parser FilePath", + "name": "pCBORInFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCBORInFile" + }, + { + "display_html": "pPollQuestion ∷ Parser Text", + "name": "pPollQuestion", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollQuestion" + }, + { + "display_html": "pPollAnswer ∷ Parser Text", + "name": "pPollAnswer", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollAnswer" + }, + { + "display_html": "pPollAnswerIndex ∷ Parser Word", + "name": "pPollAnswerIndex", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollAnswerIndex" + }, + { + "display_html": "pPollFile ∷ Parser (File GovernancePoll In)", + "name": "pPollFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollFile" + }, + { + "display_html": "pPollTxFile ∷ Parser (TxFile In)", + "name": "pPollTxFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollTxFile" + }, + { + "display_html": "pPollNonce ∷ Parser Word", + "name": "pPollNonce", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPollNonce" + }, + { + "display_html": "pScriptWitnessFiles ∷ ∀ witctx. WitCtx witctx → BalanceTxExecUnits → String → Maybe String → String → Parser (ScriptWitnessFiles witctx)", + "name": "pScriptWitnessFiles", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScriptWitnessFiles" + }, + { + "display_html": "pExecutionUnits ∷ String → Parser ExecutionUnits", + "name": "pExecutionUnits", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pExecutionUnits" + }, + { + "display_html": "pScriptRedeemerOrFile ∷ String → Parser ScriptDataOrFile", + "name": "pScriptRedeemerOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScriptRedeemerOrFile" + }, + { + "display_html": "pScriptDatumOrFile ∷ String → WitCtx witctx → Parser (ScriptDatumOrFile witctx)", + "name": "pScriptDatumOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScriptDatumOrFile" + }, + { + "display_html": "pScriptDataOrFile ∷ String → String → String → Parser ScriptDataOrFile", + "name": "pScriptDataOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScriptDataOrFile" + }, + { + "display_html": "pPaymentVerifier ∷ Parser PaymentVerifier", + "name": "pPaymentVerifier", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerifier" + }, + { + "display_html": "pPaymentVerificationKeyTextOrFile ∷ Parser VerificationKeyTextOrFile", + "name": "pPaymentVerificationKeyTextOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyTextOrFile" + }, + { + "display_html": "pPaymentVerificationKeyText ∷ Parser Text", + "name": "pPaymentVerificationKeyText", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyText" + }, + { + "display_html": "pPaymentVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pPaymentVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPaymentVerificationKeyFile" + }, + { + "display_html": "pScript ∷ Parser ScriptFile", + "name": "pScript", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pScript" + }, + { + "display_html": "pReferenceTxIn ∷ String → String → Parser TxIn", + "name": "pReferenceTxIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pReferenceTxIn" + }, + { + "display_html": "pReadOnlyReferenceTxIn ∷ Parser TxIn", + "name": "pReadOnlyReferenceTxIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pReadOnlyReferenceTxIn" + }, + { + "display_html": "pAddressKeyType ∷ Parser AddressKeyType", + "name": "pAddressKeyType", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddressKeyType" + }, + { + "display_html": "pProtocolParamsFile ∷ Parser ProtocolParamsFile", + "name": "pProtocolParamsFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pProtocolParamsFile" + }, + { + "display_html": "pCalculatePlutusScriptCost ∷ Parser TxBuildOutputOptions", + "name": "pCalculatePlutusScriptCost", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCalculatePlutusScriptCost" + }, + { + "display_html": "pCertificateFile ∷ BalanceTxExecUnits → Parser (CertificateFile, Maybe (ScriptWitnessFiles WitCtxStake))", + "name": "pCertificateFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCertificateFile" + }, + { + "display_html": "pPoolMetadataFile ∷ Parser (StakePoolMetadataFile In)", + "name": "pPoolMetadataFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolMetadataFile" + }, + { + "display_html": "pTxMetadataJsonSchema ∷ Parser TxMetadataJsonSchema", + "name": "pTxMetadataJsonSchema", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxMetadataJsonSchema" + }, + { + "display_html": "convertTime ∷ String → UTCTime", + "name": "convertTime", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:convertTime" + }, + { + "display_html": "pMetadataFile ∷ Parser MetadataFile", + "name": "pMetadataFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMetadataFile" + }, + { + "display_html": "pWithdrawal ∷ BalanceTxExecUnits → Parser (StakeAddress, Lovelace, Maybe (ScriptWitnessFiles WitCtxStake))", + "name": "pWithdrawal", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWithdrawal" + }, + { + "display_html": "pPlutusStakeReferenceScriptWitnessFiles ∷ String → BalanceTxExecUnits → Parser (ScriptWitnessFiles WitCtxStake)", + "name": "pPlutusStakeReferenceScriptWitnessFiles", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPlutusStakeReferenceScriptWitnessFiles" + }, + { + "display_html": "pPlutusScriptLanguage ∷ String → Parser AnyScriptLanguage", + "name": "pPlutusScriptLanguage", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPlutusScriptLanguage" + }, + { + "display_html": "pUpdateProposalFile ∷ Parser UpdateProposalFile", + "name": "pUpdateProposalFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pUpdateProposalFile" + }, + { + "display_html": "pRequiredSigner ∷ Parser RequiredSigner", + "name": "pRequiredSigner", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRequiredSigner" + }, + { + "display_html": "pVrfSigningKeyFile ∷ Parser (SigningKeyFile In)", + "name": "pVrfSigningKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfSigningKeyFile" + }, + { + "display_html": "pWhichLeadershipSchedule ∷ Parser EpochLeadershipSchedule", + "name": "pWhichLeadershipSchedule", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWhichLeadershipSchedule" + }, + { + "display_html": "pWitnessSigningData ∷ Parser WitnessSigningData", + "name": "pWitnessSigningData", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWitnessSigningData" + }, + { + "display_html": "pSigningKeyFileIn ∷ Parser (SigningKeyFile In)", + "name": "pSigningKeyFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pSigningKeyFileIn" + }, + { + "display_html": "pKesPeriod ∷ Parser KESPeriod", + "name": "pKesPeriod", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKesPeriod" + }, + { + "display_html": "pEpochNo ∷ String → Parser EpochNo", + "name": "pEpochNo", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pEpochNo" + }, + { + "display_html": "pEpochNoUpdateProp ∷ Parser EpochNo", + "name": "pEpochNoUpdateProp", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pEpochNoUpdateProp" + }, + { + "display_html": "pGenesisFile ∷ String → Parser GenesisFile", + "name": "pGenesisFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisFile" + }, + { + "display_html": "pOperationalCertificateFile ∷ Parser (File () direction)", + "name": "pOperationalCertificateFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pOperationalCertificateFile" + }, + { + "display_html": "pKeyOutputFormat ∷ Parser KeyOutputFormat", + "name": "pKeyOutputFormat", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKeyOutputFormat" + }, + { + "display_html": "pPoolIdOutputFormat ∷ Parser IdOutputFormat", + "name": "pPoolIdOutputFormat", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolIdOutputFormat" + }, + { + "display_html": "pTxViewOutputFormat ∷ Parser TxViewOutputFormat", + "name": "pTxViewOutputFormat", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxViewOutputFormat" + }, + { + "display_html": "pGovernanceActionViewOutputFormat ∷ Parser GovernanceActionViewOutputFormat", + "name": "pGovernanceActionViewOutputFormat", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGovernanceActionViewOutputFormat" + }, + { + "display_html": "pMaybeOutputFile ∷ Parser (Maybe (File content Out))", + "name": "pMaybeOutputFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaybeOutputFile" + }, + { + "display_html": "pVerificationKey ∷ ∀ keyrole. SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKey keyrole)", + "name": "pVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKey" + }, + { + "display_html": "pVerificationKeyOrFileIn ∷ SerialiseAsBech32 (VerificationKey keyrole) ⇒ AsType keyrole → Parser (VerificationKeyOrFile keyrole)", + "name": "pVerificationKeyOrFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVerificationKeyOrFileIn" + }, + { + "display_html": "pExtendedVerificationKeyFileIn ∷ Parser (VerificationKeyFile In)", + "name": "pExtendedVerificationKeyFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pExtendedVerificationKeyFileIn" + }, + { + "display_html": "pGenesisVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pGenesisVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyFile" + }, + { + "display_html": "pGenesisVerificationKeyHash ∷ Parser (Hash GenesisKey)", + "name": "pGenesisVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyHash" + }, + { + "display_html": "pGenesisVerificationKey ∷ Parser (VerificationKey GenesisKey)", + "name": "pGenesisVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKey" + }, + { + "display_html": "pGenesisVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisKey)", + "name": "pGenesisVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyOrFile" + }, + { + "display_html": "pGenesisVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisKey)", + "name": "pGenesisVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisVerificationKeyOrHashOrFile" + }, + { + "display_html": "pGenesisDelegateVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pGenesisDelegateVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyFile" + }, + { + "display_html": "pGenesisDelegateVerificationKeyHash ∷ Parser (Hash GenesisDelegateKey)", + "name": "pGenesisDelegateVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyHash" + }, + { + "display_html": "pGenesisDelegateVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile GenesisDelegateKey)", + "name": "pGenesisDelegateVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyOrFile" + }, + { + "display_html": "pGenesisDelegateVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile GenesisDelegateKey)", + "name": "pGenesisDelegateVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGenesisDelegateVerificationKeyOrHashOrFile" + }, + { + "display_html": "pKesVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile KesKey)", + "name": "pKesVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKeyOrFile" + }, + { + "display_html": "pKesVerificationKey ∷ Parser (VerificationKey KesKey)", + "name": "pKesVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKey" + }, + { + "display_html": "pKesVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pKesVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKesVerificationKeyFile" + }, + { + "display_html": "pTxSubmitFile ∷ Parser FilePath", + "name": "pTxSubmitFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxSubmitFile" + }, + { + "display_html": "pTxIn ∷ BalanceTxExecUnits → Parser (TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))", + "name": "pTxIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxIn" + }, + { + "display_html": "pTxInCollateral ∷ Parser TxIn", + "name": "pTxInCollateral", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxInCollateral" + }, + { + "display_html": "pReturnCollateral ∷ Parser TxOutAnyEra", + "name": "pReturnCollateral", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pReturnCollateral" + }, + { + "display_html": "pTotalCollateral ∷ Parser Lovelace", + "name": "pTotalCollateral", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTotalCollateral" + }, + { + "display_html": "pWitnessOverride ∷ Parser Word", + "name": "pWitnessOverride", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWitnessOverride" + }, + { + "display_html": "pTxOut ∷ Parser TxOutAnyEra", + "name": "pTxOut", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxOut" + }, + { + "display_html": "pTxOutDatum ∷ Parser TxOutDatumAnyEra", + "name": "pTxOutDatum", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxOutDatum" + }, + { + "display_html": "pRefScriptFp ∷ Parser ReferenceScriptAnyEra", + "name": "pRefScriptFp", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRefScriptFp" + }, + { + "display_html": "pMintMultiAsset ∷ BalanceTxExecUnits → Parser (Value, [ScriptWitnessFiles WitCtxMint])", + "name": "pMintMultiAsset", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMintMultiAsset" + }, + { + "display_html": "pPolicyId ∷ Parser PolicyId", + "name": "pPolicyId", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPolicyId" + }, + { + "display_html": "pInvalidBefore ∷ Parser SlotNo", + "name": "pInvalidBefore", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pInvalidBefore" + }, + { + "display_html": "pLegacyInvalidHereafter ∷ Parser SlotNo", + "name": "pLegacyInvalidHereafter", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pLegacyInvalidHereafter" + }, + { + "display_html": "pInvalidHereafter ∷ CardanoEra era → Parser (TxValidityUpperBound era)", + "name": "pInvalidHereafter", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pInvalidHereafter" + }, + { + "display_html": "pTxFee ∷ Parser Lovelace", + "name": "pTxFee", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxFee" + }, + { + "display_html": "pWitnessFile ∷ Parser WitnessFile", + "name": "pWitnessFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWitnessFile" + }, + { + "display_html": "pTxBodyFileIn ∷ Parser (TxBodyFile In)", + "name": "pTxBodyFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxBodyFileIn" + }, + { + "display_html": "pTxBodyFileOut ∷ Parser (TxBodyFile Out)", + "name": "pTxBodyFileOut", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxBodyFileOut" + }, + { + "display_html": "pTxFileIn ∷ Parser (TxFile In)", + "name": "pTxFileIn", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxFileIn" + }, + { + "display_html": "pTxFileOut ∷ Parser (TxFile Out)", + "name": "pTxFileOut", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxFileOut" + }, + { + "display_html": "pInputTxOrTxBodyFile ∷ Parser InputTxBodyOrTxFile", + "name": "pInputTxOrTxBodyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pInputTxOrTxBodyFile" + }, + { + "display_html": "pTxInCount ∷ Parser TxInCount", + "name": "pTxInCount", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxInCount" + }, + { + "display_html": "pTxOutCount ∷ Parser TxOutCount", + "name": "pTxOutCount", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxOutCount" + }, + { + "display_html": "pTxShelleyWitnessCount ∷ Parser TxShelleyWitnessCount", + "name": "pTxShelleyWitnessCount", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxShelleyWitnessCount" + }, + { + "display_html": "pTxByronWitnessCount ∷ Parser TxByronWitnessCount", + "name": "pTxByronWitnessCount", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxByronWitnessCount" + }, + { + "display_html": "pQueryUTxOFilter ∷ Parser QueryUTxOFilter", + "name": "pQueryUTxOFilter", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pQueryUTxOFilter" + }, + { + "display_html": "pFilterByStakeAddress ∷ Parser StakeAddress", + "name": "pFilterByStakeAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pFilterByStakeAddress" + }, + { + "display_html": "pByronAddress ∷ Parser (Address ByronAddr)", + "name": "pByronAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pByronAddress" + }, + { + "display_html": "pAddress ∷ Parser Text", + "name": "pAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAddress" + }, + { + "display_html": "pStakePoolVerificationKeyHash ∷ Maybe String → Parser (Hash StakePoolKey)", + "name": "pStakePoolVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolVerificationKeyHash" + }, + { + "display_html": "pVrfVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pVrfVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyFile" + }, + { + "display_html": "pVrfVerificationKeyHash ∷ Parser (Hash VrfKey)", + "name": "pVrfVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyHash" + }, + { + "display_html": "pVrfVerificationKey ∷ Parser (VerificationKey VrfKey)", + "name": "pVrfVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKey" + }, + { + "display_html": "pVrfVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile VrfKey)", + "name": "pVrfVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyOrFile" + }, + { + "display_html": "pVrfVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile VrfKey)", + "name": "pVrfVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVrfVerificationKeyOrHashOrFile" + }, + { + "display_html": "pRewardAcctVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pRewardAcctVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKeyFile" + }, + { + "display_html": "pRewardAcctVerificationKey ∷ Parser (VerificationKey StakeKey)", + "name": "pRewardAcctVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKey" + }, + { + "display_html": "pRewardAcctVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey)", + "name": "pRewardAcctVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRewardAcctVerificationKeyOrFile" + }, + { + "display_html": "pPoolOwnerVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pPoolOwnerVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKeyFile" + }, + { + "display_html": "pPoolOwnerVerificationKey ∷ Parser (VerificationKey StakeKey)", + "name": "pPoolOwnerVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKey" + }, + { + "display_html": "pPoolOwnerVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile StakeKey)", + "name": "pPoolOwnerVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolOwnerVerificationKeyOrFile" + }, + { + "display_html": "pPoolPledge ∷ Parser Lovelace", + "name": "pPoolPledge", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolPledge" + }, + { + "display_html": "pPoolCost ∷ Parser Lovelace", + "name": "pPoolCost", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolCost" + }, + { + "display_html": "pRational ∷ String → String → Parser Rational", + "name": "pRational", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pRational" + }, + { + "display_html": "pPoolMargin ∷ Parser Rational", + "name": "pPoolMargin", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolMargin" + }, + { + "display_html": "pPoolRelay ∷ Parser StakePoolRelay", + "name": "pPoolRelay", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolRelay" + }, + { + "display_html": "pMultiHostName ∷ Parser StakePoolRelay", + "name": "pMultiHostName", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMultiHostName" + }, + { + "display_html": "pSingleHostName ∷ Parser StakePoolRelay", + "name": "pSingleHostName", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pSingleHostName" + }, + { + "display_html": "pSingleHostAddress ∷ Parser StakePoolRelay", + "name": "pSingleHostAddress", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pSingleHostAddress" + }, + { + "display_html": "pIpV4 ∷ Parser IPv4", + "name": "pIpV4", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pIpV4" + }, + { + "display_html": "pIpV6 ∷ Parser IPv6", + "name": "pIpV6", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pIpV6" + }, + { + "display_html": "pPort ∷ Parser PortNumber", + "name": "pPort", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPort" + }, + { + "display_html": "pStakePoolMetadataReference ∷ Parser (Maybe StakePoolMetadataReference)", + "name": "pStakePoolMetadataReference", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataReference" + }, + { + "display_html": "pStakePoolMetadataUrl ∷ Parser Text", + "name": "pStakePoolMetadataUrl", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataUrl" + }, + { + "display_html": "pStakePoolMetadataHash ∷ Parser (Hash StakePoolMetadata)", + "name": "pStakePoolMetadataHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolMetadataHash" + }, + { + "display_html": "pStakePoolRegistrationParserRequirements ∷ EnvCli → Parser StakePoolRegistrationParserRequirements", + "name": "pStakePoolRegistrationParserRequirements", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pStakePoolRegistrationParserRequirements" + }, + { + "display_html": "pProtocolParametersUpdate ∷ Parser ProtocolParametersUpdate", + "name": "pProtocolParametersUpdate", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pProtocolParametersUpdate" + }, + { + "display_html": "pCostModels ∷ Parser FilePath", + "name": "pCostModels", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCostModels" + }, + { + "display_html": "pMinFeePerByteFactor ∷ Parser Lovelace", + "name": "pMinFeePerByteFactor", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMinFeePerByteFactor" + }, + { + "display_html": "pMinFeeConstantFactor ∷ Parser Lovelace", + "name": "pMinFeeConstantFactor", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMinFeeConstantFactor" + }, + { + "display_html": "pMinUTxOValue ∷ Parser Lovelace", + "name": "pMinUTxOValue", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMinUTxOValue" + }, + { + "display_html": "pMinPoolCost ∷ Parser Lovelace", + "name": "pMinPoolCost", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMinPoolCost" + }, + { + "display_html": "pMaxBodySize ∷ Parser Natural", + "name": "pMaxBodySize", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxBodySize" + }, + { + "display_html": "pMaxTransactionSize ∷ Parser Natural", + "name": "pMaxTransactionSize", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxTransactionSize" + }, + { + "display_html": "pMaxBlockHeaderSize ∷ Parser Natural", + "name": "pMaxBlockHeaderSize", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxBlockHeaderSize" + }, + { + "display_html": "pKeyRegistDeposit ∷ Parser Lovelace", + "name": "pKeyRegistDeposit", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pKeyRegistDeposit" + }, + { + "display_html": "pDrepDeposit ∷ Parser Lovelace", + "name": "pDrepDeposit", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDrepDeposit" + }, + { + "display_html": "pPoolDeposit ∷ Parser Lovelace", + "name": "pPoolDeposit", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolDeposit" + }, + { + "display_html": "pEpochBoundRetirement ∷ Parser EpochNo", + "name": "pEpochBoundRetirement", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pEpochBoundRetirement" + }, + { + "display_html": "pNumberOfPools ∷ Parser Natural", + "name": "pNumberOfPools", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pNumberOfPools" + }, + { + "display_html": "pPoolInfluence ∷ Parser Rational", + "name": "pPoolInfluence", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolInfluence" + }, + { + "display_html": "pTreasuryExpansion ∷ Parser Rational", + "name": "pTreasuryExpansion", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTreasuryExpansion" + }, + { + "display_html": "pMonetaryExpansion ∷ Parser Rational", + "name": "pMonetaryExpansion", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMonetaryExpansion" + }, + { + "display_html": "pDecentralParam ∷ Parser Rational", + "name": "pDecentralParam", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDecentralParam" + }, + { + "display_html": "pExtraEntropy ∷ Parser (Maybe PraosNonce)", + "name": "pExtraEntropy", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pExtraEntropy" + }, + { + "display_html": "pUTxOCostPerByte ∷ Parser Lovelace", + "name": "pUTxOCostPerByte", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pUTxOCostPerByte" + }, + { + "display_html": "pExecutionUnitPrices ∷ Parser ExecutionUnitPrices", + "name": "pExecutionUnitPrices", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pExecutionUnitPrices" + }, + { + "display_html": "pMaxTxExecutionUnits ∷ Parser ExecutionUnits", + "name": "pMaxTxExecutionUnits", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxTxExecutionUnits" + }, + { + "display_html": "pMaxBlockExecutionUnits ∷ Parser ExecutionUnits", + "name": "pMaxBlockExecutionUnits", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxBlockExecutionUnits" + }, + { + "display_html": "pMaxValueSize ∷ Parser Natural", + "name": "pMaxValueSize", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxValueSize" + }, + { + "display_html": "pCollateralPercent ∷ Parser Natural", + "name": "pCollateralPercent", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCollateralPercent" + }, + { + "display_html": "pMaxCollateralInputs ∷ Parser Natural", + "name": "pMaxCollateralInputs", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMaxCollateralInputs" + }, + { + "display_html": "pProtocolVersion ∷ Parser (Natural, Natural)", + "name": "pProtocolVersion", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pProtocolVersion" + }, + { + "display_html": "pPoolVotingThresholds ∷ Parser PoolVotingThresholds", + "name": "pPoolVotingThresholds", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPoolVotingThresholds" + }, + { + "display_html": "pDRepVotingThresholds ∷ Parser DRepVotingThresholds", + "name": "pDRepVotingThresholds", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVotingThresholds" + }, + { + "display_html": "pMinCommitteeSize ∷ Parser Natural", + "name": "pMinCommitteeSize", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pMinCommitteeSize" + }, + { + "display_html": "pCommitteeTermLength ∷ Parser Natural", + "name": "pCommitteeTermLength", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCommitteeTermLength" + }, + { + "display_html": "pGovActionLifetime ∷ Parser EpochNo", + "name": "pGovActionLifetime", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGovActionLifetime" + }, + { + "display_html": "pDRepDeposit ∷ Parser Lovelace", + "name": "pDRepDeposit", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepDeposit" + }, + { + "display_html": "pDRepActivity ∷ Parser EpochNo", + "name": "pDRepActivity", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepActivity" + }, + { + "display_html": "parseTxOutAnyEra ∷ Parser (TxOutDatumAnyEra → ReferenceScriptAnyEra → TxOutAnyEra)", + "name": "parseTxOutAnyEra", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:parseTxOutAnyEra" + }, + { + "display_html": "pVoteChoice ∷ Parser Vote", + "name": "pVoteChoice", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVoteChoice" + }, + { + "display_html": "pVoterType ∷ Parser VType", + "name": "pVoterType", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVoterType" + }, + { + "display_html": "pVotingCredential ∷ Parser (VerificationKeyOrFile StakePoolKey)", + "name": "pVotingCredential", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVotingCredential" + }, + { + "display_html": "pVoteDelegationTarget ∷ Parser VoteDelegationTarget", + "name": "pVoteDelegationTarget", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVoteDelegationTarget" + }, + { + "display_html": "pAlwaysAbstain ∷ Parser ()", + "name": "pAlwaysAbstain", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAlwaysAbstain" + }, + { + "display_html": "pVoteAnchor ∷ Parser (VoteUrl, SafeHash StandardCrypto AnchorData)", + "name": "pVoteAnchor", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVoteAnchor" + }, + { + "display_html": "pVoteAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData)", + "name": "pVoteAnchorDataHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pVoteAnchorDataHash" + }, + { + "display_html": "pAlwaysNoConfidence ∷ Parser ()", + "name": "pAlwaysNoConfidence", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAlwaysNoConfidence" + }, + { + "display_html": "pDRepHashSource ∷ Parser DRepHashSource", + "name": "pDRepHashSource", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepHashSource" + }, + { + "display_html": "pDRepScriptHash ∷ Parser ScriptHash", + "name": "pDRepScriptHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepScriptHash" + }, + { + "display_html": "pDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey)", + "name": "pDRepVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyOrHashOrFile" + }, + { + "display_html": "pCombinedDRepVerificationKeyOrHashOrFile ∷ Parser (VerificationKeyOrHashOrFile DRepKey)", + "name": "pCombinedDRepVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyOrHashOrFile" + }, + { + "display_html": "pCombinedDRepVerificationKeyHash ∷ Parser (Hash DRepKey)", + "name": "pCombinedDRepVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyHash" + }, + { + "display_html": "pCombinedDRepVerificationKey ∷ Parser (VerificationKey DRepKey)", + "name": "pCombinedDRepVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKey" + }, + { + "display_html": "pCombinedDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey)", + "name": "pCombinedDRepVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyOrFile" + }, + { + "display_html": "pCombinedDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pCombinedDRepVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pCombinedDRepVerificationKeyFile" + }, + { + "display_html": "pDRepVerificationKeyHash ∷ Parser (Hash DRepKey)", + "name": "pDRepVerificationKeyHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyHash" + }, + { + "display_html": "pDRepVerificationKey ∷ Parser (VerificationKey DRepKey)", + "name": "pDRepVerificationKey", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKey" + }, + { + "display_html": "pDRepVerificationKeyOrFile ∷ Parser (VerificationKeyOrFile DRepKey)", + "name": "pDRepVerificationKeyOrFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyOrFile" + }, + { + "display_html": "pDRepVerificationKeyFile ∷ Parser (VerificationKeyFile In)", + "name": "pDRepVerificationKeyFile", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pDRepVerificationKeyFile" + }, + { + "display_html": "pAnchorUrl ∷ Parser ProposalUrl", + "name": "pAnchorUrl", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnchorUrl" + }, + { + "display_html": "pAnchorDataHash ∷ Parser (SafeHash StandardCrypto AnchorData)", + "name": "pAnchorDataHash", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pAnchorDataHash" + }, + { + "display_html": "pPreviousGovernanceAction ∷ Parser (Maybe (TxId, Word32))", + "name": "pPreviousGovernanceAction", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pPreviousGovernanceAction" + }, + { + "display_html": "pGovernanceActionId ∷ Parser (TxId, Word32)", + "name": "pGovernanceActionId", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pGovernanceActionId" + }, + { + "display_html": "pWord32 ∷ String → String → Parser Word32", + "name": "pWord32", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pWord32" + }, + { + "display_html": "pTxId ∷ String → String → Parser TxId", + "name": "pTxId", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pTxId" + }, + { + "display_html": "pFeatured ∷ Eon eon ⇒ ToCardanoEra peon ⇒ peon era → Parser a → Parser (Maybe (Featured eon era a))", + "name": "pFeatured", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:pFeatured" + }, + { + "display_html": "hiddenSubParser ∷ String → ParserInfo a → Parser a", + "name": "hiddenSubParser", + "module": "Cardano.CLI.EraBased.Options.Common", + "link": "lib/Cardano-CLI-EraBased-Options-Common.html#v:hiddenSubParser" + }, + { + "display_html": "pKeyCmds ∷ Parser LegacyKeyCmds", + "name": "pKeyCmds", + "module": "Cardano.CLI.Legacy.Options.Key", + "link": "lib/Cardano-CLI-Legacy-Options-Key.html#v:pKeyCmds" + }, + { + "display_html": "parseLegacyCmds ∷ EnvCli → Parser LegacyCmds", + "name": "parseLegacyCmds", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:parseLegacyCmds" + }, + { + "display_html": "module Cardano.CLI.Legacy.Commands", + "name": "", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/" + }, + { + "display_html": "parseTxIn ∷ Parser TxIn", + "name": "parseTxIn", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:parseTxIn" + }, + { + "display_html": "pLegacyCardanoEra ∷ EnvCli → Parser AnyCardanoEra", + "name": "pLegacyCardanoEra", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:pLegacyCardanoEra" + }, + { + "display_html": "pLegacyShelleyBasedEra ∷ EnvCli → Parser (EraInEon ShelleyBasedEra)", + "name": "pLegacyShelleyBasedEra", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:pLegacyShelleyBasedEra" + }, + { + "display_html": "pKeyRegistDeposit ∷ Parser Lovelace", + "name": "pKeyRegistDeposit", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:pKeyRegistDeposit" + }, + { + "display_html": "pStakePoolRegistrationParserRequirements ∷ EnvCli → Parser StakePoolRegistrationParserRequirements", + "name": "pStakePoolRegistrationParserRequirements", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:pStakePoolRegistrationParserRequirements" + }, + { + "display_html": "pStakePoolVerificationKeyOrHashOrFile ∷ Maybe String → Parser (VerificationKeyOrHashOrFile StakePoolKey)", + "name": "pStakePoolVerificationKeyOrHashOrFile", + "module": "Cardano.CLI.Legacy.Options", + "link": "lib/Cardano-CLI-Legacy-Options.html#v:pStakePoolVerificationKeyOrHashOrFile" + }, + { + "display_html": "pTransactionCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (TransactionCmds era))", + "name": "pTransactionCmds", + "module": "Cardano.CLI.EraBased.Options.Transaction", + "link": "lib/Cardano-CLI-EraBased-Options-Transaction.html#v:pTransactionCmds" + }, + { + "display_html": "pTextViewCmds ∷ Maybe (Parser (TextViewCmds era))", + "name": "pTextViewCmds", + "module": "Cardano.CLI.EraBased.Options.TextView", + "link": "lib/Cardano-CLI-EraBased-Options-TextView.html#v:pTextViewCmds" + }, + { + "display_html": "pStakePoolCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (StakePoolCmds era))", + "name": "pStakePoolCmds", + "module": "Cardano.CLI.EraBased.Options.StakePool", + "link": "lib/Cardano-CLI-EraBased-Options-StakePool.html#v:pStakePoolCmds" + }, + { + "display_html": "pStakeAddressCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (StakeAddressCmds era))", + "name": "pStakeAddressCmds", + "module": "Cardano.CLI.EraBased.Options.StakeAddress", + "link": "lib/Cardano-CLI-EraBased-Options-StakeAddress.html#v:pStakeAddressCmds" + }, + { + "display_html": "pQueryCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (QueryCmds era))", + "name": "pQueryCmds", + "module": "Cardano.CLI.EraBased.Options.Query", + "link": "lib/Cardano-CLI-EraBased-Options-Query.html#v:pQueryCmds" + }, + { + "display_html": "pNodeCmds ∷ Maybe (Parser (NodeCmds era))", + "name": "pNodeCmds", + "module": "Cardano.CLI.EraBased.Options.Node", + "link": "lib/Cardano-CLI-EraBased-Options-Node.html#v:pNodeCmds" + }, + { + "display_html": "pKeyCmds ∷ Maybe (Parser (KeyCmds era))", + "name": "pKeyCmds", + "module": "Cardano.CLI.EraBased.Options.Key", + "link": "lib/Cardano-CLI-EraBased-Options-Key.html#v:pKeyCmds" + }, + { + "display_html": "pGovernanceVoteCmds ∷ CardanoEra era → Maybe (Parser (GovernanceVoteCmds era))", + "name": "pGovernanceVoteCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-Vote.html#v:pGovernanceVoteCmds" + }, + { + "display_html": "pGovernancePollCmds ∷ CardanoEra era → Maybe (Parser (GovernancePollCmds era))", + "name": "pGovernancePollCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.Poll", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-Poll.html#v:pGovernancePollCmds" + }, + { + "display_html": "pGovernanceHashCmds ∷ CardanoEra era → Maybe (Parser (GovernanceHashCmds era))", + "name": "pGovernanceHashCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-Hash.html#v:pGovernanceHashCmds" + }, + { + "display_html": "pGovernanceDRepCmds ∷ CardanoEra era → Maybe (Parser (GovernanceDRepCmds era))", + "name": "pGovernanceDRepCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-DRep.html#v:pGovernanceDRepCmds" + }, + { + "display_html": "pGovernanceActionCmds ∷ CardanoEra era → Maybe (Parser (GovernanceActionCmds era))", + "name": "pGovernanceActionCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.Actions", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-Actions.html#v:pGovernanceActionCmds" + }, + { + "display_html": "pGenesisCmds ∷ EnvCli → Maybe (Parser (GenesisCmds era))", + "name": "pGenesisCmds", + "module": "Cardano.CLI.EraBased.Options.Genesis", + "link": "lib/Cardano-CLI-EraBased-Options-Genesis.html#v:pGenesisCmds" + }, + { + "display_html": "pAddressCmds ∷ CardanoEra era → EnvCli → Maybe (Parser (AddressCmds era))", + "name": "pAddressCmds", + "module": "Cardano.CLI.EraBased.Options.Address", + "link": "lib/Cardano-CLI-EraBased-Options-Address.html#v:pAddressCmds" + }, + { + "display_html": "data GovernanceCommitteeCmds era", + "name": "GovernanceCommitteeCmds GovernanceCommitteeKeyGenColdCmd GovernanceCommitteeKeyGenHotCmd GovernanceCommitteeKeyHashCmd GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd GovernanceCommitteeCreateColdKeyResignationCertificateCmd", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCmds" + }, + { + "display_html": "data GovernanceCommitteeKeyGenColdCmdArgs era = GovernanceCommitteeKeyGenColdCmdArgs {}", + "name": "GovernanceCommitteeKeyGenColdCmdArgs GovernanceCommitteeKeyGenColdCmdArgs $sel:eon:GovernanceCommitteeKeyGenColdCmdArgs $sel:vkeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs $sel:skeyOutFile:GovernanceCommitteeKeyGenColdCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyGenColdCmdArgs" + }, + { + "display_html": "data GovernanceCommitteeKeyGenHotCmdArgs era = GovernanceCommitteeKeyGenHotCmdArgs {}", + "name": "GovernanceCommitteeKeyGenHotCmdArgs GovernanceCommitteeKeyGenHotCmdArgs $sel:eon:GovernanceCommitteeKeyGenHotCmdArgs $sel:vkeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs $sel:skeyOutFile:GovernanceCommitteeKeyGenHotCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyGenHotCmdArgs" + }, + { + "display_html": "data GovernanceCommitteeKeyHashCmdArgs era = GovernanceCommitteeKeyHashCmdArgs {}", + "name": "GovernanceCommitteeKeyHashCmdArgs GovernanceCommitteeKeyHashCmdArgs $sel:eon:GovernanceCommitteeKeyHashCmdArgs $sel:vkeySource:GovernanceCommitteeKeyHashCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeKeyHashCmdArgs" + }, + { + "display_html": "data GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era = GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs {}", + "name": "GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:eon:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:outFile:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:vkeyColdKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs $sel:vkeyHotKeySource:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs" + }, + { + "display_html": "data GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs era = GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs {}", + "name": "GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:anchor:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:eon:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:outFile:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs $sel:vkeyColdKeySource:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#t:GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs" + }, + { + "display_html": "renderGovernanceCommitteeCmds ∷ GovernanceCommitteeCmds era → Text", + "name": "renderGovernanceCommitteeCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance-Committee.html#v:renderGovernanceCommitteeCmds" + }, + { + "display_html": "runGovernanceCommitteeCmds ∷ GovernanceCommitteeCmds era → ExceptT GovernanceCommitteeError IO ()", + "name": "runGovernanceCommitteeCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Committee.html#v:runGovernanceCommitteeCmds" + }, + { + "display_html": "data GovernanceCommitteeError", + "name": "GovernanceCommitteeError GovernanceCommitteeCmdKeyDecodeError GovernanceCommitteeCmdKeyReadError GovernanceCommitteeCmdTextEnvReadFileError GovernanceCommitteeCmdTextEnvWriteError GovernanceCommitteeCmdWriteFileError", + "module": "Cardano.CLI.EraBased.Run.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Committee.html#t:GovernanceCommitteeError" + }, + { + "display_html": "pGovernanceCommitteeCmds ∷ CardanoEra era → Maybe (Parser (GovernanceCommitteeCmds era))", + "name": "pGovernanceCommitteeCmds", + "module": "Cardano.CLI.EraBased.Options.Governance.Committee", + "link": "lib/Cardano-CLI-EraBased-Options-Governance-Committee.html#v:pGovernanceCommitteeCmds" + }, + { + "display_html": "data GovernanceCmds era", + "name": "GovernanceCmds GovernanceActionCmds GovernanceCommitteeCmds GovernanceDRepCmds GovernanceHashCmds GovernancePollCmds GovernanceVoteCmds GovernanceCreateMirCertificateStakeAddressesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateTransferToReservesCmd GovernanceGenesisKeyDelegationCertificate", + "module": "Cardano.CLI.EraBased.Commands.Governance", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance.html#t:GovernanceCmds" + }, + { + "display_html": "renderGovernanceCmds ∷ GovernanceCmds era → Text", + "name": "renderGovernanceCmds", + "module": "Cardano.CLI.EraBased.Commands.Governance", + "link": "lib/Cardano-CLI-EraBased-Commands-Governance.html#v:renderGovernanceCmds" + }, + { + "display_html": "data GovernanceCmds era", + "name": "GovernanceCmds GovernanceActionCmds GovernanceCommitteeCmds GovernanceDRepCmds GovernanceHashCmds GovernancePollCmds GovernanceVoteCmds GovernanceCreateMirCertificateStakeAddressesCmd GovernanceCreateMirCertificateTransferToTreasuryCmd GovernanceCreateMirCertificateTransferToReservesCmd GovernanceGenesisKeyDelegationCertificate", + "module": "Cardano.CLI.EraBased.Options.Governance", + "link": "lib/Cardano-CLI-EraBased-Options-Governance.html#t:GovernanceCmds" + }, + { + "display_html": "renderGovernanceCmds ∷ GovernanceCmds era → Text", + "name": "renderGovernanceCmds", + "module": "Cardano.CLI.EraBased.Options.Governance", + "link": "lib/Cardano-CLI-EraBased-Options-Governance.html#v:renderGovernanceCmds" + }, + { + "display_html": "pGovernanceCmds ∷ CardanoEra era → Maybe (Parser (GovernanceCmds era))", + "name": "pGovernanceCmds", + "module": "Cardano.CLI.EraBased.Options.Governance", + "link": "lib/Cardano-CLI-EraBased-Options-Governance.html#v:pGovernanceCmds" + }, + { + "display_html": "data AnyEraCommand where", + "name": "AnyEraCommand AnyEraCommandOf", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#t:AnyEraCommand" + }, + { + "display_html": "data Cmds era", + "name": "Cmds NodeCmds AddressCmds GenesisCmds GovernanceCmds KeyCmds QueryCmds StakeAddressCmds StakePoolCmds TextViewCmds TransactionCmds", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#t:Cmds" + }, + { + "display_html": "renderAnyEraCommand ∷ AnyEraCommand → Text", + "name": "renderAnyEraCommand", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#v:renderAnyEraCommand" + }, + { + "display_html": "renderCmds ∷ Cmds era → Text", + "name": "renderCmds", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#v:renderCmds" + }, + { + "display_html": "pAnyEraCommand ∷ EnvCli → Parser AnyEraCommand", + "name": "pAnyEraCommand", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#v:pAnyEraCommand" + }, + { + "display_html": "pCmds ∷ ShelleyBasedEra era → EnvCli → Parser (Cmds era)", + "name": "pCmds", + "module": "Cardano.CLI.EraBased.Commands", + "link": "lib/Cardano-CLI-EraBased-Commands.html#v:pCmds" + }, + { + "display_html": "data PlutusScriptCostError", + "name": "PlutusScriptCostError", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#t:PlutusScriptCostError" + }, + { + "display_html": "data QueryKesPeriodInfoOutput = QueryKesPeriodInfoOutput {}", + "name": "QueryKesPeriodInfoOutput QueryKesPeriodInfoOutput $sel:qKesOpCertIntervalInformation:QueryKesPeriodInfoOutput $sel:qKesInfoKesKeyExpiry:QueryKesPeriodInfoOutput $sel:qKesInfoNodeStateOperationalCertNo:QueryKesPeriodInfoOutput $sel:qKesInfoOnDiskOperationalCertNo:QueryKesPeriodInfoOutput $sel:qKesInfoMaxKesKeyEvolutions:QueryKesPeriodInfoOutput $sel:qKesInfoSlotsPerKesPeriod:QueryKesPeriodInfoOutput", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#t:QueryKesPeriodInfoOutput" + }, + { + "display_html": "data QueryTipLocalState mode = QueryTipLocalState {}", + "name": "QueryTipLocalState QueryTipLocalState $sel:era:QueryTipLocalState $sel:mSystemStart:QueryTipLocalState $sel:eraHistory:QueryTipLocalState $sel:mChainTip:QueryTipLocalState", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#t:QueryTipLocalState" + }, + { + "display_html": "data QueryTipLocalStateOutput = QueryTipLocalStateOutput {}", + "name": "QueryTipLocalStateOutput QueryTipLocalStateOutput $sel:localStateChainTip:QueryTipLocalStateOutput $sel:mEra:QueryTipLocalStateOutput $sel:mEpoch:QueryTipLocalStateOutput $sel:mSlotInEpoch:QueryTipLocalStateOutput $sel:mSlotsToEpochEnd:QueryTipLocalStateOutput $sel:mSyncProgress:QueryTipLocalStateOutput", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#t:QueryTipLocalStateOutput" + }, + { + "display_html": "data ScriptCostOutput = ScriptCostOutput {}", + "name": "ScriptCostOutput ScriptCostOutput $sel:scScriptHash:ScriptCostOutput $sel:scExecutionUnits:ScriptCostOutput $sel:scAda:ScriptCostOutput", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#t:ScriptCostOutput" + }, + { + "display_html": "createOpCertIntervalInfo ∷ CurrentKesPeriod → OpCertStartingKesPeriod → OpCertEndingKesPeriod → Maybe SlotsTillKesKeyExpiry → OpCertIntervalInformation", + "name": "createOpCertIntervalInfo", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#v:createOpCertIntervalInfo" + }, + { + "display_html": "renderScriptCosts ∷ UTxO era → Prices → [(ScriptWitnessIndex, AnyScriptWitness era)] → Map ScriptWitnessIndex (Either ScriptExecutionError ExecutionUnits) → Either PlutusScriptCostError [ScriptCostOutput]", + "name": "renderScriptCosts", + "module": "Cardano.CLI.Types.Output", + "link": "lib/Cardano-CLI-Types-Output.html#v:renderScriptCosts" + }, + { + "display_html": "runQueryCmds ∷ QueryCmds era → ExceptT QueryCmdError IO ()", + "name": "runQueryCmds", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryCmds" + }, + { + "display_html": "runQueryConstitutionHashCmd ∷ QueryConstitutionHashCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryConstitutionHashCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryConstitutionHashCmd" + }, + { + "display_html": "runQueryKesPeriodInfoCmd ∷ QueryKesPeriodInfoCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryKesPeriodInfoCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryKesPeriodInfoCmd" + }, + { + "display_html": "runQueryLeadershipScheduleCmd ∷ QueryLeadershipScheduleCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryLeadershipScheduleCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryLeadershipScheduleCmd" + }, + { + "display_html": "runQueryLedgerStateCmd ∷ QueryLedgerStateCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryLedgerStateCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryLedgerStateCmd" + }, + { + "display_html": "runQueryPoolStateCmd ∷ QueryPoolStateCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryPoolStateCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryPoolStateCmd" + }, + { + "display_html": "runQueryProtocolParametersCmd ∷ QueryProtocolParametersCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryProtocolParametersCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryProtocolParametersCmd" + }, + { + "display_html": "runQueryProtocolStateCmd ∷ QueryProtocolStateCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryProtocolStateCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryProtocolStateCmd" + }, + { + "display_html": "runQuerySlotNumberCmd ∷ QuerySlotNumberCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQuerySlotNumberCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQuerySlotNumberCmd" + }, + { + "display_html": "runQueryStakeAddressInfoCmd ∷ QueryStakeAddressInfoCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryStakeAddressInfoCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeAddressInfoCmd" + }, + { + "display_html": "runQueryStakeDistributionCmd ∷ QueryStakeDistributionCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryStakeDistributionCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeDistributionCmd" + }, + { + "display_html": "runQueryStakePoolsCmd ∷ QueryStakePoolsCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryStakePoolsCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakePoolsCmd" + }, + { + "display_html": "runQueryStakeSnapshotCmd ∷ QueryStakeSnapshotCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryStakeSnapshotCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryStakeSnapshotCmd" + }, + { + "display_html": "runQueryTipCmd ∷ QueryTipCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryTipCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryTipCmd" + }, + { + "display_html": "runQueryTxMempoolCmd ∷ QueryTxMempoolCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryTxMempoolCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryTxMempoolCmd" + }, + { + "display_html": "runQueryUTxOCmd ∷ QueryUTxOCmdArgs → ExceptT QueryCmdError IO ()", + "name": "runQueryUTxOCmd", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:runQueryUTxOCmd" + }, + { + "display_html": "newtype DelegationsAndRewards = DelegationsAndRewards (Map StakeAddress Lovelace, Map StakeAddress PoolId)", + "name": "DelegationsAndRewards DelegationsAndRewards", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#t:DelegationsAndRewards" + }, + { + "display_html": "renderQueryCmdError ∷ QueryCmdError → Text", + "name": "renderQueryCmdError", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:renderQueryCmdError" + }, + { + "display_html": "renderLocalStateQueryError ∷ QueryCmdLocalStateQueryError → Text", + "name": "renderLocalStateQueryError", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:renderLocalStateQueryError" + }, + { + "display_html": "renderOpCertIntervalInformation ∷ FilePath → OpCertIntervalInformation → String", + "name": "renderOpCertIntervalInformation", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:renderOpCertIntervalInformation" + }, + { + "display_html": "percentage ∷ RelativeTime → RelativeTime → RelativeTime → Text", + "name": "percentage", + "module": "Cardano.CLI.EraBased.Run.Query", + "link": "lib/Cardano-CLI-EraBased-Run-Query.html#v:percentage" + }, + { + "display_html": "runLegacyQueryCmds ∷ LegacyQueryCmds → ExceptT QueryCmdError IO ()", + "name": "runLegacyQueryCmds", + "module": "Cardano.CLI.Legacy.Run.Query", + "link": "lib/Cardano-CLI-Legacy-Run-Query.html#v:runLegacyQueryCmds" + }, + { + "display_html": "data TxFeature", + "name": "TxFeature TxFeatureShelleyAddresses TxFeatureExplicitFees TxFeatureImplicitFees TxFeatureValidityLowerBound TxFeatureValidityUpperBound TxFeatureValidityNoUpperBound TxFeatureTxMetadata TxFeatureAuxScripts TxFeatureWithdrawals TxFeatureCertificates TxFeatureMintValue TxFeatureMultiAssetOutputs TxFeatureScriptWitnesses TxFeatureShelleyKeys TxFeatureCollateral TxFeatureProtocolParameters TxFeatureTxOutDatum TxFeatureScriptValidity TxFeatureExtraKeyWits TxFeatureInlineDatums TxFeatureTotalCollateral TxFeatureReferenceInputs TxFeatureReturnCollateral", + "module": "Cardano.CLI.Types.TxFeature", + "link": "lib/Cardano-CLI-Types-TxFeature.html#t:TxFeature" + }, + { + "display_html": "renderFeature ∷ TxFeature → Text", + "name": "renderFeature", + "module": "Cardano.CLI.Types.TxFeature", + "link": "lib/Cardano-CLI-Types-TxFeature.html#v:renderFeature" + }, + { + "display_html": "data TxCmdError", + "name": "TxCmdError TxCmdMetadataError TxCmdVoteError TxCmdConstitutionError TxCmdScriptWitnessError TxCmdProtocolParamsError TxCmdScriptFileError TxCmdReadTextViewFileError TxCmdReadWitnessSigningDataError TxCmdWriteFileError TxCmdBootstrapWitnessError TxCmdTxSubmitError TxCmdTxSubmitErrorEraMismatch TxCmdTxFeatureMismatch TxCmdTxBodyError TxCmdNotImplemented TxCmdWitnessEraMismatch TxCmdPolicyIdsMissing TxCmdPolicyIdsExcess TxCmdByronEra TxCmdBalanceTxBody TxCmdTxInsDoNotExist TxCmdPParamsErr TxCmdTextEnvCddlError TxCmdTxExecUnitsErr TxCmdPlutusScriptCostErr TxCmdPParamExecutionUnitsNotAvailable TxCmdPlutusScriptsRequireCardanoMode TxCmdProtocolParametersNotPresentInTxBody TxCmdTxNodeEraMismatchError TxCmdQueryConvenienceError TxCmdQueryNotScriptLocked TxCmdScriptDataError TxCmdCddlError TxCmdCddlWitnessError TxCmdRequiredSignerError TxCmdAuxScriptsValidationError TxCmdTotalCollateralValidationError TxCmdReturnCollateralValidationError TxCmdTxFeeValidationError TxCmdTxValidityLowerBoundValidationError TxCmdTxValidityUpperBoundValidationError TxCmdRequiredSignersValidationError TxCmdProtocolParametersValidationError TxCmdTxWithdrawalsValidationError TxCmdTxCertificatesValidationError TxCmdTxUpdateProposalValidationError TxCmdScriptValidityValidationError TxCmdProtocolParamsConverstionError", + "module": "Cardano.CLI.Types.Errors.TxCmdError", + "link": "lib/Cardano-CLI-Types-Errors-TxCmdError.html#t:TxCmdError" + }, + { + "display_html": "renderTxCmdError ∷ TxCmdError → Text", + "name": "renderTxCmdError", + "module": "Cardano.CLI.Types.Errors.TxCmdError", + "link": "lib/Cardano-CLI-Types-Errors-TxCmdError.html#v:renderTxCmdError" + }, + { + "display_html": "data CmdError", + "name": "CmdError CmdAddressError CmdEraDelegationError CmdGenesisError CmdGovernanceActionError CmdGovernanceCmdError CmdGovernanceCommitteeError CmdGovernanceQueryError CmdGovernanceVoteError CmdKeyError CmdNodeError CmdQueryError CmdRegistrationError CmdStakeAddressError CmdStakePoolError CmdTextViewError CmdTransactionError", + "module": "Cardano.CLI.Types.Errors.CmdError", + "link": "lib/Cardano-CLI-Types-Errors-CmdError.html#t:CmdError" + }, + { + "display_html": "renderCmdError ∷ Text → CmdError → Text", + "name": "renderCmdError", + "module": "Cardano.CLI.Types.Errors.CmdError", + "link": "lib/Cardano-CLI-Types-Errors-CmdError.html#v:renderCmdError" + }, + { + "display_html": "runGovernanceVoteCmds ∷ GovernanceVoteCmds era → ExceptT CmdError IO ()", + "name": "runGovernanceVoteCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.Vote", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Vote.html#v:runGovernanceVoteCmds" + }, + { + "display_html": "runGovernanceHashCmds ∷ GovernanceHashCmds era → ExceptT CmdError IO ()", + "name": "runGovernanceHashCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.Hash", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-Hash.html#v:runGovernanceHashCmds" + }, + { + "display_html": "runGovernanceDRepCmds ∷ GovernanceDRepCmds era → ExceptT CmdError IO ()", + "name": "runGovernanceDRepCmds", + "module": "Cardano.CLI.EraBased.Run.Governance.DRep", + "link": "lib/Cardano-CLI-EraBased-Run-Governance-DRep.html#v:runGovernanceDRepCmds" + }, + { + "display_html": "runGovernanceCmds ∷ GovernanceCmds era → ExceptT CmdError IO ()", + "name": "runGovernanceCmds", + "module": "Cardano.CLI.EraBased.Run.Governance", + "link": "lib/Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCmds" + }, + { + "display_html": "runGovernanceMIRCertificatePayStakeAddrs ∷ ShelleyToBabbageEra era → MIRPot → [StakeAddress] → [Lovelace] → File () Out → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceMIRCertificatePayStakeAddrs", + "module": "Cardano.CLI.EraBased.Run.Governance", + "link": "lib/Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceMIRCertificatePayStakeAddrs" + }, + { + "display_html": "runGovernanceCreateMirCertificateTransferToTreasuryCmd ∷ ShelleyToBabbageEra era → Lovelace → File () Out → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceCreateMirCertificateTransferToTreasuryCmd", + "module": "Cardano.CLI.EraBased.Run.Governance", + "link": "lib/Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCreateMirCertificateTransferToTreasuryCmd" + }, + { + "display_html": "runGovernanceCreateMirCertificateTransferToReservesCmd ∷ ShelleyToBabbageEra era → Lovelace → File () Out → ExceptT GovernanceCmdError IO ()", + "name": "runGovernanceCreateMirCertificateTransferToReservesCmd", + "module": "Cardano.CLI.EraBased.Run.Governance", + "link": "lib/Cardano-CLI-EraBased-Run-Governance.html#v:runGovernanceCreateMirCertificateTransferToReservesCmd" + }, + { + "display_html": "runLegacyGovernanceCmds ∷ LegacyGovernanceCmds → ExceptT GovernanceCmdError IO ()", + "name": "runLegacyGovernanceCmds", + "module": "Cardano.CLI.Legacy.Run.Governance", + "link": "lib/Cardano-CLI-Legacy-Run-Governance.html#v:runLegacyGovernanceCmds" + }, + { + "display_html": "runTransactionCmds ∷ TransactionCmds era → ExceptT TxCmdError IO ()", + "name": "runTransactionCmds", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCmds" + }, + { + "display_html": "runTransactionBuildCmd ∷ TransactionBuildCmdArgs era → ExceptT TxCmdError IO ()", + "name": "runTransactionBuildCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionBuildCmd" + }, + { + "display_html": "runTransactionBuildRawCmd ∷ TransactionBuildRawCmdArgs era → ExceptT TxCmdError IO ()", + "name": "runTransactionBuildRawCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionBuildRawCmd" + }, + { + "display_html": "runTransactionSignCmd ∷ TransactionSignCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionSignCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSignCmd" + }, + { + "display_html": "runTransactionSubmitCmd ∷ TransactionSubmitCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionSubmitCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSubmitCmd" + }, + { + "display_html": "runTransactionCalculateMinFeeCmd ∷ TransactionCalculateMinFeeCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionCalculateMinFeeCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCalculateMinFeeCmd" + }, + { + "display_html": "runTransactionCalculateMinValueCmd ∷ TransactionCalculateMinValueCmdArgs era → ExceptT TxCmdError IO ()", + "name": "runTransactionCalculateMinValueCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionCalculateMinValueCmd" + }, + { + "display_html": "runTransactionPolicyIdCmd ∷ TransactionPolicyIdCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionPolicyIdCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionPolicyIdCmd" + }, + { + "display_html": "runTransactionHashScriptDataCmd ∷ TransactionHashScriptDataCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionHashScriptDataCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionHashScriptDataCmd" + }, + { + "display_html": "runTransactionTxIdCmd ∷ TransactionTxIdCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionTxIdCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionTxIdCmd" + }, + { + "display_html": "runTransactionViewCmd ∷ TransactionViewCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionViewCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionViewCmd" + }, + { + "display_html": "runTransactionWitnessCmd ∷ TransactionWitnessCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionWitnessCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionWitnessCmd" + }, + { + "display_html": "runTransactionSignWitnessCmd ∷ TransactionSignWitnessCmdArgs → ExceptT TxCmdError IO ()", + "name": "runTransactionSignWitnessCmd", + "module": "Cardano.CLI.EraBased.Run.Transaction", + "link": "lib/Cardano-CLI-EraBased-Run-Transaction.html#v:runTransactionSignWitnessCmd" + }, + { + "display_html": "runLegacyTransactionCmds ∷ LegacyTransactionCmds → ExceptT TxCmdError IO ()", + "name": "runLegacyTransactionCmds", + "module": "Cardano.CLI.Legacy.Run.Transaction", + "link": "lib/Cardano-CLI-Legacy-Run-Transaction.html#v:runLegacyTransactionCmds" + }, + { + "display_html": "runLegacyCmds ∷ LegacyCmds → ExceptT CmdError IO ()", + "name": "runLegacyCmds", + "module": "Cardano.CLI.Legacy.Run", + "link": "lib/Cardano-CLI-Legacy-Run.html#v:runLegacyCmds" + }, + { + "display_html": "runAnyEraCommand ∷ AnyEraCommand → ExceptT CmdError IO ()", + "name": "runAnyEraCommand", + "module": "Cardano.CLI.EraBased.Run", + "link": "lib/Cardano-CLI-EraBased-Run.html#v:runAnyEraCommand" + }, + { + "display_html": "runCmds ∷ Cmds era → ExceptT CmdError IO ()", + "name": "runCmds", + "module": "Cardano.CLI.EraBased.Run", + "link": "lib/Cardano-CLI-EraBased-Run.html#v:runCmds" + }, + { + "display_html": "runGovernanceCmds ∷ GovernanceCmds era → ExceptT CmdError IO ()", + "name": "runGovernanceCmds", + "module": "Cardano.CLI.EraBased.Run", + "link": "lib/Cardano-CLI-EraBased-Run.html#v:runGovernanceCmds" + }, + { + "display_html": "version ∷ Version", + "name": "version", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:version" + }, + { + "display_html": "getBinDir ∷ IO FilePath", + "name": "getBinDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getBinDir" + }, + { + "display_html": "getLibDir ∷ IO FilePath", + "name": "getLibDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getLibDir" + }, + { + "display_html": "getDynLibDir ∷ IO FilePath", + "name": "getDynLibDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getDynLibDir" + }, + { + "display_html": "getDataDir ∷ IO FilePath", + "name": "getDataDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getDataDir" + }, + { + "display_html": "getLibexecDir ∷ IO FilePath", + "name": "getLibexecDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getLibexecDir" + }, + { + "display_html": "getDataFileName ∷ FilePath → IO FilePath", + "name": "getDataFileName", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getDataFileName" + }, + { + "display_html": "getSysconfDir ∷ IO FilePath", + "name": "getSysconfDir", + "module": "Paths_cardano_cli", + "link": "lib/Paths_cardano_cli.html#v:getSysconfDir" + }, + { + "display_html": "data ClientCommand", + "name": "ClientCommand ByronCommand AnyEraCommand Help LegacyCmds CliPingCommand DisplayVersion", + "module": "Cardano.CLI.Run", + "link": "lib/Cardano-CLI-Run.html#t:ClientCommand" + }, + { + "display_html": "data ClientCommandErrors", + "name": "ClientCommandErrors", + "module": "Cardano.CLI.Run", + "link": "lib/Cardano-CLI-Run.html#t:ClientCommandErrors" + }, + { + "display_html": "renderClientCommandError ∷ ClientCommandErrors → Text", + "name": "renderClientCommandError", + "module": "Cardano.CLI.Run", + "link": "lib/Cardano-CLI-Run.html#v:renderClientCommandError" + }, + { + "display_html": "runClientCommand ∷ ClientCommand → ExceptT ClientCommandErrors IO ()", + "name": "runClientCommand", + "module": "Cardano.CLI.Run", + "link": "lib/Cardano-CLI-Run.html#v:runClientCommand" + }, + { + "display_html": "data ByronCommand", + "name": "ByronCommand Genesis NodeCmds PrintGenesisHash Keygen ToVerification PrettySigningKeyPublic MigrateDelegateKeyFrom PrintSigningKeyAddress SubmitTx SpendGenesisUTxO SpendUTxO GetTxId ValidateCBOR PrettyPrintCBOR", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#t:ByronCommand" + }, + { + "display_html": "data NodeCmds", + "name": "NodeCmds UpdateProposal CreateVote SubmitUpdateProposal SubmitVote", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#t:NodeCmds" + }, + { + "display_html": "backwardsCompatibilityCommands ∷ EnvCli → Parser ClientCommand", + "name": "backwardsCompatibilityCommands", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:backwardsCompatibilityCommands" + }, + { + "display_html": "parseByronCommands ∷ EnvCli → Parser ByronCommand", + "name": "parseByronCommands", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseByronCommands" + }, + { + "display_html": "parseHeavyDelThd ∷ Parser LovelacePortion", + "name": "parseHeavyDelThd", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseHeavyDelThd" + }, + { + "display_html": "parseInstallerHash ∷ Parser InstallerHash", + "name": "parseInstallerHash", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseInstallerHash" + }, + { + "display_html": "parseMaxBlockSize ∷ Parser Natural", + "name": "parseMaxBlockSize", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseMaxBlockSize" + }, + { + "display_html": "parseMaxHeaderSize ∷ Parser Natural", + "name": "parseMaxHeaderSize", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseMaxHeaderSize" + }, + { + "display_html": "parseMaxTxSize ∷ Parser Natural", + "name": "parseMaxTxSize", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseMaxTxSize" + }, + { + "display_html": "parseMaxProposalSize ∷ Parser Natural", + "name": "parseMaxProposalSize", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseMaxProposalSize" + }, + { + "display_html": "parseMpcThd ∷ Parser LovelacePortion", + "name": "parseMpcThd", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseMpcThd" + }, + { + "display_html": "parseScriptVersion ∷ Parser Word16", + "name": "parseScriptVersion", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseScriptVersion" + }, + { + "display_html": "parseSlotDuration ∷ Parser Natural", + "name": "parseSlotDuration", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseSlotDuration" + }, + { + "display_html": "parseSoftforkRule ∷ Parser SoftforkRule", + "name": "parseSoftforkRule", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseSoftforkRule" + }, + { + "display_html": "parseSystemTag ∷ Parser SystemTag", + "name": "parseSystemTag", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseSystemTag" + }, + { + "display_html": "parseTxFeePolicy ∷ Parser TxFeePolicy", + "name": "parseTxFeePolicy", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseTxFeePolicy" + }, + { + "display_html": "parseUpdateProposalThd ∷ Parser LovelacePortion", + "name": "parseUpdateProposalThd", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseUpdateProposalThd" + }, + { + "display_html": "parseUpdateProposalTTL ∷ Parser SlotNumber", + "name": "parseUpdateProposalTTL", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseUpdateProposalTTL" + }, + { + "display_html": "parseUnlockStakeEpoch ∷ Parser EpochNumber", + "name": "parseUnlockStakeEpoch", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseUnlockStakeEpoch" + }, + { + "display_html": "parseUpdateVoteThd ∷ Parser LovelacePortion", + "name": "parseUpdateVoteThd", + "module": "Cardano.CLI.Byron.Parsers", + "link": "lib/Cardano-CLI-Byron-Parsers.html#v:parseUpdateVoteThd" + }, + { + "display_html": "opts ∷ EnvCli → ParserInfo ClientCommand", + "name": "opts", + "module": "Cardano.CLI.Options", + "link": "lib/Cardano-CLI-Options.html#v:opts" + }, + { + "display_html": "pref ∷ ParserPrefs", + "name": "pref", + "module": "Cardano.CLI.Options", + "link": "lib/Cardano-CLI-Options.html#v:pref" + }, + { + "display_html": "assertHasKeys ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [Text] → FilePath → m ()", + "name": "assertHasKeys", + "module": "Test.Cardano.CLI.Aeson", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html#v:assertHasKeys" + }, + { + "display_html": "assertHasMappings ∷ HasCallStack ⇒ MonadTest m ⇒ MonadIO m ⇒ [(Text, Text)] → FilePath → m ()", + "name": "assertHasMappings", + "module": "Test.Cardano.CLI.Aeson", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Aeson.html#v:assertHasMappings" + }, + { + "display_html": "checkTxCddlFormat ∷ (MonadTest m, MonadIO m, HasCallStack) ⇒ FilePath → FilePath → m ()", + "name": "checkTxCddlFormat", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:checkTxCddlFormat" + }, + { + "display_html": "checkTextEnvelopeFormat ∷ (MonadTest m, MonadIO m, HasCallStack) ⇒ TextEnvelopeType → FilePath → FilePath → m ()", + "name": "checkTextEnvelopeFormat", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:checkTextEnvelopeFormat" + }, + { + "display_html": "equivalence ∷ (MonadTest m, Eq a, Show a, HasCallStack) ⇒ a → a → m ()", + "name": "equivalence", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:equivalence" + }, + { + "display_html": "execCardanoCLI ∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) ⇒ [String] → m String", + "name": "execCardanoCLI", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:execCardanoCLI" + }, + { + "display_html": "execDetailCardanoCLI ∷ (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) ⇒ [String] → m (ExitCode, String, String)", + "name": "execDetailCardanoCLI", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:execDetailCardanoCLI" + }, + { + "display_html": "tryExecCardanoCLI ∷ [String] → PropertyT IO (Either Failure String)", + "name": "tryExecCardanoCLI", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:tryExecCardanoCLI" + }, + { + "display_html": "propertyOnce ∷ PropertyT IO () → Property", + "name": "propertyOnce", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:propertyOnce" + }, + { + "display_html": "withSnd ∷ (a → b) → a → (a, b)", + "name": "withSnd", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:withSnd" + }, + { + "display_html": "noteInputFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → m FilePath", + "name": "noteInputFile", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:noteInputFile" + }, + { + "display_html": "noteTempFile ∷ (MonadTest m, HasCallStack) ⇒ FilePath → FilePath → m FilePath", + "name": "noteTempFile", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:noteTempFile" + }, + { + "display_html": "redactJsonField ∷ MonadTest m ⇒ MonadIO m ⇒ HasCallStack ⇒ Text → Text → FilePath → FilePath → m ()", + "name": "redactJsonField", + "module": "Test.Cardano.CLI.Util", + "link": "lib_cardano-cli-test-lib/Test-Cardano-CLI-Util.html#v:redactJsonField" + } +] diff --git a/haddock-bundle.min.js b/haddock-bundle.min.js new file mode 100644 index 0000000000..188ab76a38 --- /dev/null +++ b/haddock-bundle.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;e element with id '"+e+"'");return t}function x(){return u.defaultInstanceState==i.Open}function w(e){for(var t=S(e.target.id),n=t.element.open,o=0,r=t.toggles;owindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return d(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),y}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");p=p.name}else a[p]={weight:1};this._analyze({key:p,value:this.options.getFn(u,p),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,d=void 0===u?[]:u,h=t.resultMap,p=void 0===h?{}:h,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,m=-1,y=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var _=d.search(i);if(this._log('Full text: "'+i+'", score: '+_.score),this.options.tokenize){for(var b=i.split(this.options.tokenSeparator),k=[],S=0;S=c.length;if(this._log("\nCheck Matches: "+T),(g||_.isMatch)&&T){var N=p[a];N?N.output.push({key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}):(p[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:A,matchedIndices:_.matchedIndices}]},v.push(p[a]))}}else if(V(i))for(var P=0,j=i.length;Pcardano-cli API
cardano-cli API

Modules

\ No newline at end of file diff --git a/linuwial.css b/linuwial.css new file mode 100644 index 0000000000..cbb58a0389 --- /dev/null +++ b/linuwial.css @@ -0,0 +1,877 @@ +/* @group Fundamentals */ + +* { margin: 0; padding: 0 } + +/* Is this portable? */ +html { + background-color: white; + width: 100%; + height: 100%; +} + +body { + background: #fefefe; + color: #111; + text-align: left; + min-height: 100vh; + position: relative; + -webkit-text-size-adjust: 100%; + -webkit-font-feature-settings: "kern" 1, "liga" 0; + -moz-font-feature-settings: "kern" 1, "liga" 0; + -o-font-feature-settings: "kern" 1, "liga" 0; + font-feature-settings: "kern" 1, "liga" 0; + letter-spacing: 0.0015rem; +} + +#content a { + overflow-wrap: break-word; +} + +p { + margin: 0.8em 0; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +dl { + margin: 0.8em 0; +} + +dt { + font-weight: bold; +} +dd { + margin-left: 2em; +} + +a { text-decoration: none; } +a[href]:link { color: #9E358F; } +a[href]:visited {color: #6F5F9C; } +a[href]:hover { text-decoration:underline; } + +a[href].def:link, a[href].def:visited { color: rgba(69, 59, 97, 0.8); } +a[href].def:hover { color: rgb(78, 98, 114); } + +/* @end */ + +/* @group Show and hide with JS */ + +body.js-enabled .hide-when-js-enabled { + display: none; +} + +/* @end */ + + +/* @group responsive */ + +#package-header .caption { + margin: 0px 1em 0 2em; +} + +@media only screen and (min-width: 1280px) { + #content { + width: 63vw; + max-width: 1450px; + } + + #table-of-contents { + position: fixed; + max-width: 10vw; + top: 10.2em; + left: 2em; + bottom: 1em; + overflow-y: auto; + } + + #synopsis { + display: block; + position: fixed; + float: left; + top: 5em; + bottom: 1em; + right: 0; + max-width: 65vw; + overflow-y: auto; + /* Ensure that synopsis covers everything (including MathJAX markup) */ + z-index: 1; + } + + #synopsis .show { + border: 1px solid #5E5184; + padding: 0.7em; + max-height: 65vh; + } + +} + +@media only screen and (max-width: 1279px) { + #content { + width: 80vw; + } + + #synopsis { + display: block; + padding: 0; + position: relative; + margin: 0; + width: 100%; + } +} + +@media only screen and (max-width: 999px) { + #content { + width: 93vw; + } +} + + +/* menu for wider screens + + Display the package name at the left and the menu links at the right, + inline with each other: + The package name Source . Contents . Index +*/ +@media only screen and (min-width: 1000px) { + #package-header { + text-align: left; + white-space: nowrap; + height: 40px; + padding: 4px 1.5em 0px 1.5em; + overflow: visible; + + display: flex; + justify-content: space-between; + align-items: center; + } + + #package-header .caption { + display: inline-block; + margin: 0; + } + + #package-header ul.links { + margin: 0; + display: inline-table; + } + + #package-header .caption + ul.links { + margin-left: 1em; + } +} + +/* menu for smaller screens + +Display the package name on top of the menu links and center both elements: + The package name + Source . Contents . Index +*/ +@media only screen and (max-width: 999px) { + #package-header { + text-align: center; + padding: 6px 0 4px 0; + overflow: hidden; + } + + #package-header ul.links { + display: block; + text-align: center; + margin: 0; + + /* Hide scrollbar but allow scrolling menu links horizontally */ + white-space: nowrap; + overflow-x: auto; + overflow-y: hidden; + margin-bottom: -17px; + height: 50px; + } + + #package-header .caption { + display: block; + margin: 4px 0; + text-align: center; + } + + #package-header ul.links::-webkit-scrollbar { + display: none; + } + + #package-header ul.links li:first-of-type { + padding-left: 1em; + } + + #package-header ul.links li:last-of-type { + /* + The last link of the menu should offer the same distance to the right + as the #package-header enforces at the left. + */ + padding-right: 1em; + } + + #package-header .caption + ul.links { + padding-top: 9px; + } + + #module-header table.info { + float: none; + top: 0; + margin: 0 auto; + overflow: hidden; + max-width: 80vw; + } +} + +/* @end */ + + +/* @group Fonts & Sizes */ + +/* Basic technique & IE workarounds from YUI 3 + For reasons, see: + http://yui.yahooapis.com/3.1.1/build/cssfonts/fonts.css + */ + + body, button { + font: 400 14px/1.4 'PT Sans', + /* Fallback Font Stack */ + -apple-system, + BlinkMacSystemFont, + 'Segoe UI', + Roboto, + Oxygen-Sans, + Cantarell, + 'Helvetica Neue', + sans-serif; + *font-size: medium; /* for IE */ + *font:x-small; /* for IE in quirks mode */ + } + +h1 { font-size: 146.5%; /* 19pt */ } +h2 { font-size: 131%; /* 17pt */ } +h3 { font-size: 116%; /* 15pt */ } +h4 { font-size: 100%; /* 13pt */ } +h5 { font-size: 100%; /* 13pt */ } + +table { + font-size:inherit; + font:100%; +} + +pre, code, kbd, samp, tt, .src { + font-family:monospace; +} + +.links, .link { + font-size: 85%; /* 11pt */ +} + +#module-header .caption { + font-size: 182%; /* 24pt */ +} + +#module-header .caption sup { + font-size: 80%; + font-weight: normal; +} + +#package-header #page-menu a:link, #package-header #page-menu a:visited { color: white; } + + +.info { + font-size: 90%; +} + + +/* @end */ + +/* @group Common */ + +.caption, h1, h2, h3, h4, h5, h6, summary { + font-weight: bold; + color: #5E5184; + margin: 1.5em 0 1em 0; +} + + +* + h1, * + h2, * + h3, * + h4, * + h5, * + h6 { + margin-top: 2em; +} + +h1 + h2, h2 + h3, h3 + h4, h4 + h5, h5 + h6 { + margin-top: inherit; +} + +ul li + li { + margin-top: 0.2rem; +} + +ul + p { + margin-top: 0.93em; +} + +p + ul { + margin-top: 0.5em; +} + +p { + margin-top: 0.7rem; +} + +ul, ol { + margin: 0.8em 0 0.8em 2em; +} + +ul.links { + list-style: none; + text-align: left; + font-size: 0.95em; +} + +#package-header ul.links, #package-header ul.links button { + font-size: 1rem; +} + +ul.links li { + display: inline; + white-space: nowrap; + padding: 0; +} + +ul.links > li + li:before { + content: '\00B7'; +} + +ul.links li a { + padding: 0.2em 0.5em; +} + +.hide { display: none; } +.show { display: inherit; } +.clear { clear: both; } + +.collapser:before, .expander:before, .noexpander:before { + font-size: 1.2em; + color: #9C5791; + display: inline-block; + padding-right: 7px; +} + +.collapser:before { + content: '▿'; +} +.expander:before { + content: '▹'; +} +.noexpander:before { + content: '▿'; + visibility: hidden; +} + +.collapser, .expander { + cursor: pointer; +} + +.instance.collapser, .instance.expander { + margin-left: 0px; + background-position: left center; + min-width: 9px; + min-height: 9px; +} + +summary { + cursor: pointer; + outline: none; +} + +pre { + padding: 0.5rem 1rem; + margin: 1em 0 0 0; + background-color: #f7f7f7; + overflow: auto; + border: 1px solid #ddd; + border-radius: 0.3em; +} + +pre + p { + margin-top: 1em; +} + +pre + pre { + margin-top: 0.5em; +} + +blockquote { + border-left: 3px solid #c7a5d3; + background-color: #eee4f1; + margin: 0.5em; + padding: 0.0005em 0.3em 0.5em 0.5em; +} + +.src { + background: #f2f2f2; + padding: 0.2em 0.5em; +} + +.keyword { font-weight: normal; } +.def { font-weight: bold; } + +@media print { + #footer { display: none; } +} + +/* @end */ + +/* @group Page Structure */ + +#content { + margin: 3em auto 6em auto; + padding: 0; +} + +#package-header { + background: #5E5184; + border-bottom: 5px solid rgba(69, 59, 97, 0.5); + color: #ddd; + position: relative; + font-size: 1.2em; + text-align: left; + margin: 0 auto; +} + +#package-header .caption { + color: white; + font-style: normal; + font-size: 1rem; + font-weight: bold; +} + +#module-header .caption { + font-weight: bold; + border-bottom: 1px solid #ddd; +} + +table.info { + float: right; + padding: 0.5em 1em; + border: 1px solid #ddd; + color: rgb(78,98,114); + background-color: #fff; + max-width: 60%; + border-spacing: 0; + position: relative; + top: -0.78em; + margin: 0 0 0 2em; +} + +.info th { + padding: 0 1em 0 0; + text-align: right; +} + +#style-menu li { + display: block; + border-style: none; + list-style-type: none; +} + +#footer { + background: #ededed; + border-top: 1px solid #aaa; + padding: 0.5em 0; + color: #222; + text-align: center; + width: 100%; + height: 3em; + margin-top: 3em; + position: relative; + clear: both; +} + +/* @end */ + +/* @group Front Matter */ + +#synopsis .caption, +#contents-list .caption { + font-size: 1rem; +} + +#synopsis, #table-of-contents { + font-size: 16px; +} + +#contents-list { + background: #f4f4f4; + padding: 1em; + margin: 0; +} + +#contents-list .caption { + text-align: left; + margin: 0; +} + +#contents-list ul { + list-style: none; + margin: 0; + margin-top: 10px; + font-size: 14px; +} + +#contents-list ul ul { + margin-left: 1.5em; +} + +#description .caption { + display: none; +} + +#synopsis summary { + display: block; + float: right; + width: 29px; + color: rgba(255,255,255,0); + height: 110px; + margin: 0; + font-size: 1px; + padding: 0; + background: url(synopsis.png) no-repeat 0px -8px; +} + +#synopsis details[open] > summary { + background: url(synopsis.png) no-repeat -75px -8px; +} + +#synopsis ul { + height: 100%; + overflow: auto; + padding: 0.5em; + margin: 0; +} + +#synopsis ul ul { + overflow: hidden; +} + +#synopsis ul, +#synopsis ul li.src { + background-color: rgb(250,247,224); + white-space: nowrap; + list-style: none; + margin-left: 0; +} + +#interface td.src { + white-space: nowrap; +} + +/* @end */ + +/* @group Main Content */ + +#interface div.top + div.top { + margin-top: 1.5em; +} + +#interface p + div.top, +#interface h1 + div.top, +#interface h2 + div.top, +#interface h3 + div.top, +#interface h4 + div.top, +#interface h5 + div.top { + margin-top: 1em; +} +#interface .src .selflink, +#interface .src .link { + float: right; + color: #888; + padding: 0 7px; + -moz-user-select: none; + font-weight: bold; + line-height: 30px; +} +#interface .src .selflink { + margin: 0 -0.5em 0 0.5em; +} + +#interface span.fixity { + color: #919191; + border-left: 1px solid #919191; + padding: 0.2em 0.5em 0.2em 0.5em; + margin: 0 -1em 0 1em; +} + +#interface span.rightedge { + border-left: 1px solid #919191; + padding: 0.2em 0 0.2em 0; + margin: 0 0 0 1em; +} + +#interface table { border-spacing: 2px; } +#interface td { + vertical-align: top; + padding-left: 0.5em; +} + +#interface td.doc p { + margin: 0; +} +#interface td.doc p + p { + margin-top: 0.8em; +} + +.doc table { + border-collapse: collapse; + border-spacing: 0px; +} + +.doc th, +.doc td { + padding: 5px; + border: 1px solid #ddd; +} + +.doc th { + background-color: #f0f0f0; +} + +.clearfix:after { + clear: both; + content: " "; + display: block; + height: 0; + visibility: hidden; +} + +.subs, .top > .doc, .subs > .doc { + padding-left: 1em; + border-left: 1px solid gainsboro; + margin-bottom: 1em; +} + +.top .subs { + margin-bottom: 0.6em; +} + +.subs.fields ul { + list-style: none; + display: table; + margin: 0; +} + +.subs.fields ul li { + display: table-row; +} + +.subs ul li dfn { + display: table-cell; + font-style: normal; + font-weight: bold; + margin: 1px 0; + white-space: nowrap; +} + +.subs ul li > .doc { + display: table-cell; + padding-left: 0.5em; + margin-bottom: 0.5em; +} + +.subs ul li > .doc p { + margin: 0; +} + +.subs .subs p.src { + border: none; + background-color: #f8f8f8; +} + +.subs .subs .caption { + margin-top: 1em ; + margin-bottom: 0px; +} + +.subs p.caption { + margin-top: 0; +} + +.subs .subs .caption + .src { + margin: 0px; + margin-top: 8px; +} + +.subs .subs .src + .src { + margin: 7px 0 0 0; +} + +/* Render short-style data instances */ +.inst ul { + height: 100%; + padding: 0.5em; + margin: 0; +} + +.inst, .inst li { + list-style: none; + margin-left: 1em; +} + +/* Workaround for bug in Firefox (issue #384) */ +.inst-left { + float: left; +} + +.top p.src { + border-bottom: 3px solid #e5e5e5; + line-height: 2rem; + margin-bottom: 1em; +} + +.warning { + color: red; +} + +.arguments { + margin-top: -0.4em; +} +.arguments .caption { + display: none; +} + +.fields { padding-left: 1em; } + +.fields .caption { display: none; } + +.fields p { margin: 0 0; } + +/* this seems bulky to me +.methods, .constructors { + background: #f8f8f8; + border: 1px solid #eee; +} +*/ + +/* @end */ + +/* @group Auxillary Pages */ + + +.extension-list { + list-style-type: none; + margin-left: 0; +} + +#mini { + margin: 0 auto; + padding: 0 1em 1em; +} + +#mini > * { + font-size: 93%; /* 12pt */ +} + +#mini #module-list .caption, +#mini #module-header .caption { + font-size: 125%; /* 15pt */ +} + +#mini #interface h1, +#mini #interface h2, +#mini #interface h3, +#mini #interface h4 { + font-size: 109%; /* 13pt */ + margin: 1em 0 0; +} + +#mini #interface .top, +#mini #interface .src { + margin: 0; +} + +#mini #module-list ul { + list-style: none; + margin: 0; +} + +#alphabet ul { + list-style: none; + padding: 0; + margin: 0.5em 0 0; + text-align: center; +} + +#alphabet li { + display: inline; + margin: 0 0.25em; +} + +#alphabet a { + font-weight: bold; +} + +#index .caption, +#module-list .caption { font-size: 131%; /* 17pt */ } + +#index table { + margin-left: 2em; +} + +#index .src { + font-weight: bold; +} +#index .alt { + font-size: 77%; /* 10pt */ + font-style: italic; + padding-left: 2em; +} + +#index td + td { + padding-left: 1em; +} + +#module-list ul { + list-style: none; + margin: 0 0 0 2em; +} + +#module-list li { + clear: right; +} + +#module-list span.collapser, +#module-list span.expander { + background-position: 0 0.3em; +} + +#module-list .package { + float: right; +} + +:target { + background: -webkit-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 65%, #fbf36d 60%, #fbf36d 100%); +} + +:target:hover { + background: -webkit-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -moz-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -o-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: -ms-linear-gradient(top, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); + background: linear-gradient(to bottom, transparent 0%, transparent 0%, #fbf36d 0%, #fbf36d 100%); +} + +/* @end */ + +/* @group Dropdown menus */ + +#preferences-menu, #style-menu { + width: 25em; + overflow-y: auto; +} + +/* @end */ diff --git a/quick-jump.css b/quick-jump.css new file mode 100644 index 0000000000..cf10eee48e --- /dev/null +++ b/quick-jump.css @@ -0,0 +1,221 @@ +/* @group Fundamentals */ + +.hidden { + display: none; +} + +/* @end */ + +/* @group Search box layout */ + +#search { + position: fixed; + top: 3.2em; + bottom: 0; + left: calc(50% - 22em); + width: 44em; + z-index: 1000; + overflow-y: auto; +} + +@media only screen and (max-width: 999px) { + #search { + top: 5.7em; + } +} + +#search-form, #search-results { + box-shadow: 2px 2px 6px rgb(199, 204, 208); + pointer-events: all; +} + +#search-form input { + font-size: 1.25em; line-height: 2.3em; height: 2.4em; + display: block; + box-sizing: border-box; + width: 100%; + margin: 0; + padding: 0 0.75em; + border: 0.05em solid rgb(151, 179, 202); +} + +#search input:focus { + outline: none; +} + +#search p.error { + color: rgb(107, 24, 24); + font-weight: bold; +} + +#search-results { + box-sizing: border-box; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; + max-height: 80%; + overflow: scroll; +} + +#search-form input + #search-results { + border-top: none; + top: 3em; + max-height: calc(100% - 3em); +} + +/* @end */ + +/* @group search results */ + +#search-results > ul { + margin: 0; + list-style: none; +} + +#search-results > ul > li, +#search-results > p, +#search-results > table { + padding: 0.5em 1em; + margin: 0; +} + +#search-results > ul > li { + border-bottom: 1px solid #b2d5fb; +} + +#search-results > ul > li > ul { + list-style: none; +} + +.search-module h4 { + margin: 0; +} + +.search-module > ul { + margin: 0.5em 0 0.5em 2em; +} + +.search-module > ul > li > a[href] { + display: block; + color: inherit; + padding: 0.25em 0.5em; +} + +.search-module > ul > li > a[href].active-link { + background: #faf9dc; +} + +.search-module a[href]:hover { + text-decoration: none; +} + +.search-result a a { + pointer-events: none; +} + +.search-result ul.subs { + display: inline-block; + margin: 0; padding: 0; +} + +.search-result ul.subs li { + display: none; +} + +.search-result ul.subs::after { + display: inline-block; + content: "..."; + color: rgb(78,98,114); + margin: 0 0.25em; +} + +.more-results { + color: rgb(99, 141, 173); + position: relative; +} + +.more-results::before { + content: "+"; + display: inline-block; + color: #b2d5fb; + font-weight: bold; + font-size: 1.25em; line-height: inherit; + position: absolute; + left: -1em; +} + +/* @end */ + +/* @group Keyboard shortcuts table */ + +.keyboard-shortcuts { + line-height: 1.6em; +} + +.keyboard-shortcuts th { + color: rgb(78,98,114); +} + +.keyboard-shortcuts td:first-child, +.keyboard-shortcuts th:first-child { + text-align: right; + padding-right: 0.6em; +} + +.key { + display: inline-block; + font-size: 0.9em; + min-width: 0.8em; line-height: 1.2em; + text-align: center; + background: #b2d5fb; + border: 1px solid #74a3d6; + padding: 0 0.2em; + margin: 0 0.1em; +} + +/* @end */ + +/* @group Dropdown menus */ + +/* Based on #search styling above. */ + +.dropdown-menu { + position: fixed; + /* Not robust to window size changes. */ + top: 3.2em; + right: 0; + /* To display on top of synopsis menu on right side. */ + z-index: 1000; + border: 0.05em solid #b2d5fb; + background: #e8f3ff; +} + +@media only screen and (max-width: 999px) { + .dropdown-menu { + top: 5.7em; + } +} + +.dropdown-menu * { + margin: 0.1em; +} + +.dropdown-menu button { + border: 1px #5E5184 solid; + border-radius: 3px; + background: #5E5184; + padding: 3px; + color: #f4f4f4; + min-width: 6em; +} + +.dropdown-menu button:hover { + color: #5E5184; + background: #f4f4f4; +} + +.dropdown-menu button:active { + color: #f4f4f4; + background: #5E5184; +} + +/* @end */ diff --git a/quick-jump.min.js b/quick-jump.min.js new file mode 100644 index 0000000000..06c35c7454 --- /dev/null +++ b/quick-jump.min.js @@ -0,0 +1,2 @@ +!function i(s,a,l){function c(t,e){if(!a[t]){if(!s[t]){var n="function"==typeof require&&require;if(!e&&n)return n(t,!0);if(u)return u(t,!0);var o=new Error("Cannot find module '"+t+"'");throw o.code="MODULE_NOT_FOUND",o}var r=a[t]={exports:{}};s[t][0].call(r.exports,function(e){return c(s[t][1][e]||e)},r,r.exports,i,s,a,l)}return a[t].exports}for(var u="function"==typeof require&&require,e=0;ewindow.innerHeight?this.searchResults.scrollTop+=e.bottom-window.innerHeight+80:e.topn)return u(e,this.pattern,o);var r=this.options,i=r.location,s=r.distance,a=r.threshold,l=r.findAllMatches,c=r.minMatchCharLength;return h(e,this.pattern,this.patternAlphabet,{location:i,distance:s,threshold:a,findAllMatches:l,minMatchCharLength:c})}}]),m}();e.exports=r},function(e,t,n){"use strict";var u=n(0);e.exports=function(e,t){return function e(t,n,o){if(n){var r=n.indexOf("."),i=n,s=null;-1!==r&&(i=n.slice(0,r),s=n.slice(r+1));var a=t[i];if(null!=a)if(s||"string"!=typeof a&&"number"!=typeof a)if(u(a))for(var l=0,c=a.length;l 0 and <= 1");d=d.name}else a[d]={weight:1};this._analyze({key:d,value:this.options.getFn(u,d),record:u,index:l},{resultMap:o,results:r,tokenSearchers:e,fullSearcher:t})}return{weights:a,results:r}}},{key:"_analyze",value:function(e,t){var n=e.key,o=e.arrayIndex,r=void 0===o?-1:o,i=e.value,s=e.record,a=e.index,l=t.tokenSearchers,c=void 0===l?[]:l,u=t.fullSearcher,h=void 0===u?[]:u,p=t.resultMap,d=void 0===p?{}:p,f=t.results,v=void 0===f?[]:f;if(null!=i){var g=!1,_=-1,m=0;if("string"==typeof i){this._log("\nKey: "+(""===n?"-":n));var y=h.search(i);if(this._log('Full text: "'+i+'", score: '+y.score),this.options.tokenize){for(var k=i.split(this.options.tokenSeparator),b=[],x=0;x=c.length;if(this._log("\nCheck Matches: "+O),(g||y.isMatch)&&O){var P=d[a];P?P.output.push({key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}):(d[a]={item:s,output:[{key:n,arrayIndex:r,value:i,score:T,matchedIndices:y.matchedIndices}]},v.push(d[a]))}}else if(U(i))for(var j=0,E=i.length;j4Tx0C)k_S!GyNTeqHT_l8Y(cXyX`gGi?cY`Qxn1VID|MJXwjPC)?)F$h6K zMMOd+6hs7sqbPzXbr*U(-*=zy-hcPcUC*=TdiNM(jyd-lv&OpsU|J&v2m2!^0SE{T z54F(O;E2!K(!rTCW z%wV;vdzf1QjBf#e&~gh74F>?Z4a=WLg$KhJ^$5nap>PLbJadS>e&h8+?D`9%QNL`g zEVKbYGXj7k5Q(8)0Fd#*a?VIMFW3*64geVHKzE-&0BG!BtmfuTbO(T`0Jaeg2nagF z{V*1E{Wm{e|AvV~*MEExiC+KU-~R=!2{)|c6Bg`GjQ;iG|FQ`1kAUCTuZtQk34#8{ z4r4(3g7#|{=Z@d+d#}7f!3C=>=26vx*jwA8>@MS>RG@Tt_zt3hie^T z_?0%9VUd=)Fos7I z^ghPh%Jy%YZ|)vCf6EaFPai$Q-!=$ppK!y&wrJs)bNdAuANB!m3n34Tfj{s75g-&U z1A!Pg3bcXF-=!Gv1VmU93G2duANT;{0JugFTqg*|oPXPC|A$2HS3NJd-hcPV3EW`Y zh=1Dr-5Mv{<{zIvz#Ybay&^Vcn^E_`qRfl{{bzYkp)4~$~NAx_VB;E z{?P)PU)DbV{Qi#~0H0@T9czDj06@6MNq8OrpdAz(9qQxd9nPr<&s+~tPQySqaZyfb zNh!%g_5YjeaLxMN*$sv_p;d%b#U$Wpz0Geb0U>E+EOsEQ;I!&= zNC6q(BFFWohy&t- zL?CHM5mJM6p`(xmWDmJOUQi$u0mVUQpbRJ*DuT+OI;a`C4fR4p&?xj8nuk`Puh35f z55*JWF{C0=8)=GkKzbrWk@3iMWInPS*@Wyu4kE{pbI3L14-^JPgW^Pq!Q<2bWsPz} zg`nb5nW!REEvg;Wj~YYGqt;RTXfiY_S_G|(HbmQ@z0gtU6m&ki8r_B-Ku@3-(OVb{ zh8`n;QNS2r>@mKWSWG773g!l;2Q!LUz-(f%SSG9pRuyZCC1S&|DcC~nb!<2G1$Gg; zjU&Zz;G}VSI0sxHE(w>9tH<5Py}&KucJP#VKD;vC6z`6Y#%JLx@m=^4{33pbgo;Ff zM3uyf#Fr$Iq=2M}WPoIbWP_BHl$%tE)ST3Z^fYM!=}po{r1PXd2-E~&f;PdC5J9*= zs3G(aUK2LR$jJD~G{_vt!pSa>)sa0QdqcKOPD3tEZbLrbsZB|wjHfK7yiNI%a+8XNN{Y&qDu61Js-9|yYMB~K%}=dM z?M|IcT|xbTdVvN>!$YG@<3@9arjllWW|0;{D?n>V>r0zK+erJ2cAbuzPL|Gw?j&6? z-95TFdL%tRy&=6neHMKS{UrTQ1~vvw1`mcbh9-s=4Br`97&RC@7}FVVFitT3Wa4Df zW%6UX#MHqw%Zy?cW;SPzV!p~ez`Vvn%c8>K#*)s`!ZO8*U=?PyV2x$1V13HE$;Qs6 z&lb#9$o7D3jh&udgWZ=sm;FBb3I`2`8ix-@E=M=VM@~9UO-_H#0?vNUbuLye1Fi_J zGOlM_JKO@?*4#+T3Fgmx>$N#hD=6JCPAiC=8LR|tcUDX*;jHjawc-Aa(!}p@(S{y z@=fw93cLy~3MC3J6=@aC6f+ecDWR3LloFKgD*aHFR}NQhQU0tVrsAhkud;kZ;E2bO z$|DP^+^R&?GSxXXPBj;`QnfjCE_I@Mx%xW|9u0SmYKzbdmB(*}d+O)oF zD{G(9?$JT&=D|u+DJZ zNWtioQNJ<4*wVPj_}x+AqoGH;Ob{kUCOIZE$M}u~9_ug#riP|Drn6=OW+7&G%rWL> z=Ede8ETk;rECwxUES)XuEw`++tg@`8tp%+ktov*zY#eRsY`)v-*k;?#*-6-)vU_6B zZ0}>=>40^xaj16KJg$2@@A#sloMVdPRon; zro?jMrmLZAiR-$Xw%cX5Rd)^dT=x|ZRgY|sB~Mk)Y|mvcRj(Yc6>oL#eD5_MZJ#2a zFTMu8*L=VGnflfE9r)Y&-w413xCGn|qz?28>kOxb4~I`91S8Hy%txw47DsMJ*+jLTq&gXR@@ceibXxRMj9yGtEGpJ5wl9t= zE-`NYl;)|jcqraAzAu3%Avt03wEpSZM3O|m#Ni~#r0k?`XKc@OC9@@;PF^^xf3_io zJS8;cWvWW*wR5O*KIfjL$)pvg?Wen^KhBWM$j{i#bjy5vUg~_o`GX6d7oKIwXI;IB zxfpnH@{;j<`HmaI~Pakhkz+;ck(4 z(L}LU@r@GJlC+ZVSKP0>xT6f*a^OxsWU@9UjK2+LN4pu2v z)m1ZBXH@Ui1lG*eTGaN}Db&@~v({%dAQ~bXR<1ijt)TYR@l+GyI++oAU8_Vo_$j=4_z&e7XOxBI$Oy4voD->JFFb+`B) z-My^)B=?i=A9TlbZ}tTDto3^JF7!F~O+T=EFy3$8|7^f`;L$_9hYtod2fH7sKDs-k zJaqf9;^U4d@=w~I$~|oxmK$z+CjYE`L}8@!xzh8l(IcbxU#P$69n%?mIBq!pWa8Mw z=%n@JtCx;1=U%zLT7K>S`pZ=0)Xwzj8T3s0Eahze8`d}FZ-w68n3JEoH?K4Q^qu9q z=>@li)%RiVcNddCkbTHs;#jI%mR`QQqPOz=CgGy+9whdp4g`BLCvp!8U&;uov(!a2t+bEnRv6HXyi9t`-YglcEo`$K zI8GTZXYLH1F5YE+b^&9-c%dfYc~N>X1MygiCdpZ8N*OKLV7W5+5rusvVP$KTgd_E; zV`@J%*flk^Jhjj1)aX9cTQC5ItVZ(2W=FkE;*aH-)|+*kk6SET?pjmWaNEk+>D${o z_#cmV%sNr-bj$gX%QW$m8{|&wA?SI;%go!uC))SCU%7vKz~jI-L0?1Ap^RZ7;i?hG zB3+__P9{WW#uUa@#oavB8Q+`m==5;nXwvwZiR6j1<0+%5!{;8Q^`_s>XwIxTUvlAM z)|rdpmprp=bM$iM@_6#8@((Vr7Q8HcP;{fXs3iGH;8nY8TBRaov}JqcixtC_ZBw07?YBCLI#1vB=rX<|d6)j~ z?!9;SA9XkN4rDD83J6N{$`!z{xG&lW}=KCd6md=WHe zF)la3F!5t@`sLkMS6?Sg5vR3gcxTbGOK%>(y*_twKH{Cjg64anMViI^4{J-a%g0=3|@n*5+(H4=G;Z`Bm z0XDw2UUnY#t`5ZG&WObDFO_)C zCe0{aEki1k_dNXt+=U-mA1_W_8p^(%Qj|@Mb z9sM+h7-yIepVWIvd=>Y)XzKR#)XeT1jH zI8-@&65hs?W6g0$Tn9b?K9MevmJ{6JljSOT6GbGYHWfM5G<6M41g#z&E8Qx6H$yI? z50eHn6Z1ODBi1suSavH8F-{EUJXaTYHjh8AJ|73)7XPq7gt>OirQ5IDz)!g7S$y<#pnvPn` zTCcP(>sag3>W=B<=vx}l7>pa{8`&AN7|$LpGx0noeC)GnyV)so9SefRgyl6WA8Q%w zeVfO&`F8I1(hk7k+3~B6fhW|RD4pIpx4EPekGo2^q1>k2n?25Xx_BviQ+coYJoGK~ zi}SY&kPV~?{2VkK+z^r;>Jw%VE)ao-y@)AN%A4?QY z!X(X~xtpASHaNvFl_z!g+(cSqdP;^mD`$^mG5`i zpn$&+Rk%>pUtCp^dd2Um*){o6wlZ|t=klqF!OHfk>gs};%-W>7nEHr@(CeX%5lwM7 zQg7xp*S7SwzHLLbOLn+*Uc0?`NAB*$d)wWCJsW)~{h|X4gV%@BpPU*_8L1qd8t0!( zdySmVd!st{bK%K{=9Rj&=Ffv)KX1|hFxkC)82{hg(&3(fkq6-NB>?O?0kGBtAd?QJ zm0$~|LIBLj0I*U5i1iA9XzK$|?dCuG2lOlFq=GX}9v}f{nuc(O=>uZH1yBw;!3bD_ zU{(i`gLA_m=mOLPjX+-zbO8W#QsA+O&>1m7Uxak_`<>>nu%o*kx!T2DqomQ{`*59GHMHWa@qZ7S~^!Kl)z@vEz7SZjuAWovinywxMoS2FN7 zEH|1t%4A}H?2754xrD_j%Moi{n>gE7_6iP##}7_;J59Lg5Ifz(-D^B~y{dc!eQ)?H z1`GsQ2d{)Cgfm98MOmHv9&;s5@6?xs(nO0hxa6LcxN|CLdl`M_GqP+i31t7w9nHU9 zkY40hVt!S*RG^%pl2DDR1@+)Ms)_U_Lks^c#r9*J-d)LeEAIFAEIl9{kQ}rbihXiz zxOZfJbZ?wtQtXx5l+ld&8>=~scSi5kK8P(dtn9DO{nh=s_)Emb(M`^+uiKA)7VrA) zEB#tO5ODlSVZM$P@WWh#2Fx+Iz|6u~m`%6|24UXdCqxG`1g0=2kOkd@#-Q&AR(P%P zMdTpvAy(jBM;jT2tUyk{D~~EF3{{U>K(nFk;T(JdLx-`&6l3PF0@xsI7Y>87!d2q7 z@J9GD{0|aKlAELyq`{in5#@A}YP&ZEYQ#XH-V)Gsvv6_^~14ao?j4lj=6k7|w9iW!UZJhhvUlPHq(FxfQ) zq?V>>q`%8dxgeZ1aw#H*HTOZjUjc35y<*QR6jwV-iRB~}tyPXS=-S45n}+?ysv9OZ zzqJ(K(rR1j$hs}xHG4PtzG(M&@2Lj@{VyISJQ5#z^W@U7{hV|l=i6Vte3RLV-yYuK+dKCw{z!laG%#N$3ABJM%p<0O zYA^skKqQbP%m$r-WBwLFh0ujLomRwONMWQ8vL5*f<`CmhgJ?Rm2f718hVj63W7)9r z*mpQXTq~XnpG|@xNg&xFjU_!Gq>|CVvs#J#1w}9=HDxE2J2egUAWZ`85!yYvKKcv> zJ4PYKJ*G+KW|m8=VQlv7TJY|}%00wyKDli~41a=UN19Bb{{JVSQ=?d&3H&&qviwE*<+| zre!9^?4cDF}{Txa*#Kx+jZQvyZXwvVVG@WYFu7)G)>HwaCho zPBE;pGpDX4cqED@Z6)`nTsY^LE}F4-ek7|Lj+#LpTmF}Vfuf?4z^j_2v}GSEI;v7@ ztn0YySFg7=Mcq_r{?^*qM(m*I?Cd&z=li|$-7G!jeOwO;25=992SX5MzsmCeV$vtN*Wk9q%cvGzm6 zlGZYQ`Nc~9M~79`)tR-DzwAEIeH!_EZe4SI`^$~5?i-97Prt=)N^Q<3ePg@o zht*Hi&(|HuI*eO3a z*sFk(4fq>KkN@xQ6^F(cm~$_2K14li9;XkV|9<@!M&f%8Nam8p00009a7bBm000XU z000XU0RWnu7ytkil}SWFRCodHT?u#;Rkr@KbUNvfeG_5`YY-wNfPp{+o{ADgGcxep z5O;8ydCWk3pWowCbe1RjK4lzy;4&jKqk}U-a1=+ud7z@;LLwlFC>S)v1jwFrI_XY2 zop;WyuIf%_F~x?x|CCgE~7q5lBOq0>MKUdH^|7ARquk zTn+*P5DlHMG@8ELxbaVWHf?&T znHpfF&E_pZ&^rD;1;7qozi0Q$(`V)7{8<+kI>wdbHk%E>!9AN2eO+^{$KB)hHtVU6 z4;0@%KYw`%{kM%aj|)L>`1``u*EM%B_Ep|f_7iHT~t6&rZsneaT;XVt##n z3*O&%0=#!k4Gq$@x_XoAC663)d$?Wm=UXTrha?_sgD)BZa!4dhf)W5g$)o+5f!@!6p= z7>#E6lGpa0z~7?)*juclePn!mT$U>W2F?VqT7?}(LqHHhL#3+DoNXk5_#Pb{(lwSP zZ<=X|iSbjYeFoatR`H}3=!RdX3qeSTbc>FTPC&5WKoW3vT<}n4p!jve)Qtntp05&Y$`N~L&mauhNrjZlt#E%Rdnz*4RdA(~WsS0P~4Cker*^h9K3rID79 zAhx!)2_f*-6tD+E@|~5o_HbR*DQEm#fix64W;xPOIEsuwz3>ej`Mg}wlx+M?%^s;7 zt7<_1|D+24j|zb6{d*Duo)R*nQ%A&N`m}UK6}Gim#oV|jr-^I5{&3u6Y!z0&JjK=N zf~iA{0UNr_&1RH*=FkdaRxmwXu@ih1pW6b!KwO1@&&hNBf0 z=VYU~zns|bF>|Ig{pE8Oi&e4q8Sf>;d>$HnJ*g4^2E{@!BWJXj|MK2>t{)#4iCiKM z_X3_Wd3!22SVWGECF_5t9Wx1ebdVe1IRabo*K&Me+mp(08G`jsI~A7O*rz=A?*I(Ym_y4*ZBHj<`2EIL z@XCfeuGtW8G6RGFlFM<@CjE-OtU#5a;0kB%yXw(N%<3n(~sBeG(H{~)Y9EAyo%kT#Rg2j zpdOnacnjrpoDswQL%S&=xD)LJZ^c?^7~tUKxVSW2U-+UJ`I8c2{Q|sd4FLUcTr-0M zaqMa26wFKpz7U~s3AlNV^qhrHMbm9<`9gTLcVV_VCkYcW$bp+1aV?*4j`n;5NQvl5P$NHC1)DVqF ze?14Uta}S5dTDmrRR#Fn;tPAZ>c6M&cw`%zt17X5(`x+mXPZPMYENh$xHA{IIn#Q& z^ zG}YF_5*3HIuofIEDMeLB1jc8M#;C+D(d52>)gx`#@~i9ZqkAV_+e~x*&R~QFvHtHw zX=O8P?QIyJ9Ss9*B|&g;0hMp z3Alm-uHb+xn7Ts16&!E{`__2XkJh+p1UhOAxPk+&;D9SQ;0g}7f`^~4p*Mp`Hum_uHM8Ep9TllPO>m-^Cs zpVwg1bK6i`-w1z*2vDs7WXVaJJHyU=rk@Vk3#W^iKzdl}7D4^3u#E2B8*>%rGlt8u z5=Bg)^vMF>N2OW-kTeo=C=#;#Uwg6hiz=At%UPznGuZL$9uX3jIcgXzEoL+}ne7De zePX!NLIZ__1sfvpaY5fTR( zUH5HKQ7-^w@TCk-ATqS$+;^2Y-9Yg{p~En8>~LcE&~OCN2SO-y!qgT7qsff0kWR!$ z^D81!lBm$TfXL;}=Y9YJK+SF{!{d*=}ZDsk}pA}{0WdF3_)n|T5 zFNK7P(SF;zrP#jx9qieE2>F-K@p;gyHGt(@rI_!hEt)McpP}lbFn3v=a0JCAI=-Ld z^HfmLKw}#PgVO)j-n&3BpR3@}{)WrPilHHGIK3w22T8R6=u<`rMwjnBh~jFy5zt}A zN81hv!KkMXNNPDnh1mq7H@>uwma1@k3;2!wtQCOj+9tn%uigkWBw{AL|5)BofhX2& zA+XZ302%fCsUzg9CimQPVv`f;C6O8|{n>ML#6sZcPqU_9DPe!$!>g7coyleK6R!5=0O9Kit+4(r(6 ziv6QJ8-P(X4Sa3SakRGjFIv?a0G4_jZD3}d!^RD-cH>&cq5?d2jrKkeAp_;!Ur#;& z9W7Y4e9epUX=T6m-g%gom8l&2YDT>Vpn#D2K2TLOYC9;D1)wkDRn>N#8T3J_^Lk0W z2GEDo5^3Wxdgdfd9w7&WOIUcVywJ$#^9sz{H)rNATQUdN%*}+3f?}K#TL)6Cfb&`3 z%&Qjw3IaWJ_$1z;4dDsM&%YQ~=42pUgopbkSWmW!9lu+5e2Bl(Hp~!=)psw#l#5d7 z<59t4!9`Er%bRtn7l4p3WRMY9&31sf7Q0{HC$^-K>G(;07G_Pk5PmWfQbk{$>nD;C z$aX+;iw(co_@<~Qn^p+B=a%_MiWA>XQ&sn1{z<(6(1#*dufHEF>#Fe8m!&8!F2%dw zHlg}-8UFYJZG<8tdn)d^eHPNC3G-m$^7_440RBMV3*u1l6Q_-MckXuK!rmQ$k)#dR$sG z@^U71!@qOSF|2)@pOpG;Qm+AE#NKTmpy<6aRJ-8I$ex7UR10>zRSMI&Dx4*+aC%oe z$>ksZdHCl3@33X-u5M#~!F>8s>bP;(@Z1iZ5DQ57E(pe>^RmdH=2Rkv1Y;;r0f4a|kUQI?AO7tZbEf zJ(*E203jiWBR5FKRnt*$=_L9l06hS)bRb+XpPQ(|6)W>G1u?i-W6WoCJgUlRkTWYJ9y;~2lKhQP~5|72z2_#^8q&npdI^OKWZnM4)jd~lxFIKK%PKOm(9u+`!IG4P>PAtq9@Rh0JE!{0DuH! zkK`y|6ZXDM&ju*fYcM2?dkd?0BQd?AvKl9=rI$l^%Bzo%82pwp_ z3!t@d`N^j}MPee&>2}gr!FRvB)4o^~UCPYDMfxiI>b@c+MsVI_ZG?n%#SdILF9)yD z8iBv~&32h6$j=)^`5;_--)1F7aK==Pycf`JwRRcIa&EjD`NGhX@h9M+TM4YCmA;oJ zrO3=nv3MeD1n(z%`&dZj&7(JU#eehVv~0XE^yJ%^arZ3+;^s6cinJi_LRv*8MlRsh z{Xp^er2%-zvwii|iPQND<~cxwB;)S&_u$&{D%8_7aQMh%>8YP30yAe!z=De>;j*0J zN>6b7(K|VAAJyy)=J$-BZpMp7n5{I{+sN@1<}jm{UYm<6az zC)2KLBDKeY!To$ha&qG2BZqfAotPNM^BbQ^H8u4$*;5z(vZ|_v=c1LgH4&aJ8cR)s zhZ25=_;#ffO9d0sLd30K^&jiDoI6+3R|Htse-FYDw`bL=buUu;*yY6jR@v$9iMtOO z{Jm)a77X@ba%$f%7edh>l!!{woQDqvAyLn?wOiY*$B%zo zv32X~pEWczvH$rLZ56cfy6vr`0a$epDA9d}4E`PkfT>4BU?%e$j!CrfB%e1P1~}M{ zuQ8DZRRHLI>|J6XE5CNbPoY`u^Tv~L_DESt0J@K9biv&;RPgs@1TwMtC4bqg&n_U& z^RqpU@fmCZV8(Krcxd8Db|Y=v9v+%_sqO*ye5%7a4GH|cY5=AL^#T?U?(IAraOf}Z znfd(s?_l?Sx}{(;kM%5!ES&ry9?r8?uz9NYQ(Ynr1^j&q08@d8z|&jaWMSaE-1`Sx z2*lKk?$1KN8*2mJGw(g3`l+riN$dE3Q~;P7LCd=wx?7hW&8J3pu z_e%g|LIn2Oqk!C_wTCQ#s9zKa2tdEcq}@UR0njdQ`-LnZ0R1A9b_)drK)bx{7qWl= z^ovZ|Eff#{?eex?$N~b;FEVMjP(T2*%iDe-`+v|7m{y$1dn*6{002ovPDHLkV1lnB B5rhB$ literal 0 HcmV?d00001