module Shelley.Spec.Ledger.HardForks
  ( aggregatedRewards,
  )
where

import Shelley.Spec.Ledger.PParams (PParams, PParams' (..), ProtVer (..))

aggregatedRewards :: PParams era -> Bool
aggregatedRewards :: PParams era -> Bool
aggregatedRewards PParams era
pp = ProtVer -> Natural
pvMajor (PParams era -> HKD Identity ProtVer
forall (f :: * -> *) era. PParams' f era -> HKD f ProtVer
_protocolVersion PParams era
pp) Natural -> Natural -> Bool
forall a. Ord a => a -> a -> Bool
> Natural
2