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

run tasks as well

Browse source
This commit is contained in:
Hannes Mehnert 2019-09-19 21:10:23 +02:00
parent 02a70f46ce
commit 158c4a5bb5
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/monitoring_experiments.ml
View file

@ -169,6 +169,7 @@ module M = struct
let get, reporter = R.store_reporter C.elapsed_ns () in let get, reporter = R.store_reporter C.elapsed_ns () in
Metrics.set_reporter reporter; Metrics.set_reporter reporter;
Metrics.enable_all (); 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 let host = match hostname with None -> [] | Some host -> [vmname host] in
Lwt.async (timer_loop get host interval { flows = [ flow ] }) Lwt.async (timer_loop get host interval { flows = [ flow ] })
end end