summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/import/nvidia.scm19
1 files changed, 4 insertions, 15 deletions
diff --git a/guix/import/nvidia.scm b/guix/import/nvidia.scm
index 0d7a8bc..3b952d2 100644
--- a/guix/import/nvidia.scm
+++ b/guix/import/nvidia.scm
@@ -21,18 +21,9 @@
21 21
22(define nvidia-latest-url "https://www.nvidia.com/en-us/drivers/unix/") 22(define nvidia-latest-url "https://www.nvidia.com/en-us/drivers/unix/")
23 23
24(define (archive->guix-arch system) 24(define nvidia-system-links
25 (match system 25 '(("https://download.nvidia.com/XFree86/Linux-x86_64/" . "x86_64-linux")
26 ("https://www.nvidia.com/object/linux-amd64-display-archive.html" 26 ("https://download.nvidia.com/XFree86/Linux-aarch64/" . "aarch64-linux")))
27 "x86_64-linux")
28 ("https://www.nvidia.com/en-us/drivers/unix/linux-aarch64-archive/"
29 "aarch64-linux")
30 (_ #f)))
31
32(define (archive? cand)
33 (or (string= cand (string-append nvidia-latest-url "linux-aarch64-archive/"))
34 (and (string-prefix? "https://www.nvidia.com/object/" cand)
35 (string-suffix? "-archive.html" cand))))
36 27
37(define nvidia-versions 28(define nvidia-versions
38 (memoize 29 (memoize
@@ -68,9 +59,7 @@
68 (list (or (string= version "Archive") 59 (list (or (string= version "Archive")
69 (string-trim version)) 60 (string-trim version))
70 ...) 61 ...)
71 (list (if (archive? url) 62 (list (or (assoc-ref nvidia-system-links url) url)
72 (archive->guix-arch url)
73 url)
74 ...))))) 63 ...)))))
75 (system #f) 64 (system #f)
76 (versions 65 (versions