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 set_option_globals : options -> unit
|
||||||
val version : string
|
val version : string
|
||||||
val info : Cmdliner.Cmd.info
|
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 =
|
let unstyle_formatter ppf =
|
||||||
Format.pp_set_mark_tags ppf false;
|
Format.pp_set_mark_tags ppf false;
|
||||||
ppf
|
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
|
(* SIDE EFFECT AT MODULE LOAD: this turns on handling of tags in
|
||||||
[Format.sprintf] etc. functions (ignoring them) *)
|
[Format.sprintf] etc. functions (ignoring them) *)
|
||||||
|
Loading…
Reference in New Issue
Block a user