From de7c0ca8a757c36d6b67e7ed277e33aaaf0608a5 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Wed, 6 Nov 2019 21:43:02 +0100
Subject: [PATCH] revert

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

diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index e20580b..bab2df6 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -9,11 +9,9 @@ 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 things acc ->
+      Metrics.SM.fold (fun src (tags, data) acc ->
           let name = Metrics.Src.name src in
-          List.map (fun (tags, data) ->
-              Metrics_influx.encode_line_protocol (host@tags) data name)
-            things @ acc)
+          Metrics_influx.encode_line_protocol (host@tags) data name :: acc)
         (get ()) []
     in
     let datas = String.concat "" datas in