diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-24 10:50:21 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-24 10:50:21 +0100 |
| commit | ad7e4624fd89972af0bcc23cd0f5ff481d8974c7 (patch) | |
| tree | 382d558ae6799a92f4f3a0ec17236a0f1ed824ba | |
| parent | d38698d85174b4594e6dc2f9be50083a50786026 (diff) | |
| download | build-coordinator-ad7e4624fd89972af0bcc23cd0f5ff481d8974c7.tar build-coordinator-ad7e4624fd89972af0bcc23cd0f5ff481d8974c7.tar.gz | |
Make the s3 utils command configurable
In case you want to use the absolute location of the binary.
| -rw-r--r-- | guix-build-coordinator/utils.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index dbc92e0..5048d29 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -414,9 +414,12 @@ References: ~a~%" (loop (+ 1 attempt)))))))) (define* (s3-list-objects s3-bucket prefix - #:key (command-line-arguments '())) + #:key + (command "aws") + (command-line-arguments '())) (let ((command - `("aws" "s3api" + `(,command + "s3api" ,@command-line-arguments "list-objects" "--bucket" ,s3-bucket @@ -441,9 +444,12 @@ References: ~a~%" output))))))) (define* (s3-cp s3-bucket source destination - #:key (command-line-arguments '())) + #:key + (command "aws") + (command-line-arguments '())) (let ((command - `("aws" "s3" + `(,command + "s3" ,@command-line-arguments "cp" ,source |