@@ -36,6 +36,9 @@ import Rel8.Table.Recontextualize ( Recontextualize )
36import Rel8.Table.Unreify ( Unreifiability(..), Unreifiable, unreifiability )
36import Rel8.Table.Unreify ( Unreifiability(..), Unreifiable, unreifiability )
39+-- | Nest a 'NonEmpty' list within a 'Rel8able'. @HNonEmpty f a@ will produce a
40+-- 'NonEmptyTable' @a@ in the 'Expr' context, and a 'NonEmpty' @a@ in the
39type HNonEmpty :: K.Context -> Type -> Type
42type HNonEmpty :: K.Context -> Type -> Type
40type family HNonEmpty context where
43type family HNonEmpty context where
41 HNonEmpty (Reify context) = AHNonEmpty context
44 HNonEmpty (Reify context) = AHNonEmpty context