From 67b1e9cec286d0021a5e61d0db26c695d3255491 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 2 Nov 2025 19:02:46 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index 47b96746..fb550532 100644
--- a/unikernel/unikernel.ml
+++ b/unikernel/unikernel.ml
@@ -39,18 +39,15 @@ module Make
     (Connect : Connect.S)
     (HTTP_server : Paf_mirage.S) =
 struct
-
   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
     >>= 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
     |> map_err_to_string Certificate.pp_error
     >>= fun certificates ->
-    let certificates, _ =
-      List.partition (fun (_, t) -> t = `Value) certificates
-    in
+    let certificates = List.filter (fun (_, t) -> t = `Value) certificates in
     let fold acc (name, _) =
       match Mirage_kv.Key.basename name with
       | ".gitkeep" -> Lwt.return acc