From d79b67fef34331767841ba8e6e80fc6ef9a5fd27 Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Wed, 30 Aug 2023 13:24:48 +0200 Subject: [PATCH] Fix error when executing drep queries --- cardano-api/internal/Cardano/Api/Query.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/cardano-api/internal/Cardano/Api/Query.hs b/cardano-api/internal/Cardano/Api/Query.hs index 3f65e383ab..fce589e1a7 100644 --- a/cardano-api/internal/Cardano/Api/Query.hs +++ b/cardano-api/internal/Cardano/Api/Query.hs @@ -675,17 +675,16 @@ toConsensusQueryShelleyBased erainmode (QueryStakeDelegDeposits creds) = creds' = Set.map toShelleyStakeCredential creds toConsensusQueryShelleyBased erainmode QueryGovState = - Some (consensusQueryInEraInMode erainmode (Consensus.GetCBOR Consensus.GetGovState)) + Some (consensusQueryInEraInMode erainmode Consensus.GetGovState) toConsensusQueryShelleyBased erainmode (QueryDRepState creds) = - Some (consensusQueryInEraInMode erainmode (Consensus.GetCBOR (Consensus.GetDRepState creds))) - + Some (consensusQueryInEraInMode erainmode (Consensus.GetDRepState creds)) toConsensusQueryShelleyBased erainmode (QueryDRepStakeDistr dreps) = - Some (consensusQueryInEraInMode erainmode (Consensus.GetCBOR $ Consensus.GetDRepStakeDistr dreps)) + Some (consensusQueryInEraInMode erainmode (Consensus.GetDRepStakeDistr dreps)) toConsensusQueryShelleyBased erainmode QueryCommitteeState = - Some (consensusQueryInEraInMode erainmode (Consensus.GetCBOR Consensus.GetCommitteeState)) + Some (consensusQueryInEraInMode erainmode Consensus.GetCommitteeState) consensusQueryInEraInMode :: forall era mode erablock modeblock result result' xs. @@ -859,7 +858,7 @@ fromConsensusQueryResultShelleyBased _ QueryEpoch q' epoch = fromConsensusQueryResultShelleyBased _ QueryConstitution q' mConstitution = case q' of Consensus.GetConstitution -> mConstitution - _ -> fromConsensusQueryResultMismatch + _ -> fromConsensusQueryResultMismatch fromConsensusQueryResultShelleyBased _ QueryGenesisParameters q' r' = case q' of