diff options
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)) |