mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-07-01 08:31:18 +00:00
f9856a3605
Version 1.11.0 has been released now, and the current trunk doesn't
build without updating other things. The error was:
File "lib/xenstore.ml", line 165, characters 19-34:
Error: The module OS is an alias for module Os_xen, which is missing
ocamlopt lib/.netchannel.objs/native/netchannel__Backend.{cmx,o} (exit 2)
(cd _build/default && /home/opam/.opam/4.07/bin/ocamlopt.opt -w -40 -g -I lib/.netchannel.objs/byte -I lib/.netchannel.objs/native -I /home/opam/.opam/4.07/lib/base/caml -I /home/opam/.opam/4.07/lib/bigarray-compat -I /home/opam/.opam/4.07/lib/bytes -I /home/opam/.opam/4.07/lib/cstruct -I /home/opam/.opam/4.07/lib/fmt -I /home/opam/.opam/4.07/lib/io-page -I /home/opam/.opam/4.07/lib/io-page-x[...]
File "lib/backend.ml", line 23, characters 16-29:
Error: The module OS is an alias for module Os_xen, which is missing
Reported by ronpunz in https://groups.google.com/forum/#!topic/qubes-users/PsYUXvypPDs
42 lines
1.1 KiB
OCaml
42 lines
1.1 KiB
OCaml
(* Copyright (C) 2017, Thomas Leonard <thomas.leonard@unikernel.com>
|
|
See the README file for details. *)
|
|
|
|
(** Configuration for the "mirage" tool. *)
|
|
|
|
open Mirage
|
|
|
|
let table_size =
|
|
let open Functoria_key in
|
|
let info = Arg.info
|
|
~doc:"The number of NAT entries to allocate."
|
|
~docv:"ENTRIES" ["nat-table-size"]
|
|
in
|
|
let key = Arg.opt ~stage:`Both Arg.int 5_000 info in
|
|
create "nat_table_size" key
|
|
|
|
let main =
|
|
foreign
|
|
~keys:[Functoria_key.abstract table_size]
|
|
~packages:[
|
|
package "vchan" ~min:"4.0.2";
|
|
package "cstruct";
|
|
package "astring";
|
|
package "tcpip" ~min:"3.7.0";
|
|
package "arp";
|
|
package "arp-mirage";
|
|
package "ethernet";
|
|
package "mirage-protocols";
|
|
package "shared-memory-ring" ~min:"3.0.0";
|
|
package "netchannel" ~min:"1.11.0";
|
|
package "mirage-net-xen";
|
|
package "ipaddr" ~min:"3.0.0";
|
|
package "mirage-qubes";
|
|
package "mirage-nat" ~min:"1.2.0";
|
|
package "mirage-logs";
|
|
]
|
|
"Unikernel.Main" (mclock @-> job)
|
|
|
|
let () =
|
|
register "qubes-firewall" [main $ default_monotonic_clock]
|
|
~argv:no_argv
|