diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/printers.mllib | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dev/printers.mllib b/dev/printers.mllib index 65283a843a..7b2d08c2af 100644 --- a/dev/printers.mllib +++ b/dev/printers.mllib @@ -7,6 +7,7 @@ Flags Segmenttree Unicodetable Util +Errors Bigint Hashcons Dyn diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 681cb0634e..547ca0475a 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -414,7 +414,7 @@ let _ = (fun () -> in_current_context constr_display c) | _ -> failwith "Vernac extension: cannot occur") with - e -> Pp.pp (Cerrors.explain_exn e) + e -> Pp.pp (Errors.print e) let _ = extend_vernac_command_grammar "PrintConstr" None [[GramTerminal "PrintConstr"; @@ -431,7 +431,7 @@ let _ = (fun () -> in_current_context print_pure_constr c) | _ -> failwith "Vernac extension: cannot occur") with - e -> Pp.pp (Cerrors.explain_exn e) + e -> Pp.pp (Errors.print e) let _ = extend_vernac_command_grammar "PrintPureConstr" None [[GramTerminal "PrintPureConstr"; |