me
/
guix
Archived
1
0
Fork 0
Code

gnu: giflib: Use 'modify-phases'. 

* gnu/packages/image.scm (giflib)[arguments]: Use 'modify-phases'.
master
Efraim Flashner 2016-05-19 13:06:49 +03:00
parent 3fdb2a84be
commit 44c5f0258d
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/image.scm
View File

@ -399,7 +399,8 @@ error-resilience, a Java-viewer for j2k-images, ...")
(first (string-split version #\.)) (first (string-split version #\.))
".x/giflib-" version ".tar.bz2")) ".x/giflib-" version ".tar.bz2"))
(sha256 (sha256
(base32 "1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz")))) (base32
"1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("bin" ; utility programs (outputs '("bin" ; utility programs
"out")) ; library "out")) ; library
@ -408,13 +409,13 @@ error-resilience, a Java-viewer for j2k-images, ...")
("libsm" ,libsm) ("libsm" ,libsm)
("perl" ,perl))) ("perl" ,perl)))
(arguments (arguments
`(#:phases (alist-cons-after `(#:phases
'unpack 'disable-html-doc-gen (modify-phases %standard-phases
(add-after 'unpack 'disable-html-doc-gen
(lambda _ (lambda _
(substitute* "doc/Makefile.in" (substitute* "doc/Makefile.in"
(("^all: allhtml manpages") ""))) (("^all: allhtml manpages") ""))))
(alist-cons-after (add-after 'install 'install-manpages
'install 'install-manpages
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((bin (assoc-ref outputs "bin")) (let* ((bin (assoc-ref outputs "bin"))
(man1dir (string-append bin "/share/man/man1"))) (man1dir (string-append bin "/share/man/man1")))
@ -426,8 +427,7 @@ error-resilience, a Java-viewer for j2k-images, ...")
(copy-file file (copy-file file
(string-append (string-append
man1dir "/" base)))) man1dir "/" base))))
(find-files "doc" "\\.1")))) (find-files "doc" "\\.1"))))))))
%standard-phases))))
(synopsis "Tools and library for working with GIF images") (synopsis "Tools and library for working with GIF images")
(description (description
"GIFLIB is a library for reading and writing GIF images. It is API and "GIFLIB is a library for reading and writing GIF images. It is API and