Copyright	(c) 2016 Allele Dev; 2017 Ixperta Solutions s.r.o.; 2017 Alexis King
License	BSD3
Maintainer	Alexis King <lexi.lambda@gmail.com>
Stability	experimental
Portability	GHC specific language extensions.
Safe Haskell	None
Language	Haskell2010

Data.OpenUnion.Internal

Description

These are internal definitions and should be used with caution. There are no guarantees that the API of this module will be preserved between minor versions of this package.

Open unions (type-indexed co-products, i.e. type-indexed sums) for extensible effects All operations are constant-time.

Based on OpenUnion51.hs.

Type-list r :: [* -> *] of open union components is a small Universe. Therefore, we can use a Typeable-like evidence in that universe. In our case a simple index of an element in the type-list is sufficient substitution for Typeable.

Synopsis

data Union (r :: [Type -> Type]) a where
- Union :: !Word -> t a -> Union r a
unsafeInj :: Word -> t a -> Union r a
unsafePrj :: Word -> Union r a -> Maybe (t a)
newtype P t r = P {
- unP :: Word
}
class FindElem (t :: Type -> Type) (r :: [Type -> Type]) where
- elemNo :: P t r
class IfNotFound (t :: Type -> Type) (r :: [Type -> Type]) (w :: [Type -> Type])
class FindElem eff effs => Member (eff :: Type -> Type) effs where
- inj :: eff a -> Union effs a
- prj :: Union effs a -> Maybe (eff a)
decomp :: Union (t ': r) a -> Either (Union r a) (t a)
decomp0 :: Union '[t] a -> Either (Union '[] a) (t a)
extract :: Union '[t] a -> t a
weaken :: Union r a -> Union (any ': r) a
type family xs :++: ys where ...
class Weakens q where
- weakens :: Union r a -> Union (q :++: r) a

Documentation

data Union (r :: [Type -> Type]) a where Source #

Open union is a strong sum (existential with an evidence).

Constructors

Union :: !Word -> t a -> Union r a

unsafeInj :: Word -> t a -> Union r a Source #

Takes a request of type t :: * -> *, and injects it into the Union.

Summand is assigning a specified Word value, which is a position in the type-list (t ': r) :: * -> *.

This function is unsafe.

O(1)

unsafePrj :: Word -> Union r a -> Maybe (t a) Source #

Project a value of type Union (t ': r) :: * -> * into a possible summand of the type t :: * -> *. Nothing means that t :: * -> * is not the value stored in the Union (t ': r) :: * -> *.

It is assumed that summand is stored in the Union when the Word value is the same value as is stored in the Union.

This function is unsafe.

O(1)

newtype P t r Source #

Represents position of element t :: * -> * in a type list r :: [* -> *].

Constructors

P
Fields unP :: Word

class FindElem (t :: Type -> Type) (r :: [Type -> Type]) where Source #

Find an index of an element t :: * -> * in a type list r :: [* -> *]. The element must exist. The w :: [* -> *] type represents the entire list, prior to recursion, and it is used to produce better type errors.

This is essentially a compile-time computation without run-time overhead.

Methods

elemNo :: P t r Source #

Position of the element t :: * -> * in a type list r :: [* -> *].

Position is computed during compilation, i.e. there is no run-time overhead.

O(1)

Instances

Instances details

FindElem t r => FindElem t (t' ': r) Source #	Recursion; element is not at the current position, but is somewhere in the list.
Instance details Defined in Data.OpenUnion.Internal Methods elemNo :: P t (t' ': r) Source #
FindElem t (t ': r) Source #	Base case; element is at the current position in the list.
Instance details Defined in Data.OpenUnion.Internal Methods elemNo :: P t (t ': r) Source #

class IfNotFound (t :: Type -> Type) (r :: [Type -> Type]) (w :: [Type -> Type]) Source #

Instance resolution for this class fails with a custom type error if t :: * -> * is not in the list r :: [* -> *].

Instances

Instances details

IfNotFound t r w Source #	Pass if `r` is uninstantiated. The incoherence here is safe, since picking this instance doesn’t cause any variation in behavior, except possibly the production of an inferior error message. For more information, see lexi-lambda/freer-simple#3, which describes the motivation in more detail.
Instance details Defined in Data.OpenUnion.Internal
(TypeError (((('Text "\8216" :<>: 'ShowType t) :<>: 'Text "\8217 is not a member of the type-level list") :$$: (('Text " \8216" :<>: 'ShowType w) :<>: 'Text "\8217")) :$$: (('Text "In the constraint (" :<>: 'ShowType (Member t w)) :<>: 'Text ")")) :: Constraint) => IfNotFound t ('[] :: [Type -> Type]) w Source #	If we reach an empty list, that’s a failure, since it means the type isn’t in the list. For GHC >=8, we can render a custom type error that explicitly states what went wrong.
Instance details Defined in Data.OpenUnion.Internal
IfNotFound t r w => IfNotFound t (t' ': r) w Source #
Instance details Defined in Data.OpenUnion.Internal
IfNotFound t (t ': r) w Source #
Instance details Defined in Data.OpenUnion.Internal

class FindElem eff effs => Member (eff :: Type -> Type) effs where Source #

A constraint that requires that a particular effect, eff, is a member of the type-level list effs. This is used to parameterize an Eff computation over an arbitrary list of effects, so long as eff is somewhere in the list.

For example, a computation that only needs access to a cell of mutable state containing an Integer would likely use the following type:

Member (State Integer) effs => Eff effs ()

Methods

inj :: eff a -> Union effs a Source #

Takes a request of type t :: * -> *, and injects it into the Union.

O(1)

prj :: Union effs a -> Maybe (eff a) Source #

Project a value of type Union (t ': r) :: * -> * into a possible summand of the type t :: * -> *. Nothing means that t :: * -> * is not the value stored in the Union (t ': r) :: * -> *.

O(1)

Instances

Instances details

(FindElem t r, IfNotFound t r r) => Member t r Source #
Instance details Defined in Data.OpenUnion.Internal Methods inj :: t a -> Union r a Source # prj :: Union r a -> Maybe (t a) Source #

decomp :: Union (t ': r) a -> Either (Union r a) (t a) Source #

Orthogonal decomposition of a Union (t ': r) :: * -> *. Right value is returned if the Union (t ': r) :: * -> * contains t :: * -> *, and Left when it doesn't. Notice that Left value contains Union r :: * -> *, i.e. it can not contain t :: * -> *.

O(1)

decomp0 :: Union '[t] a -> Either (Union '[] a) (t a) Source #

Specialized version of decomp for efficiency.

O(1)

TODO: Check that it actually adds on efficiency.

extract :: Union '[t] a -> t a Source #

Specialised version of prj/decomp that works on an Union '[t] :: * -> * which contains only one specific summand. Hence the absence of Maybe, and Either.

O(1)

weaken :: Union r a -> Union (any ': r) a Source #

Inject whole Union r into a weaker Union (any ': r) that has one more summand.

O(1)

type family xs :++: ys where ... infixr 5 Source #

Equations

'[] :++: ys = ys
(x ': xs) :++: ys = x ': (xs :++: ys)

class Weakens q where Source #

Methods

weakens :: Union r a -> Union (q :++: r) a Source #

Instances

Instances details

Weakens ('[] :: [Type -> Type]) Source #
Instance details Defined in Data.OpenUnion.Internal Methods weakens :: forall k (r :: [Type -> Type]) (a :: k). Union r a -> Union ('[] :++: r) a Source #
Weakens xs => Weakens (x ': xs) Source #
Instance details Defined in Data.OpenUnion.Internal Methods weakens :: forall k (r :: [Type -> Type]) (a :: k). Union r a -> Union ((x ': xs) :++: r) a Source #