[debbugs-tracker] bug#37427: closed ([PATCH] services: dovecot: Fix predicate names for free-form fields)

[GNU bug Tracking System]

Your message dated Fri, 20 Sep 2019 22:35:53 +0200
with message-id <address@hidden>
and subject line Re: [bug#37427] [PATCH] services: dovecot: Fix predicate names 
for free-form fields
has caused the debbugs.gnu.org bug report #37427,
regarding [PATCH] services: dovecot: Fix predicate names for free-form fields
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden.)


-- 
37427: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=37427
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] services: dovecot: Fix predicate names for free-form fields
>
>
>
>
> Date: 
>
> Mon, 16 Sep 2019 16:42:15 +0200
>
>
>
>
> ---
>  gnu/services/mail.scm | 4 ++--
>  1 file changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
> index 3de0b4c2f3..2606aa9e3e 100644
> --- a/gnu/services/mail.scm
> +++ b/gnu/services/mail.scm
> @@ -137,7 +137,7 @@
>  (define (free-form-fields? val)
>    (match val
>      (() #t)
> -    ((((? symbol?) . (? string)) . val) (free-form-fields? val))
> +    ((((? symbol?) . (? string?)) . val) (free-form-fields? val))
>      (_ #f)))
>  (define (serialize-free-form-fields field-name val)
>    (for-each (match-lambda ((k . v) (serialize-field k v))) val))
> @@ -145,7 +145,7 @@
>  (define (free-form-args? val)
>    (match val
>      (() #t)
> -    ((((? symbol?) . (? string)) . val) (free-form-args? val))
> +    ((((? symbol?) . (? string?)) . val) (free-form-args? val))
>      (_ #f)))
>  (define (serialize-free-form-args field-name val)
>    (serialize-field field-name
> -- 
> 2.21.0
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: [bug#37427] [PATCH] services: dovecot: Fix predicate names for free-form fields
>
>
>
>
> Date: 
>
> Fri, 20 Sep 2019 22:35:53 +0200
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
>
>
>
>
> Hi Alexey,
>
> Alexey Abramov <address@hidden> skribis:
>
> > --- a/gnu/services/mail.scm
> > +++ b/gnu/services/mail.scm
> > @@ -137,7 +137,7 @@
> >  (define (free-form-fields? val)
> >    (match val
> >      (() #t)
> > -    ((((? symbol?) . (? string)) . val) (free-form-fields? val))
> > +    ((((? symbol?) . (? string?)) . val) (free-form-fields? val))
>
> Good catch!  I tweaked the commit log and committed.
>
> Thanks,
> Ludo’.
>
>
> --- End Message ---