ouroboros-network-api: added monoid instance for SizeInBytes

IntersectMBO · May 6, 2024 · c4c900b · c4c900b
1 parent 45ef211
commit c4c900b
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/ouroboros-network-api/src/Ouroboros/Network/SizeInBytes.hs b/ouroboros-network-api/src/Ouroboros/Network/SizeInBytes.hs
@@ -5,15 +5,18 @@
 module Ouroboros.Network.SizeInBytes (SizeInBytes (..)) where
 
 import Control.DeepSeq (NFData (..))
+import Data.Monoid (Sum (..))
 import Data.Word (Word32)
 
 import NoThunks.Class (NoThunks (..))
 
 newtype SizeInBytes = SizeInBytes { getSizeInBytes :: Word32 }
   deriving (Show, Eq, Ord)
-  deriving Enum     via Word32
-  deriving Num      via Word32
-  deriving Real     via Word32
-  deriving Integral via Word32
-  deriving NoThunks via Word32
+  deriving Enum      via Word32
+  deriving Num       via Word32
+  deriving Real      via Word32
+  deriving Integral  via Word32
+  deriving NoThunks  via Word32
+  deriving Semigroup via Sum Word32
+  deriving Monoid    via Sum Word32
   deriving newtype NFData