diff options
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index c2c5008..2053e90 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -82,6 +82,10 @@ (public-key (read-file-sexp %public-key-file)) (private-key (read-file-sexp %private-key-file)) (narinfo-directory publish-directory) + (skip-publishing-proc + (lambda (narinfo-filename narinfo-directory) + (file-exists? (string-append + narinfo-directory "/" narinfo-filename)))) post-publish-hook) (mkdir-p (string-append publish-directory "/nar/lzip")) @@ -116,7 +120,7 @@ (string-append narinfo-directory "/" narinfo-filename))) - (unless (file-exists? narinfo-location) + (unless (skip-publishing-proc narinfo-filename narinfo-directory) (copy-file nar-location nar-destination) (call-with-output-file narinfo-location |