summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2016-05-19 13:06:49 +0300
committerEfraim Flashner <efraim@flashner.co.il>2016-05-19 13:06:49 +0300
commit44c5f0258d3c91694e6c24dcc6701eb2949fd5d8 (patch)
treef9e7fe71752a7a2cf877e1fa571ae47301323f15 /gnu
parent3fdb2a84be4c30d6f78510d0fc787766d8809340 (diff)
gnu: giflib: Use 'modify-phases'.
* gnu/packages/image.scm (giflib)[arguments]: Use 'modify-phases'.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/image.scm42
1 files changed, 21 insertions, 21 deletions
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index b8251f89e1..3651e97f3e 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -399,7 +399,8 @@ error-resilience, a Java-viewer for j2k-images, ...")
(first (string-split version #\.))
".x/giflib-" version ".tar.bz2"))
(sha256
- (base32 "1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz"))))
+ (base32
+ "1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz"))))
(build-system gnu-build-system)
(outputs '("bin" ; utility programs
"out")) ; library
@@ -408,26 +409,25 @@ error-resilience, a Java-viewer for j2k-images, ...")
("libsm" ,libsm)
("perl" ,perl)))
(arguments
- `(#:phases (alist-cons-after
- 'unpack 'disable-html-doc-gen
- (lambda _
- (substitute* "doc/Makefile.in"
- (("^all: allhtml manpages") "")))
- (alist-cons-after
- 'install 'install-manpages
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((bin (assoc-ref outputs "bin"))
- (man1dir (string-append bin "/share/man/man1")))
- (mkdir-p man1dir)
- (for-each (lambda (file)
- (let ((base (basename file)))
- (format #t "installing `~a' to `~a'~%"
- base man1dir)
- (copy-file file
- (string-append
- man1dir "/" base))))
- (find-files "doc" "\\.1"))))
- %standard-phases))))
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'disable-html-doc-gen
+ (lambda _
+ (substitute* "doc/Makefile.in"
+ (("^all: allhtml manpages") ""))))
+ (add-after 'install 'install-manpages
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((bin (assoc-ref outputs "bin"))
+ (man1dir (string-append bin "/share/man/man1")))
+ (mkdir-p man1dir)
+ (for-each (lambda (file)
+ (let ((base (basename file)))
+ (format #t "installing `~a' to `~a'~%"
+ base man1dir)
+ (copy-file file
+ (string-append
+ man1dir "/" base))))
+ (find-files "doc" "\\.1"))))))))
(synopsis "Tools and library for working with GIF images")
(description
"GIFLIB is a library for reading and writing GIF images. It is API and