From 3ea291cb99a08330222f280646aeba98fb6b8358 Mon Sep 17 00:00:00 2001 From: Nicolas Frisby Date: Tue, 17 Dec 2024 10:18:20 -0800 Subject: [PATCH] fixup 0937b86ab --- .../src/unstable-consensus-testlib/Test/Util/TestBlock.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs b/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs index b99e641c84..1ed6692306 100644 --- a/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs +++ b/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs @@ -306,14 +306,14 @@ newtype instance Header (TestBlockWith ptype) = instance Typeable ptype => ShowProxy (Header (TestBlockWith ptype)) where -instance (Typeable ptype, Eq ptype) => HasHeader (Header (TestBlockWith ptype)) where +instance Typeable ptype => HasHeader (Header (TestBlockWith ptype)) where getHeaderFields (TestHeader TestBlockWith{..}) = HeaderFields { headerFieldHash = tbHash , headerFieldSlot = tbSlot , headerFieldBlockNo = fromIntegral . NE.length . unTestHash $ tbHash } -instance (Typeable ptype, Eq ptype) => GetHeader (TestBlockWith ptype) (TestBlockWith ptype) where +instance Typeable ptype => GetHeader (TestBlockWith ptype) (TestBlockWith ptype) where getHeader = TestHeader instance (Typeable ptype, Eq ptype) => BlockSupportsHeader (TestBlockWith ptype) where