From c0012d4b2fa4c008ead19ec100cd182ff95eb356 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 17 Sep 2020 16:34:51 +0100 Subject: Add a --password-file option to the agent --- scripts/guix-build-coordinator-agent.in | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- cgit v1.2.3