mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-24 03:29:40 -05:00
gnu: libelf: Use 'modify-phases'.
* gnu/packages/elf.scm (libelf)[arguments]: Use 'modify-phases'.
This commit is contained in:
parent
eb9a603317
commit
db700d5829
1 changed files with 16 additions and 16 deletions
|
@ -79,22 +79,22 @@ (define-public libelf
|
||||||
(base32
|
(base32
|
||||||
"0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
|
"0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(arguments `(#:phases (alist-replace
|
(arguments
|
||||||
'configure
|
`(#:phases
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(modify-phases %standard-phases
|
||||||
;; This old `configure' script doesn't support
|
(replace 'configure
|
||||||
;; variables passed as arguments.
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let ((out (assoc-ref outputs "out")))
|
;; This old `configure' script doesn't support
|
||||||
(setenv "CONFIG_SHELL" (which "bash"))
|
;; variables passed as arguments.
|
||||||
(zero?
|
(let ((out (assoc-ref outputs "out")))
|
||||||
(system* "./configure"
|
(setenv "CONFIG_SHELL" (which "bash"))
|
||||||
(string-append "--prefix=" out)
|
(zero?
|
||||||
,@(if (string=? "aarch64-linux"
|
(system* "./configure"
|
||||||
(%current-system))
|
(string-append "--prefix=" out)
|
||||||
'("--host=aarch64-unknown-linux-gnu")
|
,@(if (string=? "aarch64-linux"
|
||||||
'())
|
(%current-system))
|
||||||
))))
|
'("--host=aarch64-unknown-linux-gnu")
|
||||||
%standard-phases)))
|
'())))))))))
|
||||||
(home-page "http://www.mr511.de/software/english.html")
|
(home-page "http://www.mr511.de/software/english.html")
|
||||||
(synopsis "ELF object file access library")
|
(synopsis "ELF object file access library")
|
||||||
(description "Libelf is a C library to access ELF object files.")
|
(description "Libelf is a C library to access ELF object files.")
|
||||||
|
|
Loading…
Reference in a new issue