summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludovic.courtes@inria.fr>2017-07-10 16:56:19 +0200
committerLudovic Courtès <ludo@gnu.org>2017-07-11 00:48:50 +0200
commit0ca3d5568676937d65674415d292820668fce6a7 (patch)
tree7a11a25bc5e7f086c9efe6b68534f490c8c9e5db
parentb612e54f172404cdba5e71bc4d3b97c26ec7ab0c (diff)
downloadpatches-0ca3d5568676937d65674415d292820668fce6a7.tar
patches-0ca3d5568676937d65674415d292820668fce6a7.tar.gz
store: Account for 'add-to-store' in RPC statistics.
* guix/store.scm (add-to-store): Add call to 'record-operation'.
-rw-r--r--guix/store.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm
index a207d478e6..b15da54852 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)