From 8ab0d9bc83f918096d5228d7aa9206e18fae1e8d Mon Sep 17 00:00:00 2001 From: Jordan Millar Date: Fri, 4 Oct 2024 12:30:25 -0400 Subject: [PATCH] Expose AnyVote Add Show instance for VotesMergingConflict --- .../internal/Cardano/Api/Governance/Actions/VotingProcedure.hs | 1 + cardano-api/internal/Cardano/Api/Tx/Compatible.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/cardano-api/internal/Cardano/Api/Governance/Actions/VotingProcedure.hs b/cardano-api/internal/Cardano/Api/Governance/Actions/VotingProcedure.hs index dba360230a..50cc3055d5 100644 --- a/cardano-api/internal/Cardano/Api/Governance/Actions/VotingProcedure.hs +++ b/cardano-api/internal/Cardano/Api/Governance/Actions/VotingProcedure.hs @@ -171,6 +171,7 @@ newtype VotesMergingConflict era ( L.Voter (L.EraCrypto (ShelleyLedgerEra era)) , [L.GovActionId (L.EraCrypto (ShelleyLedgerEra era))] ) + deriving Show -- | @mergeVotingProcedures vote1 vote2@ merges @vote1@ and @vote2@ into a single vote, -- or fails if the votes are incompatible. diff --git a/cardano-api/internal/Cardano/Api/Tx/Compatible.hs b/cardano-api/internal/Cardano/Api/Tx/Compatible.hs index ca58de07d0..e77d8e5583 100644 --- a/cardano-api/internal/Cardano/Api/Tx/Compatible.hs +++ b/cardano-api/internal/Cardano/Api/Tx/Compatible.hs @@ -8,6 +8,7 @@ -- It is exposed for testing purposes only. module Cardano.Api.Tx.Compatible ( AnyProtocolUpdate (..) + , AnyVote (..) , createCompatibleSignedTx ) where