diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2020-11-04 16:48:25 +0100 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2020-11-04 16:48:25 +0100 |
| commit | 6870f77370f2f43d669272f7dfd10266e923f129 (patch) | |
| tree | 040e0f514f9364a9451aaf259e0d046e780f4660 | |
| parent | a6fc18a1a41088258b4acd0217c892ab911e2bb1 (diff) | |
| download | dotfiles-6870f77370f2f43d669272f7dfd10266e923f129.tar.gz dotfiles-6870f77370f2f43d669272f7dfd10266e923f129.tar.bz2 dotfiles-6870f77370f2f43d669272f7dfd10266e923f129.zip | |
config-links uses rm-tree because it can get a full dir
| -rwxr-xr-x | install.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/install.scm b/install.scm index 5346740..46ee7a2 100755 --- a/install.scm +++ b/install.scm @@ -95,7 +95,7 @@ (let ((src-path (expand-file src)) (target-path (replace (expand-file target) "dot-" "."))) (unless (and (symlink? target-path) (equal? (readlink target-path) src-path)) - (clean-file target-path dry-run) + (rm-tree target-path dry-run) (symlink src-path target-path) (log-msg 'OK (string-append " Symlink " src " -> " target))))) |