Skip to content

Commit 60e1e7f

Browse files
Soupstrawlehins
andcommitted
Update eras/allegra/impl/src/Cardano/Ledger/Allegra/TxAuxData.hs
Co-authored-by: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>
1 parent 5a6db82 commit 60e1e7f

File tree

1 file changed

+6
-0
lines changed

1 file changed

+6
-0
lines changed

eras/allegra/impl/src/Cardano/Ledger/Allegra/TxAuxData.hs

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -87,6 +87,12 @@ deriving instance Eq (NativeScript era) => Eq (AllegraTxAuxDataRaw era)
8787

8888
class EraTxAuxData era => AllegraEraTxAuxData era where
8989
nativeScriptsTxAuxDataL :: Lens' (TxAuxData era) (StrictSeq (NativeScript era))
90+
91+
timelockScriptsTxAuxDataL :: Lens' (TxAuxData era) (StrictSeq (Timelock era))
92+
default timelockScriptsTxAuxDataL :: NativeScript era ~ Timelock era => Lens' (TxAuxData era) (StrictSeq (Timelock era))
93+
timelockScriptsTxAuxDataL = nativeScriptsTxAuxDataL
94+
95+
{-# DEPRECATED timelockScriptsTxAuxDataL "In favor of `nativeScriptsTxAuxDataL`" #-}
9096

9197
instance EraTxAuxData AllegraEra where
9298
type TxAuxData AllegraEra = AllegraTxAuxData AllegraEra

0 commit comments

Comments
 (0)