From bc998dcd1cf1a6a9a4ea9017148094eb6c8a8d56 Mon Sep 17 00:00:00 2001 From: Patrick Norton Date: Fri, 15 May 2026 19:39:16 -0400 Subject: [PATCH] gnu: home-services: Fix serialization of environment-variables. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/home/services/ssh.scm (serialize-string-alist): Fix serialization. (serialize-symbol): Check for %unset-marker% symbol. (serialize-field-name): Fix typo in name SendEnv. Change-Id: I69f340178ef30e9d03a87be4a6495b1704f140f4 Signed-off-by: Ludovic Courtès Merges: #8659 --- gnu/home/services/ssh.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/gnu/home/services/ssh.scm b/gnu/home/services/ssh.scm index 4fca0a71fbd..d38490cb36e 100644 --- a/gnu/home/services/ssh.scm +++ b/gnu/home/services/ssh.scm @@ -89,7 +89,7 @@ (define (serialize-field-name name) (match name ('accepted-key-types "PubkeyAcceptedKeyTypes") - ('sent-environment-variables "SentEnv") + ('sent-environment-variables "SendEnv") ('environment-variables "SetEnv") ('control-file-name "ControlPath") (_ @@ -139,8 +139,10 @@ (define-maybe natural-number) (define (serialize-symbol field value) - (string-append " " (serialize-field-name field) " " - (symbol->string value) "\n")) + (if (maybe-value-set? value) + (string-append " " (serialize-field-name field) " " + (symbol->string value) "\n") + "")) (define-maybe symbol) @@ -178,7 +180,7 @@ (string-join (map (match-lambda ((key . value) - (format #nil "~a = ~s~%" (serialize-field-name key) value))) + (format #nil "~s" (string-append key "=" value)))) lst) " ") "\n")) (define-maybe string-alist)