unikernel/unikernel.ml

@@ -25,22 +25,20 @@ let alpn =
   Mirage_runtime.register_arg
     Arg.(value & opt_all (enum (List.map (fun v -> (v, v)) alpns)) alpns doc)
 
-let ( <.> ) f g x = f (g x)
-let always x _ = x
-
 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
-    l
-    |> List.map (function
+    Ok
+      (List.map
+         (function
            | Error _e as e ->
                err := Some e;
                raise Exit
            | Ok v -> v)
-    |> Result.ok
+         l)
   with Exit -> ( match !err with None -> assert false | Some v -> v)
 
 let lwt_list_get_ok l =
@@ -197,6 +195,8 @@ struct
     | [ certchain ] -> `Single certchain
     | certchains -> `Multiple certchains
 
+  let always x _ = x
+
   let http_1_1_request_handler ~ctx ~authenticator flow _edn =
     let module R = (val Mimic.repr HTTP_server.tcp_protocol) in
     fun reqd ->