delete "compiled" directories as part of cache reset

pull/127/head
Matthew Butterick 8 years ago
parent 1eb5d0fa92
commit 3cf23f5980

@ -14,7 +14,10 @@
(for ([path (in-directory starting-dir)] (for ([path (in-directory starting-dir)]
#:when (and (directory-exists? path) #:when (and (directory-exists? path)
(equal? (path->string (car (reverse (explode-path path)))) (setup:cache-dir-name)))) (let* ([last (compose1 car reverse)]
[last-path-element (path->string (last (explode-path path)))])
(or (equal? last-path-element (setup:cache-dir-name))
(equal? last-path-element "compiled")))))
(message (format "removing cache directory: ~a" path)) (message (format "removing cache directory: ~a" path))
(delete-directory/files path))) (delete-directory/files path)))

@ -1 +1 @@
1469050761 1469678452

Loading…
Cancel
Save