everything before conway: remove key-reg-deposit-amt flag from stake-…

…address command
IntersectMBO · Dec 11, 2023 · ae880fc · ae880fc
1 parent b4fc846
commit ae880fc
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs
@@ -87,18 +87,18 @@ pStakeAddressRegistrationCertificateCmd :: ()
 pStakeAddressRegistrationCertificateCmd era = do
   forEraInEonMaybe era $ \sbe ->
     caseShelleyToBabbageOrConwayEraOnwards
-      (\shelleyToBabbage -> subParser "registration-certificate"
+      (const $ subParser "registration-certificate"
             $ Opt.info
-                ( StakeAddressRegistrationCertificateCmd (shelleyToBabbageEraToShelleyBasedEra shelleyToBabbage)
+                ( StakeAddressRegistrationCertificateCmd sbe
                     <$> pStakeIdentifier
-                    <*> optional pKeyRegistDeposit
+                    <*> pure Nothing
                     <*> pOutputFile
                 )
             desc
       )
-      (\conwayOnwards -> subParser "registration-certificate"
+      (const $ subParser "registration-certificate"
             $ Opt.info
-                ( StakeAddressRegistrationCertificateCmd (conwayEraOnwardsToShelleyBasedEra conwayOnwards)
+                ( StakeAddressRegistrationCertificateCmd sbe
                     <$> pStakeIdentifier
                     <*> fmap Just pKeyRegistDeposit
                     <*> pOutputFile