mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 05:05:39 +00:00
Remove unused Clock argument to Uplink
This commit is contained in:
parent
48b38fa992
commit
ab3508a936
@ -5,5 +5,5 @@ docker build -t qubes-mirage-firewall .
|
|||||||
echo Building Firewall...
|
echo Building Firewall...
|
||||||
docker run --rm -i -v `pwd`:/home/opam/qubes-mirage-firewall qubes-mirage-firewall
|
docker run --rm -i -v `pwd`:/home/opam/qubes-mirage-firewall qubes-mirage-firewall
|
||||||
echo "SHA2 of build: $(sha256sum qubes_firewall.xen)"
|
echo "SHA2 of build: $(sha256sum qubes_firewall.xen)"
|
||||||
echo "SHA2 last known: 8a337e61e7d093f7c1f0fa5fe277dace4d606bfa06cfde3f2d61d6bdee6eefbc"
|
echo "SHA2 last known: 6f8f0f19ba62bf5312039f2904ea8696584f8ff49443dec098facf261449ebf2"
|
||||||
echo "(hashes should match for released versions)"
|
echo "(hashes should match for released versions)"
|
||||||
|
@ -8,8 +8,6 @@ let src = Logs.Src.create "unikernel" ~doc:"Main unikernel code"
|
|||||||
module Log = (val Logs.src_log src : Logs.LOG)
|
module Log = (val Logs.src_log src : Logs.LOG)
|
||||||
|
|
||||||
module Main (Clock : Mirage_clock.MCLOCK) = struct
|
module Main (Clock : Mirage_clock.MCLOCK) = struct
|
||||||
module Uplink = Uplink.Make(Clock)
|
|
||||||
|
|
||||||
(* Set up networking and listen for incoming packets. *)
|
(* Set up networking and listen for incoming packets. *)
|
||||||
let network nat qubesDB =
|
let network nat qubesDB =
|
||||||
(* Read configuration from QubesDB *)
|
(* Read configuration from QubesDB *)
|
||||||
|
@ -9,7 +9,6 @@ module Eth = Ethernet.Make(Netif)
|
|||||||
let src = Logs.Src.create "uplink" ~doc:"Network connection to NetVM"
|
let src = Logs.Src.create "uplink" ~doc:"Network connection to NetVM"
|
||||||
module Log = (val Logs.src_log src : Logs.LOG)
|
module Log = (val Logs.src_log src : Logs.LOG)
|
||||||
|
|
||||||
module Make(Clock : Mirage_clock.MCLOCK) = struct
|
|
||||||
module Arp = Arp.Make(Eth)(OS.Time)
|
module Arp = Arp.Make(Eth)(OS.Time)
|
||||||
|
|
||||||
type t = {
|
type t = {
|
||||||
@ -71,4 +70,3 @@ module Make(Clock : Mirage_clock.MCLOCK) = struct
|
|||||||
~other_ip:config.Dao.uplink_netvm_ip in
|
~other_ip:config.Dao.uplink_netvm_ip in
|
||||||
let fragments = Fragments.Cache.create (256 * 1024) in
|
let fragments = Fragments.Cache.create (256 * 1024) in
|
||||||
Lwt.return { net; eth; arp; interface ; fragments }
|
Lwt.return { net; eth; arp; interface ; fragments }
|
||||||
end
|
|
||||||
|
@ -5,7 +5,6 @@
|
|||||||
|
|
||||||
open Fw_utils
|
open Fw_utils
|
||||||
|
|
||||||
module Make(Clock : Mirage_clock.MCLOCK) : sig
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
val connect : Dao.network_config -> t Lwt.t
|
val connect : Dao.network_config -> t Lwt.t
|
||||||
@ -16,4 +15,3 @@ module Make(Clock : Mirage_clock.MCLOCK) : sig
|
|||||||
|
|
||||||
val listen : t -> (unit -> int64) -> Router.t -> unit Lwt.t
|
val listen : t -> (unit -> int64) -> Router.t -> unit Lwt.t
|
||||||
(** Handle incoming frames from NetVM. *)
|
(** Handle incoming frames from NetVM. *)
|
||||||
end
|
|
||||||
|
Loading…
Reference in New Issue
Block a user