mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 16:28:12 +03:00
Cleanup commented code
This commit is contained in:
parent
9577d57a9b
commit
b975e7c149
@ -133,13 +133,3 @@ val catala_t : (string -> options -> 'a) -> 'a Cmdliner.Term.t
|
||||
val set_option_globals : options -> unit
|
||||
val version : string
|
||||
val info : Cmdliner.Cmd.info
|
||||
|
||||
(**{1 Terminal formatting}*)
|
||||
|
||||
(**{2 Printers}*)
|
||||
|
||||
(* val concat_with_line_depending_prefix_and_suffix :
|
||||
* (int -> string) -> (int -> string) -> string list -> string
|
||||
*
|
||||
* val add_prefix_to_each_line : string -> (int -> string) -> string
|
||||
* (\** The int argument of the prefix corresponds to the line number, starting at 0 *\) *)
|
||||
|
@ -12,13 +12,6 @@ let color_formatter ppf =
|
||||
let unstyle_formatter ppf =
|
||||
Format.pp_set_mark_tags ppf false;
|
||||
ppf
|
||||
(* Format.pp_set_formatter_stag_functions ppf {
|
||||
* Format.mark_open_stag = (fun _ -> "");
|
||||
* mark_close_stag = (fun _ -> "");
|
||||
* print_open_stag = ignore;
|
||||
* print_close_stag = ignore;
|
||||
* };
|
||||
* ppf *)
|
||||
|
||||
(* SIDE EFFECT AT MODULE LOAD: this turns on handling of tags in
|
||||
[Format.sprintf] etc. functions (ignoring them) *)
|
||||
|
Loading…
Reference in New Issue
Block a user