diff options
| -rw-r--r-- | nar-herder/recent-changes.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/nar-herder/recent-changes.scm b/nar-herder/recent-changes.scm index 8ef5437..62bd604 100644 --- a/nar-herder/recent-changes.scm +++ b/nar-herder/recent-changes.scm @@ -151,9 +151,6 @@ (log-msg 'INFO "processing " (length unprocessed-recent-changes) " recent changes") - (metric-increment recent-changes-count-metric - #:by (length unprocessed-recent-changes)) - (for-each (lambda (change-details) (let ((change (assq-ref change-details 'change))) @@ -163,8 +160,10 @@ ((string=? change "removal") (process-removal-change change-details)) (else #f)))) - unprocessed-recent-changes)) + unprocessed-recent-changes) + (metric-increment recent-changes-count-metric + #:by (length unprocessed-recent-changes))) ;; Use the unprocessed recent changes here to carry ;; forward all processed changes to the next pass unprocessed-recent-changes)) |