Allow overriding the success publish hook skip publishing behaviour

This means that when using the nar-herder, you can get it to check for the
presence of the nar in the database, rather than relying on the narinfo on the
disk.

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