fixup 0937b86

IntersectMBO · Dec 17, 2024 · 3ea291c · 3ea291c
1 parent 8ee9df8
commit 3ea291c
Showing 1 changed file with 2 additions and 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
@@ -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