Data.GI.Base.Overloading

Helpers for dealing with GObjects.

Type level inheritance

type family ParentTypes a :: [*]

The direct parents of this object: its direct parent type, if any, and the interfaces it implements. The interfaces inherited from parent types can be omitted.

type family IsDescendantOf (parent :: *) (descendant :: *) :: Constraint where ...

Check that a type is in the list of GObjectParents of another GObject-derived type.

Equations

IsDescendantOf d d = () ~ ()

IsDescendantOf p d = CheckForAncestorType d p (ParentTypes d) ~ HasAncestor p d

type family UnknownAncestorError (a :: *) (t :: *) where ...

Type error to be generated when an ancestor check fails.

Equations

UnknownAncestorError a t = TypeError ((((Text "Required ancestor \8216" :<>: ShowType a) :<>: Text "\8217 not found for type \8216") :<>: ShowType t) :<>: Text "\8217.")

Looking up attributes in parent types

type family AttributeList a :: [(Symbol, *)]

The list of attributes defined for a given type. Each element of the list is a tuple, with the first element of the tuple the name of the attribute, and the second the type encoding the information of the attribute. This type will be an instance of AttrInfo.

class HasAttributeList a

A constraint on a type, to be fulfilled whenever it has a type instance for AttributeList. This is here for nicer error reporting.

Instances

(TypeError ((Text "Type \8216" :<>: ShowType a) :<>: Text "\8217 does not have any known attributes.") :: Constraint) => HasAttributeList (a :: k)

type family ResolveAttribute (s :: Symbol) (o :: *) :: * where ...

Return the type encoding the attribute information for a given type and attribute.

Equations

ResolveAttribute s o = FindElement s (AttributeList o) ((((Text "Unknown attribute \8216" :<>: Text s) :<>: Text "\8217 for object \8216") :<>: ShowType o) :<>: Text "\8217.")

type family HasAttribute (attr :: Symbol) (o :: *) where ...

A constraint imposing that the given object has the given attribute.

Equations

HasAttribute attr o = IsElem attr (AttributeList o) HasAttribute ((((Text "Attribute \8216" :<>: Text attr) :<>: Text "\8217 not found for type \8216") :<>: ShowType o) :<>: Text "\8217.") ~ HasAttribute

class HasAttr (attr :: Symbol) (o :: *)

A constraint that enforces that the given type has a given attribute.

Instances

HasAttribute attr o => HasAttr attr o

Looking up signals in parent types

type family SignalList a :: [(Symbol, *)]

The list of signals defined for a given type. Each element of the list is a tuple, with the first element of the tuple the name of the signal, and the second the type encoding the information of the signal. This type will be an instance of SignalInfo.

type family ResolveSignal (s :: Symbol) (o :: *) :: * where ...

Return the type encoding the signal information for a given type and signal.

Equations

ResolveSignal s o = FindElement s (SignalList o) ((((Text "Unknown signal \8216" :<>: Text s) :<>: Text "\8217 for object \8216") :<>: ShowType o) :<>: Text "\8217.")

type family HasSignal (s :: Symbol) (o :: *) where ...

A constraint enforcing that the signal exists for the given object, or one of its ancestors.

Equations

HasSignal s o = IsElem s (SignalList o) HasSignal ((((Text "Signal \8216" :<>: Text s) :<>: Text "\8217 not found for type \8216") :<>: ShowType o) :<>: Text "\8217.") ~ HasSignal

Looking up methods in parent types

class MethodInfo i o s where

Class for types containing the information about an overloaded method of type `o -> s`.

Minimal complete definition

overloadedMethod

Methods

overloadedMethod :: MethodProxy i -> o -> s

data MethodProxy a

Proxy for passing a type to overloadedMethod. We do not use Proxy directly since it clashes with types defined in the autogenerated bindings.

Constructors

MethodProxy

type family MethodResolutionFailed (method :: Symbol) (o :: *) where ...

Equations

MethodResolutionFailed m o = TypeError ((((Text "Unknown method \8216" :<>: Text m) :<>: Text "\8217 for type \8216") :<>: ShowType o) :<>: Text "\8217.")

Overloaded labels

class IsLabelProxy (x :: Symbol) a where

Support for overloaded labels in ghc < 8.0. This is like the IsLabel class introduced in ghc 8.0 (for use with the OverloadedLabels extension) with the difference that the Proxy argument is lifted. (Using the unlifted Proxy# type in user code is a bit of a pain, hence the choice.)

Minimal complete definition

fromLabelProxy

Methods

fromLabelProxy :: Proxy x -> a

Instances

a ~ x => IsLabelProxy x (AttrLabelProxy a)

Support for overloaded labels.

Methods

fromLabelProxy :: Proxy x -> AttrLabelProxy a

info ~ ResolveSignal slot object => IsLabelProxy slot (SignalProxy object info)

Support for overloaded labels.

Methods

fromLabelProxy :: Proxy slot -> SignalProxy object info

class IsLabel (x :: Symbol) a where

Minimal complete definition

fromLabel

Methods

fromLabel :: a

Instances

a ~ x => IsLabel x (AttrLabelProxy a)

Methods

fromLabel :: AttrLabelProxy a

info ~ ResolveSignal slot object => IsLabel slot (SignalProxy object info)

Methods

fromLabel :: SignalProxy object info