From 0ca3d5568676937d65674415d292820668fce6a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludovic.courtes@inria.fr>
Date: Mon, 10 Jul 2017 16:56:19 +0200
Subject: [PATCH] store: Account for 'add-to-store' in RPC statistics.

* guix/store.scm (add-to-store): Add call to 'record-operation'.
---
 guix/store.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/store.scm b/guix/store.scm
index a207d478e6579858bae14c44748d05a2ea7795f5..b15da548529c1e9482850356eee8be630065be99 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -897,6 +897,7 @@ path."
                           #:key (select? true))
            ;; We don't use the 'operation' macro so we can pass SELECT? to
            ;; 'write-file'.
+           (record-operation 'add-to-store)
            (let ((port (nix-server-socket server)))
              (write-int (operation-id add-to-store) port)
              (write-string basename port)