fixup: export defaultBlockMultiplicity for tests

Author: nfrisby

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Mempool/Impl/Common.hs

@@ -12,6 +12,7 @@
 module Ouroboros.Consensus.Mempool.Impl.Common (
     -- * Internal state
     InternalState (..)
+  , defaultBlockMultiplicity
   , isMempoolSize
     -- * Mempool environment
   , MempoolEnv (..)
@@ -146,11 +147,14 @@ initInternalState multOverride lastTicketNo cfg slot st = IS {
     , isCapacity     = MempoolCapacity {
         mcBlockCapacity      = blockTxCapacity cfg st
       , mcBlockMultiplicity  = case multOverride of
-          Nothing                              -> 2
+          Nothing                              -> defaultBlockMultiplicity
           Just (MempoolMultiplicityOverride x) -> x
       }
     }
 
+defaultBlockMultiplicity :: Int
+defaultBlockMultiplicity = 2
+
 {-------------------------------------------------------------------------------
   Ledger Interface
 -------------------------------------------------------------------------------}