diff options
| author | Ludovic Courtès <ludovic.courtes@inria.fr> | 2017-07-10 16:56:19 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-07-11 00:48:50 +0200 |
| commit | 0ca3d5568676937d65674415d292820668fce6a7 (patch) | |
| tree | 7a11a25bc5e7f086c9efe6b68534f490c8c9e5db /guix/store.scm | |
| parent | b612e54f172404cdba5e71bc4d3b97c26ec7ab0c (diff) | |
| download | gnu-guix-0ca3d5568676937d65674415d292820668fce6a7.tar gnu-guix-0ca3d5568676937d65674415d292820668fce6a7.tar.gz | |
store: Account for 'add-to-store' in RPC statistics.
* guix/store.scm (add-to-store): Add call to 'record-operation'.
Diffstat (limited to 'guix/store.scm')
| -rw-r--r-- | guix/store.scm | 1 |
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) |