From 28bda78d209d8a436b3e6eff8a2142cac68a3093 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Sat, 11 Jan 2020 15:46:02 +0100 Subject: [PATCH] fix deprecation warnings (Mirage_clock_lwt -> Mirage_clock) --- unikernel.ml | 2 +- uplink.ml | 2 +- uplink.mli | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/unikernel.ml b/unikernel.ml index 2b20c9f..27f772a 100644 --- a/unikernel.ml +++ b/unikernel.ml @@ -7,7 +7,7 @@ open Qubes let src = Logs.Src.create "unikernel" ~doc:"Main unikernel code" 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) (* Set up networking and listen for incoming packets. *) diff --git a/uplink.ml b/uplink.ml index 042fc84..1fde66b 100644 --- a/uplink.ml +++ b/uplink.ml @@ -9,7 +9,7 @@ module Eth = Ethernet.Make(Netif) let src = Logs.Src.create "uplink" ~doc:"Network connection to NetVM" 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) type t = { diff --git a/uplink.mli b/uplink.mli index 14fbd86..0f494dd 100644 --- a/uplink.mli +++ b/uplink.mli @@ -5,7 +5,7 @@ open Fw_utils -module Make(Clock : Mirage_clock_lwt.MCLOCK) : sig +module Make(Clock : Mirage_clock.MCLOCK) : sig type t val connect : Dao.network_config -> t Lwt.t