From 9f9861d7e5af9dd79796fce2c7bf9e44d02f2e32 Mon Sep 17 00:00:00 2001
From: Federico Beffa <beffa@fbengineering.ch>
Date: Mon, 16 May 2016 14:26:27 +0200
Subject: [PATCH] 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 d0955fe80a..e2d409abe2 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -117,7 +117,8 @@ (define-syntax drop
            (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 @@ (define-syntax drop
              (("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 @@ (define-syntax drop
              (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