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 |
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")))