guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Make the derivation deletion batch size configurable

Browse source
This commit is contained in:
Christopher Baines 2020-10-08 07:52:03 +01:00
parent b540abaeba
commit 936fda57c5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/data-deletion.scm
View file

@ -315,7 +315,8 @@ FROM (
) AS git_branches_latest_revision
WHERE commit = ''")))))
(define (delete-unreferenced-derivations)
(define* (delete-unreferenced-derivations #:key
(batch-size 1000000))
(define (delete-builds-for-derivation-output-details-set
conn
derivation-output-details-set-id)
@ -479,7 +480,8 @@ WHERE NOT EXISTS (
) AND NOT EXISTS (
SELECT 1 FROM guix_revision_system_test_derivations
WHERE derivation_id = derivation_outputs.derivation_id
) LIMIT 1000000")))
) LIMIT $1"
(list (number->string batch-size)))))
(derivations-count (length derivations)))
(simple-format (current-error-port)
"Looking at ~A derivations\n"