diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-16 10:59:38 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-16 10:59:38 +0000 |
| commit | b087cfca67778f0ba0d7777a23c57bf2094669fb (patch) | |
| tree | 7018234b8106244af7d77daa8746710ecd851d45 | |
| parent | 9c7310f8e3d4a05c87e1068b927356fd2091247b (diff) | |
| download | data-service-b087cfca67778f0ba0d7777a23c57bf2094669fb.tar data-service-b087cfca67778f0ba0d7777a23c57bf2094669fb.tar.gz | |
Define the code to delete data from non-master branches properly
| -rw-r--r-- | guix-data-service/data-deletion.scm | 16 |
1 files changed, 15 insertions, 1 deletions
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'")))))) |