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

chore: fix test

Browse source
This commit is contained in:
Leonardo de Moura 2020-06-17 20:34:37 -07:00
parent 82780be144
commit 0c6d6f1ff1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/playground/task_test.lean
View file

@ -13,8 +13,8 @@ dbgTrace ("f2: " ++ toString x) $ fun _ =>
g x
def main (xs : List String) : IO UInt32 :=
let t1 := Task.mk $ (fun _ => f1 xs.head.toNat);
let t2 := Task.mk $ (fun _ => f2 xs.head.toNat);
let t1 := Task.mk $ (fun _ => f1 xs.head!.toNat!);
let t2 := Task.mk $ (fun _ => f2 xs.head!.toNat!);
dbgSleep 1000 $ fun _ =>
IO.println (toString t1.get ++ " " ++ toString t2.get) *>
pure 0