mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-24 11:39:46 -05:00
gnu: hurd-core-headers: Strictly include header packages.
* gnu/packages/hurd.scm (hurd-core-headers)[arguments]: Strictly include header package inputs in union.
This commit is contained in:
parent
b1c894b53f
commit
26611f56fb
1 changed files with 14 additions and 6 deletions
|
@ -264,13 +264,21 @@ (define-public hurd-core-headers
|
||||||
(arguments
|
(arguments
|
||||||
'(#:modules ((guix build union))
|
'(#:modules ((guix build union))
|
||||||
#:builder (begin
|
#:builder (begin
|
||||||
(use-modules (ice-9 match)
|
(use-modules (srfi srfi-1)
|
||||||
|
(srfi srfi-26)
|
||||||
|
(ice-9 match)
|
||||||
(guix build union))
|
(guix build union))
|
||||||
(match %build-inputs
|
(let ((inputs (filter
|
||||||
(((names . directories) ...)
|
(compose (cute member <> '("gnumach-headers"
|
||||||
(union-build (assoc-ref %outputs "out")
|
"hurd-headers"
|
||||||
directories)
|
"hurd-minimal"))
|
||||||
#t)))))
|
car)
|
||||||
|
%build-inputs)))
|
||||||
|
(match inputs
|
||||||
|
(((names . directories) ...)
|
||||||
|
(union-build (assoc-ref %outputs "out")
|
||||||
|
directories)
|
||||||
|
#t))))))
|
||||||
(inputs `(("gnumach-headers" ,gnumach-headers)
|
(inputs `(("gnumach-headers" ,gnumach-headers)
|
||||||
("hurd-headers" ,hurd-headers)
|
("hurd-headers" ,hurd-headers)
|
||||||
("hurd-minimal" ,hurd-minimal)))
|
("hurd-minimal" ,hurd-minimal)))
|
||||||
|
|
Loading…
Reference in a new issue