guix-data-service/guix-data-service/jobs.scm

(define-module (guix-data-service jobs)
  #:use-module (ice-9 match)
  #:use-module (guix-data-service jobs load-new-guix-revision)
  #:export (process-jobs))

(define (process-jobs conn)
  (while #t
    (match (process-next-load-new-guix-revision-job conn)
      (#f (unless (eq? 0 (sleep 5))
            (exit 0)))
      (_ (simple-format #t "\nFinished processing job\n\n")))))
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git 2019-02-06 16:14:44 +00:00			`(define-module (guix-data-service jobs)`
			`#:use-module (ice-9 match)`
			`#:use-module (guix-data-service jobs load-new-guix-revision)`
			`#:export (process-jobs))`

			`(define (process-jobs conn)`
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. 2019-03-16 17:26:44 +00:00			`(while #t`
			`(match (process-next-load-new-guix-revision-job conn)`
Improve the job processing Speed up checking for new jobs, and remove debugging output. 2019-04-10 20:17:44 +01:00			`(#f (unless (eq? 0 (sleep 5))`
			`(exit 0)))`
			`(_ (simple-format #t "\nFinished processing job\n\n")))))`