From 3d0e92de09a79a170e4c40cc44d1de62836669f7 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 20 Mar 2022 15:03:24 +0530 Subject: [PATCH] build: font-build-system: Do not return #t from phases. * 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 @@ archive, or a font file." (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 @@ archive, or a font file." (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