diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-09-17 16:34:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-09-17 16:34:51 +0100 |
| commit | c0012d4b2fa4c008ead19ec100cd182ff95eb356 (patch) | |
| tree | 1ce6d38e5f1a79ec86669a8fbae25d36fe5198c5 | |
| parent | f7dbc0cb3ac572e4dabad88696550c4a19d0e1a5 (diff) | |
| download | build-coordinator-c0012d4b2fa4c008ead19ec100cd182ff95eb356.tar build-coordinator-c0012d4b2fa4c008ead19ec100cd182ff95eb356.tar.gz | |
Add a --password-file option to the agent
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index bbdc6bd..7b00dbf 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -24,6 +24,7 @@ (use-modules (srfi srfi-1) (srfi srfi-37) + (ice-9 textual-ports) ((guix config) #:prefix guix-config:) (guix-build-coordinator agent)) @@ -44,6 +45,12 @@ (alist-cons 'password arg result))) + (option '("password-file") #t #f + (lambda (opt name arg result) + (alist-cons 'password + (string-trim-right + (call-with-input-file arg get-string-all)) + result))) (option '("max-parallel-builds") #t #f (lambda (opt name arg result) (alist-cons 'max-parallel-builds |