From 42ce1233fd827bc34984b78f92921e11bdbf895c Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Wed, 5 Nov 2025 22:54:19 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index 74fe8a59..853896e9 100644
--- a/unikernel/unikernel.ml
+++ b/unikernel/unikernel.ml
@@ -228,7 +228,8 @@ struct
       HTTP_server.http_service ~error_handler:Server.http_1_1_error_handler
         http_1_1_request_handler
     in
-    Paf.serve http_1_1_service http_server |> fun (`Initialized th) -> th
+    let (`Initialized th) = Paf.serve http_1_1_service http_server in
+    th
 
   let start assets_ro certificate_ro key_ro tcpv4v6 http_server =
     let open Lwt.Syntax in