gnu: patchelf: Update argument phase.

* 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
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -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")