mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 13:28:12 -05:00
gnu: patchelf: Update argument phase.
* gnu/packages/elf.scm (patchelf)[arguments]: Use 'modify-phases' syntax. Replace 'system*' with 'invoke'.
This commit is contained in:
parent
c24f1f1614
commit
c1d1cd817c
1 changed files with 6 additions and 8 deletions
|
@ -128,14 +128,12 @@ (define-public patchelf
|
|||
'()))
|
||||
(arguments
|
||||
(if (target-arm32?)
|
||||
`(#:phases (alist-cons-after
|
||||
'unpack 'patch/rework-for-arm
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((patch-file
|
||||
(assoc-ref inputs "patch/rework-for-arm")))
|
||||
(zero? (system* "patch" "--force" "-p1"
|
||||
"--input" patch-file))))
|
||||
%standard-phases))
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch/rework-for-arm
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((patch-file (assoc-ref inputs "patch/rework-for-arm")))
|
||||
(invoke "patch" "--force" "-p1" "--input" patch-file))))))
|
||||
'()))
|
||||
|
||||
(home-page "https://nixos.org/patchelf.html")
|
||||
|
|
Loading…
Reference in a new issue