update to recent API changes

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" {>= "7.0.0"}
-  "tcpip" {>= "6.3.0"}
-  "mirage-net-solo5" {>= "0.6.2"}
   "mirage-solo5" {>= "0.6.4"}
   "ocaml-freestanding" {>= "0.4.5"}
 ]

src/dune

@@ -2,5 +2,5 @@
  (name monitoring_experiments)
  (public_name monitoring-experiments)
  (wrapped false)
- (libraries logs metrics metrics-lwt metrics-influx mirage-time
+ (libraries logs metrics metrics-lwt metrics-influx mirage-time tcpip
-            mirage-clock mirage-flow mirage-stack mirage-solo5))
+            mirage-solo5))

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 =

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