From 35f9c16cdc45156e582e194bf52b22e4dd4a72c2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 24 Sep 2015 17:32:41 -0400 Subject: [PATCH] Rebuild indexes in a tombstone-aware way --- src/packages.rkt | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/packages.rkt b/src/packages.rkt index 5184543..ba5ba8a 100644 --- a/src/packages.rkt +++ b/src/packages.rkt @@ -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))