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'"))))))