From c36615877ba866bda314356b03167c7f2d9b08d9 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Tue, 20 Feb 2018 04:58:14 +0100 Subject: [PATCH] gnu: patchelf: Update phase style. * gnu/packages/elf.scm (patchelf)[arguments]: Use MODIFY-PHASES syntax and INVOKE, and end phase with #t. --- gnu/packages/elf.scm | 16 ++++++++-------- 1 file 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")