Filter out nonexistent packages (tombstoned packages) from package-batch-detail

This commit is contained in:
Tony Garnock-Jones 2015-09-29 12:20:07 -04:00
parent b6f44005a8
commit 2bb8cbe5b3

View File

@ -201,7 +201,7 @@
[('package-detail name)
(values (lookup-package name local-packages) state)]
[('package-batch-detail names)
(values (for/list ((name names)) (lookup-package name local-packages)) state)]
(values (filter values (for/list ((name names)) (lookup-package name local-packages))) state)]
[('external-information name)
(values (hash-ref external-information name (lambda () (hash))) state)]
[('set-external-information! name info)