Commit 77b24a42 authored by Ludovic Courtès's avatar Ludovic Courtès

browse: Simplify blacklist handling.

* browse/web-interface.scm (request-packages-json-handler): Use 'remove'
instead of 'lset-difference'.
parent ec32d819
......@@ -71,10 +71,10 @@
(with-atomic-file-output packages-file
(lambda (port)
(scm->json (map package->json
(lset-difference
(lambda (a b)
(string= (package-name a) b))
all-packages %package-blacklist))
(remove (lambda (package)
(member (package-name package)
%package-blacklist))
all-packages))
port)))
(when cache-timeout-exists?
(delete-file cache-timeout-file))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment