Merge pull request #483 from input-output-hk/mgalazyn/fix/use-querySt…

…akeVoteDelegatees-only-in-conway-onwards Fix using queryStakeVoteDelegatees in eras before conway
IntersectMBO · Nov 27, 2023 · 25604ae · 25604ae
2 parents c50683f + 1be41eb
commit 25604ae
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs
@@ -814,9 +814,10 @@ runQueryStakeAddressInfoCmd
           & onLeft (left . QueryCmdUnsupportedNtcVersion)
           & onLeft (left . QueryCmdLocalStateQueryError . EraMismatchError)
 
-        stakeVoteDelegatees <- lift (queryStakeVoteDelegatees sbe stakeAddr)
-          & onLeft (left . QueryCmdUnsupportedNtcVersion)
-          & onLeft (left . QueryCmdLocalStateQueryError . EraMismatchError)
+        stakeVoteDelegatees <- monoidForEraInEonA era $ \(_ :: ConwayEraOnwards era) ->
+          lift (queryStakeVoteDelegatees sbe stakeAddr)
+            & onLeft (left . QueryCmdUnsupportedNtcVersion)
+            & onLeft (left . QueryCmdLocalStateQueryError . EraMismatchError)
 
         return $ do
           writeStakeAddressInfo