From ad7e4624fd89972af0bcc23cd0f5ff481d8974c7 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 24 Oct 2020 10:50:21 +0100
Subject: Make the s3 utils command configurable

In case you want to use the absolute location of the binary.
---
 guix-build-coordinator/utils.scm | 14 ++++++++++----
 1 file 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
-- 
cgit v1.2.3