[#676] also add getMaxBlockSize

input-output-hk · Feb 3, 2020 · 77975e2 · 77975e2
1 parent d137117
commit 77975e2
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/cardano-ledger/src/Cardano/Chain/Byron/Auxiliary.hs b/cardano-ledger/src/Cardano/Chain/Byron/Auxiliary.hs
@@ -21,6 +21,7 @@ module Cardano.Chain.Byron.Auxiliary (
   , getDelegationMap
   , getProtocolParams
   , getScheduledDelegations
+  , getMaxBlockSize
     -- * Applying blocks
   , applyChainTick
   , validateBlock
@@ -122,6 +123,12 @@ getScheduledDelegations =
     . D.Iface.schedulingState
     . CC.cvsDelegationState
 
+getMaxBlockSize :: CC.ChainValidationState -> Word32
+getMaxBlockSize =
+      fromIntegral
+    . Update.ppMaxBlockSize
+    . getProtocolParams
+
 {-------------------------------------------------------------------------------
   Update parts of the chain state
 -------------------------------------------------------------------------------}