mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2025-05-01 21:56:13 -04:00
14 lines
459 B
OCaml
14 lines
459 B
OCaml
open Mirage
|
|
|
|
let client =
|
|
let packages = [ package "cohttp-mirage"; package "duration" ] in
|
|
foreign
|
|
~packages
|
|
"Unikernel.Client" @@ time @-> console @-> stackv4 @-> resolver @-> conduit @-> job
|
|
|
|
let () =
|
|
let stack = generic_stackv4 default_network in
|
|
let res_dns = resolver_dns stack in
|
|
let conduit = conduit_direct stack in
|
|
let job = [ client $ default_time $ default_console $ stack $ res_dns $ conduit ] in
|
|
register "http-fetch" job
|