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

Define the code to delete data from non-master branches properly

Browse source
This commit is contained in:
Christopher Baines 2020-02-16 10:59:38 +00:00
parent 9c7310f8e3
commit b087cfca67
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -162,4 +162,18 @@ WHERE id IN ("
(string-join guix-revision-ids ", ") (string-join guix-revision-ids ", ")
")"))))))) ")")))))))
(with-postgresql-connection "foo" (lambda (conn) (for-each (lambda (branch-name) (delete-data-for-branch conn 1 branch-name)) (map car (exec-query conn "SELECT DISTINCT name FROM git_branches WHERE git_repository_id = 1 AND name != 'master'"))))) (define (delete-data-for-all-branches-but-master)
(with-postgresql-connection
"data-deletion"
(lambda (conn)
(for-each
(lambda (branch-name)
(delete-data-for-branch conn 1 branch-name))
(map
car
(exec-query
conn
"
SELECT DISTINCT name
FROM git_branches
WHERE git_repository_id = 1 AND name != 'master'"))))))