77
88module Testnet.Start.Byron
99 ( createByronGenesis
10- , createByronUpdateProposal
11- , createByronUpdateProposalVote
1210 , byronDefaultGenesisOptions
1311 ) where
1412
@@ -65,36 +63,4 @@ createByronGenesis testnetMagic' startTime testnetOptions pParamFp genOutputDir
6563 , " --avvm-balance-factor" , " 1"
6664 , " --protocol-parameters-file" , pParamFp
6765 , " --genesis-output-dir" , genOutputDir
68- ]
69-
70- createByronUpdateProposal
71- :: (MonadTest m , MonadCatch m , MonadIO m , HasCallStack )
72- => Int -> String -> String -> Int -> m ()
73- createByronUpdateProposal testnetMagic' signingKeyFp updateProposalFp ptclMajorVersion =
74- withFrozenCallStack $ execCli_
75- [ " byron" , " governance" , " create-update-proposal"
76- , " --filepath" , updateProposalFp
77- , " --testnet-magic" , show testnetMagic'
78- , " --signing-key" , signingKeyFp
79- , " --protocol-version-major" , show ptclMajorVersion
80- , " --protocol-version-minor" , " 0"
81- , " --protocol-version-alt" , " 0"
82- , " --application-name" , " cardano-sl"
83- , " --software-version-num" , " 1"
84- , " --system-tag" , " linux"
85- , " --installer-hash" , " 0"
86- ]
87-
88- createByronUpdateProposalVote
89- :: (MonadTest m , MonadCatch m , MonadIO m , HasCallStack )
90- => Int -> String -> String -> String -> m ()
91- createByronUpdateProposalVote testnetMagic' updateProposalFp signingKey outputFp =
92- withFrozenCallStack $ execCli_
93- [ " byron" , " governance" , " create-proposal-vote"
94- , " --proposal-filepath" , updateProposalFp
95- , " --testnet-magic" , show testnetMagic'
96- , " --signing-key" , signingKey
97- , " --vote-yes"
98- , " --output-filepath" , outputFp
99- ]
100-
66+ ]
0 commit comments