update to recent API changes
This commit is contained in:
parent
e67b401cd1
commit
5ab788b95d
4 changed files with 5 additions and 8 deletions
|
@ -13,11 +13,8 @@ depends: [
|
||||||
"metrics" {>= "0.2.0"}
|
"metrics" {>= "0.2.0"}
|
||||||
"metrics-lwt" {>= "0.2.0"}
|
"metrics-lwt" {>= "0.2.0"}
|
||||||
"metrics-influx" {>= "0.2.0"}
|
"metrics-influx" {>= "0.2.0"}
|
||||||
"mirage-clock" {>= "3.0.0"}
|
|
||||||
"mirage-time" {>= "2.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"}
|
"mirage-solo5" {>= "0.6.4"}
|
||||||
"ocaml-freestanding" {>= "0.4.5"}
|
"ocaml-freestanding" {>= "0.4.5"}
|
||||||
]
|
]
|
||||||
|
|
4
src/dune
4
src/dune
|
@ -2,5 +2,5 @@
|
||||||
(name monitoring_experiments)
|
(name monitoring_experiments)
|
||||||
(public_name monitoring-experiments)
|
(public_name monitoring-experiments)
|
||||||
(wrapped false)
|
(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))
|
||||||
|
|
|
@ -42,7 +42,7 @@ let memory_metrics ~tags =
|
||||||
in
|
in
|
||||||
Src.v ~doc ~tags ~data "memory"
|
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 timer conn get host stack dst =
|
||||||
let datas =
|
let datas =
|
||||||
|
|
|
@ -5,6 +5,6 @@ val counter_metrics : f:('a -> string) -> string ->
|
||||||
val vmname : string -> Metrics.field
|
val vmname : string -> Metrics.field
|
||||||
(** [vmname name] creates a [tag] with the virtual machine name. *)
|
(** [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
|
val create : ?interval:int -> ?hostname:string -> Ipaddr.t -> ?port:int -> S.t -> unit
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in a new issue