- ) => HMappable f (x :*: xs) where
- type HMap f (x :*: xs) = Apply f x :*: HMap f xs
- hMap f (x :*: xs) = apply f x .*. hMap f xs
+ , HList (HMap f xs)
+ ) => HMappable f (HCons x xs) where
+ type HMap f (HCons x xs) = HCons (Apply f x) (HMap f xs)
+ hMap f (HCons x xs) = hCons (apply f x) (hMap f xs)
+
+-- HAllable
+class HAllable f l where
+ type HAll f l
+ hAll :: f -> l -> HAll f l
+
+instance HAllable f HNil where
+ type HAll f HNil = True
+ hAll _ _ = undefined :: True
+
+instance ( IfT (Apply f x) (HAll f xs) False
+ , Applyable f x
+ , HAllable f xs
+ ) => HAllable f (HCons x xs) where
+ type HAll f (HCons x xs) = If (Apply f x)
+ (HAll f xs)
+ False
+ hAll f (HCons x xs) = ifT (apply f x)
+ (hAll f xs)
+ (undefined :: False)
+
+-- HLength
+type family HLength l
+type instance HLength HNil = D0
+type instance HLength (HCons e l) = Succ (HLength l)