CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-19 00:15:39 +03:00
Code Issues Projects Releases Wiki Activity

Cleanup commented code

Browse Source
This commit is contained in:
Louis Gesbert 2023-06-09 15:27:46 +02:00
parent 9577d57a9b
commit b975e7c149
2 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/catala_utils/cli.mli
View File

@ -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 *\) *)

7
compiler/catala_utils/messages.ml
View File

@ -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) *)