diff options
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/checker.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 9489dc94b7..67691a7066 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -6,6 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +open Compat open Pp open Util open System @@ -272,7 +273,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) -> + | Loc.Exc_located (loc,exc) -> hov 0 ((if loc = dummy_loc then (mt ()) else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) ++ explain_exn exc) |