module Cardano.Chain.Byron.API.Protocol (
previewDelegationMap
) where
import Cardano.Prelude
import qualified Cardano.Chain.Block as CC
import qualified Cardano.Chain.Delegation as Delegation
import qualified Cardano.Chain.Delegation.Validation.Interface as D.Iface
import qualified Cardano.Chain.Slotting as CC
previewDelegationMap :: CC.SlotNumber
-> CC.ChainValidationState
-> Delegation.Map
previewDelegationMap :: SlotNumber -> ChainValidationState -> Map
previewDelegationMap SlotNumber
slot ChainValidationState
cvs =
let ds :: State
ds = SlotNumber -> State -> State
D.Iface.activateDelegations SlotNumber
slot (State -> State) -> State -> State
forall a b. (a -> b) -> a -> b
$ ChainValidationState -> State
CC.cvsDelegationState ChainValidationState
cvs
in State -> Map
D.Iface.delegationMap State
ds