mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-24 19:27:44 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

home-services: symlink-manager: Properly handle 1st generation case.

Browse source 
Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
This commit is contained in:
Andrew Tropin 2021-08-30 12:23:48 +03:00 committed by Oleg Pykhalov
parent 833a78b16c
commit 990e1e0af5
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/home-services/symlink-manager.scm
View file

@ -102,7 +102,7 @@ (define ((file-tree-traverse preordering) node)
(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/.")))