Data.Singletons.Prelude.Maybe

Defines functions and datatypes relating to the singleton for Maybe, including a singletons version of all the definitions in Data.Maybe.

Because many of these definitions are produced by Template Haskell, it is not possible to create proper Haddock documentation. Please look up the corresponding operation in Data.Maybe. Also, please excuse the apparent repeated variable names. This is due to an interaction between Template Haskell and Haddock.

Documentation

type family Sing

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.Prelude.Proxy

type Sing = SProxy :: Proxy t -> 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 SMaybe z where

Constructors

SNothing :: forall (a :: Type). SMaybe ('Nothing :: Maybe (a :: Type))

SJust :: forall (a :: Type) (n :: a). (Sing n) -> SMaybe ('Just n :: Maybe (a :: Type))

Instances

SDecide a => TestCoercion (SMaybe :: Maybe a -> Type)

Defined in Data.Singletons.Prelude.Instances

Methods

testCoercion :: forall (a0 :: k) (b :: k). SMaybe a0 -> SMaybe b -> Maybe (Coercion a0 b)

SDecide a => TestEquality (SMaybe :: Maybe a -> Type)

Defined in Data.Singletons.Prelude.Instances

Methods

testEquality :: forall (a0 :: k) (b :: k). SMaybe a0 -> SMaybe b -> Maybe (a0 :~: b)

ShowSing a => Show (SMaybe z)

Defined in Data.Singletons.ShowSing

Methods

showsPrec :: Int -> SMaybe z -> ShowS

show :: SMaybe z -> String

showList :: [SMaybe z] -> ShowS

Singletons from Data.Maybe

maybe_ :: b -> (a -> b) -> Maybe a -> b

type family Maybe_ a a a where ...

Equations

Maybe_ n _ 'Nothing = n

Maybe_ _ f ('Just x) = Apply f x

sMaybe_ :: forall b a (t :: b) (t :: (~>) a b) (t :: Maybe a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply Maybe_Sym0 t) t) t :: b)

The preceding two definitions are derived from the function maybe in Data.Maybe. The extra underscore is to avoid name clashes with the type Maybe.

type family IsJust a where ...

Equations

IsJust 'Nothing = FalseSym0

IsJust ('Just _) = TrueSym0

sIsJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply IsJustSym0 t :: Bool)

type family IsNothing a where ...

Equations

IsNothing 'Nothing = TrueSym0

IsNothing ('Just _) = FalseSym0

sIsNothing :: forall a (t :: Maybe a). Sing t -> Sing (Apply IsNothingSym0 t :: Bool)

type family FromJust a where ...

Equations

FromJust 'Nothing = Apply ErrorSym0 "Maybe.fromJust: Nothing"

FromJust ('Just x) = x

sFromJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply FromJustSym0 t :: a)

type family FromMaybe a a where ...

Equations

FromMaybe d x = Case_6989586621679502226 d x x

sFromMaybe :: forall a (t :: a) (t :: Maybe a). Sing t -> Sing t -> Sing (Apply (Apply FromMaybeSym0 t) t :: a)

type family ListToMaybe a where ...

Equations

ListToMaybe '[] = NothingSym0

ListToMaybe ('(:) a _) = Apply JustSym0 a

sListToMaybe :: forall a (t :: [a]). Sing t -> Sing (Apply ListToMaybeSym0 t :: Maybe a)

type family MaybeToList a where ...

Equations

MaybeToList 'Nothing = NilSym0

MaybeToList ('Just x) = Apply (Apply (:@#@$) x) NilSym0

sMaybeToList :: forall a (t :: Maybe a). Sing t -> Sing (Apply MaybeToListSym0 t :: [a])

type family CatMaybes a where ...

Equations

CatMaybes '[] = NilSym0

CatMaybes ('(:) ('Just x) xs) = Apply (Apply (:@#@$) x) (Apply CatMaybesSym0 xs)

CatMaybes ('(:) 'Nothing xs) = Apply CatMaybesSym0 xs

sCatMaybes :: forall a (t :: [Maybe a]). Sing t -> Sing (Apply CatMaybesSym0 t :: [a])

type family MapMaybe a a where ...

Equations

MapMaybe _ '[] = NilSym0

MapMaybe f ('(:) x xs) = Case_6989586621679502201 f x xs (Let6989586621679502199Scrutinee_6989586621679502063Sym3 f x xs)

sMapMaybe :: forall a b (t :: (~>) a (Maybe b)) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply MapMaybeSym0 t) t :: [b])

Defunctionalization symbols

type NothingSym0 = 'Nothing :: Maybe (a :: Type)

data JustSym0 a6989586621679304113

Instances

SingI (JustSym0 :: TyFun a (Maybe a) -> Type)

Defined in Data.Singletons.Prelude.Instances

Methods

sing :: Sing JustSym0

SuppressUnusedWarnings (JustSym0 :: TyFun a (Maybe a) -> Type)

Defined in Data.Singletons.Prelude.Instances

Methods

suppressUnusedWarnings :: ()

type Apply (JustSym0 :: TyFun a (Maybe a) -> Type) (a6989586621679304113 :: a)

Defined in Data.Singletons.Prelude.Instances

type Apply (JustSym0 :: TyFun a (Maybe a) -> Type) (a6989586621679304113 :: a) = JustSym1 a6989586621679304113

type JustSym1 (a6989586621679304113 :: a) = 'Just a6989586621679304113 :: Maybe (a :: Type)

data Maybe_Sym0 a6989586621679500654

Instances

SingI (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing Maybe_Sym0

SuppressUnusedWarnings (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) (a6989586621679500654 :: b)

Defined in Data.Singletons.Prelude.Maybe

type Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) (a6989586621679500654 :: b) = Maybe_Sym1 a6989586621679500654 :: TyFun (a ~> b) (Maybe a ~> b) -> Type

data Maybe_Sym1 a6989586621679500654 a6989586621679500655

Instances

SingI d => SingI (Maybe_Sym1 d :: TyFun (a ~> b) (Maybe a ~> b) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing (Maybe_Sym1 d)

SuppressUnusedWarnings (Maybe_Sym1 a6989586621679500654 :: TyFun (a ~> b) (Maybe a ~> b) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (Maybe_Sym1 a6989586621679500654 :: TyFun (a ~> b) (Maybe a ~> b) -> Type) (a6989586621679500655 :: a ~> b)

Defined in Data.Singletons.Prelude.Maybe

type Apply (Maybe_Sym1 a6989586621679500654 :: TyFun (a ~> b) (Maybe a ~> b) -> Type) (a6989586621679500655 :: a ~> b) = Maybe_Sym2 a6989586621679500654 a6989586621679500655

data Maybe_Sym2 a6989586621679500654 a6989586621679500655 a6989586621679500656

Instances

(SingI d1, SingI d2) => SingI (Maybe_Sym2 d1 d2 :: TyFun (Maybe a) b -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing (Maybe_Sym2 d1 d2)

SuppressUnusedWarnings (Maybe_Sym2 a6989586621679500654 a6989586621679500655 :: TyFun (Maybe a) b -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (Maybe_Sym2 a6989586621679500654 a6989586621679500655 :: TyFun (Maybe a) b -> Type) (a6989586621679500656 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (Maybe_Sym2 a6989586621679500654 a6989586621679500655 :: TyFun (Maybe a) b -> Type) (a6989586621679500656 :: Maybe a) = Maybe_Sym3 a6989586621679500654 a6989586621679500655 a6989586621679500656

type Maybe_Sym3 (a6989586621679500654 :: b) (a6989586621679500655 :: (~>) a b) (a6989586621679500656 :: Maybe a) = Maybe_ a6989586621679500654 a6989586621679500655 a6989586621679500656 :: b

data IsJustSym0 a6989586621679502239

Instances

SingI (IsJustSym0 :: TyFun (Maybe a) Bool -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing IsJustSym0

SuppressUnusedWarnings (IsJustSym0 :: TyFun (Maybe a) Bool -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679502239 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679502239 :: Maybe a) = IsJustSym1 a6989586621679502239

type IsJustSym1 (a6989586621679502239 :: Maybe a) = IsJust a6989586621679502239 :: Bool

data IsNothingSym0 a6989586621679502236

Instances

SingI (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing IsNothingSym0

SuppressUnusedWarnings (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679502236 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679502236 :: Maybe a) = IsNothingSym1 a6989586621679502236

type IsNothingSym1 (a6989586621679502236 :: Maybe a) = IsNothing a6989586621679502236 :: Bool

data FromJustSym0 a6989586621679502232

Instances

SingI (FromJustSym0 :: TyFun (Maybe a) a -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing FromJustSym0

SuppressUnusedWarnings (FromJustSym0 :: TyFun (Maybe a) a -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) (a6989586621679502232 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) (a6989586621679502232 :: Maybe a) = FromJustSym1 a6989586621679502232

type FromJustSym1 (a6989586621679502232 :: Maybe a) = FromJust a6989586621679502232 :: a

data FromMaybeSym0 a6989586621679502222

Instances

SingI (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing FromMaybeSym0

SuppressUnusedWarnings (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) (a6989586621679502222 :: a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) (a6989586621679502222 :: a) = FromMaybeSym1 a6989586621679502222

data FromMaybeSym1 a6989586621679502222 a6989586621679502223

Instances

SingI d => SingI (FromMaybeSym1 d :: TyFun (Maybe a) a -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing (FromMaybeSym1 d)

SuppressUnusedWarnings (FromMaybeSym1 a6989586621679502222 :: TyFun (Maybe a) a -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (FromMaybeSym1 a6989586621679502222 :: TyFun (Maybe a) a -> Type) (a6989586621679502223 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (FromMaybeSym1 a6989586621679502222 :: TyFun (Maybe a) a -> Type) (a6989586621679502223 :: Maybe a) = FromMaybeSym2 a6989586621679502222 a6989586621679502223

type FromMaybeSym2 (a6989586621679502222 :: a) (a6989586621679502223 :: Maybe a) = FromMaybe a6989586621679502222 a6989586621679502223 :: a

data ListToMaybeSym0 a6989586621679502213

Instances

SingI (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing ListToMaybeSym0

SuppressUnusedWarnings (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) (a6989586621679502213 :: [a])

Defined in Data.Singletons.Prelude.Maybe

type Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) (a6989586621679502213 :: [a]) = ListToMaybeSym1 a6989586621679502213

type ListToMaybeSym1 (a6989586621679502213 :: [a]) = ListToMaybe a6989586621679502213 :: Maybe a

data MaybeToListSym0 a6989586621679502217

Instances

SingI (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing MaybeToListSym0

SuppressUnusedWarnings (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) (a6989586621679502217 :: Maybe a)

Defined in Data.Singletons.Prelude.Maybe

type Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) (a6989586621679502217 :: Maybe a) = MaybeToListSym1 a6989586621679502217

type MaybeToListSym1 (a6989586621679502217 :: Maybe a) = MaybeToList a6989586621679502217 :: [a]

data CatMaybesSym0 a6989586621679502207

Instances

SingI (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing CatMaybesSym0

SuppressUnusedWarnings (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) (a6989586621679502207 :: [Maybe a])

Defined in Data.Singletons.Prelude.Maybe

type Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) (a6989586621679502207 :: [Maybe a]) = CatMaybesSym1 a6989586621679502207

type CatMaybesSym1 (a6989586621679502207 :: [Maybe a]) = CatMaybes a6989586621679502207 :: [a]

data MapMaybeSym0 a6989586621679502192

Instances

SingI (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing MapMaybeSym0

SuppressUnusedWarnings (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) (a6989586621679502192 :: a ~> Maybe b)

Defined in Data.Singletons.Prelude.Maybe

type Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) (a6989586621679502192 :: a ~> Maybe b) = MapMaybeSym1 a6989586621679502192

data MapMaybeSym1 a6989586621679502192 a6989586621679502193

Instances

SingI d => SingI (MapMaybeSym1 d :: TyFun [a] [b] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

sing :: Sing (MapMaybeSym1 d)

SuppressUnusedWarnings (MapMaybeSym1 a6989586621679502192 :: TyFun [a] [b] -> Type)

Defined in Data.Singletons.Prelude.Maybe

Methods

suppressUnusedWarnings :: ()

type Apply (MapMaybeSym1 a6989586621679502192 :: TyFun [a] [b] -> Type) (a6989586621679502193 :: [a])

Defined in Data.Singletons.Prelude.Maybe

type Apply (MapMaybeSym1 a6989586621679502192 :: TyFun [a] [b] -> Type) (a6989586621679502193 :: [a]) = MapMaybeSym2 a6989586621679502192 a6989586621679502193

type MapMaybeSym2 (a6989586621679502192 :: (~>) a (Maybe b)) (a6989586621679502193 :: [a]) = MapMaybe a6989586621679502192 a6989586621679502193 :: [b]