From b3b9894a61bf162fd54c34d860fec4d180e2ac73 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Wed, 6 Nov 2019 20:58:52 +0100
Subject: [PATCH] fix

---
 src/monitoring_experiments.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index bab2df6..e20580b 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -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