diff options
author | Christopher Baines <mail@cbaines.net> | 2019-02-06 16:14:44 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-02-07 22:26:57 +0000 |
commit | 5a9262b38d506008b21fd73eb8f7c3046b47de92 (patch) | |
tree | 5b18de9c664bac282bfa5f798a4a46304dfe5f03 /guix-data-service/jobs.scm | |
download | data-service-5a9262b38d506008b21fd73eb8f7c3046b47de92.tar data-service-5a9262b38d506008b21fd73eb8f7c3046b47de92.tar.gz |
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
Diffstat (limited to 'guix-data-service/jobs.scm')
-rw-r--r-- | guix-data-service/jobs.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm new file mode 100644 index 0000000..0d5c266 --- /dev/null +++ b/guix-data-service/jobs.scm @@ -0,0 +1,11 @@ +(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) + (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)))) |