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))))
(delete-revisions-from-branch conn (unless (null? commits)
git-repository-id (delete-revisions-from-branch conn
branch-name git-repository-id
commits) branch-name
commits))
(exec-query (exec-query
conn conn