From 0769b47cc84f15f9f546df0b6cd82c90c23d6b21 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 19 Sep 2020 14:43:53 -0400 Subject: [PATCH] Fix 'doom purge' not purging straight builds --- core/cli/packages.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/core/cli/packages.el b/core/cli/packages.el index 90debf0c2..d4d9134a6 100644 --- a/core/cli/packages.el +++ b/core/cli/packages.el @@ -490,9 +490,10 @@ If ELPA-P, include packages installed with package.el (M-x package-install)." (and (or repos-p regraft-repos-p) (straight--directory-files (straight--repos-dir) nil nil 'sort)))) (list (when builds-p - (seq-filter #'file-directory-p - (seq-remove (doom-rpartial #'gethash straight--profile-cache) - (straight--directory-files (straight--build-dir) nil nil 'sort)))) + (let ((default-directory (straight--build-dir))) + (seq-filter #'file-directory-p + (seq-remove (doom-rpartial #'gethash straight--profile-cache) + (straight--directory-files default-directory nil nil 'sort))))) (when repos-p (seq-remove (doom-rpartial #'straight--checkhash straight--repo-cache) rdirs))