aboutsummaryrefslogtreecommitdiffhomepage
path: root/contrib/xml/xmlentries.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/xml/xmlentries.ml4')
-rw-r--r--contrib/xml/xmlentries.ml44
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/xml/xmlentries.ml4 b/contrib/xml/xmlentries.ml4
index bcfcbd2ff..2807a3d6e 100644
--- a/contrib/xml/xmlentries.ml4
+++ b/contrib/xml/xmlentries.ml4
@@ -50,7 +50,7 @@ END
let pr_filename = function Some fn -> str " File" ++ str fn | None -> mt ()
let _ =
- Pptactic.declare_extra_genarg_pprule
+ Pptactic.declare_extra_genarg_pprule true
(rawwit_filename, pr_filename)
(wit_filename, pr_filename)
@@ -76,7 +76,7 @@ open Pp
let pr_diskname = function Some fn -> str " Disk" ++ str fn | None -> mt ()
let _ =
- Pptactic.declare_extra_genarg_pprule
+ Pptactic.declare_extra_genarg_pprule true
(rawwit_diskname, pr_diskname)
(wit_diskname, pr_diskname)