summaryrefslogtreecommitdiff
path: root/gnu/home/services/ssh.scm
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-08-10 09:06:08 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-08-10 09:10:45 -0400
commitd9a0ccf13f461335bd23abebeec7af981cae7be8 (patch)
tree85d5c9c4469d44ffa24599540f5d32bde42c1da3 /gnu/home/services/ssh.scm
parent62bee0a915ca15dadfc584d7f619f546f5f1256b (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.scm8
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.,