From e57610261abbea15ef7aebcf2020091d3a5af2f1 Mon Sep 17 00:00:00 2001 From: Javier Sagredo Date: Thu, 11 Apr 2024 13:49:19 +0200 Subject: [PATCH] Add orphan `NoThunks (Sum a)` instance --- .../ouroboros-consensus/Ouroboros/Consensus/Util/Orphans.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/Orphans.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/Orphans.hs index 3a8795efaf..5d77ffab6b 100644 --- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/Orphans.hs +++ b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/Orphans.hs @@ -22,6 +22,7 @@ import Data.Bimap (Bimap) import qualified Data.Bimap as Bimap import Data.IntPSQ (IntPSQ) import qualified Data.IntPSQ as PSQ +import Data.Monoid import Data.SOP.BasicFunctors import NoThunks.Class (InspectHeap (..), InspectHeapNamed (..), NoThunks (..), OnlyCheckWhnfNamed (..), allNoThunks, @@ -98,6 +99,8 @@ instance NoThunks a => NoThunks (K a b) where showTypeOf _ = showTypeOf (Proxy @a) wNoThunks ctxt (K a) = wNoThunks ("K":ctxt) a +instance NoThunks a => NoThunks (Sum a) + {------------------------------------------------------------------------------- fs-api -------------------------------------------------------------------------------}