From dda1fd27c48746e83daa3fdd52f1dee410f7c99d Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Wed, 10 Aug 2022 20:31:48 -0700 Subject: [PATCH] chore: fix test --- tests/lean/lcnfTypes.lean | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/lean/lcnfTypes.lean b/tests/lean/lcnfTypes.lean index 6d387055f0..ef514d113a 100644 --- a/tests/lean/lcnfTypes.lean +++ b/tests/lean/lcnfTypes.lean @@ -113,7 +113,7 @@ def weird1 (c : Bool) : (cond c List Array) Nat := def compatible (declName₁ declName₂ : Name) : MetaM Unit := do let type₁ ← getDeclLCNFType declName₁ let type₂ ← getDeclLCNFType declName₂ - unless (← compatibleTypes type₁ type₂) do + unless compatibleTypes type₁ type₂ do throwError "{declName₁} : {← ppExpr type₁}\ntype is not compatible with\n{declName₂} : {← ppExpr type₂}" axiom monadList₁.{u} : Monad List.{u}