diff options
| author | Pierre-Marie Pédrot | 2016-03-20 16:59:15 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-20 21:26:40 +0100 |
| commit | dc7b77f09fe5e59e6e48486d9a8c0bdc6acf83b7 (patch) | |
| tree | 1314b0f8a4f296f01b492cbd6db3549cba78f1b9 /printing/pptactic.ml | |
| parent | 6de9f13ba666250ea397c7db1d9d37075a9dc1c2 (diff) | |
Adding a new Ltac generic argument for forced tactics returing unit.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index d99a5f0d89..982c18ec61 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1415,6 +1415,11 @@ let () = let printer _ _ prtac = prtac (0, E) in declare_extra_genarg_pprule wit_tactic printer printer printer +let () = + let pr_unit _ _ _ () = str "()" in + let printer _ _ prtac = prtac (0, E) in + declare_extra_genarg_pprule wit_ltac printer printer pr_unit + module Richpp = struct include Make (Ppconstr.Richpp) (struct |