diff mbox series

[bug#61015,v2,2/4] gnu: docbook-xml: Fix permissions.

Message ID 1116fef363afce41f355e127107db35f3be99371.1678557210.git.mirai@makinata.eu
State New
Headers show
Series [bug#61015,v2,1/4] gnu: docbook-xml: Use copy-build-system. | expand

Commit Message

Bruno Victal March 11, 2023, 5:54 p.m. UTC 
* gnu/packages/docbook.scm (docbook-xml-5)
[arguments]: Remove unnecessary executable permissions.
---
 gnu/packages/docbook.scm | 7 +++++++
 1 file changed, 7 insertions(+)
diff mbox series

Patch

diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm
index 7cfe550593..6a8eeec386 100644
--- a/gnu/packages/docbook.scm
+++ b/gnu/packages/docbook.scm
@@ -62,8 +62,15 @@  (define-public docbook-xml-5
     (build-system copy-build-system)
     (arguments
      (list
+      #:modules '((guix build copy-build-system)
+                  (guix build utils)
+                  (srfi srfi-26))
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-permissions
+            (lambda _
+              ;; XXX: These files do not need 0755 permission.
+              (for-each (cut chmod <> #o644) (find-files "."))))
           (replace 'install
             (lambda _
               (let ((dtd-path (string-append #$output "/xml/dtd/docbook")))