swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-05 21:58:45 +01:00
parent d693537b39
commit 1beb9507e2
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
unikernel/unikernel.ml
View file

@ -26,9 +26,6 @@ let alpn =
Mirage_runtime.register_arg Mirage_runtime.register_arg
Arg.(value & opt_all (enum (List.map (fun v -> (v, v)) alpns)) alpns doc) 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 module Make
(Assets_ro : Mirage_kv.RO) (Assets_ro : Mirage_kv.RO)
(Certificates_ro : Mirage_kv.RO) (Certificates_ro : Mirage_kv.RO)
@ -36,6 +33,9 @@ module Make
(Tcp : Tcpip.Tcp.S with type ipaddr = Ipaddr.t) (Tcp : Tcpip.Tcp.S with type ipaddr = Ipaddr.t)
(HTTP_server : Paf_mirage.S) = (HTTP_server : Paf_mirage.S) =
struct struct
let map_err_to_string pp_err res =
Lwt.map (R.reword_error (R.msgf "%a" pp_err)) res
module Assets = struct module Assets = struct
let map_err_to_string = map_err_to_string Assets_ro.pp_error let map_err_to_string = map_err_to_string Assets_ro.pp_error