upstream: github.com/mirleft/ocaml-tls
mass replace Printf.sprintf/printf with Fmt.str/pr (merlint E200)
112 files across the monorepo. Printf.sprintf → Fmt.str,
Printf.printf → Fmt.pr for consistent formatting library usage.
+5
-5
+4
-4
bench/speed.ml
+4
-4
bench/speed.ml
···
173
173
(iters, time)
174
174
175
175
let count title f to_str args =
176
-
Printf.printf "\n## %s\n\n%!" title;
177
-
Printf.printf "| group | hs/s |\n%!";
178
-
Printf.printf "| --------- | ------- |\n%!";
176
+
Fmt.pr "\n## %s\n\n%!" title;
177
+
Fmt.pr "| group | hs/s |\n%!";
178
+
Fmt.pr "| --------- | ------- |\n%!";
179
179
args
180
180
|> List.iter @@ fun arg ->
181
181
Gc.full_major ();
182
182
let iters, time = count f arg in
183
-
Printf.printf "| %s | %7.2f |\n%!" (to_str arg) (float iters /. time)
183
+
Fmt.pr "| %s | %7.2f |\n%!" (to_str arg) (float iters /. time)
184
184
185
185
let print_group group =
186
186
let str = Fmt.to_to_string Tls.Core.pp_group group in
+1
-1
test/test_handshake_crypto.ml
+1
-1
test/test_handshake_crypto.ml