Copyright | (C) 2013-2014 Richard Eisenberg Jan Stolarek |
---|---|
License | BSD-style (see LICENSE) |
Maintainer | Ryan Scott |
Stability | experimental |
Portability | non-portable |
Safe Haskell | None |
Language | GHC2021 |
Defines functions and datatypes relating to the singleton for Maybe
,
including singled versions 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.
Synopsis
- type family Sing :: k -> Type
- data SMaybe (a1 :: Maybe a) where
- maybe_ :: b -> (a -> b) -> Maybe a -> b
- type family Maybe_ (a1 :: b) (a2 :: a ~> b) (a3 :: Maybe a) :: b where ...
- sMaybe_ :: forall b a (t1 :: b) (t2 :: a ~> b) (t3 :: Maybe a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) t1) t2) t3)
- type family IsJust (a1 :: Maybe a) :: Bool where ...
- sIsJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) t)
- type family IsNothing (a1 :: Maybe a) :: Bool where ...
- sIsNothing :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) t)
- type family FromJust (a1 :: Maybe a) :: a where ...
- sFromJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) t)
- type family FromMaybe (a1 :: a) (a2 :: Maybe a) :: a where ...
- sFromMaybe :: forall a (t1 :: a) (t2 :: Maybe a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) t1) t2)
- type family ListToMaybe (a1 :: [a]) :: Maybe a where ...
- sListToMaybe :: forall a (t :: [a]). Sing t -> Sing (Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) t)
- type family MaybeToList (a1 :: Maybe a) :: [a] where ...
- sMaybeToList :: forall a (t :: Maybe a). Sing t -> Sing (Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) t)
- type family CatMaybes (a1 :: [Maybe a]) :: [a] where ...
- sCatMaybes :: forall a (t :: [Maybe a]). Sing t -> Sing (Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) t)
- type family MapMaybe (a1 :: a ~> Maybe b) (a2 :: [a]) :: [b] where ...
- sMapMaybe :: forall a b (t1 :: a ~> Maybe b) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) t1) t2)
- type family NothingSym0 :: Maybe a where ...
- data JustSym0 (a1 :: TyFun a (Maybe a))
- type family JustSym1 (a6989586621679046214 :: a) :: Maybe a where ...
- data Maybe_Sym0 (a1 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)))
- data Maybe_Sym1 (a6989586621679577734 :: b) (b1 :: TyFun (a ~> b) (Maybe a ~> b))
- data Maybe_Sym2 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (c :: TyFun (Maybe a) b)
- type family Maybe_Sym3 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (a6989586621679577736 :: Maybe a) :: b where ...
- data IsJustSym0 (a1 :: TyFun (Maybe a) Bool)
- type family IsJustSym1 (a6989586621679579807 :: Maybe a) :: Bool where ...
- data IsNothingSym0 (a1 :: TyFun (Maybe a) Bool)
- type family IsNothingSym1 (a6989586621679579804 :: Maybe a) :: Bool where ...
- data FromJustSym0 (a1 :: TyFun (Maybe a) a)
- type family FromJustSym1 (a6989586621679579800 :: Maybe a) :: a where ...
- data FromMaybeSym0 (a1 :: TyFun a (Maybe a ~> a))
- data FromMaybeSym1 (a6989586621679579790 :: a) (b :: TyFun (Maybe a) a)
- type family FromMaybeSym2 (a6989586621679579790 :: a) (a6989586621679579791 :: Maybe a) :: a where ...
- data ListToMaybeSym0 (a1 :: TyFun [a] (Maybe a))
- type family ListToMaybeSym1 (a6989586621679579781 :: [a]) :: Maybe a where ...
- data MaybeToListSym0 (a1 :: TyFun (Maybe a) [a])
- type family MaybeToListSym1 (a6989586621679579785 :: Maybe a) :: [a] where ...
- data CatMaybesSym0 (a1 :: TyFun [Maybe a] [a])
- type family CatMaybesSym1 (a6989586621679579775 :: [Maybe a]) :: [a] where ...
- data MapMaybeSym0 (a1 :: TyFun (a ~> Maybe b) ([a] ~> [b]))
- data MapMaybeSym1 (a6989586621679579760 :: a ~> Maybe b) (b1 :: TyFun [a] [b])
- type family MapMaybeSym2 (a6989586621679579760 :: a ~> Maybe b) (a6989586621679579761 :: [a]) :: [b] where ...
Documentation
type family Sing :: k -> Type #
Instances
data SMaybe (a1 :: Maybe a) where Source #
SNothing :: forall a. SMaybe ('Nothing :: Maybe a) | |
SJust :: forall a (n :: a). Sing n -> SMaybe ('Just n) |
Singletons from Data.Maybe
sMaybe_ :: forall b a (t1 :: b) (t2 :: a ~> b) (t3 :: Maybe a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) t1) t2) t3) Source #
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
.
sIsJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) t) Source #
sIsNothing :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) t) Source #
sFromJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) t) Source #
sFromMaybe :: forall a (t1 :: a) (t2 :: Maybe a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) t1) t2) Source #
type family ListToMaybe (a1 :: [a]) :: Maybe a where ... Source #
ListToMaybe ('[] :: [a]) = NothingSym0 :: Maybe a | |
ListToMaybe (a ': _1 :: [k1]) = Apply (JustSym0 :: TyFun k1 (Maybe k1) -> Type) a |
sListToMaybe :: forall a (t :: [a]). Sing t -> Sing (Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) t) Source #
type family MaybeToList (a1 :: Maybe a) :: [a] where ... Source #
sMaybeToList :: forall a (t :: Maybe a). Sing t -> Sing (Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) t) Source #
type family CatMaybes (a1 :: [Maybe a]) :: [a] where ... Source #
CatMaybes ('[] :: [Maybe a]) = NilSym0 :: [a] | |
CatMaybes ('Just x ': xs :: [Maybe a]) = Apply (Apply ((:@#@$) :: TyFun a ([a] ~> [a]) -> Type) x) (Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) xs) | |
CatMaybes (('Nothing :: Maybe a) ': xs :: [Maybe a]) = Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) xs |
sCatMaybes :: forall a (t :: [Maybe a]). Sing t -> Sing (Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) t) Source #
sMapMaybe :: forall a b (t1 :: a ~> Maybe b) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) t1) t2) Source #
Defunctionalization symbols
type family NothingSym0 :: Maybe a where ... Source #
NothingSym0 = 'Nothing :: Maybe a |
data Maybe_Sym0 (a1 :: TyFun b ((a ~> b) ~> (Maybe a ~> b))) Source #
Instances
SingI (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) Source # | |
SuppressUnusedWarnings (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) (a6989586621679577734 :: b) Source # | |
Defined in Data.Maybe.Singletons |
data Maybe_Sym1 (a6989586621679577734 :: b) (b1 :: TyFun (a ~> b) (Maybe a ~> b)) Source #
Instances
SingI1 (Maybe_Sym1 :: b -> TyFun (a ~> b) (Maybe a ~> b) -> Type) Source # | |
SingI d => SingI (Maybe_Sym1 d :: TyFun (a ~> b) (Maybe a ~> b) -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (Maybe_Sym1 a6989586621679577734 :: TyFun (a ~> b) (Maybe a ~> b) -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (Maybe_Sym1 a6989586621679577734 :: TyFun (a ~> b) (Maybe a ~> b) -> Type) (a6989586621679577735 :: a ~> b) Source # | |
Defined in Data.Maybe.Singletons type Apply (Maybe_Sym1 a6989586621679577734 :: TyFun (a ~> b) (Maybe a ~> b) -> Type) (a6989586621679577735 :: a ~> b) = Maybe_Sym2 a6989586621679577734 a6989586621679577735 |
data Maybe_Sym2 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (c :: TyFun (Maybe a) b) Source #
Instances
SingI2 (Maybe_Sym2 :: b -> (a ~> b) -> TyFun (Maybe a) b -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SingI d => SingI1 (Maybe_Sym2 d :: (a ~> b) -> TyFun (Maybe a) b -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
(SingI d1, SingI d2) => SingI (Maybe_Sym2 d1 d2 :: TyFun (Maybe a) b -> Type) Source # | |
Defined in Data.Maybe.Singletons sing :: Sing (Maybe_Sym2 d1 d2) # | |
SuppressUnusedWarnings (Maybe_Sym2 a6989586621679577734 a6989586621679577735 :: TyFun (Maybe a) b -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (Maybe_Sym2 a6989586621679577734 a6989586621679577735 :: TyFun (Maybe a) b -> Type) (a6989586621679577736 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons |
type family Maybe_Sym3 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (a6989586621679577736 :: Maybe a) :: b where ... Source #
Maybe_Sym3 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (a6989586621679577736 :: Maybe a) = Maybe_ a6989586621679577734 a6989586621679577735 a6989586621679577736 |
data IsJustSym0 (a1 :: TyFun (Maybe a) Bool) Source #
Instances
SingI (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679579807 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons |
type family IsJustSym1 (a6989586621679579807 :: Maybe a) :: Bool where ... Source #
IsJustSym1 (a6989586621679579807 :: Maybe a) = IsJust a6989586621679579807 |
data IsNothingSym0 (a1 :: TyFun (Maybe a) Bool) Source #
Instances
SingI (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) (a6989586621679579804 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons |
type family IsNothingSym1 (a6989586621679579804 :: Maybe a) :: Bool where ... Source #
IsNothingSym1 (a6989586621679579804 :: Maybe a) = IsNothing a6989586621679579804 |
data FromJustSym0 (a1 :: TyFun (Maybe a) a) Source #
Instances
SingI (FromJustSym0 :: TyFun (Maybe a) a -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (FromJustSym0 :: TyFun (Maybe a) a -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) (a6989586621679579800 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons |
type family FromJustSym1 (a6989586621679579800 :: Maybe a) :: a where ... Source #
FromJustSym1 (a6989586621679579800 :: Maybe a) = FromJust a6989586621679579800 |
data FromMaybeSym0 (a1 :: TyFun a (Maybe a ~> a)) Source #
Instances
SingI (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) (a6989586621679579790 :: a) Source # | |
Defined in Data.Maybe.Singletons type Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) (a6989586621679579790 :: a) = FromMaybeSym1 a6989586621679579790 |
data FromMaybeSym1 (a6989586621679579790 :: a) (b :: TyFun (Maybe a) a) Source #
Instances
SingI1 (FromMaybeSym1 :: a -> TyFun (Maybe a) a -> Type) Source # | |
Defined in Data.Maybe.Singletons liftSing :: forall (x :: a). Sing x -> Sing (FromMaybeSym1 x) # | |
SingI d => SingI (FromMaybeSym1 d :: TyFun (Maybe a) a -> Type) Source # | |
Defined in Data.Maybe.Singletons sing :: Sing (FromMaybeSym1 d) # | |
SuppressUnusedWarnings (FromMaybeSym1 a6989586621679579790 :: TyFun (Maybe a) a -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (FromMaybeSym1 a6989586621679579790 :: TyFun (Maybe a) a -> Type) (a6989586621679579791 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons |
type family FromMaybeSym2 (a6989586621679579790 :: a) (a6989586621679579791 :: Maybe a) :: a where ... Source #
FromMaybeSym2 (a6989586621679579790 :: a) (a6989586621679579791 :: Maybe a) = FromMaybe a6989586621679579790 a6989586621679579791 |
data ListToMaybeSym0 (a1 :: TyFun [a] (Maybe a)) Source #
Instances
SingI (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) (a6989586621679579781 :: [a]) Source # | |
Defined in Data.Maybe.Singletons type Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) (a6989586621679579781 :: [a]) = ListToMaybe a6989586621679579781 |
type family ListToMaybeSym1 (a6989586621679579781 :: [a]) :: Maybe a where ... Source #
ListToMaybeSym1 (a6989586621679579781 :: [a]) = ListToMaybe a6989586621679579781 |
data MaybeToListSym0 (a1 :: TyFun (Maybe a) [a]) Source #
Instances
SingI (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) (a6989586621679579785 :: Maybe a) Source # | |
Defined in Data.Maybe.Singletons type Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) (a6989586621679579785 :: Maybe a) = MaybeToList a6989586621679579785 |
type family MaybeToListSym1 (a6989586621679579785 :: Maybe a) :: [a] where ... Source #
MaybeToListSym1 (a6989586621679579785 :: Maybe a) = MaybeToList a6989586621679579785 |
data CatMaybesSym0 (a1 :: TyFun [Maybe a] [a]) Source #
Instances
SingI (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) (a6989586621679579775 :: [Maybe a]) Source # | |
Defined in Data.Maybe.Singletons |
type family CatMaybesSym1 (a6989586621679579775 :: [Maybe a]) :: [a] where ... Source #
CatMaybesSym1 (a6989586621679579775 :: [Maybe a]) = CatMaybes a6989586621679579775 |
data MapMaybeSym0 (a1 :: TyFun (a ~> Maybe b) ([a] ~> [b])) Source #
Instances
SingI (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SuppressUnusedWarnings (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) (a6989586621679579760 :: a ~> Maybe b) Source # | |
Defined in Data.Maybe.Singletons type Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) (a6989586621679579760 :: a ~> Maybe b) = MapMaybeSym1 a6989586621679579760 |
data MapMaybeSym1 (a6989586621679579760 :: a ~> Maybe b) (b1 :: TyFun [a] [b]) Source #
Instances
SingI1 (MapMaybeSym1 :: (a ~> Maybe b) -> TyFun [a] [b] -> Type) Source # | |
Defined in Data.Maybe.Singletons | |
SingI d => SingI (MapMaybeSym1 d :: TyFun [a] [b] -> Type) Source # | |
Defined in Data.Maybe.Singletons sing :: Sing (MapMaybeSym1 d) # | |
SuppressUnusedWarnings (MapMaybeSym1 a6989586621679579760 :: TyFun [a] [b] -> Type) Source # | |
Defined in Data.Maybe.Singletons suppressUnusedWarnings :: () # | |
type Apply (MapMaybeSym1 a6989586621679579760 :: TyFun [a] [b] -> Type) (a6989586621679579761 :: [a]) Source # | |
Defined in Data.Maybe.Singletons type Apply (MapMaybeSym1 a6989586621679579760 :: TyFun [a] [b] -> Type) (a6989586621679579761 :: [a]) = MapMaybe a6989586621679579760 a6989586621679579761 |
type family MapMaybeSym2 (a6989586621679579760 :: a ~> Maybe b) (a6989586621679579761 :: [a]) :: [b] where ... Source #
MapMaybeSym2 (a6989586621679579760 :: a ~> Maybe b) (a6989586621679579761 :: [a]) = MapMaybe a6989586621679579760 a6989586621679579761 |