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

Delete derivation_source_files that are unreferenced

Browse source 
This will also delete unreferenced derivation_source_file_nars.
This commit is contained in:
Christopher Baines 2020-10-02 20:14:05 +01:00
parent e2a7705d3d
commit 470573b318
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,6 +17,7 @@
(define-module (guix-data-service data-deletion) (define-module (guix-data-service data-deletion)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 threads) #:use-module (ice-9 threads)
#:use-module (squee) #:use-module (squee)
@ -300,6 +301,17 @@ DELETE FROM builds WHERE id IN ("
(string-join build-ids ",") (string-join build-ids ",")
")"))))) ")")))))
(define (delete-unreferenced-derivations-source-files conn)
(exec-query
conn
"
DELETE FROM derivation_source_files
WHERE NOT EXISTS (
SELECT 1
FROM derivation_sources
WHERE derivation_source_file_id = derivation_source_files.id
)"))
(define (maybe-delete-derivation conn id) (define (maybe-delete-derivation conn id)
(match (map (match (map
car car
@ -457,6 +469,10 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED")
(if (eq? 0 batch-deleted-count) (if (eq? 0 batch-deleted-count)
(begin (begin
(close-postgresql-connection-channel conn-channel) (close-postgresql-connection-channel conn-channel)
(simple-format
(current-output-port)
"Deleting unused derivation_source_files entries")
(delete-unreferenced-derivations-source-files conn)
(simple-format (simple-format
(current-output-port) (current-output-port)
"Finished deleting derivations, deleted ~A in total\n" "Finished deleting derivations, deleted ~A in total\n"