ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 03:29:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: links: Use 'modify-phases'.

Browse source 
* gnu/packages/links.scm (links)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-09-14 22:04:50 +03:00
parent 7ddacf88ef
commit 6ea541e016
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/links.scm
View file

@ -42,23 +42,23 @@ (define-public links
(base32 "01a4mbpvf7450ymqarjkpmzrm0z2zyd9lvqwg7x9kcd36i9hjln2")))) (base32 "01a4mbpvf7450ymqarjkpmzrm0z2zyd9lvqwg7x9kcd36i9hjln2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (alist-replace `(#:phases
'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
;; The tarball uses a very old version of autconf. It doesn't (lambda* (#:key outputs #:allow-other-keys)
;; understand extra flags like `--enable-fast-install', so ;; The tarball uses a very old version of autconf. It doesn't
;; we need to invoke it with just what it understands. ;; understand extra flags like `--enable-fast-install', so
(let ((out (assoc-ref outputs "out"))) ;; we need to invoke it with just what it understands.
;; 'configure' doesn't understand '--host'. (let ((out (assoc-ref outputs "out")))
,@(if (%current-target-system) ;; 'configure' doesn't understand '--host'.
`((setenv "CHOST" ,(%current-target-system))) ,@(if (%current-target-system)
'()) `((setenv "CHOST" ,(%current-target-system)))
(setenv "CONFIG_SHELL" (which "bash")) '())
(zero? (setenv "CONFIG_SHELL" (which "bash"))
(system* "./configure" (zero?
(string-append "--prefix=" out) (system* "./configure"
"--enable-graphics")))) (string-append "--prefix=" out)
%standard-phases))) "--enable-graphics"))))))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("zlib" ,zlib) (inputs `(("zlib" ,zlib)
("openssl" ,openssl) ("openssl" ,openssl)