[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: bayfront: Use Debian binary kernel.
From: |
Andreas Enge |
Subject: |
01/01: bayfront: Use Debian binary kernel. |
Date: |
Sun, 22 Oct 2017 15:39:01 -0400 (EDT) |
andreas pushed a commit to branch wip-bayfront
in repository maintenance.
commit 40dd911bf30e2894152b96537eddca16121565c4
Author: Andreas Enge <address@hidden>
Date: Fri Oct 20 16:28:21 2017 +0200
bayfront: Use Debian binary kernel.
* hydra/bayfront.scm (linux-debian): New variable.
(return value): Use new variable as kernel.
---
hydra/bayfront.scm | 44 ++++++++++++++++++++++++++++++++++++++++++--
1 file changed, 42 insertions(+), 2 deletions(-)
diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index fbf945f..44fbad1 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -1,8 +1,47 @@
;; OS configuration for bayfront, the frontend of the compile farm.
-(use-modules (gnu) (guix) (sysadmin people))
+(use-modules (gnu) (guix) (sysadmin people) (guix build-system trivial))
(use-service-modules base networking admin mcron shepherd ssh web cuirass)
-(use-package-modules admin linux ssh tls vim package-management web wget ci)
+(use-package-modules admin linux ssh tls vim package-management web wget ci
compression base)
+
+
+(define-public linux-debian
+ (package
+ (name "linux-debian")
+ (version "4.9.30")
+ (source (origin
+ (method url-fetch)
+ (uri
"http://security.debian.org/debian-security/pool/updates/main/l/linux/linux-image-4.9.0-3-amd64_4.9.30-2+deb9u5_amd64.deb")
+ (sha256
+ (base32
+ "1j0c5vyxqgadz4axk6gi3rypr94ks1mj4h64rg6li0l5q4rr0bh8"))))
+ (build-system trivial-build-system)
+ (arguments
+ `(#:modules ((guix build utils))
+ #:builder
+ (begin
+ (use-modules (guix build utils))
+ (let ((out (string-append (assoc-ref %outputs "out")))
+ (ar (string-append (assoc-ref %build-inputs "binutils")
"/bin/ar"))
+ (xz (string-append (assoc-ref %build-inputs "xz") "/bin/xz"))
+ (tar (string-append (assoc-ref %build-inputs "tar")
"/bin/tar")))
+ (mkdir-p out)
+ (system* ar "x" (assoc-ref %build-inputs "source"))
+ (system* xz "--decompress" "data.tar.xz")
+ (system* tar "xvf" "data.tar")
+ (copy-recursively "lib" (string-append out "/lib"))
+ (copy-file "boot/vmlinuz-4.9.0-3-amd64" (string-append out
"/bzImage"))
+ (copy-file "boot/System.map-4.9.0-3-amd64" (string-append out
"/System.map"))
+ #t))))
+ (inputs
+ `(("binutils" ,binutils)
+ ("tar" ,tar)
+ ("xz" ,xz)))
+ (synopsis "Binary kernel from Debian; DO NOT USE!")
+ (description
+ "Kernel package from Debian for testing on bayfront")
+ (home-page "")
+ (license #f)))
(define %sysadmins
;; The sysadmins.
@@ -186,6 +225,7 @@ Happy hacking!\n"))
(dependencies mapped-devices))
%base-file-systems))
+ (kernel linux-debian)
;; Add a kernel module for RAID-10.
(initrd (lambda (file-systems . rest)
(apply base-initrd file-systems