From f7ada4bf1f423573c409513c824a6f0675ab75ec Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 22 May 2024 11:46:18 +0100
Subject: Guard against trying to delete an empty list of commits

---
 guix-data-service/data-deletion.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'guix-data-service')

diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm
index c9dc631..e75fe42 100644
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@@ -255,10 +255,11 @@ WHERE git_repository_id = $1
                      (list (number->string git-repository-id)
                            branch-name))))
 
-  (delete-revisions-from-branch conn
-                                git-repository-id
-                                branch-name
-                                commits)
+  (unless (null? commits)
+    (delete-revisions-from-branch conn
+                                  git-repository-id
+                                  branch-name
+                                  commits))
 
   (exec-query
    conn
-- 
cgit v1.2.3