aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2024-05-27 19:18:41 +0200
committerTom Smeding <tom@tomsmeding.com>2024-05-27 19:18:41 +0200
commit3802eba5b795dcdbc2b193302dfd8b024c985ea8 (patch)
tree24bf298bc0d8be2f64e0713e792a20ade7d3c8a4 /src
parentd68d58192065c60be420a9d8cabd731e5cc7e105 (diff)
Add some HList instances
Diffstat (limited to 'src')
-rw-r--r--src/Data/Array/Mixed.hs2
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