GNU bug report logs - #66557
[PATCH] home: services: Add goimapnotify service.

Previous Next

Full log

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

From: Bruno Victal <mirai <at> makinata.eu>
To: Nils Landt <nils <at> landt.email>
Cc: 66557 <at> debbugs.gnu.org
Subject: Re: [bug#66557] [PATCH] home: services: Add goimapnotify service.
Date: Tue, 28 Nov 2023 20:37:58 +0000

[Message part 1 (text/plain, inline)]

Hi Nils,

On 2023-11-21 15:25, Nils Landt wrote:
>> Bruno Victal <mirai <at> makinata.eu> hat am 20.11.2023 18:16 CET ls,
>> On 2023-10-15 15:01, Nils Landt wrote:
>>> +(define (list-of-goimapnotify-accounts? lst)
>>> +  "List is in the form of '((file-name file-like))"
>>> +  (every (lambda (element)
>>> +           (match element
>>> +                  ((string ($ <goimapnotify-account>))
>>> +                   #t)
>>> +                  (_ #f)))
>>> +         lst))
>>
>> You can replace this with:
>> --8<---------------cut here---------------start------------->8---
>> (define list-of-goimapnotify-accounts?
>>   (list-of goimapnotify-account?))
>> --8<---------------cut here---------------end--------------->8---
> 
> Wouldn't that fail because it expects '(goimapnotify-account goimapnotify-account[...])?

Right, it should be something like:

--8<---------------cut here---------------start------------->8---
(define list-of-goimapnotify-accounts?
  (list-of (match-lambda ((? string?) (? goimapnotify-account?)))))
--8<---------------cut here---------------end--------------->8---

-- 
Furthermore, I consider that nonfree software must be eradicated.

Cheers,
Bruno.

[OpenPGP_signature.asc (application/pgp-signature, attachment)]

Previous Next

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