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