diff options
| author | Gaëtan Gilbert | 2019-02-22 17:44:43 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-02-25 14:08:25 +0100 |
| commit | 46665f87bbdd2d5fe0c302eae63912d6418d7207 (patch) | |
| tree | 9e845e7a9358ba5442c8508036926596e6e56d8c /pretyping/typeclasses_errors.mli | |
| parent | fc76c77ac6e509c1bccc2823ce2037d21a53276a (diff) | |
Fix #9631: Instance: anomaly grounding non evar-free term
Diffstat (limited to 'pretyping/typeclasses_errors.mli')
| -rw-r--r-- | pretyping/typeclasses_errors.mli | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/pretyping/typeclasses_errors.mli b/pretyping/typeclasses_errors.mli index 9831627a9a..fd75781ed5 100644 --- a/pretyping/typeclasses_errors.mli +++ b/pretyping/typeclasses_errors.mli @@ -18,9 +18,10 @@ type typeclass_error = | NotAClass of constr | UnboundMethod of GlobRef.t * lident (** Class name, method *) -exception TypeClassError of env * typeclass_error +exception TypeClassError of env * Evd.evar_map * typeclass_error -val not_a_class : env -> constr -> 'a +val typeclass_error : env -> Evd.evar_map -> typeclass_error -> 'a -val unbound_method : env -> GlobRef.t -> lident -> 'a +val not_a_class : env -> Evd.evar_map -> constr -> 'a +val unbound_method : env -> Evd.evar_map -> GlobRef.t -> lident -> 'a |