diff options
| author | Arun Isaac <arunisaac@systemreboot.net> | 2022-03-20 15:03:24 +0530 |
|---|---|---|
| committer | Arun Isaac <arunisaac@systemreboot.net> | 2022-05-16 14:17:01 +0530 |
| commit | 3d0e92de09a79a170e4c40cc44d1de62836669f7 (patch) | |
| tree | c19e5cf2088dd273df32fcb3ad26d4d2bc36264b | |
| parent | 0c272b6e7a8179fafd1dcedd6730dec55535a647 (diff) | |
build: font-build-system: Do not return #t from phases.
* guix/build/font-build-system.scm (unpack, install): Do not return #t from
phases.
| -rw-r--r-- | guix/build/font-build-system.scm | 6 |
1 files 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 |