guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: patchelf: Update argument phase.

Browse source 
* gnu/packages/elf.scm (patchelf)[arguments]: Use 'modify-phases'
syntax.  Replace 'system*' with 'invoke'.
This commit is contained in:
Efraim Flashner 2018-03-19 21:43:09 +02:00
parent c24f1f1614
commit c1d1cd817c
Signed by untrusted user: efraim
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/elf.scm
View file

@ -128,14 +128,12 @@ Executable and Linkable Format (@dfn{ELF}). This includes @command{ld},
'())) '()))
(arguments (arguments
(if (target-arm32?) (if (target-arm32?)
`(#:phases (alist-cons-after `(#:phases
'unpack 'patch/rework-for-arm (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch/rework-for-arm
(let ((patch-file (lambda* (#:key inputs #:allow-other-keys)
(assoc-ref inputs "patch/rework-for-arm"))) (let ((patch-file (assoc-ref inputs "patch/rework-for-arm")))
(zero? (system* "patch" "--force" "-p1" (invoke "patch" "--force" "-p1" "--input" patch-file))))))
"--input" patch-file))))
%standard-phases))
'())) '()))
(home-page "https://nixos.org/patchelf.html") (home-page "https://nixos.org/patchelf.html")