ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (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