add todos

IntersectMBO · Aug 1, 2024 · 8f0de78 · 8f0de78
1 parent 49c29fc
commit 8f0de78
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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))]