From 86880ed05e08afa2c617fab27e1d8fd1e948c38e Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 13 May 2019 00:08:31 +0200
Subject: [PATCH] local

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

diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index 0d15e8f..8593512 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -132,7 +132,7 @@ module M = struct
 
     let timer get host t =
       let datas =
-        Metrics.SM.fold (fun src (tags, data) acc ->
+        R.SM.fold (fun src (tags, data) acc ->
             let name = Metrics.Src.name src in
             I.encode_line_protocol (host@tags) data name :: acc)
           (get ()) []
@@ -160,7 +160,7 @@ module M = struct
       one ()
 
     let create ?(interval = 10) ?hostname () =
-      let get, reporter = Metrics.store_reporter C.elapsed_ns () in
+      let get, reporter = R.store_reporter C.elapsed_ns () in
       Metrics.set_reporter reporter;
       let host = match hostname with None -> [] | Some host -> [vmname host] in
       let t = { flows = [] } in