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

+ load

Browse source
This commit is contained in:
swrup 2025-11-04 18:18:47 +01:00
parent 5d322123ac
commit 522063b60d
2 changed files with 101 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
unikernel/config.ml
View file

@ -13,7 +13,7 @@ let mte =
package "hxd" ~sublibs:[ "core"; "string" ]; package "rresult";
package "h2" ~min:"0.13.0"; package "base64" ~sublibs:[ "rfc2045" ];
]
(kv_ro @-> kv_ro @-> tcpv4v6 @-> conn @-> http_server @-> job)
(kv_ro @-> kv_ro @-> kv_ro @-> tcpv4v6 @-> conn @-> http_server @-> job)
let conn =
let connect _ modname = function
@ -29,6 +29,7 @@ let he = generic_happy_eyeballs stackv4v6
let dns = generic_dns_client stackv4v6 he
let certificates = crunch "../data/tls/certificates"
let keys = crunch "../data/tls/keys"
let assets = crunch "../data/assets"
let conn =
let happy_eyeballs = mimic_happy_eyeballs stackv4v6 he dns in
@ -38,4 +39,5 @@ let port = Runtime_arg.create ~pos:__POS__ "Unikernel.port"
let http_server = paf_server ~port tcpv4v6
let () =
register "mte" [ mte $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]
register "mte"
[ mte $ assets $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]