robur/mirage-monitoring
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

port argument

Browse source
This commit is contained in:
Hannes Mehnert 2019-11-07 15:42:23 +01:00
parent de7c0ca8a7
commit f10e6257be
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/monitoring_experiments.ml
View file

@ -49,13 +49,13 @@ module Make (T : Mirage_time.S) (S : Mirage_stack.V4) = struct
in in
one () one ()
let create ?(interval = 10) ?hostname stack dst = let create ?(interval = 10) ?hostname dst ?(port = 8094) stack =
let get_cache, reporter = Metrics.cache_reporter () in let get_cache, reporter = Metrics.cache_reporter () in
Metrics.set_reporter reporter; Metrics.set_reporter reporter;
Metrics.enable_all (); Metrics.enable_all ();
Metrics_lwt.init_periodic (fun () -> T.sleep_ns (Duration.of_sec interval)); Metrics_lwt.init_periodic (fun () -> T.sleep_ns (Duration.of_sec interval));
Metrics_lwt.periodically (OS.MM.malloc_metrics ~tags:Metrics.Tags.[]); Metrics_lwt.periodically (OS.MM.malloc_metrics ~tags:Metrics.Tags.[]);
let host = match hostname with None -> [] | Some host -> [vmname host] in let host = match hostname with None -> [] | Some host -> [vmname host] in
Lwt.async (timer_loop get_cache host interval stack dst) Lwt.async (timer_loop get_cache host interval stack (dst, port))
end end

2
src/monitoring_experiments.mli
View file

@ -2,5 +2,5 @@ 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.V4) : sig module Make (T : Mirage_time.S) (S : Mirage_stack.V4) : sig
val create : ?interval:int -> ?hostname:string -> S.t -> Ipaddr.V4.t * int -> unit val create : ?interval:int -> ?hostname:string -> Ipaddr.V4.t -> ?port:int -> S.t -> unit
end end