Guard against trying to delete an empty list of commits

This commit is contained in:
Christopher Baines 2024-05-22 11:46:18 +01:00
parent 5d50a0e3e1
commit f7ada4bf1f

View file

@ -255,10 +255,11 @@ WHERE git_repository_id = $1
(list (number->string git-repository-id) (list (number->string git-repository-id)
branch-name)))) branch-name))))
(unless (null? commits)
(delete-revisions-from-branch conn (delete-revisions-from-branch conn
git-repository-id git-repository-id
branch-name branch-name
commits) commits))
(exec-query (exec-query
conn conn