77
88module Cardano.Wasm.Api.Certificate.StakeCertificate
99 ( makeStakeAddressStakeDelegationCertificateImpl
10- , makeStakeAddressStakeDelegationCertificateExperimentalEraImpl
10+ , makeStakeAddressStakeDelegationCertificateUpcomingEraImpl
1111 , makeStakeAddressRegistrationCertificateImpl
12- , makeStakeAddressRegistrationCertificateExperimentalEraImpl
12+ , makeStakeAddressRegistrationCertificateUpcomingEraImpl
1313 , makeStakeAddressUnregistrationCertificateImpl
14- , makeStakeAddressUnregistrationCertificateExperimentalEraImpl
14+ , makeStakeAddressUnregistrationCertificateUpcomingEraImpl
1515 )
1616where
1717
@@ -31,7 +31,7 @@ import Cardano.Api.Serialise.Raw qualified as Api
3131
3232import Cardano.Ledger.Api (Delegatee (DelegStake ))
3333import Cardano.Wasm.ExceptionHandling (justOrError , rightOrError )
34- import Cardano.Wasm.Internal.Api.Era (currentEra , experimentalEra )
34+ import Cardano.Wasm.Internal.Api.Era (currentEra , upcomingEra )
3535
3636import Control.Monad.Catch (MonadThrow )
3737import Data.ByteString.Base16 qualified as Base16
@@ -62,13 +62,13 @@ makeStakeAddressStakeDelegationCertificateImpl skHashStr poolIdStr = do
6262 poolId <- readPoolId poolIdStr
6363 makeStakeAddressStakeDelegationCertificate currentEra stakeCertHash poolId
6464
65- -- | Make a certificate that delegates a stake address to a stake pool in the current experimental era.
66- makeStakeAddressStakeDelegationCertificateExperimentalEraImpl
65+ -- | Make a certificate that delegates a stake address to a stake pool in the current upcoming era.
66+ makeStakeAddressStakeDelegationCertificateUpcomingEraImpl
6767 :: MonadThrow m => StakeKeyHashBase16 -> PoolIdBase16 -> m CertificateCBORBase16
68- makeStakeAddressStakeDelegationCertificateExperimentalEraImpl skHashStr poolIdStr = do
68+ makeStakeAddressStakeDelegationCertificateUpcomingEraImpl skHashStr poolIdStr = do
6969 stakeCertHash <- readHash skHashStr
7070 poolId <- readPoolId poolIdStr
71- era <- justOrError " No experimental era available" experimentalEra
71+ era <- justOrError " No upcoming era available" upcomingEra
7272 makeStakeAddressStakeDelegationCertificate era stakeCertHash poolId
7373
7474makeStakeAddressStakeDelegationCertificate
@@ -91,12 +91,12 @@ makeStakeAddressRegistrationCertificateImpl skHashStr deposit = do
9191 skHash <- readHash skHashStr
9292 makeStakeAddressRegistrationCertificateWrapper currentEra skHash deposit
9393
94- -- | Make a stake address registration certificate in the current experimental era.
95- makeStakeAddressRegistrationCertificateExperimentalEraImpl
94+ -- | Make a stake address registration certificate in the upcoming era.
95+ makeStakeAddressRegistrationCertificateUpcomingEraImpl
9696 :: MonadThrow m => StakeKeyHashBase16 -> DepositLovelace -> m CertificateCBORBase16
97- makeStakeAddressRegistrationCertificateExperimentalEraImpl skHashStr deposit = do
97+ makeStakeAddressRegistrationCertificateUpcomingEraImpl skHashStr deposit = do
9898 skHash <- readHash skHashStr
99- era <- justOrError " No experimental era available" experimentalEra
99+ era <- justOrError " No upcoming era available" upcomingEra
100100 makeStakeAddressRegistrationCertificateWrapper era skHash deposit
101101
102102makeStakeAddressRegistrationCertificateWrapper
@@ -116,12 +116,12 @@ makeStakeAddressUnregistrationCertificateImpl skHashStr deposit = do
116116 skHash <- readHash skHashStr
117117 makeStakeAddressUnregistrationCertificateWrapper currentEra skHash deposit
118118
119- -- | Make a stake address unregistration certificate in the current experimental era.
120- makeStakeAddressUnregistrationCertificateExperimentalEraImpl
119+ -- | Make a stake address unregistration certificate in the upcoming era.
120+ makeStakeAddressUnregistrationCertificateUpcomingEraImpl
121121 :: MonadThrow m => StakeKeyHashBase16 -> DepositLovelace -> m CertificateCBORBase16
122- makeStakeAddressUnregistrationCertificateExperimentalEraImpl skHashStr deposit = do
122+ makeStakeAddressUnregistrationCertificateUpcomingEraImpl skHashStr deposit = do
123123 skHash <- readHash skHashStr
124- era <- justOrError " No experimental era available" experimentalEra
124+ era <- justOrError " No upcoming era available" upcomingEra
125125 makeStakeAddressUnregistrationCertificateWrapper era skHash deposit
126126
127127makeStakeAddressUnregistrationCertificateWrapper
0 commit comments