instance instToBoolOption {α : Type u_1} : ToBool (Option α)

Equations

• instToBoolOption = { toBool := Option.toBool }

def OptionT (m : Type u → Type v) (α : Type u) : Type v

Equations

• OptionT m α = m (Option α)

@[inline]

def OptionT.run {m : Type u → Type v} {α : Type u} (x : OptionT m α) : m (Option α)

Equations

• OptionT.run x = x

def OptionT.mk {m : Type u → Type v} {α : Type u} (x : m (Option α)) : OptionT m α

Equations

• OptionT.mk x = x

@[inline]

def OptionT.bind {m : Type u → Type v} [Monad m] {α : Type u} {β : Type u} (x : OptionT m α) (f : α → OptionT m β) : OptionT m β

Equations

• OptionT.bind x f = OptionT.mk do let __do_lift ← x match __do_lift with | some a => f a | none => pure none

@[inline]

def OptionT.pure {m : Type u → Type v} [Monad m] {α : Type u} (a : α) : OptionT m α

Equations

• OptionT.pure a = OptionT.mk (pure (some a))

@[always_inline]

instance OptionT.instMonadOptionT {m : Type u → Type v} [Monad m] : Monad (OptionT m)

Equations

• OptionT.instMonadOptionT = Monad.mk

@[inline]

def OptionT.orElse {m : Type u → Type v} [Monad m] {α : Type u} (x : OptionT m α) (y : Unit → OptionT m α) : OptionT m α

Equations

• OptionT.orElse x y = OptionT.mk do let __do_lift ← x match __do_lift with | some a => pure (some a) | x => y ()

@[inline]

def OptionT.fail {m : Type u → Type v} [Monad m] {α : Type u} : OptionT m α

Equations

• OptionT.fail = OptionT.mk (pure none)

instance OptionT.instAlternativeOptionT {m : Type u → Type v} [Monad m] : Alternative (OptionT m)

Equations

• OptionT.instAlternativeOptionT = Alternative.mk (fun {α} => OptionT.fail) fun {α} => OptionT.orElse

@[inline]

def OptionT.lift {m : Type u → Type v} [Monad m] {α : Type u} (x : m α) : OptionT m α

Equations

• OptionT.lift x = OptionT.mk do let __do_lift ← x pure (some __do_lift)

instance OptionT.instMonadLiftOptionT {m : Type u → Type v} [Monad m] : MonadLift m (OptionT m)

Equations

• OptionT.instMonadLiftOptionT = { monadLift := fun {α} => OptionT.lift }

instance OptionT.instMonadFunctorOptionT {m : Type u → Type v} : MonadFunctor m (OptionT m)

Equations

• OptionT.instMonadFunctorOptionT = { monadMap := fun {α} f x => f (Option α) x }

@[inline]

def OptionT.tryCatch {m : Type u → Type v} [Monad m] {α : Type u} (x : OptionT m α) (handle : Unit → OptionT m α) : OptionT m α

Equations

• OptionT.tryCatch x handle = OptionT.mk do let __discr ← x match __discr with | some a => pure (some a) | x => handle ()

instance OptionT.instMonadExceptOfUnitOptionT {m : Type u → Type v} [Monad m] : MonadExceptOf Unit (OptionT m)

Equations

• OptionT.instMonadExceptOfUnitOptionT = { throw := fun {α} x => OptionT.fail, tryCatch := fun {α} => OptionT.tryCatch }

instance OptionT.instMonadExceptOfOptionT {m : Type u → Type v} (ε : Type u) [Monad m] [MonadExceptOf ε m] : MonadExceptOf ε (OptionT m)

Equations

• OptionT.instMonadExceptOfOptionT ε = { throw := fun {α} e => OptionT.mk (throwThe ε e), tryCatch := fun {α} x handle => OptionT.mk (tryCatchThe ε x handle) }

instance instMonadControlOptionT {m : Type u_1 → Type u_2} [Monad m] : MonadControl m (OptionT m)

Equations

• instMonadControlOptionT = { stM := Option, liftWith := fun {α} f => liftM (f fun {β} x => OptionT.run x), restoreM := fun {α} x => x }