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 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)