Data.Singletons.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.TypeError at the same time, as many of the definitons in the latter deliberately clash with the former.

Documentation

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

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

Equations

TypeError a = TypeError (ConvertPErrorMessage a)

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.TypeError

Associated Types

type Demote PErrorMessage = (r :: Type)

Methods

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

toSing :: Demote PErrorMessage -> SomeSing PErrorMessage

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing ('Text t)

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing ('ShowType ty)

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing TypeErrorSym0

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing TextSym0

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing ShowTypeSym0

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

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

SuppressUnusedWarnings (ShowTypeSym0 :: TyFun t6989586621681331132 (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings ((:<>:@#@$$) t6989586621681331879 :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

SuppressUnusedWarnings ((:$$:@#@$$) t6989586621681331883 :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

type Demote PErrorMessage

Defined in Data.Singletons.TypeError

type Demote PErrorMessage = ErrorMessage

type Sing

Defined in Data.Singletons.TypeError

type Sing = SErrorMessage

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

Defined in Data.Singletons.TypeError

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

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

Defined in Data.Singletons.TypeError

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

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331877 :: t)

Defined in Data.Singletons.TypeError

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331877 :: t) = 'ShowType t6989586621681331877 :: ErrorMessage' s6989586621681331131

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

Defined in Data.Singletons.TypeError

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

type Apply ((:$$:@#@$$) t6989586621681331883 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (t6989586621681331884 :: ErrorMessage' s)

Defined in Data.Singletons.TypeError

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

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

Defined in Data.Singletons.TypeError

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

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131 ~> ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331883 :: ErrorMessage' s6989586621681331131)

Defined in Data.Singletons.TypeError

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

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

The singleton kind-indexed type family.

Instances

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = SBool

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = SOrdering

type Sing

Defined in Data.Singletons.TypeLits.Internal

type Sing = SNat

type Sing

Defined in Data.Singletons.TypeLits.Internal

type Sing = SSymbol

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = STuple0

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = SVoid

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SAll

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SAny

type Sing

Defined in Data.Singletons.TypeError

type Sing = SErrorMessage

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.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.TypeRepTYPE

type Sing = TypeRep :: TYPE rep -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SMin :: Min a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SMax :: Max a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SWrappedMonoid :: WrappedMonoid m -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SOption :: Option a -> Type

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = SIdentity :: Identity a -> Type

type Sing

Defined in Data.Singletons.Prelude.Monoid

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Singletons.Prelude.Monoid

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SDual :: Dual a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SSum :: Sum a -> Type

type Sing

Defined in Data.Singletons.Prelude.Semigroup.Internal

type Sing = SProduct :: Product a -> Type

type Sing

Defined in Data.Singletons.Prelude.Ord

type Sing = SDown :: Down a -> Type

type Sing

Defined in Data.Singletons.Prelude.Instances

type Sing = SNonEmpty :: NonEmpty a -> Type

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.Semigroup

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

type Sing

Defined in Data.Singletons.Internal

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

type Sing

Defined in Data.Singletons.Internal

type Sing = SWrappedSing :: WrappedSing a -> Type

type Sing

Defined in Data.Singletons.Sigma

type Sing = SSigma :: Sigma s t -> Type

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.Const

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

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.Instances

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

type Sing

Defined in Data.Singletons.Prelude.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 :: forall (s6989586621681331131 :: Type). (~>) s6989586621681331131 (ErrorMessage' (s6989586621681331131 :: Type))

Instances

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing TextSym0

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

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

type TextSym1 (t6989586621681331875 :: s6989586621681331131) = 'Text t6989586621681331875

data ShowTypeSym0 :: forall t6989586621681331132 (s6989586621681331131 :: Type). (~>) t6989586621681331132 (ErrorMessage' (s6989586621681331131 :: Type))

Instances

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing ShowTypeSym0

SuppressUnusedWarnings (ShowTypeSym0 :: TyFun t6989586621681331132 (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331877 :: t)

Defined in Data.Singletons.TypeError

type Apply (ShowTypeSym0 :: TyFun t (ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331877 :: t) = 'ShowType t6989586621681331877 :: ErrorMessage' s6989586621681331131

type ShowTypeSym1 (t6989586621681331877 :: t6989586621681331132) = 'ShowType t6989586621681331877

data (:<>:@#@$) :: forall (s6989586621681331131 :: Type). (~>) (ErrorMessage' s6989586621681331131) ((~>) (ErrorMessage' s6989586621681331131) (ErrorMessage' (s6989586621681331131 :: Type))) infixl 6

Instances

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

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

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

Instances

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

Defined in Data.Singletons.TypeError

Methods

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

SuppressUnusedWarnings ((:<>:@#@$$) t6989586621681331879 :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

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

type (:<>:@#@$$$) (t6989586621681331879 :: ErrorMessage' s6989586621681331131) (t6989586621681331880 :: ErrorMessage' s6989586621681331131) = '(:<>:) t6989586621681331879 t6989586621681331880

data (:$$:@#@$) :: forall (s6989586621681331131 :: Type). (~>) (ErrorMessage' s6989586621681331131) ((~>) (ErrorMessage' s6989586621681331131) (ErrorMessage' (s6989586621681331131 :: Type))) infixl 5

Instances

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

Defined in Data.Singletons.TypeError

Methods

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

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:$$:@#@$) :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131 ~> ErrorMessage' s6989586621681331131) -> Type) (t6989586621681331883 :: ErrorMessage' s6989586621681331131)

Defined in Data.Singletons.TypeError

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

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

Instances

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

Defined in Data.Singletons.TypeError

Methods

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

SuppressUnusedWarnings ((:$$:@#@$$) t6989586621681331883 :: TyFun (ErrorMessage' s6989586621681331131) (ErrorMessage' s6989586621681331131) -> Type)

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

type Apply ((:$$:@#@$$) t6989586621681331883 :: TyFun (ErrorMessage' s) (ErrorMessage' s) -> Type) (t6989586621681331884 :: ErrorMessage' s)

Defined in Data.Singletons.TypeError

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

type (:$$:@#@$$$) (t6989586621681331883 :: ErrorMessage' s6989586621681331131) (t6989586621681331884 :: ErrorMessage' s6989586621681331131) = '(:$$:) t6989586621681331883 t6989586621681331884

data TypeErrorSym0 :: forall b6989586621681331115. (~>) PErrorMessage b6989586621681331115

Instances

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

Defined in Data.Singletons.TypeError

Methods

sing :: Sing TypeErrorSym0

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

Defined in Data.Singletons.TypeError

Methods

suppressUnusedWarnings :: ()

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

Defined in Data.Singletons.TypeError

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

type TypeErrorSym1 (a6989586621681331116 :: PErrorMessage) = TypeError a6989586621681331116