nongnu: nvidia: Separate hash storage.

* nongnu/packages/nvidia.scm (%nvidia-driver-hashes,%nvidia-settings-hashes):
New variables.
(nvidia-source,nvidia-settings): Use them.
(nvidia-source-hash): Delete procedure.

Signed-off-by: John Kehayias <john.kehayias@protonmail.com>
This commit is contained in:
Hilton Chain 2024-09-21 11:28:19 +08:00 committed by John Kehayias
parent 3c3870a964
commit 74b354fc26
No known key found for this signature in database
GPG key ID: 499097AE5EA815D9

View file

@ -73,15 +73,11 @@
;;; ;;;
(define* (nvidia-source-hash version #:optional (package "nvidia-driver")) (define %nvidia-driver-hashes
(define %nvidia-source-hashes '(("550.67" . "1qnsyzplkxfcc2sj6fcw3ylfp0njvb5z1c0y4v80zzqwqw4il84r")))
'(("550.67" .
(("nvidia-driver" . (define %nvidia-settings-hashes
"1qnsyzplkxfcc2sj6fcw3ylfp0njvb5z1c0y4v80zzqwqw4il84r") '(("550.67" . "18sij736liyhqysvsnqwb6r58pf0zbggxyvyc11psc4ljxg30h8m")))
("nvidia-settings" .
"18sij736liyhqysvsnqwb6r58pf0zbggxyvyc11psc4ljxg30h8m")))))
(let ((hashes (assoc-ref %nvidia-source-hashes version)))
(assoc-ref hashes package)))
(define (nvidia-source-unbundle-libraries version) (define (nvidia-source-unbundle-libraries version)
#~(begin #~(begin
@ -151,7 +147,7 @@ VERSION as argument and returns a G-expression."
(define-public nvidia-source (define-public nvidia-source
(make-nvidia-source (make-nvidia-source
nvidia-version nvidia-version
(base32 (nvidia-source-hash nvidia-version)))) (base32 (assoc-ref %nvidia-driver-hashes nvidia-version))))
;;; ;;;
@ -593,7 +589,7 @@ add @code{nvidia_drm.modeset=1} to @code{kernel-arguments} as well.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet '(delete-file-recursively "src/jansson")) (snippet '(delete-file-recursively "src/jansson"))
(sha256 (base32 (nvidia-source-hash version name))))) (sha256 (base32 (assoc-ref %nvidia-settings-hashes version)))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:tests? #f ;no test suite (list #:tests? #f ;no test suite