store: Account for 'add-to-store' in RPC statistics.

* guix/store.scm (add-to-store): Add call to 'record-operation'.
2017-07-10 16:56:19 +02:00 · 2017-07-10 16:56:19 +02:00 · 0ca3d55686
parent b612e54f17
commit 0ca3d55686
1 changed files with 1 additions and 0 deletions
--- 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)