From d9a0ccf13f461335bd23abebeec7af981cae7be8 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 10 Aug 2022 09:06:08 -0400 Subject: home: ssh: Fix invalid value error for address-family. Fixes , 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 --- gnu/home/services/ssh.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu/home') 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., -- cgit v1.2.3