diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-02-20 04:58:14 +0100 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-02-20 16:06:11 +0100 |
commit | c36615877ba866bda314356b03167c7f2d9b08d9 (patch) | |
tree | 317be0741e139f68f3b901c3ffebc5ae17acae12 /gnu | |
parent | 273cab96d799e821fee82d017225c23e33f14794 (diff) | |
download | guix-patches-c36615877ba866bda314356b03167c7f2d9b08d9.tar guix-patches-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')
-rw-r--r-- | gnu/packages/elf.scm | 16 |
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") |