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:02:46 +01:00
parent c7466866df
commit 67b1e9cec2
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
unikernel/unikernel.ml
View file

@ -39,18 +39,15 @@ module Make
(Connect : Connect.S) (Connect : Connect.S)
(HTTP_server : Paf_mirage.S) = (HTTP_server : Paf_mirage.S) =
struct struct
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
>>= fun keys -> >>= fun keys ->
let keys, _ = List.partition (fun (_, t) -> t = `Value) keys in let keys = List.filter (fun (_, t) -> t = `Value) keys in
Certificate.list certificate_ro Mirage_kv.Key.empty Certificate.list certificate_ro Mirage_kv.Key.empty
|> map_err_to_string Certificate.pp_error |> map_err_to_string Certificate.pp_error
>>= fun certificates -> >>= fun certificates ->
let certificates, _ = let certificates = List.filter (fun (_, t) -> t = `Value) certificates in
List.partition (fun (_, t) -> t = `Value) certificates
in
let fold acc (name, _) = let fold acc (name, _) =
match Mirage_kv.Key.basename name with match Mirage_kv.Key.basename name with
| ".gitkeep" -> Lwt.return acc | ".gitkeep" -> Lwt.return acc