[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#54471] [PATCH core-updates v2 2/3] build: font-build-system: Do not
From: |
Arun Isaac |
Subject: |
[bug#54471] [PATCH core-updates v2 2/3] build: font-build-system: Do not return #t from phases. |
Date: |
Mon, 21 Mar 2022 17:47:21 +0530 |
* guix/build/font-build-system.scm (unpack, install): Do not return #t from
phases.
---
guix/build/font-build-system.scm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/guix/build/font-build-system.scm b/guix/build/font-build-system.scm
index 9bd9524a7d..e4784bc17d 100644
--- a/guix/build/font-build-system.scm
+++ b/guix/build/font-build-system.scm
@@ -41,8 +41,7 @@ (define* (unpack #:key source #:allow-other-keys)
(begin
(mkdir "source")
(chdir "source")
- (copy-file source (strip-store-file-name source))
- #t)
+ (copy-file source (strip-store-file-name source)))
(gnu:unpack #:source source)))
(define* (install #:key outputs #:allow-other-keys)
@@ -55,8 +54,7 @@ (define* (install #:key outputs #:allow-other-keys)
(for-each (cut install-file <> (string-append fonts "/opentype"))
(find-files source "\\.(otf|otc)$"))
(for-each (cut install-file <> (string-append fonts "/web"))
- (find-files source "\\.(woff|woff2)$"))
- #t))
+ (find-files source "\\.(woff|woff2)$"))))
(define %standard-phases
(modify-phases gnu:%standard-phases
--
2.34.0