diff options
Diffstat (limited to 'printing/richprinter.ml')
| -rw-r--r-- | printing/richprinter.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/printing/richprinter.ml b/printing/richprinter.ml index d27b7c3736..d71dc82d50 100644 --- a/printing/richprinter.ml +++ b/printing/richprinter.ml @@ -1,19 +1,19 @@ open Richpp -module Indexer = Indexer (struct type t = Ppannotation.t end) - -module RichppConstr = Ppconstr.Richpp (Indexer) -module RichppVernac = Ppvernac.Richpp (Indexer) -module RichppTactic = Pptactic.Richpp (Indexer) +module RichppConstr = Ppconstr.Richpp +module RichppVernac = Ppvernac.Richpp +module RichppTactic = Pptactic.Richpp type rich_pp = string * Ppannotation.t Richpp.located Xml_datatype.gxml * Xml_datatype.xml +let get_annotations obj = Pp.Tag.prj obj Ppannotation.tag + let make_richpp pr ast = let raw_pp, rich_pp = - rich_pp Indexer.get_annotations (fun () -> pr ast) + rich_pp get_annotations (pr ast) in let xml = Ppannotation.( xml_of_rich_pp tag_of_annotation attributes_of_annotation rich_pp |