This commit is contained in:
parent
e02c4a11a7
commit
65d4d49108
13 changed files with 178 additions and 19 deletions
|
|
@ -5,8 +5,8 @@ type conn = Connect
|
|||
|
||||
let conn = typ Connect
|
||||
|
||||
let minipaf =
|
||||
main "Unikernel.Make"
|
||||
let mte =
|
||||
main "Unikernel.Make" ~local_libs:[ "mte" ]
|
||||
~packages:
|
||||
[
|
||||
package "digestif"; package ~min:"0.0.9" "mimic-happy-eyeballs";
|
||||
|
|
@ -27,8 +27,11 @@ 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"
|
||||
|
||||
(* note: if crunch says that directory doesn't exists, it may be because
|
||||
it's empty and you need to run gen_tls.sh *)
|
||||
let certificates = crunch "../data/tls/certificates"
|
||||
let keys = crunch "../data/tls/keys"
|
||||
|
||||
let conn =
|
||||
let happy_eyeballs = mimic_happy_eyeballs stackv4v6 he dns in
|
||||
|
|
@ -38,5 +41,4 @@ let port = Runtime_arg.create ~pos:__POS__ "Unikernel.port"
|
|||
let http_server = paf_server ~port tcpv4v6
|
||||
|
||||
let () =
|
||||
register "minipaf"
|
||||
[ minipaf $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]
|
||||
register "mte" [ mte $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue