01/03: hydra: berlin-nodes: Authorize berlin key.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository maintenance.

commit 4ffb88f5e1719e546155c33317a1eb72c71f4062
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Dec 1 13:07:11 2020 +0100

    hydra: berlin-nodes: Authorize berlin key.
    
    * hydra/berlin-nodes.scm: Authorize berlin key on build nodes.
---
 hydra/berlin-nodes.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hydra/berlin-nodes.scm b/hydra/berlin-nodes.scm
index c575b3f..83c1ede 100644
--- a/hydra/berlin-nodes.scm
+++ b/hydra/berlin-nodes.scm
@@ -128,11 +128,17 @@
      "ssh-ed25519 
AAAAC3NzaC1lZDI1NTE5AAAAICBZkQ4ZQgMGs/3druNQLsyFWHVhjtmN/sj1fxrPeUqJ"
      192)))
 
+(define %authorized-guix-keys
+  ;; List of authorized 'guix archive' keys.
+  (list (local-file "keys/guix/berlin.guixsd.org-export.pub")))
+
 (map (match-lambda
        ((id ip host-key memory)
         (machine
          (operating-system
            (berlin-new-build-machine-os id
+                                        #:authorized-guix-keys
+                                        %authorized-guix-keys
                                         #:emulated-architectures
                                         '("arm" "aarch64")
                                         #:childhurd? (childhurd-ip? ip)