Skip to content

Commit c74e8cb

Browse files
Soupstrawlehins
andauthored
Update eras/allegra/impl/src/Cardano/Ledger/Allegra/TxAuxData.hs
Co-authored-by: Alexey Kuleshevich <[email protected]>
1 parent 567b937 commit c74e8cb

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)