me
/
guix
Archived
1
0
Fork 0
Code

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

Fixes <https://issues.guix.gnu.org/57110>, a regression introduced with
a2b89a3319.

* 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>
Maxim Cournoyer 2022-08-10 09:06:08 -04:00
parent 62bee0a915
commit d9a0ccf13f
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/home/services/ssh.scm
View File

@ -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.,