suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rebuild indexes in a tombstone-aware way

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-24 17:32:41 -04:00
parent 57beb91384
commit 35f9c16cdc
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/packages.rkt
View File

@ -121,13 +121,17 @@
[all-tags
(for/fold ((ts (set)))
((pkg (in-hash-values (package-manager-state-local-packages state))))
(set-union ts (list->set
(map symbol->string
(hash-keys (or (@ pkg search-terms) (hash)))))))]
(if (tombstone? pkg)
ts
(set-union ts (list->set
(map symbol->string
(hash-keys (or (@ pkg search-terms) (hash))))))))]
[all-formal-tags
(for/fold ((ts (set)))
((pkg (in-hash-values (package-manager-state-local-packages state))))
(set-union ts (list->set (or (@ pkg tags) '()))))]))
(if (tombstone? pkg)
ts
(set-union ts (list->set (or (@ pkg tags) '())))))]))
(define (replace-package completion-ch old-pkg new-pkg state)
(define local-packages (package-manager-state-local-packages state))