Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-10-01 01:05:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix deprecation warnings (Mirage_clock_lwt -> Mirage_clock)

Browse Source
This commit is contained in:
Hannes Mehnert 2020-01-11 15:46:02 +01:00
parent 3fc418e80c
commit 28bda78d20
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unikernel.ml
View File

@ -7,7 +7,7 @@ open Qubes
let src = Logs.Src.create "unikernel" ~doc:"Main unikernel code" 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_lwt.MCLOCK) = struct module Main (Clock : Mirage_clock.MCLOCK) = struct
module Uplink = Uplink.Make(Clock) module Uplink = Uplink.Make(Clock)
(* Set up networking and listen for incoming packets. *) (* Set up networking and listen for incoming packets. *)

2
uplink.ml
View File

@ -9,7 +9,7 @@ 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_lwt.MCLOCK) = struct 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 = {

2
uplink.mli
View File

@ -5,7 +5,7 @@
open Fw_utils open Fw_utils
module Make(Clock : Mirage_clock_lwt.MCLOCK) : sig 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