From 033858410bed1dfa1efbb5c48a900eb59fcfc813 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 27 Sep 2020 16:32:56 +0100 Subject: Add a JSON page for repository branches --- scripts/guix-data-service-process-job.in | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'scripts') 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))) -- cgit v1.2.3