singletons-2.2: A framework for generating singleton types

Copyright(C) 2013-2014 Richard Eisenberg Jan Stolarek
LicenseBSD-style (see LICENSE)
MaintainerRichard Eisenberg (eir@cis.upenn.edu)
Stabilityexperimental
Portabilitynon-portable
Safe HaskellNone
LanguageHaskell2010

Data.Singletons.Prelude.Maybe

Contents

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

Documentation

data family Sing (a :: k) #

The singleton kind-indexed data family.

Instances

data Sing Bool # 
data Sing Bool where
data Sing Ordering # 
data Sing * # 
data Sing * where
data Sing Nat # 
data Sing Nat where
data Sing Symbol # 
data Sing Symbol where
data Sing () # 
data Sing () where
data Sing [a0] # 
data Sing [a0] where
data Sing (Maybe a0) # 
data Sing (Maybe a0) where
data Sing (NonEmpty a0) # 
data Sing (NonEmpty a0) where
data Sing (Either a0 b0) # 
data Sing (Either a0 b0) where
data Sing (a0, b0) # 
data Sing (a0, b0) where
data Sing ((~>) k1 k2) # 
data Sing ((~>) k1 k2) = SLambda {}
data Sing (a0, b0, c0) # 
data Sing (a0, b0, c0) where
data Sing (a0, b0, c0, d0) # 
data Sing (a0, b0, c0, d0) where
data Sing (a0, b0, c0, d0, e0) # 
data Sing (a0, b0, c0, d0, e0) where
data Sing (a0, b0, c0, d0, e0, f0) # 
data Sing (a0, b0, c0, d0, e0, f0) where
data Sing (a0, b0, c0, d0, e0, f0, g0) # 
data Sing (a0, b0, c0, d0, e0, f0, g0) where

Though Haddock doesn't show it, the Sing instance above declares constructors

SNothing :: Sing Nothing
SJust    :: Sing a -> Sing (Just a)

type SMaybe = (Sing :: Maybe a -> Type) #

SBool is a kind-restricted synonym for Sing: type SMaybe (a :: Maybe k) = Sing a

Singletons from Data.Maybe

maybe_ :: forall b a. b -> (a -> b) -> Maybe a -> b #

type family Maybe_ (a :: b) (a :: TyFun a b -> Type) (a :: Maybe a) :: b where ... #

Equations

Maybe_ n _z_6989586621679969126 Nothing = n 
Maybe_ _z_6989586621679969129 f (Just x) = Apply f x 

sMaybe_ :: forall t t t. 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 :: Maybe a) :: Bool where ... #

Equations

IsJust Nothing = FalseSym0 
IsJust (Just _z_6989586621679970479) = TrueSym0 

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

type family IsNothing (a :: Maybe a) :: Bool where ... #

Equations

IsNothing Nothing = TrueSym0 
IsNothing (Just _z_6989586621679970472) = FalseSym0 

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

type family FromJust (a :: Maybe a) :: a where ... #

Equations

FromJust Nothing = Apply ErrorSym0 "Maybe.fromJust: Nothing" 
FromJust (Just x) = x 

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

type family FromMaybe (a :: a) (a :: Maybe a) :: a where ... #

Equations

FromMaybe d x = Case_6989586621679970459 d x x 

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

type family ListToMaybe (a :: [a]) :: Maybe a where ... #

Equations

ListToMaybe '[] = NothingSym0 
ListToMaybe ((:) a _z_6989586621679970440) = Apply JustSym0 a 

sListToMaybe :: forall t. 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. Sing t -> Sing (Apply MaybeToListSym0 t :: [a]) #

type family CatMaybes (a :: [Maybe a]) :: [a] where ... #

Equations

CatMaybes '[] = '[] 
CatMaybes ((:) (Just x) xs) = Apply (Apply (:$) x) (Apply CatMaybesSym0 xs) 
CatMaybes ((:) Nothing xs) = Apply CatMaybesSym0 xs 

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

type family MapMaybe (a :: TyFun a (Maybe b) -> Type) (a :: [a]) :: [b] where ... #

Equations

MapMaybe _z_6989586621679970392 '[] = '[] 
MapMaybe f ((:) x xs) = Case_6989586621679970424 f x xs (Let6989586621679970411Scrutinee_6989586621679970381Sym3 f x xs) 

sMapMaybe :: forall t t. Sing t -> Sing t -> Sing (Apply (Apply MapMaybeSym0 t) t :: [b]) #

Defunctionalization symbols

data JustSym0 l #

Instances

SuppressUnusedWarnings (TyFun a3530822107858468866 (Maybe a3530822107858468866) -> *) (JustSym0 a3530822107858468866) # 

Methods

suppressUnusedWarnings :: Proxy (JustSym0 a3530822107858468866) t -> () #

type Apply a3530822107858468866 (Maybe a3530822107858468866) (JustSym0 a3530822107858468866) l0 # 
type Apply a3530822107858468866 (Maybe a3530822107858468866) (JustSym0 a3530822107858468866) l0 = JustSym1 a3530822107858468866 l0

