+1 -2

lib/asn_grammars.ml

reviewed

··· 1 1 let src = Logs.Src.create "x509.decoding" ~doc:"X509 decoding" 2 2 3 3 module Log = (val Logs.src_log src : Logs.LOG) 4 4 - 5 5 - let ( let* ) = Result.bind 4 4 + open Result.Syntax 6 5 7 6 let decode codec cs = 8 7 let* a, cs = Asn.decode codec cs in

+2 -1

lib/certificate.ml

reviewed

··· 144 144 Asn_grammars.err_to_msg (Asn.pkcs1_digest_info_of_octets cs) 145 145 146 146 let encode_pkcs1_digest_info = Asn.pkcs1_digest_info_to_octets 147 147 - let ( let* ) = Result.bind 147 147 + 148 148 + open Result.Syntax 148 149 149 150 let decode_der cs = 150 151 let* asn = Asn_grammars.err_to_msg (Asn.certificate_of_octets cs) in

+2 -1

lib/crl.ml

reviewed

··· 100 100 type t = { raw : string; asn : crl } 101 101 102 102 let guard p e = if p then Ok () else Error e 103 103 - let ( let* ) = Result.bind 103 103 + 104 104 + open Result.Syntax 104 105 105 106 let decode_der raw = 106 107 let* asn = Asn_grammars.err_to_msg (Asn.crl_of_octets raw) in

+1 -1

lib/ocsp.ml

reviewed

··· 56 56 (required ~label:"serialNumber" Asn_grammars.serial) 57 57 end 58 58 59 59 - let ( let* ) = Result.bind 59 59 + open Result.Syntax 60 60 61 61 module Request = struct 62 62 (*

+1 -1

lib/p12.ml

reviewed

··· 280 280 let amount = String.make to_pad (Char.unsafe_chr to_pad) in 281 281 x ^ amount 282 282 283 283 - let ( let* ) = Result.bind 283 283 + open Result.Syntax 284 284 285 285 (* there are 3 possibilities to encrypt / decrypt things: 286 286 - PKCS12 KDF (see above), with RC2/RC4/DES

+1 -1

lib/public_key.ml

reviewed

··· 1 1 - let ( let* ) = Result.bind 1 1 + open Result.Syntax 2 2 3 3 type ecdsa = 4 4 [ `P256 of Crypto_ec.P256.Dsa.pub