cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a JSON page for repository branches

Browse source
This commit is contained in:
Christopher Baines 2020-09-27 16:32:56 +01:00
parent f7933807ac
commit 033858410b
2 changed files with 49 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
scripts/guix-data-service-process-job.in
View file

@ -26,6 +26,8 @@
(srfi srfi-37)
(ice-9 match)
(guix-data-service database)
(guix-data-service data-deletion)
(guix-data-service model package-derivation-by-guix-revision-range)
(guix-data-service jobs load-new-guix-revision))
(setvbuf (current-output-port) 'line)
@ -36,6 +38,12 @@
;; Make stack traces more useful
(setenv "COLUMNS" "256")
(match (command-line)
((name job)
(process-load-new-guix-revision-job job)))
;; (with-postgresql-connection
;; "foo"
;; rebuild-package-derivations-table)
;;(delete-revisions-for-all-branches-except-most-recent-n 100)
(delete-unreferenced-derivations)
;; (match (command-line)
;; ((name job)
;; (process-load-new-guix-revision-job job)))