[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: glibc-mesboot: Oops, install everything.
From: |
Jan Nieuwenhuizen |
Subject: |
01/01: gnu: glibc-mesboot: Oops, install everything. |
Date: |
Mon, 3 Sep 2018 16:52:19 -0400 (EDT) |
janneke pushed a commit to branch wip-bootstrap
in repository guix.
commit 9f10cd2cf7381ae2825309288d14ce44591323a0
Author: Jan Nieuwenhuizen <address@hidden>
Date: Mon Sep 3 22:50:06 2018 +0200
gnu: glibc-mesboot: Oops, install everything.
* gnu/packages/commencement.scm (glibc-mesboot): Oops, install everything.
---
gnu/packages/commencement.scm | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index d72b24e..694e8a6 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1422,7 +1422,17 @@ exec " gcc "/bin/" program
`(,@(substitute-keyword-arguments (package-arguments
glibc-headers-mesboot)
((#:make-flags make-flags)
`(let ((bash (assoc-ref %build-inputs "bash")))
- (list (string-append "SHELL=" bash "/bin/sh"))))))))))
+ (list (string-append "SHELL=" bash "/bin/sh"))))
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (replace 'install
+ (lambda* (#:key outputs make-flags #:allow-other-keys)
+ (let* ((kernel-headers (assoc-ref %build-inputs
"kernel-headers"))
+ (out (assoc-ref outputs "out"))
+ (install-flags (cons "install" make-flags)))
+ (and (apply invoke "make" install-flags)
+ (copy-recursively kernel-headers out)
+ #t))))))))))))
(define-public m4-mesboot
(package-with-bootstrap-guile