build-system: font: Move unpack utilities to build-inputs.

* guix/build-system/font.scm (lower): Move tar, gzip, bzip2, unzip and xz from
host-inputs to build-inputs.
This commit is contained in:
Arun Isaac 2022-03-21 16:30:07 +05:30
parent 3d0e92de09
commit c18d768969
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -54,10 +54,11 @@ (define private-keywords
(bag (bag
(name name) (name name)
(system system) (system system)
(host-inputs `(,@(if source (host-inputs inputs)
(build-inputs `(,@(if source
`(("source" ,source)) `(("source" ,source))
'()) '())
,@inputs ,@native-inputs
,(list "tar" (module-ref (resolve-interface '(gnu packages base)) 'tar)) ,(list "tar" (module-ref (resolve-interface '(gnu packages base)) 'tar))
,@(let ((compression (resolve-interface '(gnu packages compression)))) ,@(let ((compression (resolve-interface '(gnu packages compression))))
(map (match-lambda (map (match-lambda
@ -67,7 +68,6 @@ (define private-keywords
("bzip2" bzip2) ("bzip2" bzip2)
("unzip" unzip) ("unzip" unzip)
("xz" xz)))))) ("xz" xz))))))
(build-inputs native-inputs)
(outputs outputs) (outputs outputs)
(build font-build) (build font-build)
(arguments (strip-keyword-arguments private-keywords arguments)))) (arguments (strip-keyword-arguments private-keywords arguments))))