Data.Singletons.Base.TypeError

Defines a drop-in replacement for TypeError (from GHC.TypeLits) that can be used at the value level as well. Since this is a drop-in replacement, it is not recommended to import all of GHC.TypeLits and Data.Singletons.Base.TypeError at the same time, as many of the definitions in the latter deliberately clash with the former.

Documentation

type family TypeError (x :: PErrorMessage) :: a where ...

A drop-in replacement for TypeError. This also exists at the value-level as typeError.

Equations

TypeError x = TypeError (ConvertPErrorMessage x)

sTypeError :: HasCallStack => Sing err -> Sing (TypeError err)

The singleton for typeError.

Note that this is not quite as expressive as TypeError, as it is unable to handle ShowType constructors at all.

typeError :: HasCallStack => ErrorMessage -> a

The value-level counterpart to TypeError.

Note that this is not quite as expressive as TypeError, as it is unable to print the contents of ShowType constructors (it will simply print "<type>" in their place).

data ErrorMessage' s

A description of a custom type error.

This is a variation on ErrorMessage that is parameterized over what text type is used in the Text constructor. Instantiating it with Text gives you ErrorMessage, and instantiating it with Symbol gives you PErrorMessage.

Constructors

Text s

Show the text as is.

forall t. ShowType t

Pretty print the type. ShowType :: k -> ErrorMessage

(ErrorMessage' s) :<>: (ErrorMessage' s) infixl 6

Put two pieces of error message next to each other.

(ErrorMessage' s) :$$: (ErrorMessage' s) infixl 5

Stack two pieces of error message on top of each other.

Instances

SingKind PErrorMessage

Defined in Data.Singletons.Base.TypeError

Associated Types

type Demote PErrorMessage = (r :: Type)

Methods

fromSing :: forall (a :: PErrorMessage). Sing a -> Demote PErrorMessage

toSing :: Demote PErrorMessage -> SomeSing PErrorMessage

SingI2 ('(:$$:) :: ErrorMessage' Symbol -> ErrorMessage' Symbol -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing2 :: forall (x :: k1) (y :: k2). Sing x -> Sing y -> Sing (x ':$$: y)

SingI2 ('(:<>:) :: ErrorMessage' Symbol -> ErrorMessage' Symbol -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing2 :: forall (x :: k1) (y :: k2). Sing x -> Sing y -> Sing (x ':<>: y)

SingI1 ('Text :: Symbol -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ('Text x)

