From 2eee8164ded286f872588771dab3b2b4401adb6d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 24 Oct 2020 11:07:07 +0100 Subject: Allow configuring the s3-publish-hook with a aws command So that an absolute filename can be used. --- guix-build-coordinator/hooks.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 8339b4f..e4b2bff 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -139,6 +139,7 @@ (define* (build-success-s3-publish-hook s3-bucket #:key + (aws-command "aws") (command-line-arguments '()) (public-key (read-file-sexp %public-key-file)) (private-key (read-file-sexp %private-key-file)) @@ -148,6 +149,7 @@ (retry-on-error (lambda () (s3-list-objects s3-bucket name + #:command aws-command #:command-line-arguments command-line-arguments)) #:times 6 @@ -172,6 +174,7 @@ (s3-cp s3-bucket (string-append directory "/" nar-filename) nar-filename + #:command aws-command #:command-line-arguments command-line-arguments)) #:times 6 @@ -187,6 +190,7 @@ (s3-cp s3-bucket (string-append directory "/" narinfo-filename) narinfo-filename + #:command aws-command #:command-line-arguments command-line-arguments)) #:times 6 -- cgit v1.2.3