diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-14 10:16:49 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-14 10:16:49 +0000 |
| commit | 7c1eedfba9ef5ccc5651cd5e88662c158e594a2c (patch) | |
| tree | e167471ea8cee72f45794d04aae4d9fe4831b910 /guix-build-coordinator/hooks.scm | |
| parent | 1c5775e5442764286a993b30bfc39b89898ff82c (diff) | |
| download | build-coordinator-7c1eedfba9ef5ccc5651cd5e88662c158e594a2c.tar build-coordinator-7c1eedfba9ef5ccc5651cd5e88662c158e594a2c.tar.gz | |
More fixes for the combined post publish hook
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index ad03465..db44db6 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -267,7 +267,8 @@ (lambda (output) (process-output drv-name output)) (datastore-list-build-outputs datastore build-id))))) - (when combined-post-publish-hook + (when (and combined-post-publish-hook + (not (null? narinfos-and-nars))) (with-exception-handler (lambda (exn) ;; Rollback narinfo creation, to make this more @@ -275,7 +276,9 @@ (for-each (match-lambda ((narinfo-filename . _) - (delete-file narinfo-filename))) + (delete-file + (string-append + narinfo-directory "/" narinfo-filename)))) narinfos-and-nars) (raise-exception exn)) |