me/guix
Archived
1
0
Fork 0
Code Activity

gnu: netpbm: Return #t from custom phases.

Browse source 
* gnu/packages/netpbm.scm (netpbm)[arguments]: Do it.
This commit is contained in:
Federico Beffa 2016-05-16 14:26:27 +02:00
parent 2492581f0c
commit 9f9861d7e5
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/netpbm.scm
View file

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