babbage: remove key-reg-deposit-amt flag from stake-address command

IntersectMBO · Dec 6, 2023 · 34a8034 · 34a8034
1 parent a2d1b0b
commit 34a8034
Showing 1 changed file with 12 additions and 14 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs
@@ -86,28 +86,26 @@ pStakeAddressRegistrationCertificateCmd :: ()
   -> Maybe (Parser (StakeAddressCmds era))
 pStakeAddressRegistrationCertificateCmd era = do
   forEraInEonMaybe era $ \sbe ->
-    caseShelleyToBabbageOrConwayEraOnwards
-      (\shelleyToBabbage -> subParser "registration-certificate"
-            $ Opt.info
-                ( StakeAddressRegistrationCertificateCmd (shelleyToBabbageEraToShelleyBasedEra shelleyToBabbage)
+    caseShelleyToAlonzoOrBabbageEraOnwards
+      (\shelleyToAlonzo ->
+            make ( StakeAddressRegistrationCertificateCmd (shelleyToAlonzoEraToShelleyBasedEra shelleyToAlonzo)
                     <$> pStakeIdentifier
                     <*> optional pKeyRegistDeposit
                     <*> pOutputFile
-                )
-            desc
+                 )
       )
-      (\conwayOnwards -> subParser "registration-certificate"
-            $ Opt.info
-                ( StakeAddressRegistrationCertificateCmd (conwayEraOnwardsToShelleyBasedEra conwayOnwards)
-                    <$> pStakeIdentifier
-                    <*> fmap Just pKeyRegistDeposit
-                    <*> pOutputFile
-                )
-            desc
+      (\babbageOnwards ->
+          let babbageOrConway = babbageEraOnwardsToShelleyBasedEra babbageOnwards
+              babbageBuilder si = StakeAddressRegistrationCertificateCmd babbageOrConway si Nothing
+              conwayBuilder si lovelace = StakeAddressRegistrationCertificateCmd babbageOrConway si (Just lovelace)
+          in make $ case babbageOnwards of
+               BabbageEraOnwardsBabbage -> babbageBuilder <$> pStakeIdentifier <*> pOutputFile
+               BabbageEraOnwardsConway ->  conwayBuilder <$> pStakeIdentifier <*> pKeyRegistDeposit <*> pOutputFile
       )
       sbe
    where
      desc = Opt.progDesc "Create a stake address registration certificate"
+     make parser = subParser "registration-certificate"  (Opt.info parser desc)
 
 pStakeAddressDeregistrationCertificateCmd :: ()
   => CardanoEra era