swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-02 17:12:28 +01:00
parent 9390ece117
commit cd24e80d6e
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
unikernel/unikernel.ml
View file

@ -38,15 +38,18 @@ module Make
struct
let tls key_ro certificate_ro =
let open Lwt_result.Infix in
Lwt.Infix.(
Key.list key_ro Mirage_kv.Key.empty
>|= R.reword_error (R.msgf "%a" Key.pp_error))
>>= fun keys ->
let ( let* ) = Lwt_result.bind in
let* keys =
Lwt.Infix.(
Key.list key_ro Mirage_kv.Key.empty
>|= R.reword_error (R.msgf "%a" Key.pp_error))
in
let keys, _ = List.partition (fun (_, t) -> t = `Value) keys in
Lwt.Infix.(
Certificate.list certificate_ro Mirage_kv.Key.empty
>|= R.reword_error (R.msgf "%a" Certificate.pp_error))
>>= fun certificates ->
let* certificates =
Lwt.Infix.(
Certificate.list certificate_ro Mirage_kv.Key.empty
>|= R.reword_error (R.msgf "%a" Certificate.pp_error))
in
let certificates, _ =
List.partition (fun (_, t) -> t = `Value) certificates
in
@ -54,7 +57,6 @@ struct
match Mirage_kv.Key.basename name with
| ".gitkeep" -> Lwt.return acc
| _ ->
let open Lwt_result.Infix in
Lwt.Infix.(
Certificate.get certificate_ro name
>|= R.reword_error (R.msgf "%a" Certificate.pp_error))
@ -68,7 +70,6 @@ struct
match Mirage_kv.Key.basename name with
| ".gitkeep" -> Lwt.return acc
| _ ->
let open Lwt_result.Infix in
Lwt.Infix.(
Key.get key_ro name >|= R.reword_error (R.msgf "%a" Key.pp_error))
>>= (Lwt.return <.> X509.Private_key.decode_pem)