From 648ff6df6d8d4b63eb1ff54df694e5b0ce7afadb Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Mon, 13 May 2019 23:05:11 +0200 Subject: [PATCH] adjust --- src/monitoring_experiments.ml | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml index 8593512..1e24a28 100644 --- a/src/monitoring_experiments.ml +++ b/src/monitoring_experiments.ml @@ -98,15 +98,12 @@ module L = struct let malloc_stat = OS.MM.malloc_metrics ~tags:Metrics.Tags.[] - let sleeper_stat = OS.Time.sleep_metrics ~tags:Metrics.Tags.[] - let collect s () = let f () = Metrics.add gc_stat (fun x -> x) (fun d -> d ()) and g () = Metrics.add log_stat (fun x -> x) (fun d -> d ()) and h () = Metrics.add malloc_stat (fun x -> x) (fun d -> d ()) - and i () = Metrics.add sleeper_stat (fun x -> x) (fun d -> d ()) in - let one () = f (); g (); h (); i () ; Lwt.return_unit in + let one () = f (); g (); h (); Lwt.return_unit in let rec loop () = Lwt.join [ one (); s () ] >>= loop in loop () end