From 2aee6bb90c535df1451ba94db39e8f940dd1f297 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 28 Feb 2023 17:06:22 +0100 Subject: gnu: bash-static: Use gexps. * gnu/packages/bash.scm (static-bash)[arguments]: Use gexps. --- gnu/packages/bash.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'gnu/packages/bash.scm') diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 3aefe03276..43f38303f7 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012-2017, 2019-2020, 2022 Ludovic Courtès +;;; Copyright © 2012-2017, 2019-2020, 2022, 2023 Ludovic Courtès ;;; Copyright © 2014, 2015, 2018 Mark H Weaver ;;; Copyright © 2015, 2017 Leo Famulari ;;; Copyright © 2016, 2017, 2018, 2019, 2022 Efraim Flashner @@ -270,15 +270,15 @@ (define-public static-bash (substitute-keyword-arguments `(#:allowed-references ("out") ,@(package-arguments bash)) ((#:phases phases) - `(modify-phases ,phases - (add-after 'strip 'remove-everything-but-the-binary - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin"))) - (remove-store-references (string-append bin "/bash")) - (delete-file (string-append bin "/bashbug")) - (delete-file-recursively (string-append out "/share")) - #t)))))))))) + #~(modify-phases #$phases + (add-after 'strip 'remove-everything-but-the-binary + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin"))) + (remove-store-references (string-append bin "/bash")) + (delete-file (string-append bin "/bashbug")) + (delete-file-recursively (string-append out "/share")) + #t)))))))))) (define-public bash-with-syslog (package -- cgit v1.2.3