diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-16 17:26:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-16 17:26:44 +0000 |
| commit | a092db5007d7e1d0335099a3c422ac707ad05c56 (patch) | |
| tree | ce745414d49c1311593fd65afd49367d360980cb /guix-data-service/jobs.scm | |
| parent | 9f162c3b2c9b21c1111c6cff972990b947b51955 (diff) | |
| download | data-service-a092db5007d7e1d0335099a3c422ac707ad05c56.tar data-service-a092db5007d7e1d0335099a3c422ac707ad05c56.tar.gz | |
Further improve load-new-guix-revision-jobs
Split the derivations up in to some groups, and run
invalidate-derivation-caches! inbetween to try and reduce the memory
usage.
Also make a couple of other changes to reduce memory usage or protect
against errors.
Diffstat (limited to 'guix-data-service/jobs.scm')
| -rw-r--r-- | guix-data-service/jobs.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index 0d5c266..93b337b 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -4,8 +4,8 @@ #:export (process-jobs)) (define (process-jobs conn) - (match (process-next-load-new-guix-revision-job conn) - (#f (begin (simple-format #t "Waiting for new jobs...") - (sleep 60) - (process-jobs conn))) - (_ (process-jobs conn)))) + (while #t + (match (process-next-load-new-guix-revision-job conn) + (#f (begin (simple-format #t "Waiting for new jobs...") + (sleep 60))) + (_ #f)))) |