Rebuild indexes in a tombstone-aware way
This commit is contained in:
parent
57beb91384
commit
35f9c16cdc
|
@ -121,13 +121,17 @@
|
||||||
[all-tags
|
[all-tags
|
||||||
(for/fold ((ts (set)))
|
(for/fold ((ts (set)))
|
||||||
((pkg (in-hash-values (package-manager-state-local-packages state))))
|
((pkg (in-hash-values (package-manager-state-local-packages state))))
|
||||||
|
(if (tombstone? pkg)
|
||||||
|
ts
|
||||||
(set-union ts (list->set
|
(set-union ts (list->set
|
||||||
(map symbol->string
|
(map symbol->string
|
||||||
(hash-keys (or (@ pkg search-terms) (hash)))))))]
|
(hash-keys (or (@ pkg search-terms) (hash))))))))]
|
||||||
[all-formal-tags
|
[all-formal-tags
|
||||||
(for/fold ((ts (set)))
|
(for/fold ((ts (set)))
|
||||||
((pkg (in-hash-values (package-manager-state-local-packages state))))
|
((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 (replace-package completion-ch old-pkg new-pkg state)
|
||||||
(define local-packages (package-manager-state-local-packages state))
|
(define local-packages (package-manager-state-local-packages state))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user