22 lines
464 B
OCaml
22 lines
464 B
OCaml
open Mirage
|
|
|
|
(* Network configuration *)
|
|
|
|
let stack = generic_stackv4 default_network
|
|
|
|
(* Dependencies *)
|
|
|
|
let server =
|
|
let packages =
|
|
[ package ~pin:"file://../../" "h2-lwt"
|
|
; package ~pin:"file://../../" "h2-mirage"
|
|
]
|
|
in
|
|
foreign "Unikernel.Make" ~packages (console @-> pclock @-> http2 @-> job)
|
|
|
|
let app = http2_server @@ conduit_direct stack
|
|
|
|
let () =
|
|
register
|
|
"h2_unikernel"
|
|
[ server $ default_console $ default_posix_clock $ app ]
|