diff options
author | Alex Griffin <a@ajgrf.com> | 2019-05-30 05:21:59 -0500 |
---|---|---|
committer | Alex Griffin <a@ajgrf.com> | 2019-05-30 05:43:32 -0500 |
commit | 103d39f33771ac7b53ecd75df4847d4f7a227bee (patch) | |
tree | 2227846c526856aeb5d821967ab85547ecdc71f6 | |
parent | 5b9fbf947411587f9bb54f123fa1501b7fc60b7a (diff) |
nongnu: linux-urls: Use version-major instead of string-take.
* nongnu/packages/linux.scm (linux-urls): Use version-major instead of
string-take.
-rw-r--r-- | nongnu/packages/linux.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/nongnu/packages/linux.scm b/nongnu/packages/linux.scm index f12657d..f0b3d64 100644 --- a/nongnu/packages/linux.scm +++ b/nongnu/packages/linux.scm @@ -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 |