diff options
| author | Emilio Jesus Gallego Arias | 2019-03-12 12:58:47 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-03-12 12:58:47 +0100 |
| commit | f1d60cad76439d96da36ed7c52ff71b1b9573b80 (patch) | |
| tree | bc4a2447fc0c784ee4e52bb22e6dfade55167358 /pretyping/typeclasses_errors.ml | |
| parent | a5fc75ae3eac4bb2162c624f9d25b53dba022f01 (diff) | |
| parent | 46665f87bbdd2d5fe0c302eae63912d6418d7207 (diff) | |
Merge PR #9632: Fix #9631: Instance: anomaly grounding non evar-free term
Ack-by: SkySkimmer
Reviewed-by: ejgallego
Ack-by: ppedrot
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)) |