Add more detail to TypeMismatch error

1 files changed, 12 insertions, 0 deletions

diff --git a/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt b/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
index 69428b8..d3b1f50 100644
--- a/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
+++ b/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
@@ -1 +1,13 @@
 [unknown location] Type error: Wrong type of function argument
+ --> 1:22
+  |
+1 | (λ(_ : Natural) → _) True␊
+  |                      ^--^
+  |
+  = This argument has type Value@WHNF { value: AppliedBuiltin(Bool, []), type: Type }
+ --> 1:8
+  |
+1 | (λ(_ : Natural) → _) True␊
+  |        ^-----^
+  |
+  = But the function expected an argument of type Value@WHNF { value: AppliedBuiltin(Natural, []), type: Type }