diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-08-10 09:06:08 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-08-10 09:10:45 -0400 |
| commit | d9a0ccf13f461335bd23abebeec7af981cae7be8 (patch) | |
| tree | 85d5c9c4469d44ffa24599540f5d32bde42c1da3 /gnu/home/services/ssh.scm | |
| parent | 62bee0a915ca15dadfc584d7f619f546f5f1256b (diff) | |
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>
Diffstat (limited to 'gnu/home/services/ssh.scm')
| -rw-r--r-- | gnu/home/services/ssh.scm | 8 |
1 files 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., |