15 lines
448 B
OCaml
15 lines
448 B
OCaml
let trust_anchors =
|
|
List.fold_left
|
|
(fun acc data ->
|
|
Result.bind acc (fun acc ->
|
|
Result.map
|
|
(fun cert -> cert :: acc)
|
|
(X509.Certificate.decode_der data)))
|
|
(Ok []) Trust_anchor.certificates
|
|
|
|
let authenticator =
|
|
let time () = Some (Mirage_ptime.now ()) in
|
|
fun ?crls ?allowed_hashes () ->
|
|
Result.map
|
|
(X509.Authenticator.chain_of_trust ~time ?crls ?allowed_hashes)
|
|
trust_anchors
|