nongnu: linux-urls: Use version-major instead of string-take.
* nongnu/packages/linux.scm (linux-urls): Use version-major instead of string-take.
This commit is contained in:
parent
5b9fbf9474
commit
103d39f337
|
@ -28,9 +28,8 @@
|
||||||
|
|
||||||
(define (linux-urls version)
|
(define (linux-urls version)
|
||||||
"Return a list of URLS for Linux 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"
|
(list (string-append "https://www.kernel.org/pub/linux/kernel/v"
|
||||||
major-version ".x/linux-" version ".tar.xz"))))
|
(version-major version) ".x/linux-" version ".tar.xz")))
|
||||||
|
|
||||||
(define (corrupt-linux freedo version hash)
|
(define (corrupt-linux freedo version hash)
|
||||||
(package
|
(package
|
||||||
|
|
Loading…
Reference in New Issue
Block a user