Update Cardano.Api.ReexposeLedger to expose more ledger types

IntersectMBO · Aug 22, 2023 · 0f5e8a1 · 0f5e8a1
1 parent 9183a67
commit 0f5e8a1
Showing 1 changed file with 33 additions and 5 deletions.
diff --git a/cardano-api/internal/Cardano/Api/ReexposeLedger.hs b/cardano-api/internal/Cardano/Api/ReexposeLedger.hs
@@ -1,6 +1,7 @@
+{-# LANGUAGE PatternSynonyms #-}
+
 module Cardano.Api.ReexposeLedger
-  ( module Cardano.Ledger.Api
-  , Credential (..)
+  ( Credential (..)
   , KeyHash(..)
   , KeyRole(..)
   , ShelleyTxCert(..)
@@ -16,23 +17,40 @@ module Cardano.Api.ReexposeLedger
   , PoolMetadata(..)
   , EraTxCert(..)
   , StrictMaybe(..)
+  , pattern DelegTxCert
+  , pattern RegPoolTxCert
+  , pattern RetirePoolTxCert
+  , pattern RegDepositTxCert
+  , pattern UnRegDepositTxCert
+  , pattern UnRegDRepTxCert
+  , pattern AuthCommitteeHotKeyTxCert
+  , pattern ResignCommitteeColdTxCert
+  , pattern RegTxCert
+  , pattern UnRegTxCert
+  , pattern RegDepositDelegTxCert
 
   -- Core
   , Coin (..)
   , EraCrypto
   , Network(..)
   , PoolCert(..)
+  , PParams(..)
   , addDeltaCoin
   , toDeltaCoin
   , toEraCBOR
   , fromEraCBOR
 
   -- Conway
+  , Delegatee(..)
   , DRep(..)
   , ConwayTxCert(..)
   , ConwayDelegCert(..)
   , ConwayEraTxCert(..)
   , ConwayGovCert(..)
+  , GovActionId(..)
+  , Vote (..)
+  , Voter (..)
+  , VotingProcedure(..)
 
   -- Base
   , boundRational
@@ -50,25 +68,35 @@ module Cardano.Api.ReexposeLedger
   -- Crypto
   , hashToBytes
   , hashFromBytes
+  , Crypto
+  , StandardCrypto
 
   -- Slotting
   , EpochNo(..)
   ) where
 
 import           Cardano.Crypto.Hash.Class (hashFromBytes, hashToBytes)
-import           Cardano.Ledger.Api
+import           Cardano.Ledger.Api.Tx.Cert (pattern AuthCommitteeHotKeyTxCert, pattern DelegTxCert,
+                   pattern RegDepositDelegTxCert, pattern RegDepositTxCert, pattern RegPoolTxCert,
+                   pattern RegTxCert, pattern ResignCommitteeColdTxCert, pattern RetirePoolTxCert,
+                   pattern UnRegDRepTxCert, pattern UnRegDepositTxCert, pattern UnRegTxCert)
 import           Cardano.Ledger.BaseTypes (DnsName, Network (..), StrictMaybe (..), Url,
                    boundRational, dnsToText, maybeToStrictMaybe, portToWord16, strictMaybeToMaybe,
                    textToDns, textToUrl, unboundRational, urlToText)
 import           Cardano.Ledger.Coin (Coin (..), addDeltaCoin, toDeltaCoin)
+import           Cardano.Ledger.Conway.Governance (GovActionId (..), Vote (..), Voter (..),
+                   VotingProcedure (..))
 import           Cardano.Ledger.Conway.TxCert (ConwayDelegCert (..), ConwayEraTxCert (..),
-                   ConwayGovCert (..), ConwayTxCert (..))
-import           Cardano.Ledger.Core (DRep (..), EraCrypto, PoolCert (..), fromEraCBOR, toEraCBOR)
+                   ConwayGovCert (..), ConwayTxCert (..), Delegatee (..))
+import           Cardano.Ledger.Core (DRep (..), EraCrypto, PParams (..), PoolCert (..),
+                   fromEraCBOR, toEraCBOR)
 import           Cardano.Ledger.Credential (Credential (..))
+import           Cardano.Ledger.Crypto (Crypto, StandardCrypto)
 import           Cardano.Ledger.Keys (HasKeyRole (..), KeyHash (..), KeyRole (..))
 import           Cardano.Ledger.PoolParams (PoolMetadata (..), PoolParams (..), StakePoolRelay (..))
 import           Cardano.Ledger.Shelley.TxCert (EraTxCert (..), GenesisDelegCert (..), MIRCert (..),
                    MIRPot (..), MIRTarget (..), ShelleyDelegCert (..), ShelleyEraTxCert (..),
                    ShelleyTxCert (..))
 import           Cardano.Slotting.Slot (EpochNo (..))
 
+