diff options
| -rw-r--r-- | src/Data/Array/Mixed.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |