summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2021-08-30 12:23:48 +0300
committerOleg Pykhalov <go.wigust@gmail.com>2021-09-09 20:26:50 +0300
commit990e1e0af537405418fb8272631c266de8c4a24a (patch)
tree91c69a6b36e45b064f7e0dc90191a543edf44fea
parent833a78b16c5089cb6d3289a965f97b7c425627ab (diff)
downloadguix-patches-990e1e0af537405418fb8272631c266de8c4a24a.tar
guix-patches-990e1e0af537405418fb8272631c266de8c4a24a.tar.gz
home-services: symlink-manager: Properly handle 1st generation case.
Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
-rw-r--r--gnu/home-services/symlink-manager.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/home-services/symlink-manager.scm b/gnu/home-services/symlink-manager.scm
index dc409d2ae2..11f5d503d4 100644
--- a/gnu/home-services/symlink-manager.scm
+++ b/gnu/home-services/symlink-manager.scm
@@ -102,7 +102,7 @@ appear only after all nested items already listed."
(number->string (current-time))
"-guix-home-legacy-configs-backup"))
- (old-tree (if (file-exists? old-home)
+ (old-tree (if old-home
((simplify-file-tree "")
(file-system-tree
(string-append old-home "/files/.")))