diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-19 03:58:18 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-19 03:58:18 +0000 |
| commit | ebb6a1467c69d8e0a0675852d342ef51cb461a0b (patch) | |
| tree | ed89bff5f46fce72b47d16a89fc42e4c9e540533 /pretyping/typeclasses_errors.ml | |
| parent | bb89852617bfc8c973ba6746a77d1c2913b720ad (diff) | |
Remove camlp4-specific exception handling
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12132 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses_errors.ml')
| -rw-r--r-- | pretyping/typeclasses_errors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/typeclasses_errors.ml b/pretyping/typeclasses_errors.ml index 6a193e910..f1a57ffc1 100644 --- a/pretyping/typeclasses_errors.ml +++ b/pretyping/typeclasses_errors.ml @@ -57,5 +57,5 @@ let mismatched_ctx_inst env c n m = typeclass_error env (MismatchedContextInstan let rec unsatisfiable_exception exn = match exn with | TypeClassError (_, UnsatisfiableConstraints _) -> true - | Ploc.Exc (_, e) -> unsatisfiable_exception e + | Stdpp.Exc_located(_, e) -> unsatisfiable_exception e | _ -> false |