futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: libelf: Use 'modify-phases'.

Browse Source 
* gnu/packages/elf.scm (libelf)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2017-02-21 20:05:40 +02:00
parent eb9a603317
commit db700d5829
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/packages/elf.scm
View File

@ -79,8 +79,10 @@ addr2line, and more.")
(base32 (base32
"0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr")))) "0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments `(#:phases (alist-replace (arguments
'configure `(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; This old `configure' script doesn't support ;; This old `configure' script doesn't support
;; variables passed as arguments. ;; variables passed as arguments.
@ -92,9 +94,7 @@ addr2line, and more.")
,@(if (string=? "aarch64-linux" ,@(if (string=? "aarch64-linux"
(%current-system)) (%current-system))
'("--host=aarch64-unknown-linux-gnu") '("--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.")