bug#32698: Package azr3-1.2.3 fails during install

[Thorsten Wilms]

On 11.09.2018 15:40, Ricardo Wurmus wrote:
> Hi Thorsten,
>
> > //gnu/store/rxn9php37bgcvznjiq0mvvr6a4s8zayg-azr3-1.2.3/share/doc/azr3-jack
> > man_section=`echo azr3.1 | sed 's/.*\.\([0-9]\)/\1/'`; mkdir -p
> > //gnu/store/rxn9php37bgcvznjiq0mvvr6a4s8zayg-azr3-1.2.3/share/man/man$man_section;
> > gzip -c azr3.1 >
> > //gnu/store/rxn9php37bgcvznjiq0mvvr6a4s8zayg-azr3-1.2.3/share/man/man$man_section/`basename
> > azr3.1`.gz
> > gzip: azr3.1: warning: file timestamp out of range for gzip format
>
> We might be able to fix this with a build phase like this:
>
> --8<---------------cut here---------------start------------->8---
>    (add-before 'reset-gzip-timestamps 'make-manpages-writable
>      (lambda* (#:key outputs #:allow-other-keys)
>        (map make-file-writable
>             (find-files (string-append (assoc-ref outputs "out")
>                                        "/share/man")
>                         ".*\\.gz$"))
>        #t))
> --8<---------------cut here---------------end--------------->8---
>
> Would you like to give that a try?

I got the exact same message as before, now with your snippet inserted 
as follows, testing via
./pre-inst-env guix build azr3:

[PATCH] gnu/packages/audio.scm, azr3: add reset-gzip-timestamps
 phase.

---
 gnu/packages/audio.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 446587273..38ef11b18 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -453,7 +453,16 @@ tools.")
              "CXXFLAGS=-std=gnu++11"
              "CFLAGS=-std=gnu++11"
              (string-append "prefix=" %output)
-             (string-append "pkgdatadir=" %output "/share/azr3-jack"))))
+             (string-append "pkgdatadir=" %output "/share/azr3-jack"))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'reset-gzip-timestamps 'make-manpages-writable
+           (lambda* (#:key outputs #:allow-other-keys)
+            (map make-file-writable
+                 (find-files (string-append (assoc-ref outputs "out")
+                                            "/share/man")
+                             ".*\\.gz$"))
+            #t)))))
     (inputs
      `(("gtkmm" ,gtkmm-2)
        ("lvtk" ,lvtk)
--
2.19.0


--
Thorsten Wilms

thorwil's design for free software:
http://thorwil.wordpress.com/