mbakke pushed a commit to branch core-updates
in repository guix.
commit 727bec13a35049f5f819a6f22d93e38aa44220b2
Author: Marius Bakke <[email protected]>
Date: Sun Mar 26 11:00:46 2017 +0200
gnu: po4a: Make manpages writable before resetting timestamps.
* gnu/packages/gettext.scm (po4a)[arguments]: Add
'make-compressed-files-writable' phase.
---
gnu/packages/gettext.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm
index 26ab677..0de6be0 100644
--- a/gnu/packages/gettext.scm
+++ b/gnu/packages/gettext.scm
@@ -4,6 +4,7 @@
;;; Copyright © 2015 Ricardo Wurmus <[email protected]>
;;; Copyright © 2016 Efraim Flashner <[email protected]>
;;; Copyright © 2016 Alex Kost <[email protected]>
+;;; Copyright © 2017 Marius Bakke <[email protected]>
;;;
;;; 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)
