From 514fedbf3966b7fbab31a6c63b4210ec8b5b0c9a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 3 Nov 2022 17:57:51 +0100 Subject: installer: Report known-unsupported PCI devices. * gnu/installer/hardware.scm: New file. * gnu/local.mk (INSTALLER_MODULES): Add it. * po/guix/POTFILES.in: Add it. * gnu/installer.scm (installer-steps): Pass #:pci-database to the 'welcome' step procedure. * gnu/installer/newt.scm (welcome-page): Add #:pci-database and pass it to 'run-welcome-page'. * gnu/installer/newt/welcome.scm (check-hardware-support): Add #:pci-database. Enumerate unsupported PCI devices and run an error page when unsupported devices are found. (run-welcome-page): Add #:pci-database and pass it to 'check-hardware-support' and to the recursive call. * gnu/installer/record.scm ()[welcome-page]: Adjust comment. * doc/guix.texi (Hardware Considerations): Mention it. --- gnu/installer/newt.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/installer/newt.scm') diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm index c486788ed4..798ff53af2 100644 --- a/gnu/installer/newt.scm +++ b/gnu/installer/newt.scm @@ -172,8 +172,8 @@ report it by email to ~a.") uploaded-name %guix-bug-report-address) (define (timezone-page zonetab) (run-timezone-page zonetab)) -(define (welcome-page logo) - (run-welcome-page logo)) +(define* (welcome-page logo #:key pci-database) + (run-welcome-page logo #:pci-database pci-database)) (define (menu-page steps) (run-menu-page steps)) -- cgit 1.4.1