Skip to content

Commit

Permalink
adjust
Browse files Browse the repository at this point in the history
  • Loading branch information
hannesm committed Aug 5, 2024
1 parent 3b03584 commit e508731
Show file tree
Hide file tree
Showing 3 changed files with 1 addition and 4 deletions.
1 change: 0 additions & 1 deletion .github/workflows/test.yml
Original file line number Diff line number Diff line change
Expand Up @@ -25,5 +25,4 @@ jobs:
ocaml-compiler: ${{ matrix.ocaml-compiler }}
- run: opam install . --deps-only --with-test
- run: opam exec -- dune build
- run: echo "OCAMLRUNPARAM=b" >> $env:GITHUB_ENV
- run: opam exec -- dune runtest
2 changes: 0 additions & 2 deletions lib/ca_certs.ml
Original file line number Diff line number Diff line change
Expand Up @@ -64,7 +64,6 @@ let ( let* ) = Result.bind
reencoded as a single PEM certificate. *)
let windows_trust_anchors () =
let* anchors = get_anchors () in
Log.info (fun m -> m "found %u anchors" (List.length anchors));
let cert_list =
List.fold_left (fun acc cert ->
match X509.Certificate.decode_der cert with
Expand All @@ -74,7 +73,6 @@ let windows_trust_anchors () =
acc)
[] anchors
in
Log.info (fun m -> m "cert list is %u" (List.length cert_list));
Ok (X509.Certificate.encode_pem_multiple cert_list)

let trust_anchors () =
Expand Down
2 changes: 1 addition & 1 deletion test/tests.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1024,4 +1024,4 @@ let () =
[ ("X509 certificate validation", tests tas) ]
| Error `Msg msg ->
Logs.err (fun m -> m "error %s in ta()" msg);
exit 2
exit 1

0 comments on commit e508731

Please sign in to comment.