diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-09-27 16:32:56 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-09-27 16:32:56 +0100 |
| commit | 033858410bed1dfa1efbb5c48a900eb59fcfc813 (patch) | |
| tree | 9b822b3098c6cfa3426b3235bf812c1df3b2b4cc /scripts/guix-data-service-process-job.in | |
| parent | f7933807ac8d18b9e3d93fd4ce486900e9051f47 (diff) | |
| download | data-service-033858410bed1dfa1efbb5c48a900eb59fcfc813.tar data-service-033858410bed1dfa1efbb5c48a900eb59fcfc813.tar.gz | |
Add a JSON page for repository branches
Diffstat (limited to 'scripts/guix-data-service-process-job.in')
| -rw-r--r-- | scripts/guix-data-service-process-job.in | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/scripts/guix-data-service-process-job.in b/scripts/guix-data-service-process-job.in index 3572cdb..04b9881 100644 --- a/scripts/guix-data-service-process-job.in +++ b/scripts/guix-data-service-process-job.in @@ -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))) |