04/05: gnu: netpbm: Return #t from custom phases.

[Federico Beffa]

beffa pushed a commit to branch core-updates
in repository guix.

commit 9f9861d7e5af9dd79796fce2c7bf9e44d02f2e32
Author: Federico Beffa <address@hidden>
Date:   Mon May 16 14:26:27 2016 +0200

    gnu: netpbm: Return #t from custom phases.
    
        * gnu/packages/netpbm.scm (netpbm)[arguments]: Do it.
---
 gnu/packages/netpbm.scm |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm
index d0955fe..e2d409a 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -117,7 +117,8 @@
            (let ((rgb (string-append (assoc-ref inputs "xorg-rgb")
                                      "/share/X11/rgb.txt")))
              (substitute* "pm_config.in.h"
-               (("/usr/share/X11/rgb.txt") rgb)))))
+               (("/usr/share/X11/rgb.txt") rgb)))
+           #t))
        (add-before 'check 'setup-check
          (lambda _
            ;; install temporarily into /tmp/netpbm
@@ -131,7 +132,8 @@
              (("all-in-place.test") "")
              (("pnmpsnr.test") "")
              (("pnmremap1.test") "")
-             (("gif-roundtrip.test") ""))))
+             (("gif-roundtrip.test") ""))
+           #t))
        (replace 'install
          (lambda* (#:key outputs make-flags #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
@@ -146,7 +148,8 @@
              (with-directory-excursion out
                (for-each delete-file
                          '("config_template" "pkginfo" "README"
-                           "VERSION")))))))))
+                           "VERSION")))
+             #t))))))
    (synopsis "Toolkit for manipulation of images")
    (description
     "Netpbm is a toolkit for the manipulation of graphic images, including