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:
Alex Griffin 2019-05-30 05:21:59 -05:00
parent 5b9fbf9474
commit 103d39f337

View File

@ -28,9 +28,8 @@
(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"))))
(list (string-append "https://www.kernel.org/pub/linux/kernel/v"
(version-major version) ".x/linux-" version ".tar.xz")))
(define (corrupt-linux freedo version hash)
(package