| Copyright | (C) 2013-2014 Richard Eisenberg Jan Stolarek |
|---|---|
| License | BSD-style (see LICENSE) |
| Maintainer | Richard Eisenberg (rae@cs.brynmawr.edu) |
| Stability | experimental |
| Portability | non-portable |
| Safe Haskell | None |
| Language | Haskell2010 |
Data.Singletons.Prelude.Maybe
Description
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.
Synopsis
- data family Sing (a :: k)
- type SMaybe = (Sing :: Maybe a -> Type)
- maybe_ :: b -> (a -> b) -> Maybe a -> b
- type family Maybe_ (a :: b) (a :: TyFun a b -> Type) (a :: Maybe a) :: b where ...
- sMaybe_ :: forall (t :: b) (t :: TyFun a b -> Type) (t :: Maybe a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply Maybe_Sym0 t) t) t :: b)
- type family IsJust (a :: Maybe a) :: Bool where ...
- sIsJust :: forall (t :: Maybe a). Sing t -> Sing (Apply IsJustSym0 t :: Bool)
- type family IsNothing (a :: Maybe a) :: Bool where ...
- sIsNothing :: forall (t :: Maybe a). Sing t -> Sing (Apply IsNothingSym0 t :: Bool)
- type family FromJust (a :: Maybe a) :: a where ...
- sFromJust :: forall (t :: Maybe a). Sing t -> Sing (Apply FromJustSym0 t :: a)
- type family FromMaybe (a :: a) (a :: Maybe a) :: a where ...
- sFromMaybe :: forall (t :: a) (t :: Maybe a). Sing t -> Sing t -> Sing (Apply (Apply FromMaybeSym0 t) t :: a)
- type family ListToMaybe (a :: [a]) :: Maybe a where ...
- sListToMaybe :: forall (t :: [a]). Sing t -> Sing (Apply ListToMaybeSym0 t :: Maybe a)
- type family MaybeToList (a :: Maybe a) :: [a] where ...
- sMaybeToList :: forall (t :: Maybe a). Sing t -> Sing (Apply MaybeToListSym0 t :: [a])
- type family CatMaybes (a :: [Maybe a]) :: [a] where ...
- sCatMaybes :: forall (t :: [Maybe a]). Sing t -> Sing (Apply CatMaybesSym0 t :: [a])
- type family MapMaybe (a :: TyFun a (Maybe b) -> Type) (a :: [a]) :: [b] where ...
- sMapMaybe :: forall (t :: TyFun a (Maybe b) -> Type) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply MapMaybeSym0 t) t :: [b])
- type NothingSym0 = Nothing
- data JustSym0 (l :: TyFun a3530822107858468865 (Maybe a3530822107858468865))
- type JustSym1 (t :: a3530822107858468865) = Just t
- data Maybe_Sym0 (l :: TyFun b6989586621679419480 (TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> Type))
- data Maybe_Sym1 (l :: b6989586621679419480) (l :: TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type))
- data Maybe_Sym2 (l :: b6989586621679419480) (l :: TyFun a6989586621679419481 b6989586621679419480 -> Type) (l :: TyFun (Maybe a6989586621679419481) b6989586621679419480)
- type Maybe_Sym3 (t :: b6989586621679419480) (t :: TyFun a6989586621679419481 b6989586621679419480 -> Type) (t :: Maybe a6989586621679419481) = Maybe_ t t t
- data IsJustSym0 (l :: TyFun (Maybe a6989586621679420601) Bool)
- type IsJustSym1 (t :: Maybe a6989586621679420601) = IsJust t
- data IsNothingSym0 (l :: TyFun (Maybe a6989586621679420600) Bool)
- type IsNothingSym1 (t :: Maybe a6989586621679420600) = IsNothing t
- data FromJustSym0 (l :: TyFun (Maybe a6989586621679420599) a6989586621679420599)
- type FromJustSym1 (t :: Maybe a6989586621679420599) = FromJust t
- data FromMaybeSym0 (l :: TyFun a6989586621679420598 (TyFun (Maybe a6989586621679420598) a6989586621679420598 -> Type))
- data FromMaybeSym1 (l :: a6989586621679420598) (l :: TyFun (Maybe a6989586621679420598) a6989586621679420598)
- type FromMaybeSym2 (t :: a6989586621679420598) (t :: Maybe a6989586621679420598) = FromMaybe t t
- data ListToMaybeSym0 (l :: TyFun [a6989586621679420596] (Maybe a6989586621679420596))
- type ListToMaybeSym1 (t :: [a6989586621679420596]) = ListToMaybe t
- data MaybeToListSym0 (l :: TyFun (Maybe a6989586621679420597) [a6989586621679420597])
- type MaybeToListSym1 (t :: Maybe a6989586621679420597) = MaybeToList t
- data CatMaybesSym0 (l :: TyFun [Maybe a6989586621679420595] [a6989586621679420595])
- type CatMaybesSym1 (t :: [Maybe a6989586621679420595]) = CatMaybes t
- data MapMaybeSym0 (l :: TyFun (TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (TyFun [a6989586621679420593] [b6989586621679420594] -> Type))
- data MapMaybeSym1 (l :: TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (l :: TyFun [a6989586621679420593] [b6989586621679420594])
- type MapMaybeSym2 (t :: TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (t :: [a6989586621679420593]) = MapMaybe t t
Documentation
The singleton kind-indexed data family.
Instances
Though Haddock doesn't show it, the Sing instance above declares
constructors
SNothing :: Sing Nothing SJust :: Sing a -> Sing (Just a)
Singletons from Data.Maybe
sMaybe_ :: forall (t :: b) (t :: TyFun a b -> Type) (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.
sIsNothing :: forall (t :: Maybe a). Sing t -> Sing (Apply IsNothingSym0 t :: Bool) #
type family FromMaybe (a :: a) (a :: Maybe a) :: a where ... #
Equations
| FromMaybe d x = Case_6989586621679420830 d x x |
sFromMaybe :: forall (t :: a) (t :: Maybe a). Sing t -> Sing t -> Sing (Apply (Apply FromMaybeSym0 t) t :: a) #
type family ListToMaybe (a :: [a]) :: Maybe a where ... #
Equations
| ListToMaybe '[] = NothingSym0 | |
| ListToMaybe ((:) a _) = Apply JustSym0 a |
sListToMaybe :: forall (t :: [a]). Sing t -> Sing (Apply ListToMaybeSym0 t :: Maybe a) #
type family MaybeToList (a :: Maybe a) :: [a] where ... #
Equations
| MaybeToList Nothing = '[] | |
| MaybeToList (Just x) = Apply (Apply (:@#@$) x) '[] |
sMaybeToList :: forall (t :: Maybe a). Sing t -> Sing (Apply MaybeToListSym0 t :: [a]) #
sCatMaybes :: forall (t :: [Maybe a]). Sing t -> Sing (Apply CatMaybesSym0 t :: [a]) #
sMapMaybe :: forall (t :: TyFun a (Maybe b) -> Type) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply MapMaybeSym0 t) t :: [b]) #
Defunctionalization symbols
type NothingSym0 = Nothing #
data JustSym0 (l :: TyFun a3530822107858468865 (Maybe a3530822107858468865)) #
Instances
| SuppressUnusedWarnings (JustSym0 :: TyFun a3530822107858468865 (Maybe a3530822107858468865) -> *) # | |
Defined in Data.Singletons.Prelude.Instances Methods suppressUnusedWarnings :: () # | |
| type Apply (JustSym0 :: TyFun a (Maybe a) -> *) (l :: a) # | |
data Maybe_Sym0 (l :: TyFun b6989586621679419480 (TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> Type)) #
Instances
| SuppressUnusedWarnings (Maybe_Sym0 :: TyFun b6989586621679419480 (TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> Type) -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (Maybe_Sym0 :: TyFun b6989586621679419480 (TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> Type) -> *) (l :: b6989586621679419480) # | |
Defined in Data.Singletons.Prelude.Maybe type Apply (Maybe_Sym0 :: TyFun b6989586621679419480 (TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> Type) -> *) (l :: b6989586621679419480) = (Maybe_Sym1 l :: TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> *) | |
data Maybe_Sym1 (l :: b6989586621679419480) (l :: TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type)) #
Instances
| SuppressUnusedWarnings (Maybe_Sym1 :: b6989586621679419480 -> TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (Maybe_Sym1 l1 :: TyFun (TyFun a6989586621679419481 b6989586621679419480 -> Type) (TyFun (Maybe a6989586621679419481) b6989586621679419480 -> Type) -> *) (l2 :: TyFun a6989586621679419481 b6989586621679419480 -> Type) # | |
Defined in Data.Singletons.Prelude.Maybe | |
data Maybe_Sym2 (l :: b6989586621679419480) (l :: TyFun a6989586621679419481 b6989586621679419480 -> Type) (l :: TyFun (Maybe a6989586621679419481) b6989586621679419480) #
Instances
| SuppressUnusedWarnings (Maybe_Sym2 :: b6989586621679419480 -> (TyFun a6989586621679419481 b6989586621679419480 -> Type) -> TyFun (Maybe a6989586621679419481) b6989586621679419480 -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (Maybe_Sym2 l1 l2 :: TyFun (Maybe a) b -> *) (l3 :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type Maybe_Sym3 (t :: b6989586621679419480) (t :: TyFun a6989586621679419481 b6989586621679419480 -> Type) (t :: Maybe a6989586621679419481) = Maybe_ t t t #
data IsJustSym0 (l :: TyFun (Maybe a6989586621679420601) Bool) #
Instances
| SuppressUnusedWarnings (IsJustSym0 :: TyFun (Maybe a6989586621679420601) Bool -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> *) (l :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type IsJustSym1 (t :: Maybe a6989586621679420601) = IsJust t #
data IsNothingSym0 (l :: TyFun (Maybe a6989586621679420600) Bool) #
Instances
| SuppressUnusedWarnings (IsNothingSym0 :: TyFun (Maybe a6989586621679420600) Bool -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> *) (l :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type IsNothingSym1 (t :: Maybe a6989586621679420600) = IsNothing t #
data FromJustSym0 (l :: TyFun (Maybe a6989586621679420599) a6989586621679420599) #
Instances
| SuppressUnusedWarnings (FromJustSym0 :: TyFun (Maybe a6989586621679420599) a6989586621679420599 -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (FromJustSym0 :: TyFun (Maybe a) a -> *) (l :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type FromJustSym1 (t :: Maybe a6989586621679420599) = FromJust t #
data FromMaybeSym0 (l :: TyFun a6989586621679420598 (TyFun (Maybe a6989586621679420598) a6989586621679420598 -> Type)) #
Instances
| SuppressUnusedWarnings (FromMaybeSym0 :: TyFun a6989586621679420598 (TyFun (Maybe a6989586621679420598) a6989586621679420598 -> Type) -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (FromMaybeSym0 :: TyFun a6989586621679420598 (TyFun (Maybe a6989586621679420598) a6989586621679420598 -> Type) -> *) (l :: a6989586621679420598) # | |
Defined in Data.Singletons.Prelude.Maybe type Apply (FromMaybeSym0 :: TyFun a6989586621679420598 (TyFun (Maybe a6989586621679420598) a6989586621679420598 -> Type) -> *) (l :: a6989586621679420598) = FromMaybeSym1 l | |
data FromMaybeSym1 (l :: a6989586621679420598) (l :: TyFun (Maybe a6989586621679420598) a6989586621679420598) #
Instances
| SuppressUnusedWarnings (FromMaybeSym1 :: a6989586621679420598 -> TyFun (Maybe a6989586621679420598) a6989586621679420598 -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (FromMaybeSym1 l1 :: TyFun (Maybe a) a -> *) (l2 :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type FromMaybeSym2 (t :: a6989586621679420598) (t :: Maybe a6989586621679420598) = FromMaybe t t #
data ListToMaybeSym0 (l :: TyFun [a6989586621679420596] (Maybe a6989586621679420596)) #
Instances
| SuppressUnusedWarnings (ListToMaybeSym0 :: TyFun [a6989586621679420596] (Maybe a6989586621679420596) -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> *) (l :: [a]) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type ListToMaybeSym1 (t :: [a6989586621679420596]) = ListToMaybe t #
data MaybeToListSym0 (l :: TyFun (Maybe a6989586621679420597) [a6989586621679420597]) #
Instances
| SuppressUnusedWarnings (MaybeToListSym0 :: TyFun (Maybe a6989586621679420597) [a6989586621679420597] -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> *) (l :: Maybe a) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type MaybeToListSym1 (t :: Maybe a6989586621679420597) = MaybeToList t #
data CatMaybesSym0 (l :: TyFun [Maybe a6989586621679420595] [a6989586621679420595]) #
Instances
| SuppressUnusedWarnings (CatMaybesSym0 :: TyFun [Maybe a6989586621679420595] [a6989586621679420595] -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> *) (l :: [Maybe a]) # | |
Defined in Data.Singletons.Prelude.Maybe | |
type CatMaybesSym1 (t :: [Maybe a6989586621679420595]) = CatMaybes t #
data MapMaybeSym0 (l :: TyFun (TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (TyFun [a6989586621679420593] [b6989586621679420594] -> Type)) #
Instances
| SuppressUnusedWarnings (MapMaybeSym0 :: TyFun (TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (TyFun [a6989586621679420593] [b6989586621679420594] -> Type) -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (MapMaybeSym0 :: TyFun (TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (TyFun [a6989586621679420593] [b6989586621679420594] -> Type) -> *) (l :: TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) # | |
Defined in Data.Singletons.Prelude.Maybe | |
data MapMaybeSym1 (l :: TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) (l :: TyFun [a6989586621679420593] [b6989586621679420594]) #
Instances
| SuppressUnusedWarnings (MapMaybeSym1 :: (TyFun a6989586621679420593 (Maybe b6989586621679420594) -> Type) -> TyFun [a6989586621679420593] [b6989586621679420594] -> *) # | |
Defined in Data.Singletons.Prelude.Maybe Methods suppressUnusedWarnings :: () # | |
| type Apply (MapMaybeSym1 l1 :: TyFun [a] [b] -> *) (l2 :: [a]) # | |
Defined in Data.Singletons.Prelude.Maybe | |