build: font-build-system: Do not return #t from phases.

* guix/build/font-build-system.scm (unpack, install): Do not return #t from
phases.
This commit is contained in:
Arun Isaac 2022-03-20 15:03:24 +05:30
parent 0c272b6e7a
commit 3d0e92de09
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3

View File

@ -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