From b087cfca67778f0ba0d7777a23c57bf2094669fb Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 16 Feb 2020 10:59:38 +0000 Subject: Define the code to delete data from non-master branches properly --- guix-data-service/data-deletion.scm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'guix-data-service/data-deletion.scm') diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 18aeb85..2f775ef 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -162,4 +162,18 @@ WHERE id IN (" (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'")))))) -- cgit v1.2.3