aboutsummaryrefslogtreecommitdiff
path: root/toplevel
diff options
context:
space:
mode:
authorHugo Herbelin2014-06-13 10:33:40 +0200
committerHugo Herbelin2014-06-13 12:08:34 +0200
commit176f40f976741c8fb6e020c0eaeac4df59a474bc (patch)
tree75111a6ff55f049bc01181f7dd60e6c7f7e951ab /toplevel
parentc06fa8b4c16c35fe48039d5b13e181cca9ebbb51 (diff)
Improved error message when a meta posed as an evar remains unsolved
in case prefix 'e' of "apply" and co is not given.
Diffstat (limited to 'toplevel')
-rw-r--r--toplevel/himsg.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml
index db74e5aa18..41ce6f1da0 100644
--- a/toplevel/himsg.ml
+++ b/toplevel/himsg.ml
@@ -498,6 +498,8 @@ let explain_evar_kind env evi = function
str "the type of an impossible pattern-matching clause"
| Evar_kinds.MatchingVar _ ->
assert false
+ | Evar_kinds.VarInstance id ->
+ str "an instance for the variable " ++ pr_id id
let explain_unsolvability = function
| None -> mt()