diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-06 21:33:22 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-09 23:53:21 +0100 |
commit | 79bb4a67a96ec28998d070e405c18fd5fd29d6fb (patch) | |
tree | eb014c32ad13197d2646edf2ff5515c92df8409c /vernac | |
parent | dcd2cd38fe633652cd67707a8e5f9a8a0c8ca74b (diff) |
[nit] Remove some unnecessary global `open Feedback`
Diffstat (limited to 'vernac')
-rw-r--r-- | vernac/topfmt.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vernac/topfmt.ml b/vernac/topfmt.ml index 7e96f28de..1ad7ead72 100644 --- a/vernac/topfmt.ml +++ b/vernac/topfmt.ml @@ -6,7 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Feedback open Pp (** Pp control also belongs here as the terminal is private to the toplevel *) @@ -138,7 +137,7 @@ let make_body quoter info ?pre_hdr s = (* The empty quoter *) let noq x = x (* Generic logger *) -let gen_logger dbg warn ?pre_hdr level msg = match level with +let gen_logger dbg warn ?pre_hdr level msg = let open Feedback in match level with | Debug -> msgnl_with !std_ft (make_body dbg dbg_hdr ?pre_hdr msg) | Info -> msgnl_with !std_ft (make_body dbg info_hdr ?pre_hdr msg) | Notice -> msgnl_with !std_ft (make_body noq info_hdr ?pre_hdr msg) |