mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 01:05:39 -04:00
28 lines
731 B
OCaml
28 lines
731 B
OCaml
|
open Mirage
|
||
|
|
|
||
|
|
let pin = "git+https://github.com/roburio/alcotest.git#mirage"
|
||
|
|
|
||
|
|
let packages = [
|
||
|
|
package "ethernet";
|
||
|
|
package "arp";
|
||
|
|
package "arp-mirage";
|
||
|
|
package "ipaddr";
|
||
|
|
package "tcpip" ~sublibs:["stack-direct"; "icmpv4"; "ipv4"; "udp"; "tcp"];
|
||
|
|
package "mirage-qubes";
|
||
|
|
package "mirage-qubes-ipv4";
|
||
|
|
package "dns-client" ~sublibs:["mirage"];
|
||
|
|
package ~pin "alcotest";
|
||
|
|
package ~pin "alcotest-mirage";
|
||
|
|
]
|
||
|
|
|
||
|
|
let client =
|
||
|
|
foreign ~packages
|
||
|
|
"Unikernel.Client" @@ random @-> time @-> mclock @-> network @-> qubesdb @-> job
|
||
|
|
|
||
|
|
let db = default_qubesdb
|
||
|
|
let network = default_network
|
||
|
|
|
||
|
|
let () =
|
||
|
|
let job = [ client $ default_random $ default_time $ default_monotonic_clock $ network $ db ] in
|
||
|
|
register "http-fetch" job
|