From f12d678968f4571ec2b80dee79d2ea91138e175a Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Tue, 4 Nov 2025 18:50:58 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index 686b4b04..e7729709 100644
--- a/unikernel/unikernel.ml
+++ b/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
-      | Error _e as e ->
-          err := Some e;
-          raise Exit
-      | Ok v -> v)
-    |> Result.ok
+    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 =
@@ -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 ->