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