Message ID | 20220227135342.10296-3-ludo@gnu.org |
---|---|
State | Accepted |
Headers | show |
Series | Home: Clarify and better test symlink-manager.scm | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm index 25470209d1..a6344c808f 100644 --- a/gnu/home/services/symlink-manager.scm +++ b/gnu/home/services/symlink-manager.scm @@ -125,7 +125,7 @@ (define (cleanup-symlinks old-tree) (display (G_ "Cleaning up symlinks from previous home-environment.\n\n")) - (map + (for-each (match-lambda (('dir . ".") (display (G_ "Cleanup finished.\n\n"))) @@ -168,7 +168,7 @@ (define (get-source-path path) (readlink (string-append new-files-path "/" path))) (let ((to-create ((file-tree-traverse #t) new-tree))) - (map + (for-each (match-lambda (('dir . ".") (display