module Shelley.Spec.Ledger.SoftForks
  ( validMetaData,
  )
where

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

validMetaData :: PParams era -> Bool
validMetaData :: PParams era -> Bool
validMetaData PParams era
pp = ProtVer -> Natural
pvMinor (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
0