diff options
Diffstat (limited to 'nar-herder/recent-changes.scm')
-rw-r--r-- | nar-herder/recent-changes.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/nar-herder/recent-changes.scm b/nar-herder/recent-changes.scm index d95410e..e4fe7d1 100644 --- a/nar-herder/recent-changes.scm +++ b/nar-herder/recent-changes.scm @@ -118,6 +118,11 @@ (spawn-fiber (lambda () + (let ((recent-changes-count + (database-count-recent-changes database))) + (metric-set recent-changes-count-metric recent-changes-count) + (log-msg 'DEBUG recent-changes-count " recent changes in the database")) + (log-msg 'DEBUG "starting to listen for recent changes") (let ((after-initial (database-select-latest-recent-change-datetime database))) |