Skip to content

Commit 73fd1af

Browse files
committed
Rename RwdAddr to RewardAddress
Following IntersectMBO/formal-ledger-specifications#985
1 parent 0b58575 commit 73fd1af

File tree

3 files changed

+7
-7
lines changed

3 files changed

+7
-7
lines changed

libs/cardano-ledger-conformance/src/Test/Cardano/Ledger/Conformance/Orphans.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ deriving instance Ord DrepThresholds
4444

4545
deriving instance Ord PParamsUpdate
4646

47-
deriving instance Ord RwdAddr
47+
deriving instance Ord RewardAddress
4848

4949
deriving instance Ord GovAction
5050

@@ -56,7 +56,7 @@ instance NFData a => NFData (HSSet a)
5656

5757
instance NFData PParamsUpdate
5858

59-
instance NFData RwdAddr
59+
instance NFData RewardAddress
6060

6161
instance NFData GovAction
6262

@@ -174,7 +174,7 @@ instance (ToExpr k, ToExpr v) => ToExpr (HSMap k v)
174174

175175
instance ToExpr PParamsUpdate
176176

177-
instance ToExpr RwdAddr
177+
instance ToExpr RewardAddress
178178

179179
instance ToExpr GovAction
180180

@@ -351,7 +351,7 @@ instance SpecNormalize Agda.Rational where
351351

352352
instance SpecNormalize PParamsUpdate
353353

354-
instance SpecNormalize RwdAddr
354+
instance SpecNormalize RewardAddress
355355

356356
instance SpecNormalize GovAction
357357

libs/cardano-ledger-conformance/src/Test/Cardano/Ledger/Conformance/SpecTranslate/Conway/Base.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -397,7 +397,7 @@ instance
397397
\(cred, Coin amount) -> do
398398
agdaCred <- toSpecRep cred
399399
network <- toSpecRep Testnet -- TODO where should this really come from?
400-
pure (Agda.RwdAddr network agdaCred, amount)
400+
pure (Agda.RewardAddress network agdaCred, amount)
401401
transHashProtected x h = do
402402
committee <- toSpecRep x
403403
agdaLastId <- case h of

libs/cardano-ledger-conformance/src/Test/Cardano/Ledger/Conformance/SpecTranslate/Core.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -166,9 +166,9 @@ instance SpecTranslate ctx ExUnits where
166166
toSpecRep (ExUnits a b) = pure (toInteger a, toInteger b)
167167

168168
instance SpecTranslate ctx RewardAccount where
169-
type SpecRep RewardAccount = Agda.RwdAddr
169+
type SpecRep RewardAccount = Agda.RewardAddress
170170

171-
toSpecRep (RewardAccount n c) = Agda.RwdAddr <$> toSpecRep n <*> toSpecRep c
171+
toSpecRep (RewardAccount n c) = Agda.RewardAddress <$> toSpecRep n <*> toSpecRep c
172172

173173
instance
174174
( SpecRep DataHash ~ Agda.DataHash

0 commit comments

Comments
 (0)