22 lines
546 B
Text
22 lines
546 B
Text
/-
|
||
Copyright (c) 2021 Mac Malone. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Mac Malone
|
||
-/
|
||
namespace Lake
|
||
|
||
instance : Monad Task where
|
||
map := Task.map
|
||
pure := Task.pure
|
||
bind := Task.bind
|
||
|
||
abbrev ETask ε := ExceptT ε Task
|
||
abbrev OptionTask := OptionT Task
|
||
|
||
def BaseIOTask := Task
|
||
instance : Monad BaseIOTask := inferInstanceAs <| Monad Task
|
||
|
||
abbrev EIOTask ε := ExceptT ε BaseIOTask
|
||
abbrev OptionIOTask := OptionT BaseIOTask
|
||
|
||
instance : Inhabited (OptionIOTask α) := ⟨failure⟩
|