max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: minor Task async code cleanup

Browse source
This commit is contained in:
tydeu 2021-11-09 16:49:14 -05:00
parent 7bc00f9b29
commit ce7779890b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Lake/Task.lean
View file

@ -46,12 +46,12 @@ def bindAsync (self : EIOTask ε α) (f : α → EIO ε (EIOTask ε β)) (prio :
instance : BindAsync (EIO ε) (EIOTask ε) := ⟨bindAsync⟩
def seqLeftAsync (self : EIOTask ε α) (act : EIO ε β) (prio := Task.Priority.dedicated) : EIO ε (EIOTask ε α) :=
EIO.mapTask (fun | Except.ok a => pure a <* act | Except.error e => throw e) self prio
self.mapAsync (fun a => do discard act; pure a) prio
instance : SeqLeftAsync (EIO ε) (EIOTask ε) := ⟨seqLeftAsync⟩
def seqRightAsync (self : EIOTask ε α) (act : EIO ε β) (prio := Task.Priority.dedicated) : EIO ε (EIOTask ε β) :=
EIO.mapTask (fun | Except.ok a => pure a *> act | Except.error e => throw e) self prio
self.mapAsync (fun _ => act) prio
instance : SeqRightAsync (EIO ε) (EIOTask ε) := ⟨seqRightAsync⟩