From 5ab788b95dc6f5d0882908261f4d8ff6ee662eec Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 27 Jan 2022 12:23:42 +0100
Subject: [PATCH] update to recent API changes

---
 monitoring-experiments.opam    | 5 +----
 src/dune                       | 4 ++--
 src/monitoring_experiments.ml  | 2 +-
 src/monitoring_experiments.mli | 2 +-
 4 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/monitoring-experiments.opam b/monitoring-experiments.opam
index 59ce76c..d1cdd69 100644
--- a/monitoring-experiments.opam
+++ b/monitoring-experiments.opam
@@ -13,11 +13,8 @@ depends: [
   "metrics" {>= "0.2.0"}
   "metrics-lwt" {>= "0.2.0"}
   "metrics-influx" {>= "0.2.0"}
-  "mirage-clock" {>= "3.0.0"}
   "mirage-time" {>= "2.0.0"}
-  "mirage-stack" {>= "2.2.0"}
-  "tcpip" {>= "6.3.0"}
-  "mirage-net-solo5" {>= "0.6.2"}
+  "tcpip" {>= "7.0.0"}
   "mirage-solo5" {>= "0.6.4"}
   "ocaml-freestanding" {>= "0.4.5"}
 ]
diff --git a/src/dune b/src/dune
index d4a1355..09ea214 100644
--- a/src/dune
+++ b/src/dune
@@ -2,5 +2,5 @@
  (name monitoring_experiments)
  (public_name monitoring-experiments)
  (wrapped false)
- (libraries logs metrics metrics-lwt metrics-influx mirage-time
-            mirage-clock mirage-flow mirage-stack mirage-solo5))
+ (libraries logs metrics metrics-lwt metrics-influx mirage-time tcpip
+            mirage-solo5))
diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index e782f09..7555890 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -42,7 +42,7 @@ let memory_metrics ~tags =
   in
   Src.v ~doc ~tags ~data "memory"
 
-module Make (T : Mirage_time.S) (S : Mirage_stack.V4V6) = struct
+module Make (T : Mirage_time.S) (S : Tcpip.Stack.V4V6) = struct
 
   let timer conn get host stack dst =
     let datas =
diff --git a/src/monitoring_experiments.mli b/src/monitoring_experiments.mli
index 41da9e4..e3deecf 100644
--- a/src/monitoring_experiments.mli
+++ b/src/monitoring_experiments.mli
@@ -5,6 +5,6 @@ val counter_metrics : f:('a -> string) -> string ->
 val vmname : string -> Metrics.field
 (** [vmname name] creates a [tag] with the virtual machine name. *)
 
-module Make (T : Mirage_time.S) (S : Mirage_stack.V4V6) : sig
+module Make (T : Mirage_time.S) (S : Tcpip.Stack.V4V6) : sig
   val create : ?interval:int -> ?hostname:string -> Ipaddr.t -> ?port:int -> S.t -> unit
 end