aboutsummaryrefslogtreecommitdiff
path: root/printing/richprinter.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2015-08-15 19:17:26 +0200
committerPierre-Marie Pédrot2015-08-15 20:05:34 +0200
commit98618cfb6b326b70da29348bc5d212e41086f473 (patch)
treeb47e7955c5c35f1c415c68fd6a2e97b5745fc32a /printing/richprinter.ml
parent2c1882815e7877bfc574f9f71eff6ce099145df5 (diff)
More parametric type for generalized XML.
Diffstat (limited to 'printing/richprinter.ml')
-rw-r--r--printing/richprinter.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/richprinter.ml b/printing/richprinter.ml
index d95e190749..a1c3305bb5 100644
--- a/printing/richprinter.ml
+++ b/printing/richprinter.ml
@@ -5,7 +5,7 @@ module RichppVernac = Ppvernac.Richpp
module RichppTactic = Pptactic.Richpp
type rich_pp =
- Ppannotation.t Richpp.located Xml_datatype.gxml
+ (string, Ppannotation.t Richpp.located) Xml_datatype.gxml
* Xml_datatype.xml
let get_annotations obj = Pp.Tag.prj obj Ppannotation.tag