update to recent API changes

This commit is contained in:
Hannes Mehnert 2022-01-27 12:23:42 +01:00
parent e67b401cd1
commit 5ab788b95d
4 changed files with 5 additions and 8 deletions

View file

@ -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"}
]

View file

@ -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))

View file

@ -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 =

View file

@ -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