diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-13 12:43:52 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-10-08 16:50:13 +0200 |
| commit | 8110e9cbd6d70960a221c316774460f6ad6dc5e9 (patch) | |
| tree | 2c16932125a6df16a7f7617bbf78feb3d3e60ca7 /dev | |
| parent | 5c07e11226e44dadb04a2fe48c91cce094989ce0 (diff) | |
Adding debugging printer for Genarg.ArgT.t.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 3 insertions, 0 deletions
@@ -51,6 +51,7 @@ install_printer Top_printers.prsubst install_printer Top_printers.prdelta install_printer Top_printers.ppfconstr install_printer Top_printers.ppgenarginfo +install_printer Top_printers.ppgenargargt install_printer Top_printers.ppist install_printer Top_printers.ppconstrunderbindersidmap install_printer Top_printers.ppunbound_ltac_var_map diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e09477014..e34385e5c 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -478,6 +478,8 @@ let prgenarginfo arg = let ppgenarginfo arg = pp (prgenarginfo arg) +let ppgenargargt arg = pp (str (Genarg.ArgT.repr arg)) + let ppist ist = let pr id arg = prgenarginfo arg in pp (pridmap pr ist.Geninterp.lfun) |