diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2016-05-19 13:06:49 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2016-05-19 13:06:49 +0300 |
| commit | 44c5f0258d3c91694e6c24dcc6701eb2949fd5d8 (patch) | |
| tree | f9e7fe71752a7a2cf877e1fa571ae47301323f15 | |
| parent | 3fdb2a84be4c30d6f78510d0fc787766d8809340 (diff) | |
| download | guix-44c5f0258d3c91694e6c24dcc6701eb2949fd5d8.tar.gz guix-44c5f0258d3c91694e6c24dcc6701eb2949fd5d8.zip | |
gnu: giflib: Use 'modify-phases'.
* gnu/packages/image.scm (giflib)[arguments]: Use 'modify-phases'.
| -rw-r--r-- | gnu/packages/image.scm | 42 |
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 |