diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-07-21 02:47:01 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-07-21 02:47:01 +0200 |
| commit | 8ecba04cd14e9e56d4a67e76ae88f35022f20d48 (patch) | |
| tree | 578308b1cbbaa2b5d1a7068ea0337de0a0c5280f | |
| parent | c9b5a9a6216371fcd9894260242f0c106f85fa01 (diff) | |
operations: get-bug-message-numbers: Return single value.
It is easier to cache a single compound value than it is to cache
mutiple values.
* debbugs/operations.scm (get-bug-message-numbers): Return compound
value.
| -rw-r--r-- | debbugs/operations.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/debbugs/operations.scm b/debbugs/operations.scm index c8c4364..e459a9d 100644 --- a/debbugs/operations.scm +++ b/debbugs/operations.scm @@ -165,11 +165,11 @@ bug identified by BUG-ID." urn:Debbugs/SOAP:item urn:Debbugs/SOAP:header *text*)) response-body))) - (values (map string->number msg-nums) - (map (lambda (header) - (and=> (parse-email-headers (drop-lines header 2)) - (cut assoc-ref <> 'message-id))) - headers)))))) + (cons (map string->number msg-nums) + (map (lambda (header) + (and=> (parse-email-headers (drop-lines header 2)) + (cut assoc-ref <> 'message-id))) + headers)))))) (define (get-usertag email) "Return an association list of tag names to lists of bug numbers for |