[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: gnu: netpbm: Return #t from custom phases.
From: |
Federico Beffa |
Subject: |
04/05: gnu: netpbm: Return #t from custom phases. |
Date: |
Mon, 16 May 2016 12:28:58 +0000 (UTC) |
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