summaryrefslogtreecommitdiff
path: root/gnu/packages/package-management.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2023-05-28 14:45:12 +0300
committerEfraim Flashner <efraim@flashner.co.il>2023-05-28 14:46:09 +0300
commit9845e408e533f5834a13f294ca1ddc1dc7e248fd (patch)
tree1d6961c6e51aa50e84bbcda18699773b91eaa19f /gnu/packages/package-management.scm
parentef5a05bac8a539268c564f392d85ab707fdb3843 (diff)
gnu: guix: Remove trailing #t from phases.
* gnu/packages/package-management.scm (guix)[arguments]: Remove trailing #t from phases.
Diffstat (limited to 'gnu/packages/package-management.scm')
-rw-r--r--gnu/packages/package-management.scm12
1 files changed, 4 insertions, 8 deletions
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 08b97bec2f..98fb0d87eb 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -272,8 +272,7 @@ $(prefix)/etc/openrc\n")))
(("\"[^\"]*/bin/gzip") gzip
(string-append "\"" gzip "/bin/gzip"))
(("\"[^\"]*/bin//xz")
- (string-append "\"" xz "/bin/xz")))))
- #t))
+ (string-append "\"" xz "/bin/xz")))))))
(add-before 'build 'set-font-path
(lambda* (#:key native-inputs inputs #:allow-other-keys)
;; Tell 'dot' where to look for fonts.
@@ -320,8 +319,7 @@ $(prefix)/etc/openrc\n")))
(for-each (lambda (input)
(intern (assoc-ref inputs input) #t))
'("bootstrap/bash" "bootstrap/mkdir"
- "bootstrap/tar" "bootstrap/xz")))
- #t))
+ "bootstrap/tar" "bootstrap/xz")))))
(add-after 'unpack 'disable-failing-tests
;; XXX FIXME: These tests fail within the build container.
(lambda _
@@ -334,14 +332,12 @@ $(prefix)/etc/openrc\n")))
(when (file-exists? "tests/guix-environment-container.sh")
(substitute* "tests/guix-environment-container.sh"
(("guix environment --version")
- "exit 77\n")))
- #t))
+ "exit 77\n")))))
(add-before 'check 'set-SHELL
(lambda _
;; 'guix environment' tests rely on 'SHELL' having a
;; correct value, so set it.
- (setenv "SHELL" (which "sh"))
- #t))
+ (setenv "SHELL" (which "sh"))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs native-inputs outputs target
#:allow-other-keys)