guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

18/27: gnu: brdf-explorer: Unconditionally return #T from build phases.


From: guix-commits
Subject: 18/27: gnu: brdf-explorer: Unconditionally return #T from build phases.
Date: Fri, 25 Jan 2019 07:21:33 -0500 (EST)

rekado pushed a commit to branch master
in repository guix.

commit cba8ba8b0d3aa78a3ebb3a3297c8638077c95435
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Jan 25 12:18:12 2019 +0100

    gnu: brdf-explorer: Unconditionally return #T from build phases.
    
    * gnu/packages/graphics.scm (brdf-explorer)[arguments]: Use INVOKE and 
return #T.
---
 gnu/packages/graphics.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm
index a258167..bf4cc89 100644
--- a/gnu/packages/graphics.scm
+++ b/gnu/packages/graphics.scm
@@ -651,8 +651,8 @@ output.")
                     (replace 'configure
                       (lambda* (#:key outputs #:allow-other-keys)
                         (let ((out (assoc-ref outputs "out")))
-                          (zero? (system* "qmake"
-                                          (string-append "prefix=" out))))))
+                          (invoke "qmake"
+                                  (string-append "prefix=" out)))))
                     (add-after 'install 'wrap-program
                       (lambda* (#:key outputs #:allow-other-keys)
                         (let* ((out (assoc-ref outputs "out"))
@@ -668,7 +668,8 @@ output.")
 cd \"~a\"
 exec -a \"$0\" ~a/.brdf-real~%"
                                         data bin)))
-                            (chmod "brdf" #o555))))))))
+                            (chmod "brdf" #o555)))
+                        #t)))))
       (native-inputs
        `(("qttools" ,qttools))) ;for 'qmake'
       (inputs



reply via email to

[Prev in Thread] Current Thread [Next in Thread]