diff options
author | Andrew Tropin <andrew@trop.in> | 2021-08-30 12:23:48 +0300 |
---|---|---|
committer | Oleg Pykhalov <go.wigust@gmail.com> | 2021-09-09 20:26:50 +0300 |
commit | 990e1e0af537405418fb8272631c266de8c4a24a (patch) | |
tree | 91c69a6b36e45b064f7e0dc90191a543edf44fea /gnu/home-services | |
parent | 833a78b16c5089cb6d3289a965f97b7c425627ab (diff) | |
download | guix-990e1e0af537405418fb8272631c266de8c4a24a.tar.gz |
home-services: symlink-manager: Properly handle 1st generation case.
Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
Diffstat (limited to 'gnu/home-services')
-rw-r--r-- | gnu/home-services/symlink-manager.scm | 2 |
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/."))) |