type JustSym1 t = Just t #

data Maybe_Sym0 l #

Instances

SuppressUnusedWarnings (TyFun b6989586621679969104 (TyFun (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) -> Type) -> *) (Maybe_Sym0 a6989586621679969105 b6989586621679969104) # 

Methods

suppressUnusedWarnings :: Proxy (Maybe_Sym0 a6989586621679969105 b6989586621679969104) t -> () #

type Apply b6989586621679969104 (TyFun (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) -> Type) (Maybe_Sym0 a6989586621679969105 b6989586621679969104) l0 # 
type Apply b6989586621679969104 (TyFun (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) -> Type) (Maybe_Sym0 a6989586621679969105 b6989586621679969104) l0 = Maybe_Sym1 a6989586621679969105 b6989586621679969104 l0

data Maybe_Sym1 l l #

Instances

SuppressUnusedWarnings (b6989586621679969104 -> TyFun (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) -> *) (Maybe_Sym1 a6989586621679969105 b6989586621679969104) # 

Methods

suppressUnusedWarnings :: Proxy (Maybe_Sym1 a6989586621679969105 b6989586621679969104) t -> () #

type Apply (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) (Maybe_Sym1 a6989586621679969105 b6989586621679969104 l0) l1 # 
type Apply (TyFun a6989586621679969105 b6989586621679969104 -> Type) (TyFun (Maybe a6989586621679969105) b6989586621679969104 -> Type) (Maybe_Sym1 a6989586621679969105 b6989586621679969104 l0) l1 = Maybe_Sym2 a6989586621679969105 b6989586621679969104 l0 l1

data Maybe_Sym2 l l l #

Instances

SuppressUnusedWarnings (b6989586621679969104 -> (TyFun a6989586621679969105 b6989586621679969104 -> Type) -> TyFun (Maybe a6989586621679969105) b6989586621679969104 -> *) (Maybe_Sym2 a6989586621679969105 b6989586621679969104) # 

Methods

suppressUnusedWarnings :: Proxy (Maybe_Sym2 a6989586621679969105 b6989586621679969104) t -> () #

type Apply (Maybe a6989586621679969105) b6989586621679969104 (Maybe_Sym2 a6989586621679969105 b6989586621679969104 l1 l0) l2 # 
type Apply (Maybe a6989586621679969105) b6989586621679969104 (Maybe_Sym2 a6989586621679969105 b6989586621679969104 l1 l0) l2 = Maybe_Sym3 a6989586621679969105 b6989586621679969104 l1 l0 l2

type Maybe_Sym3 t t t = Maybe_ t t t #

data IsJustSym0 l #

Instances

SuppressUnusedWarnings (TyFun (Maybe a6989586621679970358) Bool -> *) (IsJustSym0 a6989586621679970358) # 

Methods

suppressUnusedWarnings :: Proxy (IsJustSym0 a6989586621679970358) t -> () #

type Apply (Maybe a6989586621679970358) Bool (IsJustSym0 a6989586621679970358) l0 # 
type Apply (Maybe a6989586621679970358) Bool (IsJustSym0 a6989586621679970358) l0 = IsJustSym1 a6989586621679970358 l0

type IsJustSym1 t = IsJust t #

data IsNothingSym0 l #

Instances

SuppressUnusedWarnings (TyFun (Maybe a6989586621679970357) Bool -> *) (IsNothingSym0 a6989586621679970357) # 

Methods

suppressUnusedWarnings :: Proxy (IsNothingSym0 a6989586621679970357) t -> () #

type Apply (Maybe a6989586621679970357) Bool (IsNothingSym0 a6989586621679970357) l0 # 
type Apply (Maybe a6989586621679970357) Bool (IsNothingSym0 a6989586621679970357) l0 = IsNothingSym1 a6989586621679970357 l0

data FromJustSym0 l #

Instances

SuppressUnusedWarnings (TyFun (Maybe a6989586621679970356) a6989586621679970356 -> *) (FromJustSym0 a6989586621679970356) # 

Methods

suppressUnusedWarnings :: Proxy (FromJustSym0 a6989586621679970356) t -> () #

type Apply (Maybe a6989586621679970356) a6989586621679970356 (FromJustSym0 a6989586621679970356) l0 # 
type Apply (Maybe a6989586621679970356) a6989586621679970356 (FromJustSym0 a6989586621679970356) l0 = FromJustSym1 a6989586621679970356 l0

data FromMaybeSym0 l #

Instances

SuppressUnusedWarnings (TyFun a6989586621679970355 (TyFun (Maybe a6989586621679970355) a6989586621679970355 -> Type) -> *) (FromMaybeSym0 a6989586621679970355) # 

Methods

suppressUnusedWarnings :: Proxy (FromMaybeSym0 a6989586621679970355) t -> () #

