unikernel/unikernel.ml

@@ -1,5 +1,6 @@
 open Rresult
 open Cmdliner
+open Syntax
 
 let port =
   let doc = Arg.info ~doc:"Port of HTTP service." [ "p"; "port" ] in
@@ -28,24 +29,6 @@ let alpn =
 let map_err_to_string pp_err res =
   Lwt.map (R.reword_error (R.msgf "%a" pp_err)) res
 
-let list_get_ok l =
-  let err = ref None in
-  try
-    Ok
-      (List.map
-         (function
-           | Error _e as e ->
-               err := Some e;
-               raise Exit
-           | Ok v -> v)
-         l)
-  with Exit -> ( match !err with None -> assert false | Some v -> v)
-
-let lwt_list_get_ok l =
-  let open Lwt.Syntax in
-  let+ l = l in
-  list_get_ok l
-
 module Make
     (Assets_ro : Mirage_kv.RO)
     (Certificates_ro : Mirage_kv.RO)
@@ -54,9 +37,6 @@ module Make
     (Connect : Connect.S)
     (HTTP_server : Paf_mirage.S) =
 struct
-  let ( let*? ) = Lwt_result.bind
-  let ( let+? ) x f = Lwt_result.map f x
-
   module Assets = struct
     let map_err_to_string = map_err_to_string Assets_ro.pp_error