Lispln/nonguix
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2024-11-25 18:08:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add corrupt-linux function to ease support for more kernels

Browse source
This commit is contained in:
Alex Griffin 2019-05-11 13:13:50 -05:00
parent 9333cb2b68
commit 05a13c9b30
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
nonfree/packages/linux.scm
View file

@ -21,25 +21,31 @@
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module ((guix licenses) #:prefix license:)) #:use-module ((guix licenses) #:prefix license:))
(define-public linux (define (linux-urls version)
"Return a list of URLS for Linux VERSION."
(let ((major-version (string-take version 1)))
(list (string-append "https://www.kernel.org/pub/linux/kernel/v"
major-version ".x/linux-" version ".tar.xz"))))
(define (corrupt-linux freedo version hash)
(package (package
(inherit linux-libre) (inherit freedo)
(name "linux") (name "linux")
(version "5.0.15") (version version)
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (linux-urls version))
"https://cdn.kernel.org/pub/linux/kernel/v5.x/" (sha256 (base32 hash))))
"linux-" version ".tar.xz"))
(sha256
(base32
"01zb8lz1lxcff2j8yxzm0ayfazi07c2n7v1i3v8wbq8k9r2vhgjw"))))
(home-page "https://www.kernel.org/") (home-page "https://www.kernel.org/")
(synopsis "Linux kernel with nonfree binary blobs included") (synopsis "Linux kernel with nonfree binary blobs included")
(description (description
"The unmodified Linux kernel, including nonfree blobs, for running GuixSD "The unmodified Linux kernel, including nonfree blobs, for running GuixSD
on hardware which requires nonfree software to function."))) on hardware which requires nonfree software to function.")))
(define-public linux
(corrupt-linux linux-libre "5.0.15"
"01zb8lz1lxcff2j8yxzm0ayfazi07c2n7v1i3v8wbq8k9r2vhgjw"))
(define-public linux-firmware (define-public linux-firmware
(let ((commit "92e17d0dd2437140fab044ae62baf69b35d7d1fa") (let ((commit "92e17d0dd2437140fab044ae62baf69b35d7d1fa")
(revision "1")) (revision "1"))