Copyright | (C) 2014 Richard Eisenberg |
---|---|
License | BSD-style (see LICENSE) |
Maintainer | Richard Eisenberg (rae@cs.brynmawr.edu) |
Stability | experimental |
Portability | non-portable |
Safe Haskell | None |
Language | Haskell2010 |
Defines and exports singletons useful for the Nat and Symbol kinds.
Synopsis
- data Nat
- data Symbol
- data family Sing (a :: k)
- type SNat (x :: Nat) = Sing x
- type SSymbol (x :: Symbol) = Sing x
- withKnownNat :: Sing n -> (KnownNat n => r) -> r
- withKnownSymbol :: Sing n -> (KnownSymbol n => r) -> r
- type family Error (str :: k0) :: k where ...
- sError :: Sing (str :: Symbol) -> a
- type family Undefined :: k where ...
- sUndefined :: a
- class KnownNat (n :: Nat)
- natVal :: KnownNat n => proxy n -> Natural
- class KnownSymbol (n :: Symbol)
- symbolVal :: KnownSymbol n => proxy n -> String
- type family (a :: Nat) ^ (b :: Nat) :: Nat where ...
- (%^) :: Sing a -> Sing b -> Sing (a ^ b)
- type (<>) a b = AppendSymbol a b
- (%<>) :: Sing a -> Sing b -> Sing (a <> b)
- type family Log2 (a :: Nat) :: Nat where ...
- sLog2 :: Sing x -> Sing (Log2 x)
- type family Div (a :: Nat) (b :: Nat) :: Nat where ...
- sDiv :: Sing x -> Sing y -> Sing (Div x y)
- type family Mod (a :: Nat) (b :: Nat) :: Nat where ...
- sMod :: Sing x -> Sing y -> Sing (Mod x y)
- type family DivMod (a :: Nat) (a :: Nat) :: (Nat, Nat) where ...
- sDivMod :: Sing x -> Sing y -> Sing (DivMod x y)
- type family Quot (a :: Nat) (a :: Nat) :: Nat where ...
- sQuot :: Sing x -> Sing y -> Sing (Quot x y)
- type family Rem (a :: Nat) (a :: Nat) :: Nat where ...
- sRem :: Sing x -> Sing y -> Sing (Rem x y)
- type family QuotRem (a :: Nat) (a :: Nat) :: (Nat, Nat) where ...
- sQuotRem :: Sing x -> Sing y -> Sing (QuotRem x y)
- data ErrorSym0 (l :: TyFun k06989586621679403140 k6989586621679403141)
- type ErrorSym1 (t :: k06989586621679403140) = Error t
- type UndefinedSym0 = Undefined
- data KnownNatSym0 (l :: TyFun Nat Constraint)
- type KnownNatSym1 (t :: Nat) = KnownNat t
- data KnownSymbolSym0 (l :: TyFun Symbol Constraint)
- type KnownSymbolSym1 (t :: Symbol) = KnownSymbol t
- data (^@#@$) (l :: TyFun Nat (TyFun Nat Nat -> Type))
- data (l :: Nat) ^@#@$$ (l :: TyFun Nat Nat)
- type (^@#@$$$) (t :: Nat) (t :: Nat) = (^) t t
- data (<>@#@$) l
- data (l :: Symbol) <>@#@$$ l
- type (<>@#@$$$) (t :: Symbol) (t :: Symbol) = (<>) t t
- data Log2Sym0 (l :: TyFun Nat Nat)
- type Log2Sym1 (t :: Nat) = Log2 t
- data DivSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type))
- data DivSym1 (l :: Nat) (l :: TyFun Nat Nat)
- type DivSym2 (t :: Nat) (t :: Nat) = Div t t
- data ModSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type))
- data ModSym1 (l :: Nat) (l :: TyFun Nat Nat)
- type ModSym2 (t :: Nat) (t :: Nat) = Mod t t
- data DivModSym0 (l :: TyFun Nat (TyFun Nat (Nat, Nat) -> Type))
- data DivModSym1 (l :: Nat) (l :: TyFun Nat (Nat, Nat))
- type DivModSym2 (t :: Nat) (t :: Nat) = DivMod t t
- data QuotSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type))
- data QuotSym1 (l :: Nat) (l :: TyFun Nat Nat)
- type QuotSym2 (t :: Nat) (t :: Nat) = Quot t t
- data RemSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type))
- data RemSym1 (l :: Nat) (l :: TyFun Nat Nat)
- type RemSym2 (t :: Nat) (t :: Nat) = Rem t t
- data QuotRemSym0 (l :: TyFun Nat (TyFun Nat (Nat, Nat) -> Type))
- data QuotRemSym1 (l :: Nat) (l :: TyFun Nat (Nat, Nat))
- type QuotRemSym2 (t :: Nat) (t :: Nat) = QuotRem t t
Documentation
(Kind) This is the kind of type-level natural numbers.
Instances
(Kind) This is the kind of type-level symbols. Declared here because class IP needs it
Instances
data family Sing (a :: k) Source #
The singleton kind-indexed data family.
Instances
withKnownNat :: Sing n -> (KnownNat n => r) -> r Source #
Given a singleton for Nat
, call something requiring a
KnownNat
instance.
withKnownSymbol :: Sing n -> (KnownSymbol n => r) -> r Source #
Given a singleton for Symbol
, call something requiring
a KnownSymbol
instance.
type family Error (str :: k0) :: k where ... Source #
The promotion of error
. This version is more poly-kinded for
easier use.
sUndefined :: a Source #
The singleton for undefined
.
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
natSing
class KnownSymbol (n :: Symbol) #
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
symbolVal :: KnownSymbol n => proxy n -> String #
Since: base-4.7.0.0
type family (a :: Nat) ^ (b :: Nat) :: Nat where ... infixr 8 #
Exponentiation of type-level naturals.
Since: base-4.7.0.0
(%^) :: Sing a -> Sing b -> Sing (a ^ b) infixr 8 Source #
The singleton analogue of '(TL.^)' for Nat
s.
type (<>) a b = AppendSymbol a b infixr 6 Source #
The promoted analogue of '(<>)' for Symbol
s. This uses the special
AppendSymbol
type family from GHC.TypeLits.
(%<>) :: Sing a -> Sing b -> Sing (a <> b) infixr 6 Source #
The singleton analogue of '(<>)' for Symbol
s.
type family Log2 (a :: Nat) :: Nat where ... #
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 Div (a :: Nat) (b :: Nat) :: Nat where ... infixl 7 #
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 :: Nat) (b :: Nat) :: Nat where ... infixl 7 #
Modulus of natural numbers.
Mod x 0
is undefined (i.e., it cannot be reduced).
Since: base-4.11.0.0
type family QuotRem (a :: Nat) (a :: Nat) :: (Nat, Nat) where ... Source #
QuotRem a_6989586621679423452 a_6989586621679423454 = Apply (Apply DivModSym0 a_6989586621679423452) a_6989586621679423454 |
Defunctionalization symbols
data ErrorSym0 (l :: TyFun k06989586621679403140 k6989586621679403141) Source #
type UndefinedSym0 = Undefined Source #
data KnownNatSym0 (l :: TyFun Nat Constraint) Source #
Instances
SuppressUnusedWarnings KnownNatSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply KnownNatSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
type KnownNatSym1 (t :: Nat) = KnownNat t Source #
data KnownSymbolSym0 (l :: TyFun Symbol Constraint) Source #
Instances
SuppressUnusedWarnings KnownSymbolSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply KnownSymbolSym0 (l :: Symbol) Source # | |
Defined in Data.Singletons.TypeLits |
type KnownSymbolSym1 (t :: Symbol) = KnownSymbol t Source #
data (^@#@$) (l :: TyFun Nat (TyFun Nat Nat -> Type)) Source #
Instances
SuppressUnusedWarnings (^@#@$) Source # | |
Defined in Data.Singletons.TypeLits.Internal suppressUnusedWarnings :: () Source # | |
type Apply (^@#@$) (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits.Internal |
Instances
SuppressUnusedWarnings (<>@#@$) Source # | |
Defined in Data.Singletons.TypeLits.Internal suppressUnusedWarnings :: () Source # | |
type Apply (<>@#@$) (l :: Symbol) Source # | |
Defined in Data.Singletons.TypeLits.Internal |
data Log2Sym0 (l :: TyFun Nat Nat) Source #
Instances
SuppressUnusedWarnings Log2Sym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply Log2Sym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data DivSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type)) Source #
Instances
SuppressUnusedWarnings DivSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply DivSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data ModSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type)) Source #
Instances
SuppressUnusedWarnings ModSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply ModSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data DivModSym0 (l :: TyFun Nat (TyFun Nat (Nat, Nat) -> Type)) Source #
Instances
SuppressUnusedWarnings DivModSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply DivModSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data DivModSym1 (l :: Nat) (l :: TyFun Nat (Nat, Nat)) Source #
Instances
SuppressUnusedWarnings DivModSym1 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply (DivModSym1 l1 :: TyFun Nat (Nat, Nat) -> *) (l2 :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data QuotSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type)) Source #
Instances
SuppressUnusedWarnings QuotSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply QuotSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data RemSym0 (l :: TyFun Nat (TyFun Nat Nat -> Type)) Source #
Instances
SuppressUnusedWarnings RemSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply RemSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data QuotRemSym0 (l :: TyFun Nat (TyFun Nat (Nat, Nat) -> Type)) Source #
Instances
SuppressUnusedWarnings QuotRemSym0 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply QuotRemSym0 (l :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
data QuotRemSym1 (l :: Nat) (l :: TyFun Nat (Nat, Nat)) Source #
Instances
SuppressUnusedWarnings QuotRemSym1 Source # | |
Defined in Data.Singletons.TypeLits suppressUnusedWarnings :: () Source # | |
type Apply (QuotRemSym1 l1 :: TyFun Nat (Nat, Nat) -> *) (l2 :: Nat) Source # | |
Defined in Data.Singletons.TypeLits |
Orphan instances
Eq Nat Source # | |
Eq Symbol Source # | This bogus instance is helpful for people who want to define functions over Symbols that will only be used at the type level or as singletons. |
Num Nat Source # | This bogus |
Ord Nat Source # | |
Ord Symbol Source # | |
IsString Symbol Source # | |
fromString :: String -> Symbol # |