Copyright | (C) 2014 Jan Stolarek Richard Eisenberg |
---|---|
License | BSD-style (see LICENSE) |
Maintainer | Jan Stolarek (jan.stolarek@p.lodz.pl) |
Stability | experimental |
Portability | non-portable |
Safe Haskell | None |
Language | Haskell2010 |
Defines the promoted and singleton version of the Bounded
and Enum
type
classes.
While Prelude.Singletons re-exports the promoted and singled versions of
Enum
, it deliberately avoids re-exporting Succ
and Pred
, as these are
names are likely to clash with code that deals with unary natural numbers.
As a result, this module exists to provide Succ
and Pred
for those who
want them.
Synopsis
- class PBounded a where
- class SBounded a where
- sMinBound :: Sing (MinBoundSym0 :: a)
- sMaxBound :: Sing (MaxBoundSym0 :: a)
- class PEnum a where
- type Succ (arg :: a) :: a
- type Pred (arg :: a) :: a
- type ToEnum (arg :: Nat) :: a
- type FromEnum (arg :: a) :: Nat
- type EnumFromTo (arg :: a) (arg :: a) :: [a]
- type EnumFromThenTo (arg :: a) (arg :: a) (arg :: a) :: [a]
- class SEnum a where
- sSucc :: forall (t :: a). Sing t -> Sing (Apply SuccSym0 t :: a)
- sPred :: forall (t :: a). Sing t -> Sing (Apply PredSym0 t :: a)
- sToEnum :: forall (t :: Nat). Sing t -> Sing (Apply ToEnumSym0 t :: a)
- sFromEnum :: forall (t :: a). Sing t -> Sing (Apply FromEnumSym0 t :: Nat)
- sEnumFromTo :: forall (t :: a) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply EnumFromToSym0 t) t :: [a])
- sEnumFromThenTo :: forall (t :: a) (t :: a) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t) t) t :: [a])
- type family MinBoundSym0 :: a where ...
- type family MaxBoundSym0 :: a where ...
- data SuccSym0 :: (~>) a a
- type family SuccSym1 (a6989586621679573379 :: a) :: a where ...
- data PredSym0 :: (~>) a a
- type family PredSym1 (a6989586621679573382 :: a) :: a where ...
- data ToEnumSym0 :: (~>) Nat a
- type family ToEnumSym1 (a6989586621679573385 :: Nat) :: a where ...
- data FromEnumSym0 :: (~>) a Nat
- type family FromEnumSym1 (a6989586621679573388 :: a) :: Nat where ...
- data EnumFromToSym0 :: (~>) a ((~>) a [a])
- data EnumFromToSym1 (a6989586621679573392 :: a) :: (~>) a [a]
- type family EnumFromToSym2 (a6989586621679573392 :: a) (a6989586621679573393 :: a) :: [a] where ...
- data EnumFromThenToSym0 :: (~>) a ((~>) a ((~>) a [a]))
- data EnumFromThenToSym1 (a6989586621679573398 :: a) :: (~>) a ((~>) a [a])
- data EnumFromThenToSym2 (a6989586621679573398 :: a) (a6989586621679573399 :: a) :: (~>) a [a]
- type family EnumFromThenToSym3 (a6989586621679573398 :: a) (a6989586621679573399 :: a) (a6989586621679573400 :: a) :: [a] where ...
Documentation
Instances
PBounded Bool Source # | |
PBounded Ordering Source # | |
PBounded () Source # | |
PBounded All Source # | |
PBounded Any Source # | |
PBounded (Min a) Source # | |
PBounded (Max a) Source # | |
PBounded (First a) Source # | |
PBounded (Last a) Source # | |
PBounded (WrappedMonoid m) Source # | |
PBounded (Identity a) Source # | |
PBounded (Dual a) Source # | |
PBounded (Sum a) Source # | |
PBounded (Product a) Source # | |
PBounded (a, b) Source # | |
PBounded (Proxy s) Source # | |
PBounded (a, b, c) Source # | |
PBounded (Const a b) Source # | |
PBounded (a, b, c, d) Source # | |
PBounded (a, b, c, d, e) Source # | |
PBounded (a, b, c, d, e, f) Source # | |
PBounded (a, b, c, d, e, f, g) Source # | |
class SBounded a where Source #
sMinBound :: Sing (MinBoundSym0 :: a) Source #
sMaxBound :: Sing (MaxBoundSym0 :: a) Source #
Instances
type Succ (arg :: a) :: a Source #
type Pred (arg :: a) :: a Source #
type ToEnum (arg :: Nat) :: a Source #
type FromEnum (arg :: a) :: Nat Source #
type EnumFromTo (arg :: a) (arg :: a) :: [a] Source #
type EnumFromTo a a = Apply (Apply EnumFromTo_6989586621679573425Sym0 a) a
type EnumFromThenTo (arg :: a) (arg :: a) (arg :: a) :: [a] Source #
type EnumFromThenTo a a a = Apply (Apply (Apply EnumFromThenTo_6989586621679573437Sym0 a) a) a
sSucc :: forall (t :: a). Sing t -> Sing (Apply SuccSym0 t :: a) Source #
default sSucc :: forall (t :: a). (Apply SuccSym0 t :: a) ~ Apply Succ_6989586621679573402Sym0 t => Sing t -> Sing (Apply SuccSym0 t :: a) Source #
sPred :: forall (t :: a). Sing t -> Sing (Apply PredSym0 t :: a) Source #
default sPred :: forall (t :: a). (Apply PredSym0 t :: a) ~ Apply Pred_6989586621679573415Sym0 t => Sing t -> Sing (Apply PredSym0 t :: a) Source #
sToEnum :: forall (t :: Nat). Sing t -> Sing (Apply ToEnumSym0 t :: a) Source #
sFromEnum :: forall (t :: a). Sing t -> Sing (Apply FromEnumSym0 t :: Nat) Source #
sEnumFromTo :: forall (t :: a) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply EnumFromToSym0 t) t :: [a]) Source #
default sEnumFromTo :: forall (t :: a) (t :: a). (Apply (Apply EnumFromToSym0 t) t :: [a]) ~ Apply (Apply EnumFromTo_6989586621679573425Sym0 t) t => Sing t -> Sing t -> Sing (Apply (Apply EnumFromToSym0 t) t :: [a]) Source #
sEnumFromThenTo :: forall (t :: a) (t :: a) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t) t) t :: [a]) Source #
Instances
Defunctionalization symbols
type family MinBoundSym0 :: a where ... Source #
type family MaxBoundSym0 :: a where ... Source #
data SuccSym0 :: (~>) a a Source #
Instances
SEnum a => SingI (SuccSym0 :: TyFun a a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum | |
SuppressUnusedWarnings (SuccSym0 :: TyFun a a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (SuccSym0 :: TyFun a a -> Type) (a6989586621679573379 :: a) Source # | |
data PredSym0 :: (~>) a a Source #
Instances
SEnum a => SingI (PredSym0 :: TyFun a a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum | |
SuppressUnusedWarnings (PredSym0 :: TyFun a a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (PredSym0 :: TyFun a a -> Type) (a6989586621679573382 :: a) Source # | |
data ToEnumSym0 :: (~>) Nat a Source #
Instances
SEnum a => SingI (ToEnumSym0 :: TyFun Nat a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing ToEnumSym0 # | |
SuppressUnusedWarnings (ToEnumSym0 :: TyFun Nat a -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (ToEnumSym0 :: TyFun Nat k2 -> Type) (a6989586621679573385 :: Nat) Source # | |
Defined in Data.Singletons.Base.Enum |
type family ToEnumSym1 (a6989586621679573385 :: Nat) :: a where ... Source #
ToEnumSym1 a6989586621679573385 = ToEnum a6989586621679573385 |
data FromEnumSym0 :: (~>) a Nat Source #
Instances
SEnum a => SingI (FromEnumSym0 :: TyFun a Nat -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing FromEnumSym0 # | |
SuppressUnusedWarnings (FromEnumSym0 :: TyFun a Nat -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (FromEnumSym0 :: TyFun a Nat -> Type) (a6989586621679573388 :: a) Source # | |
Defined in Data.Singletons.Base.Enum |
type family FromEnumSym1 (a6989586621679573388 :: a) :: Nat where ... Source #
FromEnumSym1 a6989586621679573388 = FromEnum a6989586621679573388 |
data EnumFromToSym0 :: (~>) a ((~>) a [a]) Source #
Instances
SEnum a => SingI (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing EnumFromToSym0 # | |
SuppressUnusedWarnings (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) (a6989586621679573392 :: a) Source # | |
Defined in Data.Singletons.Base.Enum type Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) (a6989586621679573392 :: a) = EnumFromToSym1 a6989586621679573392 |
data EnumFromToSym1 (a6989586621679573392 :: a) :: (~>) a [a] Source #
Instances
(SEnum a, SingI d) => SingI (EnumFromToSym1 d :: TyFun a [a] -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing (EnumFromToSym1 d) # | |
SuppressUnusedWarnings (EnumFromToSym1 a6989586621679573392 :: TyFun a [a] -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (EnumFromToSym1 a6989586621679573392 :: TyFun a [a] -> Type) (a6989586621679573393 :: a) Source # | |
Defined in Data.Singletons.Base.Enum type Apply (EnumFromToSym1 a6989586621679573392 :: TyFun a [a] -> Type) (a6989586621679573393 :: a) = EnumFromTo a6989586621679573392 a6989586621679573393 |
type family EnumFromToSym2 (a6989586621679573392 :: a) (a6989586621679573393 :: a) :: [a] where ... Source #
EnumFromToSym2 a6989586621679573392 a6989586621679573393 = EnumFromTo a6989586621679573392 a6989586621679573393 |
data EnumFromThenToSym0 :: (~>) a ((~>) a ((~>) a [a])) Source #
Instances
SEnum a => SingI (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum | |
SuppressUnusedWarnings (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) (a6989586621679573398 :: a) Source # | |
Defined in Data.Singletons.Base.Enum type Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) (a6989586621679573398 :: a) = EnumFromThenToSym1 a6989586621679573398 |
data EnumFromThenToSym1 (a6989586621679573398 :: a) :: (~>) a ((~>) a [a]) Source #
Instances
(SEnum a, SingI d) => SingI (EnumFromThenToSym1 d :: TyFun a (a ~> [a]) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing (EnumFromThenToSym1 d) # | |
SuppressUnusedWarnings (EnumFromThenToSym1 a6989586621679573398 :: TyFun a (a ~> [a]) -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (EnumFromThenToSym1 a6989586621679573398 :: TyFun a (a ~> [a]) -> Type) (a6989586621679573399 :: a) Source # | |
Defined in Data.Singletons.Base.Enum type Apply (EnumFromThenToSym1 a6989586621679573398 :: TyFun a (a ~> [a]) -> Type) (a6989586621679573399 :: a) = EnumFromThenToSym2 a6989586621679573398 a6989586621679573399 |
data EnumFromThenToSym2 (a6989586621679573398 :: a) (a6989586621679573399 :: a) :: (~>) a [a] Source #
Instances
(SEnum a, SingI d1, SingI d2) => SingI (EnumFromThenToSym2 d1 d2 :: TyFun a [a] -> Type) Source # | |
Defined in Data.Singletons.Base.Enum sing :: Sing (EnumFromThenToSym2 d1 d2) # | |
SuppressUnusedWarnings (EnumFromThenToSym2 a6989586621679573398 a6989586621679573399 :: TyFun a [a] -> Type) Source # | |
Defined in Data.Singletons.Base.Enum suppressUnusedWarnings :: () # | |
type Apply (EnumFromThenToSym2 a6989586621679573398 a6989586621679573399 :: TyFun a [a] -> Type) (a6989586621679573400 :: a) Source # | |
Defined in Data.Singletons.Base.Enum type Apply (EnumFromThenToSym2 a6989586621679573398 a6989586621679573399 :: TyFun a [a] -> Type) (a6989586621679573400 :: a) = EnumFromThenTo a6989586621679573398 a6989586621679573399 a6989586621679573400 |
type family EnumFromThenToSym3 (a6989586621679573398 :: a) (a6989586621679573399 :: a) (a6989586621679573400 :: a) :: [a] where ... Source #
EnumFromThenToSym3 a6989586621679573398 a6989586621679573399 a6989586621679573400 = EnumFromThenTo a6989586621679573398 a6989586621679573399 a6989586621679573400 |