Guard against trying to delete an empty list of commits

2024-05-22 11:46:18 +01:00 · 2024-05-22 11:46:18 +01:00 · f7ada4bf1f
commit f7ada4bf1f
parent 5d50a0e3e1
1 changed files with 5 additions and 4 deletions
--- 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))))

+  (unless (null? commits)
    (delete-revisions-from-branch conn
                                  git-repository-id
                                  branch-name
-                                commits)
+                                  commits))

  (exec-query
   conn