Merge pull request #1242 from IntersectMBO/jordan/refactoring-20250626

Refactoring 2025-06-26

Author: Jimbo4350

cardano-cli/src/Cardano/CLI/EraBased/Genesis/Internal/Common.hs

@@ -129,7 +129,7 @@ readProtocolParameters
   :: forall era
    . Exp.IsEra era
   => ProtocolParamsFile
-  -> ExceptT ProtocolParamsError IO (L.PParams (ShelleyLedgerEra era))
+  -> ExceptT ProtocolParamsError IO (L.PParams (Exp.LedgerEra era))
 readProtocolParameters (ProtocolParamsFile fpath) = do
   pparams <- handleIOExceptT (ProtocolParamsErrorFile . FileIOError fpath) $ LBS.readFile fpath
   firstExceptT (ProtocolParamsErrorJSON fpath . Text.pack) . hoistEither $

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

@@ -37,7 +37,7 @@ pCmds envCli = do
       , fmap GenesisCmds <$> pGenesisCmds (convert useEra) envCli
       , fmap GovernanceCmds <$> pGovernanceCmds
       , Just (NodeCmds <$> pNodeCmds)
-      , fmap QueryCmds <$> pQueryCmds (convert useEra) envCli
+      , fmap QueryCmds <$> pQueryCmds envCli
       , fmap StakeAddressCmds <$> pStakeAddressCmds envCli
       , fmap StakePoolCmds <$> pStakePoolCmds (convert useEra) envCli
       , fmap TextViewCmds <$> pTextViewCmds