diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-19 18:32:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-19 18:32:58 +0100 |
| commit | 86e446c027b15e95bb4cadb6aeea09e90814c15e (patch) | |
| tree | b5f09ca7ca2963cbbacf63a86da8349bf40fcc4c | |
| parent | e1489703110fdaf099fb7d40bccfddf9fd2720ba (diff) | |
| download | build-coordinator-86e446c027b15e95bb4cadb6aeea09e90814c15e.tar build-coordinator-86e446c027b15e95bb4cadb6aeea09e90814c15e.tar.gz | |
Support extending the S3 publish hook
To allow doing things with the nar/narinfo files before they're deleted.
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index f4c95f6..0b41e11 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -141,7 +141,8 @@ #:key (command-line-arguments '()) (public-key (read-file-sexp %public-key-file)) - (private-key (read-file-sexp %private-key-file))) + (private-key (read-file-sexp %private-key-file)) + post-publish-hook) (define (s3-file-exists? name) (if (null? (retry-on-error @@ -185,6 +186,11 @@ #:times 6 #:delay 20)) + (when post-publish-hook + (post-publish-hook directory + narinfo-filename + nar-filename)) + (delete-file (string-append directory "/" narinfo-filename)) (delete-file (string-append directory "/" nar-filename)))))) |