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