me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/home/services/symlink-manager.scm (update-symlinks-script)[cleanup-symlinks]
[create-symlinks]: Use 'for-each' instead of 'map'.
master
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
(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 @@ appear only after all nested items already listed."
(readlink (string-append new-files-path "/" path)))
(let ((to-create ((file-tree-traverse #t) new-tree)))
(map
(for-each
(match-lambda
(('dir . ".")
(display