mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Make the derivation deletion batch size configurable
This commit is contained in:
parent
b540abaeba
commit
936fda57c5
|
@ -315,7 +315,8 @@ FROM (
|
||||||
) AS git_branches_latest_revision
|
) AS git_branches_latest_revision
|
||||||
WHERE commit = ''")))))
|
WHERE commit = ''")))))
|
||||||
|
|
||||||
(define (delete-unreferenced-derivations)
|
(define* (delete-unreferenced-derivations #:key
|
||||||
|
(batch-size 1000000))
|
||||||
(define (delete-builds-for-derivation-output-details-set
|
(define (delete-builds-for-derivation-output-details-set
|
||||||
conn
|
conn
|
||||||
derivation-output-details-set-id)
|
derivation-output-details-set-id)
|
||||||
|
@ -479,7 +480,8 @@ WHERE NOT EXISTS (
|
||||||
) AND NOT EXISTS (
|
) AND NOT EXISTS (
|
||||||
SELECT 1 FROM guix_revision_system_test_derivations
|
SELECT 1 FROM guix_revision_system_test_derivations
|
||||||
WHERE derivation_id = derivation_outputs.derivation_id
|
WHERE derivation_id = derivation_outputs.derivation_id
|
||||||
) LIMIT 1000000")))
|
) LIMIT $1"
|
||||||
|
(list (number->string batch-size)))))
|
||||||
(derivations-count (length derivations)))
|
(derivations-count (length derivations)))
|
||||||
(simple-format (current-error-port)
|
(simple-format (current-error-port)
|
||||||
"Looking at ~A derivations\n"
|
"Looking at ~A derivations\n"
|
||||||
|
|
Loading…
Reference in a new issue