aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dev/db1
-rw-r--r--dev/top_printers.ml2
2 files changed, 3 insertions, 0 deletions
diff --git a/dev/db b/dev/db
index 232e7b40b6..c89f2a8be8 100644
--- a/dev/db
+++ b/dev/db
@@ -2,6 +2,7 @@ load_printer "gramlib.cma"
load_printer "top_printers.cmo"
install_printer Top_printers.prid
install_printer Top_printers.prsp
+install_printer Top_printers.prqualid
install_printer Top_printers.prast
install_printer Top_printers.prastpat
install_printer Top_printers.prastpatl
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 990cab3b8b..4f0717b85d 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -47,6 +47,8 @@ let prj j = pP (genprj prjudge j)
let prsp sp = pP[< 'sTR(string_of_path sp) >]
+let prqualid qid = pP[< pr_qualid qid >]
+
let prgoal g = pP(prgl g)
let prsigmagoal g = pP(prgl (sig_it g))