01/01: bayfront: Use Debian binary kernel.

[Andreas Enge]

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