diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-02-18 17:00:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-10 11:43:13 +0100 |
| commit | cf803b71c7c1f9486a5841c550361a5cb3d94f99 (patch) | |
| tree | 18f74925a97d28ef07bdeebaf080106e33a21bef | |
| parent | 7a8856f540675d479a4a99bd81d8e810a34f036f (diff) | |
| download | guix-cf803b71c7c1f9486a5841c550361a5cb3d94f99.tar guix-cf803b71c7c1f9486a5841c550361a5cb3d94f99.tar.gz | |
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'.
| -rw-r--r-- | gnu/home/services/symlink-manager.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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 @@ 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 |