module Cardano.Chain.Byron.API.Protocol
  ( previewDelegationMap,
  )
where

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
import Cardano.Prelude

-- | Preview the delegation map at a slot assuming no new delegations are
-- | scheduled.
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