43 lines
1.3 KiB
OCaml
43 lines
1.3 KiB
OCaml
(* mirage >= 4.9.0 & < 4.11.0 *)
|
|
open Mirage
|
|
|
|
type conn = Connect
|
|
|
|
let conn = typ Connect
|
|
|
|
let mte =
|
|
main "Unikernel.Make" ~local_libs:[ "mte" ]
|
|
~packages:
|
|
[
|
|
package "digestif"; package ~min:"0.0.9" "mimic-happy-eyeballs";
|
|
package "hxd" ~sublibs:[ "core"; "string" ]; package "rresult";
|
|
package "h2" ~min:"0.13.0"; package "base64" ~sublibs:[ "rfc2045" ];
|
|
]
|
|
(kv_ro @-> kv_ro @-> kv_ro @-> tcpv4v6 @-> conn @-> http_server @-> job)
|
|
|
|
let conn =
|
|
let connect _ modname = function
|
|
| [ _tcpv4v6; ctx ] ->
|
|
code ~pos:__POS__ {ocaml|%s.connect %s|ocaml} modname ctx
|
|
| _ -> assert false
|
|
in
|
|
impl ~connect "Connect.Make" (tcpv4v6 @-> mimic @-> conn)
|
|
|
|
let stackv4v6 = generic_stackv4v6 default_network
|
|
let tcpv4v6 = tcpv4v6_of_stackv4v6 stackv4v6
|
|
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
|
|
conn $ tcpv4v6 $ happy_eyeballs
|
|
|
|
let port = Runtime_arg.create ~pos:__POS__ "Unikernel.port"
|
|
let http_server = paf_server ~port tcpv4v6
|
|
|
|
let () =
|
|
register "mte"
|
|
[ mte $ assets $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]
|