From e5a490a644d2bd98050380e500af8a6d80999867 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Mon, 23 Mar 2026 13:06:44 +0800 Subject: services: nvidia: Accept #f in firmware field. * nongnu/services/nvidia.scm (%nvidia-firmware): New procedure. (nvidia-service-type) [extensions]: Use it to extend firmware-service-type. --- nongnu/services/nvidia.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/nongnu/services/nvidia.scm b/nongnu/services/nvidia.scm index 74bd4b1..09fc838 100644 --- a/nongnu/services/nvidia.scm +++ b/nongnu/services/nvidia.scm @@ -23,7 +23,7 @@ (driver nvidia-configuration-driver (default nvda)) ; file-like (firmware nvidia-configuration-firmware - (default nvidia-firmware)) ; file-like + (default nvidia-firmware)) ; file-like or #f (module nvidia-configuration-module (default nvidia-module)) ; file-like (modprobe nvidia-configuration-modprobe @@ -31,6 +31,11 @@ (settings nvidia-configuration-settings (default #f))) ; file-like or #f +(define (%nvidia-firmware config) + (match-record config + (firmware) + (filter identity (list firmware)))) + (define (nvidia-profile config) (match-record config (driver settings) @@ -95,7 +100,7 @@ ACTION==\"unbind\", SUBSYSTEM==\"pci\", ATTR{vendor}==\"0x10de\", ATTR{class}==\ (service-extension udev-service-type nvidia-udev-rule) (service-extension firmware-service-type - (compose list nvidia-configuration-firmware)) + %nvidia-firmware) (service-extension linux-loadable-module-service-type (compose list nvidia-configuration-module)))) (default-value (nvidia-configuration)) -- cgit v1.3