type Apply a6989586621679970355 (TyFun (Maybe a6989586621679970355) a6989586621679970355 -> Type) (FromMaybeSym0 a6989586621679970355) l0 # 
type Apply a6989586621679970355 (TyFun (Maybe a6989586621679970355) a6989586621679970355 -> Type) (FromMaybeSym0 a6989586621679970355) l0 = FromMaybeSym1 a6989586621679970355 l0

data FromMaybeSym1 l l #

Instances

SuppressUnusedWarnings (a6989586621679970355 -> TyFun (Maybe a6989586621679970355) a6989586621679970355 -> *) (FromMaybeSym1 a6989586621679970355) # 

Methods

suppressUnusedWarnings :: Proxy (FromMaybeSym1 a6989586621679970355) t -> () #

type Apply (Maybe a6989586621679970355) a6989586621679970355 (FromMaybeSym1 a6989586621679970355 l0) l1 # 
type Apply (Maybe a6989586621679970355) a6989586621679970355 (FromMaybeSym1 a6989586621679970355 l0) l1 = FromMaybeSym2 a6989586621679970355 l0 l1

type FromMaybeSym2 t t = FromMaybe t t #

data ListToMaybeSym0 l #

Instances

SuppressUnusedWarnings (TyFun [a6989586621679970353] (Maybe a6989586621679970353) -> *) (ListToMaybeSym0 a6989586621679970353) # 

Methods

suppressUnusedWarnings :: Proxy (ListToMaybeSym0 a6989586621679970353) t -> () #

type Apply [a6989586621679970353] (Maybe a6989586621679970353) (ListToMaybeSym0 a6989586621679970353) l0 # 
type Apply [a6989586621679970353] (Maybe a6989586621679970353) (ListToMaybeSym0 a6989586621679970353) l0 = ListToMaybeSym1 a6989586621679970353 l0

data MaybeToListSym0 l #

Instances

SuppressUnusedWarnings (TyFun (Maybe a6989586621679970354) [a6989586621679970354] -> *) (MaybeToListSym0 a6989586621679970354) # 

Methods

suppressUnusedWarnings :: Proxy (MaybeToListSym0 a6989586621679970354) t -> () #

type Apply (Maybe a6989586621679970354) [a6989586621679970354] (MaybeToListSym0 a6989586621679970354) l0 # 
type Apply (Maybe a6989586621679970354) [a6989586621679970354] (MaybeToListSym0 a6989586621679970354) l0 = MaybeToListSym1 a6989586621679970354 l0

data CatMaybesSym0 l #

Instances

SuppressUnusedWarnings (TyFun [Maybe a6989586621679970352] [a6989586621679970352] -> *) (CatMaybesSym0 a6989586621679970352) # 

Methods

suppressUnusedWarnings :: Proxy (CatMaybesSym0 a6989586621679970352) t -> () #

type Apply [Maybe a6989586621679970352] [a6989586621679970352] (CatMaybesSym0 a6989586621679970352) l0 # 
type Apply [Maybe a6989586621679970352] [a6989586621679970352] (CatMaybesSym0 a6989586621679970352) l0 = CatMaybesSym1 a6989586621679970352 l0

data MapMaybeSym0 l #

Instances

SuppressUnusedWarnings (TyFun (TyFun a6989586621679970350 (Maybe b6989586621679970351) -> Type) (TyFun [a6989586621679970350] [b6989586621679970351] -> Type) -> *) (MapMaybeSym0 a6989586621679970350 b6989586621679970351) # 

Methods

suppressUnusedWarnings :: Proxy (MapMaybeSym0 a6989586621679970350 b6989586621679970351) t -> () #

type Apply (TyFun a6989586621679970350 (Maybe b6989586621679970351) -> Type) (TyFun [a6989586621679970350] [b6989586621679970351] -> Type) (MapMaybeSym0 a6989586621679970350 b6989586621679970351) l0 # 
type Apply (TyFun a6989586621679970350 (Maybe b6989586621679970351) -> Type) (TyFun [a6989586621679970350] [b6989586621679970351] -> Type) (MapMaybeSym0 a6989586621679970350 b6989586621679970351) l0 = MapMaybeSym1 a6989586621679970350 b6989586621679970351 l0

data MapMaybeSym1 l l #

Instances

SuppressUnusedWarnings ((TyFun a6989586621679970350 (Maybe b6989586621679970351) -> Type) -> TyFun [a6989586621679970350] [b6989586621679970351] -> *) (MapMaybeSym1 a6989586621679970350 b6989586621679970351) # 

Methods

suppressUnusedWarnings :: Proxy (MapMaybeSym1 a6989586621679970350 b6989586621679970351) t -> () #

type Apply [a6989586621679970350] [b6989586621679970351] (MapMaybeSym1 a6989586621679970350 b6989586621679970351 l0) l1 # 
type Apply [a6989586621679970350] [b6989586621679970351] (MapMaybeSym1 a6989586621679970350 b6989586621679970351 l0) l1 = MapMaybeSym2 a6989586621679970350 b6989586621679970351 l0 l1

type MapMaybeSym2 t t = MapMaybe t t #