aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/elf.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-02-20 04:58:14 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2018-02-20 16:06:11 +0100
commitc36615877ba866bda314356b03167c7f2d9b08d9 (patch)
tree317be0741e139f68f3b901c3ffebc5ae17acae12 /gnu/packages/elf.scm
parent273cab96d799e821fee82d017225c23e33f14794 (diff)
downloadguix-c36615877ba866bda314356b03167c7f2d9b08d9.tar
guix-c36615877ba866bda314356b03167c7f2d9b08d9.tar.gz
gnu: patchelf: Update phase style.
* gnu/packages/elf.scm (patchelf)[arguments]: Use MODIFY-PHASES syntax and INVOKE, and end phase with #t.
Diffstat (limited to 'gnu/packages/elf.scm')
-rw-r--r--gnu/packages/elf.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm
index 876014a850..f11cab7efc 100644
--- a/gnu/packages/elf.scm
+++ b/gnu/packages/elf.scm
@@ -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")