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.ml | |
| parent | fc76c77ac6e509c1bccc2823ce2037d21a53276a (diff) | |
Fix #9631: Instance: anomaly grounding non evar-free term
Diffstat (limited to 'pretyping/typeclasses_errors.ml')
| -rw-r--r-- | pretyping/typeclasses_errors.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/typeclasses_errors.ml b/pretyping/typeclasses_errors.ml index 2720a3e4de..af5b3016c9 100644 --- a/pretyping/typeclasses_errors.ml +++ b/pretyping/typeclasses_errors.ml @@ -20,10 +20,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 -let typeclass_error env err = raise (TypeClassError (env, err)) +let typeclass_error env sigma err = raise (TypeClassError (env, sigma, err)) -let not_a_class env c = typeclass_error env (NotAClass c) +let not_a_class env sigma c = typeclass_error env sigma (NotAClass c) -let unbound_method env cid id = typeclass_error env (UnboundMethod (cid, id)) +let unbound_method env sigma cid id = typeclass_error env sigma (UnboundMethod (cid, id)) |