File tree Expand file tree Collapse file tree 3 files changed +7
-7
lines changed
libs/cardano-ledger-conformance/src/Test/Cardano/Ledger/Conformance Expand file tree Collapse file tree 3 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -44,7 +44,7 @@ deriving instance Ord DrepThresholds
4444
4545deriving instance Ord PParamsUpdate
4646
47- deriving instance Ord RwdAddr
47+ deriving instance Ord RewardAddress
4848
4949deriving instance Ord GovAction
5050
@@ -56,7 +56,7 @@ instance NFData a => NFData (HSSet a)
5656
5757instance NFData PParamsUpdate
5858
59- instance NFData RwdAddr
59+ instance NFData RewardAddress
6060
6161instance NFData GovAction
6262
@@ -174,7 +174,7 @@ instance (ToExpr k, ToExpr v) => ToExpr (HSMap k v)
174174
175175instance ToExpr PParamsUpdate
176176
177- instance ToExpr RwdAddr
177+ instance ToExpr RewardAddress
178178
179179instance ToExpr GovAction
180180
@@ -351,7 +351,7 @@ instance SpecNormalize Agda.Rational where
351351
352352instance SpecNormalize PParamsUpdate
353353
354- instance SpecNormalize RwdAddr
354+ instance SpecNormalize RewardAddress
355355
356356instance SpecNormalize GovAction
357357
Original file line number Diff line number Diff 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
Original file line number Diff line number Diff line change @@ -166,9 +166,9 @@ instance SpecTranslate ctx ExUnits where
166166 toSpecRep (ExUnits a b) = pure (toInteger a, toInteger b)
167167
168168instance 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
173173instance
174174 ( SpecRep DataHash ~ Agda. DataHash
You can’t perform that action at this time.
0 commit comments