diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-05-27 19:18:41 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-05-27 19:18:41 +0200 |
| commit | 3802eba5b795dcdbc2b193302dfd8b024c985ea8 (patch) | |
| tree | 24bf298bc0d8be2f64e0713e792a20ade7d3c8a4 /src/Data/Array/Mixed.hs | |
| parent | d68d58192065c60be420a9d8cabd731e5cc7e105 (diff) | |
Add some HList instances
Diffstat (limited to 'src/Data/Array/Mixed.hs')
| -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 |