query protocol parameters: use ledger instances

IntersectMBO · Nov 14, 2023 · 7620690 · 7620690
1 parent 02d1f4b
commit 7620690
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs
@@ -190,8 +190,8 @@ runQueryProtocolParametersCmd
       -> Maybe (File () Out)
       -> Ledger.PParams (ShelleyLedgerEra era)
       -> ExceptT QueryCmdError IO ()
-    writeProtocolParameters sbe mOutFile' pparams =
-      let apiPParamsJSON = (encodePretty $ fromLedgerPParams sbe pparams)
+    writeProtocolParameters _sbe mOutFile' pparams =
+      let apiPParamsJSON = encodePretty pparams
       in case mOutFile' of
         Nothing -> liftIO $ LBS.putStrLn apiPParamsJSON
         Just (File fpath) ->