diff options
author | Arun Isaac <arunisaac@systemreboot.net> | 2022-12-29 20:23:57 +0000 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2022-12-31 19:01:12 +0100 |
commit | b5039b2359f373d18e81ad34190cebba0fbf42e8 (patch) | |
tree | 1a4a12f80dee7f29ebf3a5527ed62a218ce76845 | |
parent | bda10fa1b37fed8ea313ea8ad49fa6146e65b4c0 (diff) |
messages: Remove unused set intersection feature in search-bugs.
* mumi/messages.scm (search-bugs): Remove unused set intersection
feature.
-rw-r--r-- | mumi/messages.scm | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index fb305bb..75ac3b1 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -1,6 +1,6 @@ ;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2018, 2019, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License @@ -250,16 +250,12 @@ PATCH-SET. If PATCH-SET is not provided, return all patches." message-numbers) "\n"))) -(define* (search-bugs query #:key (sets '()) (max 400)) - "Return a list of all bugs matching the given QUERY string. -Intersect the result with the id sets in the list SETS." - (let* ((ids (map string->number - (search query))) - (filtered (match sets - (() ids) - (_ (apply lset-intersection eq? ids sets))))) - (status-with-cache (if (> (length filtered) max) - (take filtered max) filtered)))) +(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)))) (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." |