Safe Haskell | Trustworthy |
---|---|
Language | Haskell2010 |
GHC's DataKinds
language extension lifts data constructors, natural
numbers, and strings to the type level. This module provides the
primitives needed for working with type-level numbers (the Nat
kind),
strings (the Symbol
kind), and characters (the Char
kind). It also defines the TypeError
type
family, a feature that makes use of type-level strings to support user
defined type errors.
For now, this module is the API for working with type-level literals.
However, please note that it is a work in progress and is subject to change.
Once the design of the DataKinds
feature is more stable, this will be
considered only an internal GHC module, and the programmer interface for
working with type-level data will be defined in a separate library.
@since base-4.6.0.0
Synopsis
- data Natural
- type Nat = Natural
- data Symbol
- class KnownNat (n :: Nat) where
- natVal :: forall (n :: Nat) proxy. KnownNat n => proxy n -> Integer
- natVal' :: forall (n :: Nat). KnownNat n => Proxy# n -> Integer
- class KnownSymbol (n :: Symbol) where
- symbolSing :: SSymbol n
- symbolVal :: forall (n :: Symbol) proxy. KnownSymbol n => proxy n -> String
- symbolVal' :: forall (n :: Symbol). KnownSymbol n => Proxy# n -> String
- class KnownChar (n :: Char) where
- charVal :: forall (n :: Char) proxy. KnownChar n => proxy n -> Char
- charVal' :: forall (n :: Char). KnownChar n => Proxy# n -> Char
- data SomeNat = KnownNat n => SomeNat (Proxy n)
- data SomeSymbol = KnownSymbol n => SomeSymbol (Proxy n)
- data SomeChar = KnownChar n => SomeChar (Proxy n)
- someNatVal :: Integer -> Maybe SomeNat
- someSymbolVal :: String -> SomeSymbol
- someCharVal :: Char -> SomeChar
- sameNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> Maybe (a :~: b)
- sameSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> Maybe (a :~: b)
- sameChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> Maybe (a :~: b)
- decideNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b)
- decideSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b)
- decideChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b)
- data OrderingI (a :: k) (b :: k) where
- cmpNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> OrderingI a b
- cmpSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> OrderingI a b
- cmpChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> OrderingI a b
- data SNat (n :: Nat)
- data SSymbol (s :: Symbol)
- data SChar (s :: Char)
- pattern SNat :: () => KnownNat n => SNat n
- pattern SSymbol :: () => KnownSymbol s => SSymbol s
- pattern SChar :: () => KnownChar c => SChar c
- fromSNat :: forall (n :: Nat). SNat n -> Integer
- fromSSymbol :: forall (s :: Symbol). SSymbol s -> String
- fromSChar :: forall (c :: Char). SChar c -> Char
- withSomeSNat :: Integer -> (forall (n :: Nat). Maybe (SNat n) -> r) -> r
- withSomeSSymbol :: String -> (forall (s :: Symbol). SSymbol s -> r) -> r
- withSomeSChar :: Char -> (forall (c :: Char). SChar c -> r) -> r
- withKnownNat :: forall (n :: Nat) r. SNat n -> (KnownNat n => r) -> r
- withKnownSymbol :: forall (s :: Symbol) r. SSymbol s -> (KnownSymbol s => r) -> r
- withKnownChar :: forall (c :: Char) r. SChar c -> (KnownChar c => r) -> r
- type (<=) (x :: t) (y :: t) = Assert (x <=? y) (LeErrMsg x y :: Constraint)
- type (<=?) (m :: k) (n :: k) = OrdCond (Compare m n) 'True 'True 'False
- type family (a :: Natural) + (b :: Natural) :: Natural where ...
- type family (a :: Natural) * (b :: Natural) :: Natural where ...
- type family (a :: Natural) ^ (b :: Natural) :: Natural where ...
- type family (a :: Natural) - (b :: Natural) :: Natural where ...
- type family Div (a :: Natural) (b :: Natural) :: Natural where ...
- type family Mod (a :: Natural) (b :: Natural) :: Natural where ...
- type family Log2 (a :: Natural) :: Natural where ...
- type family AppendSymbol (a :: Symbol) (b :: Symbol) :: Symbol where ...
- type family CmpNat (a :: Natural) (b :: Natural) :: Ordering where ...
- type family CmpSymbol (a :: Symbol) (b :: Symbol) :: Ordering where ...
- type family CmpChar (a :: Char) (b :: Char) :: Ordering where ...
- type family ConsSymbol (a :: Char) (b :: Symbol) :: Symbol where ...
- type family UnconsSymbol (a :: Symbol) :: Maybe (Char, Symbol) where ...
- type family CharToNat (a :: Char) :: Natural where ...
- type family NatToChar (a :: Natural) :: Char where ...
- type family TypeError (a :: ErrorMessage) :: b where ...
- data ErrorMessage
Kinds
Natural number
Invariant: numbers <= 0xffffffffffffffff use the NS
constructor
Instances
A type synonym for Natural
.
Previously, this was an opaque data type, but it was changed to a type synonym.
@since base-4.16.0.0
(Kind) This is the kind of type-level symbols.
Instances
TestCoercion SSymbol Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
TestEquality SSymbol Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
type Compare (a :: Symbol) (b :: Symbol) Source # | |
Defined in GHC.Internal.Data.Type.Ord |
Linking type and value level
class KnownNat (n :: Nat) where Source #
This class gives the integer associated with a type-level natural. There are instances of the class for every concrete literal: 0, 1, 2, etc.
@since base-4.7.0.0
class KnownSymbol (n :: Symbol) where Source #
This class gives the string associated with a type-level symbol. There are instances of the class for every concrete literal: "hello", etc.
@since base-4.7.0.0
symbolSing :: SSymbol n Source #
symbolVal :: forall (n :: Symbol) proxy. KnownSymbol n => proxy n -> String Source #
@since base-4.7.0.0
symbolVal' :: forall (n :: Symbol). KnownSymbol n => Proxy# n -> String Source #
@since base-4.8.0.0
This type represents unknown type-level natural numbers.
@since base-4.10.0.0
Instances
Read SomeNat Source # | @since base-4.7.0.0 |
Show SomeNat Source # | @since base-4.7.0.0 |
Eq SomeNat Source # | @since base-4.7.0.0 |
Ord SomeNat Source # | @since base-4.7.0.0 |
data SomeSymbol Source #
This type represents unknown type-level symbols.
KnownSymbol n => SomeSymbol (Proxy n) | @since base-4.7.0.0 |
Instances
Read SomeSymbol Source # | @since base-4.7.0.0 |
Defined in GHC.Internal.TypeLits | |
Show SomeSymbol Source # | @since base-4.7.0.0 |
Defined in GHC.Internal.TypeLits | |
Eq SomeSymbol Source # | @since base-4.7.0.0 |
Defined in GHC.Internal.TypeLits (==) :: SomeSymbol -> SomeSymbol -> Bool Source # (/=) :: SomeSymbol -> SomeSymbol -> Bool Source # | |
Ord SomeSymbol Source # | @since base-4.7.0.0 |
Defined in GHC.Internal.TypeLits compare :: SomeSymbol -> SomeSymbol -> Ordering Source # (<) :: SomeSymbol -> SomeSymbol -> Bool Source # (<=) :: SomeSymbol -> SomeSymbol -> Bool Source # (>) :: SomeSymbol -> SomeSymbol -> Bool Source # (>=) :: SomeSymbol -> SomeSymbol -> Bool Source # max :: SomeSymbol -> SomeSymbol -> SomeSymbol Source # min :: SomeSymbol -> SomeSymbol -> SomeSymbol Source # |
Instances
Read SomeChar Source # | |
Show SomeChar Source # | |
Eq SomeChar Source # | |
Ord SomeChar Source # | |
Defined in GHC.Internal.TypeLits |
someNatVal :: Integer -> Maybe SomeNat Source #
Convert an integer into an unknown type-level natural.
@since base-4.7.0.0
someSymbolVal :: String -> SomeSymbol Source #
Convert a string into an unknown type-level symbol.
@since base-4.7.0.0
someCharVal :: Char -> SomeChar Source #
Convert a character into an unknown type-level char.
@since base-4.16.0.0
sameNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> Maybe (a :~: b) Source #
We either get evidence that this function was instantiated with the
same type-level numbers, or Nothing
.
@since base-4.7.0.0
sameSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> Maybe (a :~: b) Source #
We either get evidence that this function was instantiated with the
same type-level symbols, or Nothing
.
@since base-4.7.0.0
sameChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> Maybe (a :~: b) Source #
We either get evidence that this function was instantiated with the
same type-level characters, or Nothing
.
@since base-4.16.0.0
decideNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b) Source #
We either get evidence that this function was instantiated with the same type-level numbers, or that the type-level numbers are distinct.
@since base-4.19.0.0
decideSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b) Source #
We either get evidence that this function was instantiated with the same type-level symbols, or that the type-level symbols are distinct.
@since base-4.19.0.0
decideChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> Either ((a :~: b) -> Void) (a :~: b) Source #
We either get evidence that this function was instantiated with the same type-level characters, or that the type-level characters are distinct.
@since base-4.19.0.0
data OrderingI (a :: k) (b :: k) where Source #
Ordering data type for type literals that provides proof of their ordering.
@since base-4.16.0.0
LTI :: forall {k} (a :: k) (b :: k). Compare a b ~ 'LT => OrderingI a b | |
EQI :: forall {k} (a :: k). Compare a a ~ 'EQ => OrderingI a a | |
GTI :: forall {k} (a :: k) (b :: k). Compare a b ~ 'GT => OrderingI a b |
cmpNat :: forall (a :: Nat) (b :: Nat) proxy1 proxy2. (KnownNat a, KnownNat b) => proxy1 a -> proxy2 b -> OrderingI a b Source #
Like sameNat
, but if the numbers aren't equal, this additionally
provides proof of LT or GT.
@since base-4.16.0.0
cmpSymbol :: forall (a :: Symbol) (b :: Symbol) proxy1 proxy2. (KnownSymbol a, KnownSymbol b) => proxy1 a -> proxy2 b -> OrderingI a b Source #
Like sameSymbol
, but if the symbols aren't equal, this additionally
provides proof of LT or GT.
@since base-4.16.0.0
cmpChar :: forall (a :: Char) (b :: Char) proxy1 proxy2. (KnownChar a, KnownChar b) => proxy1 a -> proxy2 b -> OrderingI a b Source #
Like sameChar
, but if the Chars aren't equal, this additionally
provides proof of LT or GT.
@since base-4.16.0.0
Singleton values
A value-level witness for a type-level natural number. This is commonly
referred to as a singleton type, as for each n
, there is a single value
that inhabits the type
(aside from bottom).SNat
n
The definition of SNat
is intentionally left abstract. To obtain an SNat
value, use one of the following:
- The
natSing
method ofKnownNat
. - The
SNat
pattern synonym. - The
withSomeSNat
function, which creates anSNat
from aNatural
number.
@since base-4.18.0.0
Instances
TestCoercion SNat Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeNats | |
TestEquality SNat Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeNats | |
Show (SNat n) Source # | @since base-4.18.0.0 |
Eq (SNat n) Source # | @since base-4.19.0.0 |
Ord (SNat n) Source # | @since base-4.19.0.0 |
Defined in GHC.Internal.TypeNats |
data SSymbol (s :: Symbol) Source #
A value-level witness for a type-level symbol. This is commonly referred
to as a singleton type, as for each s
, there is a single value that
inhabits the type
(aside from bottom).SSymbol
s
The definition of SSymbol
is intentionally left abstract. To obtain an
SSymbol
value, use one of the following:
- The
symbolSing
method ofKnownSymbol
. - The
SSymbol
pattern synonym. - The
withSomeSSymbol
function, which creates anSSymbol
from aString
.
@since base-4.18.0.0
Instances
TestCoercion SSymbol Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
TestEquality SSymbol Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
Show (SSymbol s) Source # | @since base-4.18.0.0 |
Eq (SSymbol s) Source # | @since base-4.19.0.0 |
Ord (SSymbol s) Source # | @since base-4.19.0.0 |
Defined in GHC.Internal.TypeLits |
data SChar (s :: Char) Source #
A value-level witness for a type-level character. This is commonly referred
to as a singleton type, as for each c
, there is a single value that
inhabits the type
(aside from bottom).SChar
c
The definition of SChar
is intentionally left abstract. To obtain an
SChar
value, use one of the following:
- The
charSing
method ofKnownChar
. - The
SChar
pattern synonym. - The
withSomeSChar
function, which creates anSChar
from aChar
.
@since base-4.18.0.0
Instances
TestCoercion SChar Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
TestEquality SChar Source # | @since base-4.18.0.0 |
Defined in GHC.Internal.TypeLits | |
Show (SChar c) Source # | @since base-4.18.0.0 |
Eq (SChar c) Source # | @since base-4.19.0.0 |
Ord (SChar c) Source # | @since base-4.19.0.0 |
pattern SNat :: () => KnownNat n => SNat n Source #
A explicitly bidirectional pattern synonym relating an SNat
to a
KnownNat
constraint.
As an expression: Constructs an explicit
value from an
implicit SNat
n
constraint:KnownNat
n
SNat @n ::KnownNat
n =>SNat
n
As a pattern: Matches on an explicit
value bringing
an implicit SNat
n
constraint into scope:KnownNat
n
f :: SNat
n -> ..
f SNat = {- KnownNat n in scope -}
@since base-4.18.0.0
pattern SSymbol :: () => KnownSymbol s => SSymbol s Source #
A explicitly bidirectional pattern synonym relating an SSymbol
to a
KnownSymbol
constraint.
As an expression: Constructs an explicit
value from an
implicit SSymbol
s
constraint:KnownSymbol
s
SSymbol @s ::KnownSymbol
s =>SSymbol
s
As a pattern: Matches on an explicit
value bringing
an implicit SSymbol
s
constraint into scope:KnownSymbol
s
f :: SSymbol
s -> ..
f SSymbol = {- KnownSymbol s in scope -}
@since base-4.18.0.0
pattern SChar :: () => KnownChar c => SChar c Source #
A explicitly bidirectional pattern synonym relating an SChar
to a
KnownChar
constraint.
As an expression: Constructs an explicit
value from an
implicit SChar
c
constraint:KnownChar
c
SChar @c ::KnownChar
c =>SChar
c
As a pattern: Matches on an explicit
value bringing
an implicit SChar
c
constraint into scope:KnownChar
c
f :: SChar
c -> ..
f SChar = {- KnownChar c in scope -}
@since base-4.18.0.0
fromSNat :: forall (n :: Nat). SNat n -> Integer Source #
Return the Integer
corresponding to n
in an
value.
The returned SNat
nInteger
is always non-negative.
For a version of this function that returns a Natural
instead of an
Integer
, see fromSNat
in GHC.TypeNats.
@since base-4.18.0.0
fromSSymbol :: forall (s :: Symbol). SSymbol s -> String Source #
Return the String corresponding to s
in an
value.SSymbol
s
@since base-4.18.0.0
withSomeSNat :: Integer -> (forall (n :: Nat). Maybe (SNat n) -> r) -> r Source #
Attempt to convert an Integer
into an
value, where SNat
nn
is a
fresh type-level natural number. If the Integer
argument is non-negative,
invoke the continuation with Just sn
, where sn
is the
value.
If the SNat
nInteger
argument is negative, invoke the continuation with
Nothing
.
For a version of this function where the continuation uses 'SNat
n
instead of
Maybe
(SNat
n)@, see withSomeSNat
in GHC.TypeNats.
@since base-4.18.0.0
withKnownSymbol :: forall (s :: Symbol) r. SSymbol s -> (KnownSymbol s => r) -> r Source #
Convert an explicit
value into an implicit SSymbol
s
constraint.KnownSymbol
s
@since base-4.18.0.0
Functions on type literals
type (<=) (x :: t) (y :: t) = Assert (x <=? y) (LeErrMsg x y :: Constraint) infix 4 Source #
Comparison (<=) of comparable types, as a constraint.
@since base-4.16.0.0
type (<=?) (m :: k) (n :: k) = OrdCond (Compare m n) 'True 'True 'False infix 4 Source #
Comparison (<=) of comparable types, as a function.
@since base-4.16.0.0
type family (a :: Natural) + (b :: Natural) :: Natural where ... infixl 6 Source #
Addition of type-level naturals.
@since base-4.7.0.0
type family (a :: Natural) * (b :: Natural) :: Natural where ... infixl 7 Source #
Multiplication of type-level naturals.
@since base-4.7.0.0
type family (a :: Natural) ^ (b :: Natural) :: Natural where ... infixr 8 Source #
Exponentiation of type-level naturals.
@since base-4.7.0.0
type family (a :: Natural) - (b :: Natural) :: Natural where ... infixl 6 Source #
Subtraction of type-level naturals.
@since base-4.7.0.0
type family Div (a :: Natural) (b :: Natural) :: Natural where ... infixl 7 Source #
Division (round down) of natural numbers.
Div x 0
is undefined (i.e., it cannot be reduced).
@since base-4.11.0.0
type family Mod (a :: Natural) (b :: Natural) :: Natural where ... infixl 7 Source #
Modulus of natural numbers.
Mod x 0
is undefined (i.e., it cannot be reduced).
@since base-4.11.0.0
type family Log2 (a :: Natural) :: Natural where ... Source #
Log base 2 (round down) of natural numbers.
Log 0
is undefined (i.e., it cannot be reduced).
@since base-4.11.0.0
type family AppendSymbol (a :: Symbol) (b :: Symbol) :: Symbol where ... Source #
Concatenation of type-level symbols.
@since base-4.10.0.0
type family CmpNat (a :: Natural) (b :: Natural) :: Ordering where ... Source #
Comparison of type-level naturals, as a function.
@since base-4.7.0.0
type family CmpSymbol (a :: Symbol) (b :: Symbol) :: Ordering where ... Source #
Comparison of type-level symbols, as a function.
@since base-4.7.0.0
type family CmpChar (a :: Char) (b :: Char) :: Ordering where ... Source #
Comparison of type-level characters.
@since base-4.16.0.0
type family ConsSymbol (a :: Char) (b :: Symbol) :: Symbol where ... Source #
Extending a type-level symbol with a type-level character
@since base-4.16.0.0
type family CharToNat (a :: Char) :: Natural where ... Source #
Convert a character to its Unicode code point (cf. ord
)
@since base-4.16.0.0
type family NatToChar (a :: Natural) :: Char where ... Source #
Convert a Unicode code point to a character (cf. chr
)
@since base-4.16.0.0
User-defined type errors
type family TypeError (a :: ErrorMessage) :: b where ... Source #
The type-level equivalent of error
.
The polymorphic kind of this type allows it to be used in several settings. For instance, it can be used as a constraint, e.g. to provide a better error message for a non-existent instance,
-- in a context
instance TypeError (Text "Cannot Show
functions." :$$:
Text "Perhaps there is a missing argument?")
=> Show (a -> b) where
showsPrec = error "unreachable"
It can also be placed on the right-hand side of a type-level function to provide an error for an invalid case,
type family ByteSize x where ByteSize Word16 = 2 ByteSize Word8 = 1 ByteSize a = TypeError (Text "The type " :<>: ShowType a :<>: Text " is not exportable.")
@since base-4.9.0.0
data ErrorMessage Source #
A description of a custom type error.
Text Symbol | Show the text as is. |
ShowType t | Pretty print the type.
|
ErrorMessage :<>: ErrorMessage infixl 6 | Put two pieces of error message next to each other. |
ErrorMessage :$$: ErrorMessage infixl 5 | Stack two pieces of error message on top of each other. |