me
/
guix
Archived
1
0
Fork 0
Code

gnu: patchelf: Update phase style. 

* gnu/packages/elf.scm (patchelf)[arguments]: Use MODIFY-PHASES syntax
and INVOKE, and end phase with #t.
master
Tobias Geerinckx-Rice 2018-02-20 04:58:14 +01:00
parent 273cab96d7
commit c36615877b
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/elf.scm
View File

@ -127,14 +127,14 @@ Executable and Linkable Format (@dfn{ELF}). This includes @command{ld},
'()))
(arguments
(if (string-prefix? "arm" (or (%current-target-system) (%current-system)))
`(#: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)
#t)))))
'()))
(home-page "http://nixos.org/patchelf.html")