From 158c4a5bb51eac5f28c6b5383af0a2e692537c37 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 19 Sep 2019 21:10:23 +0200
Subject: [PATCH] run tasks as well

---
 src/monitoring_experiments.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index 76175bc..0ec966c 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -169,6 +169,7 @@ module M = struct
       let get, reporter = R.store_reporter C.elapsed_ns () in
       Metrics.set_reporter reporter;
       Metrics.enable_all ();
+      Lwt.async (L.collect (fun () -> T.sleep_ns (Duration.of_sec interval)));
       let host = match hostname with None -> [] | Some host -> [vmname host] in
       Lwt.async (timer_loop get host interval { flows = [ flow ] })
   end