fix(straight): correctly call +delete-file-or-directory

abougouffa · Oct 21, 2023 · ebb8ed5 · ebb8ed5
1 parent 597df98
commit ebb8ed5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/core/me-bootstrap.el b/core/me-bootstrap.el
@@ -54,7 +54,10 @@
 ;;;###autoload
 (defun +straight-prune-build-cache ()
   (let* ((default-directory (file-name-concat straight-base-dir "straight/")))
-    (mapc #'+delete-file-or-directory
+    ;; Prune the build cache and build directory.
+    (straight-prune-build)
+    ;; Prune old build directories
+    (mapc (+apply-partially-right #'+delete-file-or-directory 'trash 'recursive)
           (seq-filter
            (lambda (name)
              (not (member name (list straight-build-dir