Merge pull request #475 from input-output-hk/mgalazyn/fix/revert-use-…

…ledger-pp-serialization Revert "query protocol parameters: use ledger instances"
IntersectMBO · Nov 22, 2023 · ca5392f · ca5392f
2 parents 49b74c9 + 5b1c489
commit ca5392f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs
@@ -186,13 +186,14 @@ runQueryProtocolParametersCmd
           . newExceptT $ executeQueryAnyMode localNodeConnInfo qInMode
   writeProtocolParameters sbe mOutFile pp
   where
+    -- TODO: Conway era - use ledger PParams JSON
     writeProtocolParameters
       :: ShelleyBasedEra era
       -> Maybe (File () Out)
       -> Ledger.PParams (ShelleyLedgerEra era)
       -> ExceptT QueryCmdError IO ()
     writeProtocolParameters sbe mOutFile' pparams =
-      let apiPParamsJSON = shelleyBasedEraConstraints sbe $ encodePretty pparams
+      let apiPParamsJSON = (encodePretty $ fromLedgerPParams sbe pparams)
       in case mOutFile' of
         Nothing -> liftIO $ LBS.putStrLn apiPParamsJSON
         Just (File fpath) ->