SingI e1 => SingI1 ('(:$$:) e1 :: ErrorMessage' Symbol -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing (e1 ':$$: x)

SingI e1 => SingI1 ('(:<>:) e1 :: ErrorMessage' Symbol -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing (e1 ':<>: x)

SingI1 ('ShowType :: t -> ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ('ShowType x)

SingI t => SingI ('Text t :: ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ('Text t)

SingI1 ((:$$:@#@$$) :: ErrorMessage' Symbol -> TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ((:$$:@#@$$) x)

SingI1 ((:<>:@#@$$) :: ErrorMessage' Symbol -> TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ((:<>:@#@$$) x)

(SingI e1, SingI e2) => SingI (e1 ':$$: e2 :: ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (e1 ':$$: e2)

(SingI e1, SingI e2) => SingI (e1 ':<>: e2 :: ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (e1 ':<>: e2)

SingI ty => SingI ('ShowType ty :: ErrorMessage' Symbol)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ('ShowType ty)

SingI ((:$$:@#@$) :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol ~> ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (:$$:@#@$)

SingI ((:<>:@#@$) :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol ~> ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (:<>:@#@$)

SingI (TextSym0 :: TyFun Symbol (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing TextSym0

SingI (TypeErrorSym0 :: TyFun PErrorMessage a -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing TypeErrorSym0

SuppressUnusedWarnings ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings (TypeErrorSym0 :: TyFun PErrorMessage a -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings (TextSym0 :: TyFun s (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SingI x => SingI ((:$$:@#@$$) x :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ((:$$:@#@$$) x)

SingI x => SingI ((:<>:@#@$$) x :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ((:<>:@#@$$) x)

SingI (ShowTypeSym0 :: TyFun t (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ShowTypeSym0

SuppressUnusedWarnings ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Demote PErrorMessage

Defined in Data.Singletons.Base.TypeError

type Demote PErrorMessage = ErrorMessage

type Sing

Defined in Data.Singletons.Base.TypeError

type Sing = SErrorMessage

type Apply (TypeErrorSym0 :: TyFun PErrorMessage k2 -> Type) (a6989586621679682320 :: PErrorMessage)

Defined in Data.Singletons.Base.TypeError

type Apply (TypeErrorSym0 :: TyFun PErrorMessage k2 -> Type) (a6989586621679682320 :: PErrorMessage) = TypeError a6989586621679682320 :: k2

type Apply (TextSym0 :: TyFun s (ErrorMessage' s) -> Type) (a6989586621679682310 :: s)

Defined in Data.Singletons.Base.TypeError

type Apply (TextSym0 :: TyFun s (ErrorMessage' s) -> Type) (a6989586621679682310 :: s) = 'Text a6989586621679682310

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type) (a6989586621679682312 :: t)

Defined in Data.Singletons.Base.TypeError

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type) (a6989586621679682312 :: t) = 'ShowType a6989586621679682312 :: ErrorMessage' s

type Apply ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682318 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682318 :: ErrorMessage' s) = a6989586621679682317 ':$$: a6989586621679682318

type Apply ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682315 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682315 :: ErrorMessage' s) = a6989586621679682314 ':<>: a6989586621679682315

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682317 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682317 :: ErrorMessage' s) = (:$$:@#@$$) a6989586621679682317

type Apply ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682314 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682314 :: ErrorMessage' s) = (:<>:@#@$$) a6989586621679682314

type ErrorMessage = ErrorMessage' Text

A value-level ErrorMessage' which uses Text as its text type.

type PErrorMessage = ErrorMessage' Symbol

A type-level ErrorMessage' which uses Symbol as its text kind.

type family Sing :: k -> Type

Instances

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SAll

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SAny

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SVoid

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SOrdering

type Sing

Defined in Data.Singletons.Base.TypeError

type Sing = SErrorMessage

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SNat

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple0

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SBool

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SChar

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SSymbol

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SIdentity :: Identity a -> Type

type Sing

Defined in Data.Monoid.Singletons

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Monoid.Singletons

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Ord.Singletons

type Sing = SDown :: Down a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SMax :: Max a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SMin :: Min a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SWrappedMonoid :: WrappedMonoid m -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SDual :: Dual a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SProduct :: Product a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal

type Sing = SSum :: Sum a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SNonEmpty :: NonEmpty a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SMaybe :: Maybe a -> Type

type Sing

A choice of singleton for the kind TYPE rep (for some RuntimeRep rep), an instantiation of which is the famous kind Type.

Conceivably, one could generalize this instance to `Sing @k` for any kind k, and remove all other Sing instances. We don't adopt this design, however, since it is far more convenient in practice to work with explicit singleton values than TypeReps (for instance, TypeReps are more difficult to pattern match on, and require extra runtime checks).

We cannot produce explicit singleton values for everything in TYPE rep, however, since it is an open kind, so we reach for TypeRep in this one particular case.

Defined in Data.Singletons.Base.TypeRepTYPE

type Sing = TypeRep :: TYPE rep -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SList :: [a] -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SEither :: Either a b -> Type

type Sing

Defined in Data.Proxy.Singletons

type Sing = SProxy :: Proxy t -> Type

type Sing

Defined in Data.Semigroup.Singletons

type Sing = SArg :: Arg a b -> Type

type Sing

Defined in Data.Singletons

type Sing = SWrappedSing :: WrappedSing a -> Type

type Sing

Defined in Data.Singletons

type Sing = SLambda :: (k1 ~> k2) -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple2 :: (a, b) -> Type

type Sing

Defined in Data.Functor.Const.Singletons

type Sing = SConst :: Const a b -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple3 :: (a, b, c) -> Type

type Sing

Defined in Data.Functor.Product.Singletons

type Sing = SProduct :: Product f g a -> Type

type Sing

Defined in Data.Functor.Sum.Singletons

type Sing = SSum :: Sum f g a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple4 :: (a, b, c, d) -> Type

type Sing

Defined in Data.Functor.Compose.Singletons

type Sing = SCompose :: Compose f g a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple5 :: (a, b, c, d, e) -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple6 :: (a, b, c, d, e, f) -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple7 :: (a, b, c, d, e, f, g) -> Type

data SErrorMessage :: PErrorMessage -> Type where

Constructors

SText :: Sing t -> SErrorMessage ('Text t)

SShowType :: Sing ty -> SErrorMessage ('ShowType ty)

(:%<>:) :: Sing e1 -> Sing e2 -> SErrorMessage (e1 ':<>: e2) infixl 6

(:%$$:) :: Sing e1 -> Sing e2 -> SErrorMessage (e1 ':$$: e2) infixl 5

type family ConvertPErrorMessage (a :: PErrorMessage) :: ErrorMessage where ...

Convert a PErrorMessage to a ErrorMessage from GHC.TypeLits.

Equations

ConvertPErrorMessage ('Text t) = 'Text t

ConvertPErrorMessage ('ShowType ty) = 'ShowType ty

ConvertPErrorMessage (e1 ':<>: e2) = ConvertPErrorMessage e1 ':<>: ConvertPErrorMessage e2

ConvertPErrorMessage (e1 ':$$: e2) = ConvertPErrorMessage e1 ':$$: ConvertPErrorMessage e2

showErrorMessage :: ErrorMessage -> String

Convert an ErrorMessage into a human-readable String.

Defunctionalization symbols

data TextSym0 :: (~>) s (ErrorMessage' (s :: Type))

Instances

SingI (TextSym0 :: TyFun Symbol (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing TextSym0

SuppressUnusedWarnings (TextSym0 :: TyFun s (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply (TextSym0 :: TyFun s (ErrorMessage' s) -> Type) (a6989586621679682310 :: s)

Defined in Data.Singletons.Base.TypeError

type Apply (TextSym0 :: TyFun s (ErrorMessage' s) -> Type) (a6989586621679682310 :: s) = 'Text a6989586621679682310

type family TextSym1 (a6989586621679682310 :: s) :: ErrorMessage' (s :: Type) where ...

Equations

TextSym1 a6989586621679682310 = 'Text a6989586621679682310

data ShowTypeSym0 :: (~>) t (ErrorMessage' (s :: Type))

Instances

SingI (ShowTypeSym0 :: TyFun t (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ShowTypeSym0

SuppressUnusedWarnings (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type) (a6989586621679682312 :: t)

Defined in Data.Singletons.Base.TypeError

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s) -> Type) (a6989586621679682312 :: t) = 'ShowType a6989586621679682312 :: ErrorMessage' s

type family ShowTypeSym1 (a6989586621679682312 :: t) :: ErrorMessage' (s :: Type) where ...

Equations

ShowTypeSym1 a6989586621679682312 = 'ShowType a6989586621679682312

data (:<>:@#@$) :: (~>) (ErrorMessage' s) ((~>) (ErrorMessage' s) (ErrorMessage' (s :: Type))) infixl 6

Instances

SingI ((:<>:@#@$) :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol ~> ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (:<>:@#@$)

SuppressUnusedWarnings ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682314 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:<>:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682314 :: ErrorMessage' s) = (:<>:@#@$$) a6989586621679682314

data (:<>:@#@$$) (a6989586621679682314 :: ErrorMessage' s) :: (~>) (ErrorMessage' s) (ErrorMessage' (s :: Type)) infixl 6

Instances

SingI1 ((:<>:@#@$$) :: ErrorMessage' Symbol -> TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ((:<>:@#@$$) x)

SingI x => SingI ((:<>:@#@$$) x :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ((:<>:@#@$$) x)

SuppressUnusedWarnings ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682315 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:<>:@#@$$) a6989586621679682314 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682315 :: ErrorMessage' s) = a6989586621679682314 ':<>: a6989586621679682315

type family (a6989586621679682314 :: ErrorMessage' s) :<>:@#@$$$ (a6989586621679682315 :: ErrorMessage' s) :: ErrorMessage' (s :: Type) where ... infixl 6

Equations

a6989586621679682314 :<>:@#@$$$ a6989586621679682315 = '(:<>:) a6989586621679682314 a6989586621679682315

data (:$$:@#@$) :: (~>) (ErrorMessage' s) ((~>) (ErrorMessage' s) (ErrorMessage' (s :: Type))) infixl 5

Instances

SingI ((:$$:@#@$) :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol ~> ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing (:$$:@#@$)

SuppressUnusedWarnings ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682317 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s) (ErrorMessage' s ~> ErrorMessage' s) -> Type) (a6989586621679682317 :: ErrorMessage' s) = (:$$:@#@$$) a6989586621679682317

data (:$$:@#@$$) (a6989586621679682317 :: ErrorMessage' s) :: (~>) (ErrorMessage' s) (ErrorMessage' (s :: Type)) infixl 5

Instances

SingI1 ((:$$:@#@$$) :: ErrorMessage' Symbol -> TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

liftSing :: forall (x :: k1). Sing x -> Sing ((:$$:@#@$$) x)

SingI x => SingI ((:$$:@#@$$) x :: TyFun (ErrorMessage' Symbol) (ErrorMessage' Symbol) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing ((:$$:@#@$$) x)

SuppressUnusedWarnings ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682318 :: ErrorMessage' s)

Defined in Data.Singletons.Base.TypeError

type Apply ((:$$:@#@$$) a6989586621679682317 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (a6989586621679682318 :: ErrorMessage' s) = a6989586621679682317 ':$$: a6989586621679682318

type family (a6989586621679682317 :: ErrorMessage' s) :$$:@#@$$$ (a6989586621679682318 :: ErrorMessage' s) :: ErrorMessage' (s :: Type) where ... infixl 5

Equations

a6989586621679682317 :$$:@#@$$$ a6989586621679682318 = '(:$$:) a6989586621679682317 a6989586621679682318

data TypeErrorSym0 :: (~>) PErrorMessage a

Instances

SingI (TypeErrorSym0 :: TyFun PErrorMessage a -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

sing :: Sing TypeErrorSym0

SuppressUnusedWarnings (TypeErrorSym0 :: TyFun PErrorMessage a -> Type)

Defined in Data.Singletons.Base.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply (TypeErrorSym0 :: TyFun PErrorMessage k2 -> Type) (a6989586621679682320 :: PErrorMessage)

Defined in Data.Singletons.Base.TypeError

type Apply (TypeErrorSym0 :: TyFun PErrorMessage k2 -> Type) (a6989586621679682320 :: PErrorMessage) = TypeError a6989586621679682320 :: k2

type family TypeErrorSym1 (a6989586621679682320 :: PErrorMessage) :: a where ...

Equations

TypeErrorSym1 a6989586621679682320 = TypeError a6989586621679682320