From c16c1411eae67895286d48abcb42311667fc9890 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 2 Nov 2025 19:13:36 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 6 ++++++
 1 file changed, 6 insertions(+)

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