guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: guix-commits
Subject: 07/16: home: symlink-manager: Use 'for-each' when used for effects.
Date: Thu, 10 Mar 2022 05:43:53 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit cf803b71c7c1f9486a5841c550361a5cb3d94f99
Author: Ludovic Court├Ęs <ludo@gnu.org>
AuthorDate: Fri Feb 18 17:00:46 2022 +0100

    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'.
---
 gnu/home/services/symlink-manager.scm | 4 ++--
 1 file 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]