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 | |
| parent | 273cab96d799e821fee82d017225c23e33f14794 (diff) | |
| download | 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.
| -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") |