diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-22 11:46:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-22 11:46:18 +0100 |
| commit | f7ada4bf1f423573c409513c824a6f0675ab75ec (patch) | |
| tree | 9da07a2c918c866adcc13aa39f7e6b1d7f2900d5 /guix-data-service | |
| parent | 5d50a0e3e17945ee4d4745ff382b3d58e23db5a0 (diff) | |
| download | data-service-master.tar data-service-master.tar.gz | |
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/data-deletion.scm | 9 |
1 files changed, 5 insertions, 4 deletions
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 |