From 754f64718f23a73ca5878eae81f541e72b42027d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 16 Jun 2022 12:38:51 +0100
Subject: [PATCH] Fix DELETE query in delete-revisions-from-branch

---
 guix-data-service/data-deletion.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm
index 5ade50f..7e319c7 100644
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@@ -212,8 +212,12 @@ WHERE id IN (
       conn
       "
 DELETE FROM package_derivations_by_guix_revision_range
-WHERE git_repository_id = $1 AND
-      branch_name = $2"
+WHERE git_branch_id IN (
+  SELECT id
+  FROM git_branches
+  WHERE git_repository_id = $1 AND
+        name = $2
+)"
       (list (number->string git-repository-id)
             branch-name))