diff --git a/std/test.glu b/std/test.glu index 03d96d667c..d136ef9eaf 100644 --- a/std/test.glu +++ b/std/test.glu @@ -74,6 +74,7 @@ let assert_success : [Show e] let assert_throws : forall e . [Show a] -> Eff [| error : Error e, writer : Test | r |] a -> Eff [| writer : Test | r |] () + = run_error >> flat_map assert_err