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
|
@ -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
|
||||||
|
(add-after 'unpack 'patch/rework-for-arm
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let ((patch-file
|
(let ((patch-file (assoc-ref inputs "patch/rework-for-arm")))
|
||||||
(assoc-ref inputs "patch/rework-for-arm")))
|
(invoke "patch" "--force" "-p1" "--input" patch-file))))))
|
||||||
(zero? (system* "patch" "--force" "-p1"
|
|
||||||
"--input" patch-file))))
|
|
||||||
%standard-phases))
|
|
||||||
'()))
|
'()))
|
||||||
|
|
||||||
(home-page "https://nixos.org/patchelf.html")
|
(home-page "https://nixos.org/patchelf.html")
|
||||||
|
|
Loading…
Reference in New Issue