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

feat: add Eval instance for BaseIO

Browse source
This commit is contained in:
Gabriel Ebner 2022-09-01 14:19:46 +02:00 • committed by Leonardo de Moura
parent b80775df6f
commit 20f41deea7
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Init/System/IO.lean
View file

@ -697,6 +697,11 @@ instance [Eval α] : Eval (IO α) where
let a ← x ()
Eval.eval fun _ => a
instance [Eval α] : Eval (BaseIO α) where
eval x _ := do
let a ← x ()
Eval.eval fun _ => a
@[noinline, nospecialize] def runEval [Eval α] (a : Unit → α) : IO (String × Except IO.Error Unit) :=
IO.FS.withIsolatedStreams (Eval.eval a false |>.toBaseIO)