Merge pull request #797 from IntersectMBO/mgalazyn/refactor/remove-redundant-function

Remove `createPreviousGovernanceActionId`. Use `GovPurposeId` directly instead.

Author: carbolymer

cardano-api/src/Cardano/Api/Internal/Governance/Actions/ProposalProcedure.hs

@@ -220,14 +220,6 @@ fromProposalProcedure sbe (Proposal pp) =
     , fromGovernanceAction (Gov.pProcGovAction pp)
     )
 
-createPreviousGovernanceActionId
-  :: TxId
-  -> Word16
-  -- ^ Governance action transation index
-  -> Ledger.GovPurposeId (r :: Ledger.GovActionPurpose) (ShelleyLedgerEra era)
-createPreviousGovernanceActionId txid index =
-  Ledger.GovPurposeId $ createGovernanceActionId txid index
-
 createGovernanceActionId :: TxId -> Word16 -> Gov.GovActionId
 createGovernanceActionId txid index =
   Ledger.GovActionId

cardano-api/src/Cardano/Api/Internal/ReexposeLedger.hs

@@ -83,6 +83,7 @@ module Cardano.Api.Internal.ReexposeLedger
   , GovActionId (..)
   , GovActionIx (..)
   , GovActionState (..)
+  , GovPurposeId (..)
   , Vote (..)
   , Voter (..)
   , VotingProcedure (..)
@@ -210,7 +211,7 @@ import Cardano.Ledger.Alonzo.Scripts
   , plutusScriptLanguage
   )
 import Cardano.Ledger.Alonzo.TxWits (TxDats (..))
-import Cardano.Ledger.Api (Constitution (..), GovAction (..), unRedeemers)
+import Cardano.Ledger.Api (Constitution (..), GovAction (..), GovPurposeId (..), unRedeemers)
 import Cardano.Ledger.Api.Tx.Cert
   ( pattern AuthCommitteeHotKeyTxCert
   , pattern DelegStakeTxCert

cardano-api/src/Cardano/Api/Shelley.hs

@@ -192,7 +192,6 @@ module Cardano.Api.Shelley
 
     -- * Governance Actions
   , createAnchor
-  , createPreviousGovernanceActionId
   , createGovernanceActionId
 
     -- * DRep