guix-commits
[Top][All Lists]
Advanced

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

02/18: home: xdg: Use a single @ instead of @@.


From: guix-commits
Subject: 02/18: home: xdg: Use a single @ instead of @@.
Date: Fri, 5 Aug 2022 09:28:54 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit a80edc0d82c104d22607da5c44225d9105c3e1cf
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Thu Jul 21 15:24:32 2022 +0300

    home: xdg: Use a single @ instead of @@.
    
    * gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation,
    home-xdg-user-directories-files-service): Use single @ intsead of @@.
    
    Signed-off-by: Ludovic Court├Ęs <ludo@gnu.org>
---
 gnu/home/services/xdg.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 71c028c788..04cf9d0aed 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -23,6 +23,7 @@
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu home services utils)
   #:use-module (guix gexp)
+  #:use-module (guix modules)
   #:use-module (guix records)
   #:use-module (guix i18n)
   #:use-module (guix diagnostics)
@@ -106,7 +107,7 @@ services more consistent."))
 
 (define (ensure-xdg-base-dirs-on-activation config)
   #~(map (lambda (xdg-base-dir-variable)
-           ((@@ (guix build utils) mkdir-p)
+           ((@ (guix build utils) mkdir-p)
             (getenv
              xdg-base-dir-variable)))
          '#$(map (lambda (field)
@@ -207,8 +208,8 @@ pre-populated content.")
                    home-xdg-user-directories-configuration-fields)))
     #~(let ((ensure-dir
              (lambda (path)
-               (mkdir-p
-                ((@@ (ice-9 string-fun) string-replace-substring)
+               ((@ (guix build utils) mkdir-p)
+                ((@ (ice-9 string-fun) string-replace-substring)
                  path "$HOME" (getenv "HOME"))))))
         (display "Creating XDG user directories...")
         (map ensure-dir '#$dirs)



reply via email to

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