From 7a2082838f62c33aece5b849bcdb5a2071158214 Mon Sep 17 00:00:00 2001 From: John Ky Date: Sat, 12 Aug 2023 00:41:28 +1000 Subject: [PATCH] Update to cardano-api-8.13.0.0 --- cardano-cli/src/Cardano/CLI/Run/Legacy/Query.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cardano-cli/src/Cardano/CLI/Run/Legacy/Query.hs b/cardano-cli/src/Cardano/CLI/Run/Legacy/Query.hs index 35c712e60d..f6ddb68da1 100644 --- a/cardano-cli/src/Cardano/CLI/Run/Legacy/Query.hs +++ b/cardano-cli/src/Cardano/CLI/Run/Legacy/Query.hs @@ -463,7 +463,10 @@ runQueryKesPeriodInfo socketPath (AnyConsensusModeParams cModeParams) network no requireNotByronEraInByronMode eraInMode - gParams <- lift (queryGenesisParameters eInMode sbe) + shelleyInMode <- toEraInMode ShelleyEra cMode + & hoistMaybe (ShelleyQueryCmdEraConsensusModeMismatch (AnyConsensusMode cMode) anyE) + + gParams <- lift (queryGenesisParameters shelleyInMode ShelleyBasedEraShelley) & onLeft (left . ShelleyQueryCmdUnsupportedNtcVersion) & onLeft (left . ShelleyQueryCmdLocalStateQueryError . EraMismatchError)