diff options
| author | ppedrot | 2013-08-06 11:34:34 +0000 |
|---|---|---|
| committer | ppedrot | 2013-08-06 11:34:34 +0000 |
| commit | 2ae3a9f3e560be989c0b8b38be4ef1eb6cd648cf (patch) | |
| tree | c15f196cbacab4c996a02b0908a184216cc00ffa /lib/flags.mli | |
| parent | acd450f5c2eef92a1079b674a5cc4575f627ae45 (diff) | |
Added more flags choice in desambiguating printer. The code is
parametric on the list of possible flags.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16665 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/flags.mli')
| -rw-r--r-- | lib/flags.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/flags.mli b/lib/flags.mli index 9dbe2c68c1..14b9f26bcc 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -64,6 +64,9 @@ val if_warn : ('a -> unit) -> 'a -> unit use [with_option o (f x y) z]) *) val with_option : bool ref -> ('a -> 'b) -> 'a -> 'b +(** As [with_option], but on several flags. *) +val with_options : bool ref list -> ('a -> 'b) -> 'a -> 'b + (** Temporarily deactivate an option *) val without_option : bool ref -> ('a -> 'b) -> 'a -> 'b |