GNU bug report logs - #37427
[PATCH] services: dovecot: Fix predicate names for free-form fields

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 37427 in the body.
You can then email your comments to 37427 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Alexey Abramov <levenson <at> mmer.org>
To: guix-patches <at> gnu.org
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

Message #10 received at 37427-done <at> debbugs.gnu.org (full text, mbox):

From: Ludovic Courtès <ludo <at> gnu.org>
To: Alexey Abramov <levenson <at> mmer.org>
Cc: 37427-done <at> debbugs.gnu.org
Subject: Re: [bug#37427] [PATCH] services: dovecot: Fix predicate names for
 free-form fields
Date: Fri, 20 Sep 2019 22:35:53 +0200

Hi Alexey,

Alexey Abramov <levenson <at> mmer.org> 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’.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.