From 3802eba5b795dcdbc2b193302dfd8b024c985ea8 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 27 May 2024 19:18:41 +0200 Subject: Add some HList instances --- src/Data/Array/Mixed.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Data') diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs index bc392ad..3efa6a3 100644 --- a/src/Data/Array/Mixed.hs +++ b/src/Data/Array/Mixed.hs @@ -696,6 +696,8 @@ data HList f list where HNil :: HList f '[] HCons :: f a -> HList f l -> HList f (a : l) infixr 5 `HCons` +deriving instance (forall a. Show (f a)) => Show (HList f list) +deriving instance (forall a. Eq (f a)) => Eq (HList f list) foldHList :: Monoid m => (forall a. f a -> m) -> HList f list -> m foldHList _ HNil = mempty -- cgit v1.2.3-70-g09d2