diff options
| author |  Stephane Glondu <steph@glondu.net> | 2012-03-27 07:43:43 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2012-03-27 07:45:11 +0200 |
| commit | 6e34b272d789455a9be589e27ad3a998cf25496b (patch) | |
| tree | 57b74c7cbafd705a1ebce7d16cdaec02b704fb44 /checker/checker.ml | |
| parent | 5fe4ac437bed43547b3695664974f492b55cb553 (diff) | |
| parent | 2bdcd093b357adb2185518dabbafd1a0b9279044 (diff) | |
Remove non-DFSG contentsupstream/8.3.pl4+dfsg
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 2 |
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) |