Update to cardano-api-8.13.0.0

IntersectMBO · Aug 11, 2023 · 7a20828 · 7a20828
1 parent 2f80fa6
commit 7a20828
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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)