module Cardano.Ledger.Shelley.Delegation.PoolParams
  ( poolSpec,
  )
where

import Cardano.Ledger.BaseTypes (UnitInterval)
import Cardano.Ledger.Coin (Coin)
import Cardano.Ledger.Shelley.TxBody (PoolParams (..))

poolSpec :: PoolParams crypto -> (Coin, UnitInterval, Coin)
poolSpec :: PoolParams crypto -> (Coin, UnitInterval, Coin)
poolSpec PoolParams crypto
pool = (PoolParams crypto -> Coin
forall crypto. PoolParams crypto -> Coin
_poolCost PoolParams crypto
pool, PoolParams crypto -> UnitInterval
forall crypto. PoolParams crypto -> UnitInterval
_poolMargin PoolParams crypto
pool, PoolParams crypto -> Coin
forall crypto. PoolParams crypto -> Coin
_poolPledge PoolParams crypto
pool)