shelley: make AlonzoMeasure strict in its fields

This is important because it is an accumulator.
IntersectMBO · Jul 27, 2021 · d4be038 · d4be038
1 parent 9321471
commit d4be038
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs b/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs
@@ -294,8 +294,8 @@ instance (SL.PraosCrypto c) => TxLimits (ShelleyBlock (MaryEra c)) where
   pointwiseMin = min
 
 data AlonzoMeasure = AlonzoMeasure {
-    byteSize :: ByteSize
-  , exUnits  :: ExUnits
+    byteSize :: !ByteSize
+  , exUnits  :: !ExUnits
   } deriving stock (Show, Eq)
 
 instance Semigroup AlonzoMeasure where