~ruther/guix-local: gnu: po4a: Make manpages writable before resetting timestamps.

727bec13a35049f5f819a6f22d93e38aa44220b2 — Marius Bakke 9 years ago 23bd8f5

gnu: po4a: Make manpages writable before resetting timestamps.

* gnu/packages/gettext.scm (po4a)[arguments]: Add
'make-compressed-files-writable' phase.

patch browse .tar.gz

1 files changed, 9 insertions(+), 1 deletions(-)

M gnu/packages/gettext.scm

M gnu/packages/gettext.scm => gnu/packages/gettext.scm +9 -1

@@ 4,6 4,7 @@
 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
+;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;


@@ 160,7 161,14 @@ translated messages from the catalogs.  Nearly all GNU packages use Gettext.")
                           (wrap-program file
                             `("PERL5LIB" ":" prefix (,path))))
                         (find-files bin "\\.*$"))
-              #t))))))
+              #t)))
+         (add-before 'reset-gzip-timestamps 'make-compressed-files-writable
+           (lambda* (#:key outputs #:allow-other-keys)
+             (for-each make-file-writable
+                       (find-files (string-append (assoc-ref outputs "out")
+                                                  "/share/man")
+                                   ".*\\.gz$"))
+             #t)))))
     (native-inputs
      `(("gettext" ,gettext-minimal)
        ("perl-module-build" ,perl-module-build)