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 19:13:36 +01:00
parent 6e6c213cb5
commit c16c1411ea
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
unikernel/unikernel.ml
View file

@ -39,6 +39,12 @@ module Make
(Connect : Connect.S) (Connect : Connect.S)
(HTTP_server : Paf_mirage.S) = (HTTP_server : Paf_mirage.S) =
struct struct
let assets assets_ro =
let ( >>= ) = Lwt_result.bind in
Key.list assets_ro Mirage_kv.Key.empty |> map_err_to_string Key.pp_error
>>= fun keys ->
let keys = List.filter (fun (_, t) -> t = `Value) keys in
let tls certificate_ro key_ro = let tls certificate_ro key_ro =
let ( >>= ) = Lwt_result.bind in let ( >>= ) = Lwt_result.bind in
Key.list key_ro Mirage_kv.Key.empty |> map_err_to_string Key.pp_error Key.list key_ro Mirage_kv.Key.empty |> map_err_to_string Key.pp_error