branch master updated: home: ssh: Fix invalid value error for address-family.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new d9a0ccf13f home: ssh: Fix invalid value error for address-family.
d9a0ccf13f is described below

commit d9a0ccf13f461335bd23abebeec7af981cae7be8
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 10 09:06:08 2022 -0400

    home: ssh: Fix invalid value error for address-family.
    
    Fixes <https://issues.guix.gnu.org/57110>, a regression introduced with
    a2b89a3319dc1d621c546855f578acae5baaf6da.
    
    * gnu/home/services/ssh.scm (address-family?): Replace *unspecified* with 
'unset.
    (serialize-address-family): Adjust accordingly.
    (openssh-host): Adjust doc.
    
    Reported-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 gnu/home/services/ssh.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/home/services/ssh.scm b/gnu/home/services/ssh.scm
index ff2992766c..f0987aee23 100644
--- a/gnu/home/services/ssh.scm
+++ b/gnu/home/services/ssh.scm
@@ -69,10 +69,10 @@
                  " " value "\n"))
 
 (define (address-family? obj)
-  (memv obj (list *unspecified* AF_INET AF_INET6)))
+  (memv obj (list 'unset AF_INET AF_INET6)))
 
 (define (serialize-address-family field family)
-  (if (unspecified? family)
+  (if (eq? 'unset family)
       ""
       (string-append "  " (serialize-field-name field) " "
                      (cond ((= family AF_INET) "inet")
@@ -117,8 +117,8 @@
   (address-family
    address-family
    "Address family to use when connecting to this host: one of
-@code{AF_INET} (for IPv4 only), @code{AF_INET6} (for IPv6 only), or
-@code{*unspecified*} (allowing any address family).")
+@code{AF_INET} (for IPv4 only), @code{AF_INET6} (for IPv6 only).
+Additionally, the field can be left unset to allow any address family.")
   (identity-file
    maybe-string
    "The identity file to use---e.g.,