diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml index fb550532..43d0eacf 100644 --- a/unikernel/unikernel.ml +++ b/unikernel/unikernel.ml @@ -39,6 +39,12 @@ module Make (Connect : Connect.S) (HTTP_server : Paf_mirage.S) = 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 ( >>= ) = Lwt_result.bind in Key.list key_ro Mirage_kv.Key.empty |> map_err_to_string Key.pp_error