Merge pull request #708 from IntersectMBO/smelc/exports-for-augmented…

…-spo-stake-distribution Don't export coerceKeyRole, export RewardAccount
IntersectMBO · Dec 12, 2024 · a429ac2 · a429ac2
2 parents 8a91df5 + 3590176
commit a429ac2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Certificate.hs b/cardano-api/internal/Cardano/Api/Certificate.hs
@@ -100,6 +100,7 @@ import           Cardano.Api.Value
 
 import           Cardano.Ledger.BaseTypes (strictMaybe)
 import qualified Cardano.Ledger.Coin as L
+import qualified Cardano.Ledger.Keys as Ledger
 
 import           Control.Monad.Except (MonadError (..))
 import           Data.ByteString (ByteString)

diff --git a/cardano-api/internal/Cardano/Api/ReexposeLedger.hs b/cardano-api/internal/Cardano/Api/ReexposeLedger.hs
@@ -18,7 +18,7 @@ module Cardano.Api.ReexposeLedger
   , hashVerKeyVRF
   , hashWithSerialiser
   , PoolParams (..)
-  , HasKeyRole (..)
+  , HasKeyRole
   , MIRPot (..)
   , MIRTarget (..)
   , MIRCert (..)
@@ -175,10 +175,13 @@ module Cardano.Api.ReexposeLedger
   , SafeHash
   , unsafeMakeSafeHash
   , extractHash
+  -- Reward
+  , RewardAccount (..)
   )
 where
 
 import           Cardano.Crypto.Hash.Class (hashFromBytes, hashToBytes)
+import           Cardano.Ledger.Address (RewardAccount (..))
 import           Cardano.Ledger.Allegra.Scripts (showTimelock)
 import           Cardano.Ledger.Alonzo.Core (AlonzoEraScript (..), AlonzoEraTxBody (..),
                    AlonzoEraTxWits (..), AsIx (..), AsIxItem (AsIxItem), CoinPerWord (..), EraGov,
@@ -221,7 +224,7 @@ import           Cardano.Ledger.Core (Era (..), EraPParams (..), EraTxOut, PPara
 import           Cardano.Ledger.Credential (Credential (..), credToText)
 import           Cardano.Ledger.Crypto (ADDRHASH, Crypto, StandardCrypto)
 import           Cardano.Ledger.DRep (DRep (..), drepAnchorL, drepDepositL, drepExpiryL)
-import           Cardano.Ledger.Keys (HasKeyRole (..), KeyHash (..), KeyRole (..), VKey (..),
+import           Cardano.Ledger.Keys (HasKeyRole, KeyHash (..), KeyRole (..), VKey (..),
                    hashWithSerialiser)
 import           Cardano.Ledger.Plutus.Data (Data (..), unData)
 import           Cardano.Ledger.Plutus.Language (Language, Plutus, languageToText, plutusBinary)