[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: hydra: services: 'frontend-services' has an #:authorized-keys par
|
From: |
Ludovic Courtès |
|
Subject: |
02/04: hydra: services: 'frontend-services' has an #:authorized-keys parameter. |
|
Date: |
Sat, 24 Oct 2020 18:12:38 -0400 (EDT) |
civodul pushed a commit to branch master
in repository maintenance.
commit 1920a41478bfcb90678c50199499889f05fe6d1b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 25 00:04:54 2020 +0200
hydra: services: 'frontend-services' has an #:authorized-keys parameter.
* hydra/modules/sysadmin/services.scm (guix-daemon-config): Add
#:authorized-keys and honor it.
(frontend-services): Likewise.
---
hydra/modules/sysadmin/services.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/hydra/modules/sysadmin/services.scm
b/hydra/modules/sysadmin/services.scm
index 8bd59ab..cda7458 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -190,12 +190,13 @@
(quotient threshold 2))))))
(define* (guix-daemon-config #:key (max-jobs 5) (cores 4)
- (build-accounts-to-max-jobs-ratio 4))
+ (build-accounts-to-max-jobs-ratio 4)
+ (authorized-keys '()))
(guix-configuration
;; Disable substitutes altogether.
(use-substitutes? #f)
(substitute-urls '())
- (authorized-keys '())
+ (authorized-keys authorized-keys)
;; We don't want to let builds get stuck for too long, but we still want
;; to allow building, say, Guile 2.2 on armhf-linux, which takes < 3h on
@@ -458,6 +459,7 @@
(build-accounts-to-max-jobs-ratio 4)
(branches '("master" "staging" "core-updates"))
(systems '("x86_64-linux" "i686-linux"))
+ (authorized-keys authorized-keys)
(motd %default-motd)
(nar-ttl (* 90 24 3600))
(publish-workers 6))
@@ -498,6 +500,7 @@
config => (guix-daemon-config
#:max-jobs max-jobs
#:cores cores
+ #:authorized-keys authorized-keys
#:build-accounts-to-max-jobs-ratio
build-accounts-to-max-jobs-ratio))
(login-service-type