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

fix

Browse source
This commit is contained in:
Hannes Mehnert 2019-11-06 20:58:52 +01:00
parent 2969493479
commit b3b9894a61
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/monitoring_experiments.ml
View file

@ -9,9 +9,11 @@ module Make (T : Mirage_time.S) (S : Mirage_stack.V4) = struct
let timer conn get host stack dst =
let datas =
Metrics.SM.fold (fun src (tags, data) acc ->
Metrics.SM.fold (fun src things acc ->
let name = Metrics.Src.name src in
Metrics_influx.encode_line_protocol (host@tags) data name :: acc)
List.map (fun (tags, data) ->
Metrics_influx.encode_line_protocol (host@tags) data name)
things @ acc)
(get ()) []
in
let datas = String.concat "" datas in