From f10e6257be2e5180e90bb9cdcd30bdf801674e2e Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Thu, 7 Nov 2019 15:42:23 +0100 Subject: [PATCH] port argument --- src/monitoring_experiments.ml | 4 ++-- src/monitoring_experiments.mli | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml index bab2df6..e5d834a 100644 --- a/src/monitoring_experiments.ml +++ b/src/monitoring_experiments.ml @@ -49,13 +49,13 @@ module Make (T : Mirage_time.S) (S : Mirage_stack.V4) = struct in 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 Metrics.set_reporter reporter; Metrics.enable_all (); Metrics_lwt.init_periodic (fun () -> T.sleep_ns (Duration.of_sec interval)); Metrics_lwt.periodically (OS.MM.malloc_metrics ~tags:Metrics.Tags.[]); 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 diff --git a/src/monitoring_experiments.mli b/src/monitoring_experiments.mli index 5eb5e52..b8fdbc7 100644 --- a/src/monitoring_experiments.mli +++ b/src/monitoring_experiments.mli @@ -2,5 +2,5 @@ val vmname : string -> Metrics.field (** [vmname name] creates a [tag] with the virtual machine name. *) 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