kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

home: symlink-manager: Use 'for-each' when used for effects.

Browse Source 
* gnu/home/services/symlink-manager.scm (update-symlinks-script)[cleanup-symlinks]
[create-symlinks]: Use 'for-each' instead of 'map'.
This commit is contained in:
Ludovic Courtès 2022-02-18 17:00:46 +01:00
parent 7a8856f540
commit cf803b71c7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/home/services/symlink-manager.scm
View File

@ -125,7 +125,7 @@ appear only after all nested items already listed."
(display (display
(G_ (G_
"Cleaning up symlinks from previous home-environment.\n\n")) "Cleaning up symlinks from previous home-environment.\n\n"))
(map (for-each
(match-lambda (match-lambda
(('dir . ".") (('dir . ".")
(display (G_ "Cleanup finished.\n\n"))) (display (G_ "Cleanup finished.\n\n")))
@ -168,7 +168,7 @@ appear only after all nested items already listed."
(readlink (string-append new-files-path "/" path))) (readlink (string-append new-files-path "/" path)))
(let ((to-create ((file-tree-traverse #t) new-tree))) (let ((to-create ((file-tree-traverse #t) new-tree)))
(map (for-each
(match-lambda (match-lambda
(('dir . ".") (('dir . ".")
(display (display