From 1beb9507e2bdf93d69d7b9a82995a19e89a34088 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Wed, 5 Nov 2025 21:58:45 +0100
Subject: [PATCH]

---
 unikernel/unikernel.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index b4df85c3..74fe8a59 100644
--- a/unikernel/unikernel.ml
+++ b/unikernel/unikernel.ml
@@ -26,9 +26,6 @@ let alpn =
   Mirage_runtime.register_arg
     Arg.(value & opt_all (enum (List.map (fun v -> (v, v)) alpns)) alpns doc)
 
-let map_err_to_string pp_err res =
-  Lwt.map (R.reword_error (R.msgf "%a" pp_err)) res
-
 module Make
     (Assets_ro : Mirage_kv.RO)
     (Certificates_ro : Mirage_kv.RO)
@@ -36,6 +33,9 @@ module Make
     (Tcp : Tcpip.Tcp.S with type ipaddr = Ipaddr.t)
     (HTTP_server : Paf_mirage.S) =
 struct
+  let map_err_to_string pp_err res =
+    Lwt.map (R.reword_error (R.msgf "%a" pp_err)) res
+
   module Assets = struct
     let map_err_to_string = map_err_to_string Assets_ro.pp_error