guix-commits
[Top][All Lists]
Advanced

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

01/01: gnu: d-feet: Return booleans from phase procedures.


From: Mark H. Weaver
Subject: 01/01: gnu: d-feet: Return booleans from phase procedures.
Date: Sat, 22 Aug 2015 06:36:39 +0000

mhw pushed a commit to branch master
in repository guix.

commit 86aff7912c6a3e904f7b904a441c3339a3c300c1
Author: Mark H Weaver <address@hidden>
Date:   Sat Aug 22 02:34:41 2015 -0400

    gnu: d-feet: Return booleans from phase procedures.
    
    * gnu/packages/gnome.scm (d-feet)[arguments]: Return booleans from phase
      procedures.  Omit unused 'inputs' keyword argument from 'pre-check' phase.
---
 gnu/packages/gnome.scm |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 88ff4ff..4b26066 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -3322,7 +3322,7 @@ principles are simplicity and standards compliance.")
        (modify-phases %standard-phases
          (add-before
           'check 'pre-check
-          (lambda* (#:key inputs #:allow-other-keys)
+          (lambda _
             ;; The test suite requires a running X server.
             (system "Xvfb :1 &")
             (setenv "DISPLAY" ":1")
@@ -3331,7 +3331,8 @@ principles are simplicity and standards compliance.")
             ;; tests.py and window.py don't meet E402:
             ;;   E402 module level import not at top of file
             (substitute* "src/tests/Makefile"
-              (("--ignore=E123") "--ignore=E123,E402"))))
+              (("--ignore=E123") "--ignore=E123,E402"))
+            #t))
          (add-after
           'install 'wrap-program
           (lambda* (#:key outputs #:allow-other-keys)
@@ -3339,7 +3340,8 @@ principles are simplicity and standards compliance.")
                                        "/bin/d-feet")))
               (wrap-program prog
                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
-                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
+                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
+              #t))))))
     (native-inputs
      `(("intltool" ,intltool)
        ("itstool" ,itstool)



reply via email to

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