, HFoldrable(..)
, HConcatable(..)
, HMappable(..)
+ , HAllable(..)
+
+ , HLength
)
where
import Data.Typeable
+import Types.Data.Bool
+import Types.Data.Num hiding ((:*:))
-- HList
) => 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)