autoformat

mirage · Aug 5, 2024 · 62afc58 · 62afc58
1 parent 0ca91e5
commit 62afc58
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 17 deletions.
diff --git a/.ocamlformat b/.ocamlformat
@@ -1,2 +1,2 @@
-version = 0.25.1
+version = 0.26.2
 profile=conventional
diff --git a/ca-certs.opam b/ca-certs.opam
@@ -20,7 +20,7 @@ depends: [
   "fpath"
   "ptime"
   "logs"
-  "mirage-crypto"
+  "mirage-crypto" {>= "1.0.0"}
   "x509" {>= "1.0.0"}
   "ocaml" {>= "4.08.0"}
   "alcotest" {with-test}

diff --git a/dune-project b/dune-project
@@ -12,8 +12,8 @@
  (name ca-certs)
  (depends
   bos fpath ptime logs
-  (mirage-crypto (< 1.0.0))
-  (x509 (and (>= 0.13.0) (< 1.0.0)))
+  (mirage-crypto (>= 1.0.0))
+  (x509 (>= 1.0.0))
   (ocaml (>= 4.08.0))
   (alcotest :with-test)
   (fmt (and :with-test (>= 0.8.7))))

diff --git a/lib/ca_certs.ml b/lib/ca_certs.ml
@@ -53,10 +53,7 @@ external iter_on_anchors : (string -> unit) -> unit = "ca_certs_iter_on_anchors"
 
 let get_anchors () =
   let der_list = ref [] in
-  match
-    iter_on_anchors (fun der_cert ->
-        der_list := der_cert :: !der_list)
-  with
+  match iter_on_anchors (fun der_cert -> der_list := der_cert :: !der_list) with
   | () -> Ok !der_list
   | exception Failure msg -> Error (`Msg msg)
 

diff --git a/lib/dune b/lib/dune
@@ -1,7 +1,7 @@
 (library
  (name ca_certs)
  (public_name ca-certs)
- (libraries mirage-crypto x509 bos fpath logs ptime.clock.os)
+ (libraries mirage-crypto x509 bos fpath logs ptime.clock.os digestif)
  (foreign_stubs
   (language c)
   (names ca_certs_stubs))

diff --git a/test/tests.ml b/test/tests.ml
@@ -971,21 +971,15 @@ let tests tas =
   List.map
     (fun (name, data, time) ->
       let host = Domain_name.(of_string_exn name |> host_exn)
-      and chain =
-        Result.get_ok
-          (X509.Certificate.decode_pem_multiple data)
-      in
+      and chain = Result.get_ok (X509.Certificate.decode_pem_multiple data) in
       ( name,
         `Quick,
         test_one ?time tas (Ok (Some (chain, List.hd chain))) host chain ))
     ok_tests
   @ List.map
       (fun (name, result, data, time) ->
         let host = Domain_name.(of_string_exn name |> host_exn)
-        and chain =
-          Result.get_ok
-            (X509.Certificate.decode_pem_multiple data)
-        in
+        and chain = Result.get_ok (X509.Certificate.decode_pem_multiple data) in
         (name, `Quick, test_one ?time tas (Error (result host chain)) host chain))
       err_tests