Minor refactors

cardano-cli/src/Cardano/CLI/EraBased/Commands.hs

@@ -113,17 +113,17 @@ pAnyEraCommand envCli =
     ]
 
 pCmds :: ShelleyBasedEra era -> EnvCli -> Parser (Cmds era)
-pCmds sbe' envCli = do
+pCmds sbe envCli = do
   asum $
     catMaybes
       [ Just (AddressCmds <$> pAddressCmds envCli)
       , Just (KeyCmds <$> pKeyCmds)
-      , fmap GenesisCmds <$> pGenesisCmds sbe' envCli
-      , fmap GovernanceCmds <$> pGovernanceCmds sbe'
+      , fmap GenesisCmds <$> pGenesisCmds sbe envCli
+      , fmap GovernanceCmds <$> pGovernanceCmds sbe
       , Just (NodeCmds <$> pNodeCmds)
-      , fmap QueryCmds <$> pQueryCmds sbe' envCli
-      , fmap StakeAddressCmds <$> pStakeAddressCmds sbe' envCli
-      , fmap StakePoolCmds <$> pStakePoolCmds sbe' envCli
+      , fmap QueryCmds <$> pQueryCmds sbe envCli
+      , fmap StakeAddressCmds <$> pStakeAddressCmds sbe envCli
+      , fmap StakePoolCmds <$> pStakePoolCmds sbe envCli
       , fmap TextViewCmds <$> pTextViewCmds
-      , fmap TransactionCmds <$> pTransactionCmds sbe' envCli
+      , fmap TransactionCmds <$> pTransactionCmds sbe envCli
       ]

cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs

@@ -115,7 +115,7 @@ pStakeAddressDeregistrationCertificateCmd
   :: ()
   => ShelleyBasedEra era
   -> Parser (StakeAddressCmds era)
-pStakeAddressDeregistrationCertificateCmd sbe = do
+pStakeAddressDeregistrationCertificateCmd =
   caseShelleyToBabbageOrConwayEraOnwards
     ( \shelleyToBabbage ->
         subParser "deregistration-certificate"
@@ -137,7 +137,6 @@ pStakeAddressDeregistrationCertificateCmd sbe = do
             )
           $ Opt.progDesc "Create a stake address deregistration certificate"
     )
-    sbe
 
 pStakeAddressStakeDelegationCertificateCmd
   :: ()