GNU bug report logs - #76894
[PATCH 2/2] gnu: senpai: Remove redundant mkdir-p calls.

Previous Next

Package: guix-patches;

Reported by: Luis Guilherme Coelho <lgcoelho <at> disroot.org>

Date: Sun, 9 Mar 2025 16:13:02 UTC

Severity: normal

Tags: patch

Done: "Luis Guilherme Coelho" <lgcoelho <at> disroot.org>

Bug is archived. No further changes may be made.

Full log


Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Luis Guilherme Coelho <lgcoelho <at> disroot.org>
To: guix-patches <at> gnu.org
Cc: Luis Guilherme Coelho <lgcoelho <at> disroot.org>
Subject: [PATCH 2/2] gnu: senpai: Remove redundant mkdir-p calls.
Date: Sun,  9 Mar 2025 13:11:46 -0300
* gnu/packages/messaging.scm (senpai)[arguments]<#:phases>:
{install-doc}: Remove unecessary mkdir-p calls.

Change-Id: I819561888579e86fc9f8e534d54fb79240fe2f09
---
 gnu/packages/messaging.scm | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index a19673a463..04dd0afbc8 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -3713,16 +3713,12 @@ (define-public senpai
                            "-C" (string-append "src/" unpack-path))))
                (add-after 'install 'install-doc
                  (lambda* (#:key unpack-path #:allow-other-keys)
-                   (let ((man1 (string-append #$output "/share/man/man1"))
-                         (man5 (string-append #$output "/share/man/man5")))
-                     (mkdir-p man1)
-                     (mkdir-p man5)
-                     (install-file
-                      (string-append "src/" unpack-path "/doc/senpai.1")
-                      man1)
-                     (install-file
-                      (string-append "src/" unpack-path "/doc/senpai.5")
-                      man5))))
+                   (install-file
+                    (string-append "src/" unpack-path "/doc/senpai.1")
+                    (string-append #$output "/share/man/man1"))
+                   (install-file
+                    (string-append "src/" unpack-path "/doc/senpai.5")
+                    (string-append #$output "/share/man/man5"))))
                (add-after 'install 'install-desktop-file
                 (lambda* (#:key unpack-path #:allow-other-keys)
                   (install-file
-- 
2.48.1





This bug report was last modified 75 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.