me/guix
Archived
1
0
Fork 0
Code Activity

gnu: patchelf: Update phase style.

Browse source 
* gnu/packages/elf.scm (patchelf)[arguments]: Use MODIFY-PHASES syntax
and INVOKE, and end phase with #t.
This commit is contained in:
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 (arguments
(if (string-prefix? "arm" (or (%current-target-system) (%current-system))) (if (string-prefix? "arm" (or (%current-target-system) (%current-system)))
`(#:phases (alist-cons-after `(#:phases (modify-phases %standard-phases
'unpack 'patch/rework-for-arm (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")))
(zero? (system* "patch" "--force" "-p1" (invoke "patch" "--force" "-p1"
"--input" patch-file)))) "--input" patch-file)
%standard-phases)) #t)))))
'())) '()))
(home-page "http://nixos.org/patchelf.html") (home-page "http://nixos.org/patchelf.html")