aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/elf.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2018-03-19 21:43:09 +0200
committerEfraim Flashner <efraim@flashner.co.il>2018-03-19 21:48:06 +0200
commitc1d1cd817c7ab8d99e962e286c207943765a8e8f (patch)
tree4040a90d1dd6dd1ec0989b6fcb6063ce4f80e7f4 /gnu/packages/elf.scm
parentc24f1f1614a2ba7ff7c5828a8753f82c9792349a (diff)
downloadguix-c1d1cd817c7ab8d99e962e286c207943765a8e8f.tar
guix-c1d1cd817c7ab8d99e962e286c207943765a8e8f.tar.gz
gnu: patchelf: Update argument phase.
* gnu/packages/elf.scm (patchelf)[arguments]: Use 'modify-phases' syntax. Replace 'system*' with 'invoke'.
Diffstat (limited to 'gnu/packages/elf.scm')
-rw-r--r--gnu/packages/elf.scm14
1 files changed, 6 insertions, 8 deletions
diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm
index 8329637da3..350cd2a3c1 100644
--- a/gnu/packages/elf.scm
+++ b/gnu/packages/elf.scm
@@ -128,14 +128,12 @@ Executable and Linkable Format (@dfn{ELF}). This includes @command{ld},
'()))
(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")