04/63: gnu: dirvish: Import the correct set of modules.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 02fe90e80038a7d2c91643508b3a86737474824a
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Oct 9 11:20:28 2023 -0400

    gnu: dirvish: Import the correct set of modules.
    
    * gnu/packages/backup.scm (dirvish) [arguments] <modules>: Replace
    %default-gnu-imported-modules with %default-gnu-modules.  Delete trailing 
#t.
    
    Change-Id: I041a65441055a21f141bb7ea4a563e2624cd783c
---
 gnu/packages/backup.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 63b6055c5e..aa2eb11c64 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -813,7 +813,7 @@ NTFS volumes using @code{ntfs-3g}, preserving NTFS-specific 
attributes.")
                 "1kbxa1irszp2zw8hd5qzqnrrzb4vxfivs1vn64yxnj0lak1jjzvb"))))
     (arguments
      `(#:modules ((ice-9 match) (ice-9 rdelim)
-                  ,@%default-gnu-imported-modules)
+                  ,@%default-gnu-modules)
        #:phases
        ;; This mostly mirrors the steps taken in the install.sh that ships
        ;; with dirvish, but simplified because we aren't prompting 
interactively
@@ -889,8 +889,7 @@ NTFS volumes using @code{ntfs-3g}, preserving NTFS-specific 
attributes.")
                ;; Write out executables
                (for-each write-pl executables)
                ;; Write out man pages
-               (for-each write-man man-pages)
-               #t))))))
+               (for-each write-man man-pages)))))))
     (inputs
      (list perl rsync perl-libtime-period perl-libtime-parsedate))
     (home-page "http://dirvish.org/";)