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

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 @@ (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