module Data.Extensible.Class (
Extensible(..)
, piece
, pieceAssoc
, Membership
, mkMembership
, Member(..)
, remember
, (∈)()
, FindType
, Assoc(..)
, Associate(..)
, FindAssoc
, Elaborate
, Elaborated(..)
) where
import Data.Extensible.Internal
class Extensible f p q (t :: (k -> *) -> [k] -> *) where
pieceAt :: Membership xs x -> p (h x) (f (h x)) -> q (t h xs) (f (t h xs))
piece :: (x ∈ xs, Extensible f p q t) => p (h x) (f (h x)) -> q (t h xs) (f (t h xs))
piece = pieceAt membership
pieceAssoc :: (Associate k v xs, Extensible f p q t) => p (h (k ':> v)) (f (h (k ':> v))) -> q (t h xs) (f (t h xs))
pieceAssoc = pieceAt association