nongnu: make-nvidia-source: Adjust style.

* nongnu/packages/nvidia.scm (computed-origin-method): Delete from top-level.
(make-nvidia-source): Use ungexp-native only once.

Signed-off-by: John Kehayias <john.kehayias@protonmail.com>
This commit is contained in:
Hilton Chain 2023-12-15 22:26:50 +08:00 committed by John Kehayias
parent 47941b0a84
commit 5f7dabe418
No known key found for this signature in database
GPG key ID: 499097AE5EA815D9

View file

@ -66,9 +66,6 @@
(define-public nvidia-version "515.76")
(define computed-origin-method
(@@ (guix packages) computed-origin-method))
;;;
;;; NVIDIA driver checkouts
@ -78,7 +75,7 @@
;; Extract the driver installer and make it a new origin instance for reusing.
(define (make-nvidia-source version installer)
(origin
(method computed-origin-method)
(method (@@ (guix packages) computed-origin-method))
(file-name (string-append "nvidia-driver-" version "-checkout"))
(sha256 #f)
(uri
@ -89,13 +86,13 @@
(ice-9 ftw))
(set-path-environment-variable
"PATH" '("bin")
(list (canonicalize-path #+bash-minimal)
(canonicalize-path #+coreutils)
(canonicalize-path #+gawk)
(canonicalize-path #+grep)
(canonicalize-path #+tar)
(canonicalize-path #+which)
(canonicalize-path #+xz)))
'#+(list bash-minimal
coreutils
gawk
grep
tar
which
xz))
(setenv "XZ_OPT" (string-join (%xz-parallel-args)))
(invoke "sh" #$installer "-x")
(copy-recursively