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