From 67b175c290f737ef5690ebd5e3317e904a81bc2d Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Tue, 4 Nov 2025 18:22:56 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index 745cf546..1f2694d1 100644
--- a/unikernel/unikernel.ml
+++ b/unikernel/unikernel.ml
@@ -76,16 +76,7 @@ struct
     let lwt_list_get_ok l =
       let open Lwt.Syntax in
       let+ l = l in
-      let err = ref None in
-      try
-        l
-        |> List.map (function
-          | Error _e as e ->
-              err := Some e;
-              raise Exit
-          | Ok v -> v)
-        |> Result.ok
-      with Exit -> ( match !err with None -> assert false | Some v -> v)
+      list_get_ok l
 
     let get ro s =
       let*? base_dir = get_subdirs ro Mirage_kv.Key.empty in