upstream: github.com/mirage/ca-certs
fix(lint): resolve E320, E331, E410, E415, E505, E510 across multiple packages
E505: add missing .mli files for merlint/lib/sexp, monopam-info, and
monopam/lib/{add,clean,ctx,diff,init,pull,push,remove}.
E510: add log source to ca-certs/test/tests.ml.
E410: fix doc ending period in kdf/scrypt.
E415: add pp to ocaml-agent config and runtime_config.
E331: remove redundant get_/make_/find_/create_ prefixes.
E320: remove redundant module prefixes (Diff.diff→compute,
Pull.pull→run, Push.push→run, Remove.remove→run, etc).
+4
-4
+2
-2
lib/ca_certs.ml
+2
-2
lib/ca_certs.ml
···
54
54
55
55
external iter_on_anchors : (string -> unit) -> unit = "ca_certs_iter_on_anchors"
56
56
57
-
let get_anchors () =
57
+
let anchors () =
58
58
let der_list = ref [] in
59
59
match iter_on_anchors (fun der_cert -> der_list := der_cert :: !der_list) with
60
60
| () -> Ok !der_list
···
66
66
returns a list of DER-encoded certificates. These are decoded and reencoded
67
67
as a single PEM certificate. *)
68
68
let windows_trust_anchors () =
69
-
let* anchors = get_anchors () in
69
+
let* anchors = anchors () in
70
70
let cert_list, err_count =
71
71
List.fold_left
72
72
(fun (acc, err_count) cert ->
+2
-2
test/tests.ml
+2
-2
test/tests.ml
···
974
974
Ptime.of_date_time ((2022, 09, 02), ((14, 00, 00), 00)) );
975
975
]
976
976
977
-
let tests tas =
977
+
let cases tas =
978
978
List.map
979
979
(fun (name, data, time) ->
980
980
let host = Domain_name.(of_string_exn name |> host_exn)
···
1010
1010
match ta () with
1011
1011
| Ok tas ->
1012
1012
Alcotest.run "verification tests"
1013
-
[ ("X509 certificate validation", tests tas); Test_ca_certs.suite ]
1013
+
[ ("X509 certificate validation", cases tas); Test_ca_certs.suite ]
1014
1014
| Error (`Msg msg) ->
1015
1015
Log.err (fun m -> m "error %s in ta()" msg);
1016
1016
exit 1