01/01: gnu: lmms: Fix build.

[Kei Kebreau]

kkebreau pushed a commit to branch master
in repository guix.

commit ab2ccf4cf5074f3bd34f7b60dd8ab9dadadfe1c6
Author: Kei Kebreau <address@hidden>
Date:   Tue Nov 21 16:29:59 2017 -0500

    gnu: lmms: Fix build.
    
    * gnu/packages/music.scm (lmms)[arguments]: Add phases "remove-Werror" and
    "make-manpages-writable".
---
 gnu/packages/music.scm | 34 ++++++++++++++++++++++++----------
 1 file changed, 24 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 77d69df..40eab5b 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -3083,16 +3083,30 @@ are a C compiler and glib.  Full API documentation and 
examples are included.")
      `(#:tests? #f ; no tests
        #:phases
        (modify-phases %standard-phases
-         (add-before
-          'configure 'set-ldflags
-          (lambda* (#:key outputs #:allow-other-keys)
-            (setenv "LDFLAGS"
-                    (string-append
-                     "-Wl,-rpath=\""
-                     (assoc-ref outputs "out") "/lib/lmms"
-                     ":"
-                     (assoc-ref outputs "out") "/lib/lmms/ladspa"
-                     "\"")))))))
+         (add-before 'configure 'set-ldflags
+           (lambda* (#:key outputs #:allow-other-keys)
+             (setenv "LDFLAGS"
+                     (string-append
+                      "-Wl,-rpath=\""
+                      (assoc-ref outputs "out") "/lib/lmms"
+                      ":"
+                      (assoc-ref outputs "out") "/lib/lmms/ladspa"
+                      "\""))
+             #t))
+         (add-before 'configure 'remove-Werror
+           (lambda _
+             (substitute* "CMakeLists.txt"
+               (("SET\\(WERROR_FLAGS \"\\$\\{WERROR_FLAGS\\} -Werror")
+                "SET(WERROR_FLAGS \"${WERROR_FLAGS}"))
+             #t))
+         (add-before 'reset-gzip-timestamps 'make-manpages-writable
+           (lambda* (#:key outputs #:allow-other-keys)
+             (map (lambda (file)
+                    (make-file-writable file))
+                  (find-files (string-append (assoc-ref outputs "out")
+                                             "/share/man")
+                              ".*\\.gz$"))
+             #t)))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs