aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-02-04 09:19:54 +0000
committerChristopher Baines <mail@cbaines.net>2022-02-04 09:19:54 +0000
commitc5c1ff9fc8dcb24003569c0a37dcda6fcd1fbee2 (patch)
tree3c78795c3cfd84ec3e9ba92177115ec54d179062 /guix-build-coordinator
parent4dec6885f15047844d1585685906173a677de107 (diff)
downloadbuild-coordinator-c5c1ff9fc8dcb24003569c0a37dcda6fcd1fbee2.tar
build-coordinator-c5c1ff9fc8dcb24003569c0a37dcda6fcd1fbee2.tar.gz
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.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/hooks.scm6
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