[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/05: gnu: debootstrap: Remove trailing booleans.
From: |
guix-commits |
Subject: |
03/05: gnu: debootstrap: Remove trailing booleans. |
Date: |
Mon, 23 May 2022 15:04:49 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit 83fd96ed389801baa16d6e995499d86ef34f87d5
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon May 23 18:08:51 2022 +0300
gnu: debootstrap: Remove trailing booleans.
* gnu/packages/debian.scm (debootstrap)[arguments]: Remove trailing #t
from phases.
---
gnu/packages/debian.scm | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/debian.scm b/gnu/packages/debian.scm
index 6b471d6cc5..22f51d2db6 100644
--- a/gnu/packages/debian.scm
+++ b/gnu/packages/debian.scm
@@ -233,22 +233,19 @@ contains the archive keys used for that.")
(("PATH=/sbin:/usr/sbin:/bin:/usr/bin")
"PATH=$PATH:/sbin:/usr/sbin:/bin:/usr/bin"))
(substitute* (find-files "scripts" ".")
- (("/usr/share/zoneinfo") (string-append tzdata
"/share/zoneinfo")))
- #t)))
+ (("/usr/share/zoneinfo") (string-append tzdata
"/share/zoneinfo"))))))
(add-after 'install 'install-man-file
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "debootstrap.8"
- (string-append out "/share/man/man8"))
- #t)))
+ (string-append out "/share/man/man8")))))
(add-after 'install 'wrap-executable
(lambda* (#:key outputs #:allow-other-keys)
(let ((debootstrap (string-append (assoc-ref outputs "out")
"/sbin/debootstrap"))
(path (getenv "PATH")))
(wrap-program debootstrap
- `("PATH" ":" prefix (,path)))
- #t))))
+ `("PATH" ":" prefix (,path)))))))
#:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs
"out")))
#:tests? #f)) ; no tests
(inputs