From 49a2f8411fc69c9cdffc776a25fcb521aab7de74 Mon Sep 17 00:00:00 2001
From: Pierre Boutillier
Date: Wed, 2 Apr 2014 17:59:39 +0200
Subject: A debug printer for Evd.Filter.t

---
 dev/db              | 1 +
 dev/top_printers.ml | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index 37abd3deff..73e7c2bff8 100644
--- a/dev/db
+++ b/dev/db
@@ -6,6 +6,7 @@ install_printer Top_printers.ppid
 install_printer Top_printers.ppidset
 install_printer Top_printers.ppevar
 install_printer Top_printers.ppevarsubst
+install_printer Top_printers.ppexistentialfilter
 install_printer Top_printers.ppintset
 install_printer Top_printers.pplab
 install_printer Top_printers.ppdir
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index eefd07e605..0aa29cadf2 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -127,6 +127,8 @@ let pr_existentialset evars =
   prlist_with_sep spc pr_evar (Evar.Set.elements evars)
 let ppexistentialset evars =
   pp (pr_existentialset evars)
+let ppexistentialfilter filter =
+  pp (prlist_with_sep spc bool (Evd.Filter.repr filter))
 let ppclenv clenv = pp(pr_clenv clenv)
 let ppgoalgoal gl = pp(Goal.pr_goal gl)
 let ppgoal g = pp(Printer.pr_goal g)
-- 
cgit v1.2.3