[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: gnu: bash-static: Use gexps.
From: |
guix-commits |
Subject: |
02/05: gnu: bash-static: Use gexps. |
Date: |
Tue, 28 Feb 2023 11:11:24 -0500 (EST) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 2aee6bb90c535df1451ba94db39e8f940dd1f297
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Feb 28 17:06:22 2023 +0100
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(-)
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 <ludo@gnu.org>
+;;; Copyright © 2012-2017, 2019-2020, 2022, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017, 2018, 2019, 2022 Efraim Flashner
<efraim@flashner.co.il>
@@ -270,15 +270,15 @@ without modification.")
(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