From 08dc9f2ca2e96476aa51c906c8ba01ca5d033568 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Sun, 4 Dec 2022 00:37:11 -0500 Subject: gnu: Do not use 'local-file' in Raspberry Pi OS examples. As this breaks the 'tests/guix-system.sh' test. * gnu/system/examples/raspberry-pi-64-nfs-root.tmpl (%my-public-key): Delete variable. (raspberry-pi-64-nfs-root) [services]: Remove key from openssh-configuration. * gnu/system/examples/raspberry-pi-64.tmpl: Likewise. Reported-by: Vagrant Cascadian --- gnu/system/examples/raspberry-pi-64-nfs-root.tmpl | 7 +------ gnu/system/examples/raspberry-pi-64.tmpl | 7 +------ 2 files changed, 2 insertions(+), 12 deletions(-) (limited to 'gnu') diff --git a/gnu/system/examples/raspberry-pi-64-nfs-root.tmpl b/gnu/system/examples/raspberry-pi-64-nfs-root.tmpl index 7bcac8ded0..8c47c650f6 100644 --- a/gnu/system/examples/raspberry-pi-64-nfs-root.tmpl +++ b/gnu/system/examples/raspberry-pi-64-nfs-root.tmpl @@ -21,9 +21,6 @@ raspberry-pi ssh) -(define %my-public-key - (local-file (string-append (getenv "HOME") "/.ssh/id_ecdsa.pub"))) - (define-public raspberry-pi-64-nfs-root (operating-system (host-name "raspberrypi-guix") @@ -66,9 +63,7 @@ (service ntp-service-type) (service openssh-service-type (openssh-configuration - (x11-forwarding? #t) - (authorized-keys - `(("pi" ,%my-public-key))))) + (x11-forwarding? #t))) %base-services)) (name-service-switch %mdns-host-lookup-nss))) diff --git a/gnu/system/examples/raspberry-pi-64.tmpl b/gnu/system/examples/raspberry-pi-64.tmpl index 7d2638dd80..3ad588207c 100644 --- a/gnu/system/examples/raspberry-pi-64.tmpl +++ b/gnu/system/examples/raspberry-pi-64.tmpl @@ -20,9 +20,6 @@ raspberry-pi ssh) -(define %my-public-key - (local-file (string-append (getenv "HOME") "/.ssh/id_ecdsa.pub"))) - (define-public raspberry-pi-64 (operating-system (host-name "raspberrypi-guix") @@ -70,9 +67,7 @@ (service ntp-service-type) (service openssh-service-type (openssh-configuration - (x11-forwarding? #t) - (authorized-keys - `(("pi" ,%my-public-key))))) + (x11-forwarding? #t))) %base-services)) (name-service-switch %mdns-host-lookup-nss))) -- cgit v1.2.3