summaryrefslogtreecommitdiff
path: root/checker/checker.ml
diff options
context:
space:
mode:
authorGravatar Stephane Glondu <steph@glondu.net>2012-03-27 07:41:19 +0200
committerGravatar Stephane Glondu <steph@glondu.net>2012-03-27 07:41:19 +0200
commit2bdcd093b357adb2185518dabbafd1a0b9279044 (patch)
treebb98a3f549ff7fb9721a94972f0baba47290fedb /checker/checker.ml
parent300293c119981054c95182a90c829058530a6b6f (diff)
Imported Upstream version 8.3.pl4upstream/8.3.pl4
Diffstat (limited to 'checker/checker.ml')
-rw-r--r--checker/checker.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/checker.ml b/checker/checker.ml
index 76f81264..c8cb58ae 100644
--- a/checker/checker.ml
+++ b/checker/checker.ml
@@ -274,7 +274,7 @@ let rec explain_exn = function
(* let ctx = Check.get_env() in
hov 0
(str "Error:" ++ spc () ++ Himsg.explain_inductive_error ctx e)*)
- | Stdpp.Exc_located (loc,exc) ->
+ | Compat.Exc_located (loc,exc) ->
hov 0 ((if loc = dummy_loc then (mt ())
else (str"At location " ++ print_loc loc ++ str":" ++ fnl ()))
++ explain_exn exc)