From 6870f77370f2f43d669272f7dfd10266e923f129 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Wed, 4 Nov 2020 16:48:25 +0100
Subject: config-links uses rm-tree because it can get a full dir

---
 install.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))))
 
-- 
cgit v1.2.3