-
Notifications
You must be signed in to change notification settings - Fork 211
/
CollateralInputs.hs
35 lines (29 loc) · 1.07 KB
/
CollateralInputs.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{-# LANGUAGE TypeFamilies #-}
module Cardano.Wallet.Read.Primitive.Tx.Features.CollateralInputs
( getCollateralInputs
)
where
import Prelude
import Cardano.Wallet.Read.Eras
( EraFun (..), K (..) )
import Cardano.Wallet.Read.Primitive.Tx.Features.Inputs
( fromShelleyTxIns )
import Cardano.Wallet.Read.Tx.CollateralInputs
( CollateralInputs (..), CollateralInputsType )
import qualified Cardano.Ledger.Shelley.API as SH
import qualified Cardano.Wallet.Primitive.Types.Tx.TxIn as W
getCollateralInputs :: EraFun CollateralInputs (K [W.TxIn])
getCollateralInputs = EraFun
{ byronFun = \_ -> K []
, shelleyFun = \_ -> K []
, allegraFun = \_ -> K []
, maryFun = \_ -> K []
, alonzoFun = mkShelleyTxCollateralInputsIns
, babbageFun = mkShelleyTxCollateralInputsIns
, conwayFun = mkShelleyTxCollateralInputsIns
}
mkShelleyTxCollateralInputsIns
:: (Foldable t, CollateralInputsType era ~ t (SH.TxIn crypto))
=> CollateralInputs era -- ^
-> K [W.TxIn] b
mkShelleyTxCollateralInputsIns (CollateralInputs ins) = fromShelleyTxIns ins