aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/nar-herder.in18
1 files changed, 9 insertions, 9 deletions
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in
index e9d3150..0736592 100644
--- a/scripts/nar-herder.in
+++ b/scripts/nar-herder.in
@@ -610,15 +610,6 @@
(log-msg 'INFO "dumping database...")
(dump-database database (assq-ref opts 'database-dump))))
- (start-recent-change-removal-and-database-dump-thread
- database
- (let ((filename (assq-ref opts 'database-dump)))
- (if (string=? filename "disabled")
- #f
- filename))
- (* 24 3600) ; 24 hours
- (assq-ref opts 'recent-changes-limit))
-
(let ((finished? (make-condition)))
(call-with-new-thread
(lambda ()
@@ -629,6 +620,15 @@
(run-fibers
(lambda ()
+ (start-recent-change-removal-and-database-dump-fiber
+ database
+ (let ((filename (assq-ref opts 'database-dump)))
+ (if (string=? filename "disabled")
+ #f
+ filename))
+ (* 24 3600) ; 24 hours
+ (assq-ref opts 'recent-changes-limit))
+
(and=> (assq-ref opts 'mirror)
(lambda (mirror)
(start-fetch-changes-fiber database