diff options
author | Arun Isaac <arunisaac@systemreboot.net> | 2022-12-29 20:23:58 +0000 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2022-12-31 19:01:30 +0100 |
commit | 3dd75b9e9eb564f201efb895b2bdc1175bd27527 (patch) | |
tree | 081984a8e5afef45d6adedbace272b82d6b0f7ef | |
parent | b5039b2359f373d18e81ad34190cebba0fbf42e8 (diff) |
messages: Offload limiting search results to xapian.
* mumi/messages.scm (search-bugs): Offload limiting search results to
max to xapian.
-rw-r--r-- | mumi/messages.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 75ac3b1..b3ae962 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -252,10 +252,8 @@ PATCH-SET. If PATCH-SET is not provided, return all patches." (define* (search-bugs query #:key (max 400)) "Return a list of all bugs matching the given QUERY string." - (let ((ids (map string->number - (search query)))) - (status-with-cache (if (> (length ids) max) - (take ids max) ids)))) + (status-with-cache (map string->number + (search query #:pagesize max)))) (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." |