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

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

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