From 8f0de784dae34500b46e1dd4135788668d01d03a Mon Sep 17 00:00:00 2001
From: Mateusz Galazyn <mateusz.galazyn@iohk.io>
Date: Thu, 1 Aug 2024 12:52:04 +0200
Subject: [PATCH] add todos

---
 cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs
index ae6615b6e4..be006ae3d8 100644
--- a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs
+++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs
@@ -224,12 +224,14 @@ conjureWitness era errF =
   maybe (cardanoEraConstraints era $ Left . errF $ AnyCardanoEra era) Right $
     forEraMaybeEon era
 
+-- TODO MOVE TO cardano-api
 getVotingScriptCredentials
   :: VotingProcedures era
   -> Maybe (L.Voter (L.EraCrypto (ShelleyLedgerEra era)))
 getVotingScriptCredentials (VotingProcedures (L.VotingProcedures m)) =
   listToMaybe $ Map.keys m
 
+-- TODO MOVE TO cardano-api
 votingScriptWitnessSingleton
   :: VotingProcedures era
   -> Maybe (ScriptWitness WitCtxStake era)
@@ -265,6 +267,7 @@ convertToTxVotingProcedures votingProcedures = do
       votingProcedures
   f acc (procedure, _witness) = mergeVotingProcedures acc procedure
 
+-- TODO MOVE TO cardano-api
 proposingScriptWitnessSingleton
   :: Proposal era
   -> Maybe (ScriptWitness WitCtxStake era)
@@ -273,6 +276,7 @@ proposingScriptWitnessSingleton _ Nothing = Map.empty
 proposingScriptWitnessSingleton (Proposal proposalProcedure) (Just scriptWitness) =
   Map.singleton proposalProcedure scriptWitness
 
+-- TODO MOVE TO cardano-api
 convToTxProposalProcedures
   :: L.EraPParams (ShelleyLedgerEra era)
   => [(Proposal era, Maybe (ScriptWitness WitCtxStake era))]