gnu: home-services: Fix serialization of environment-variables.

* 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 <ludo@gnu.org>
Merges: #8659

1 files 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)