diff options
author | Marius Bakke <mbakke@fastmail.com> | 2019-03-14 16:30:19 +0100 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2019-03-14 16:30:19 +0100 |
commit | 19008a22d18e772062952034c58a15ed341df3b5 (patch) | |
tree | 3a7fb9b4abe5cbac3f7edd5d5c76abd993fad255 /gnu/build/linux-modules.scm | |
parent | 520ae432d446010ed6a5233c8abfda88a945926c (diff) | |
parent | c958c31caefb20c32cf89caea7d4668d7021a92b (diff) | |
download | guix-patches-19008a22d18e772062952034c58a15ed341df3b5.tar guix-patches-19008a22d18e772062952034c58a15ed341df3b5.tar.gz |
Merge branch 'staging' into core-updates
Diffstat (limited to 'gnu/build/linux-modules.scm')
-rw-r--r-- | gnu/build/linux-modules.scm | 27 |
1 files changed, 25 insertions, 2 deletions
diff --git a/gnu/build/linux-modules.scm b/gnu/build/linux-modules.scm index d99d1f01a4..c66ef97012 100644 --- a/gnu/build/linux-modules.scm +++ b/gnu/build/linux-modules.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2016, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2016, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -47,7 +47,8 @@ device-module-aliases known-module-aliases - matching-modules)) + matching-modules + missing-modules)) ;;; Commentary: ;;; @@ -463,4 +464,26 @@ ALIAS is a string like \"scsi:t-0x00\" as returned by module))) known-aliases)) +(define* (missing-modules device modules-provided) + "Assuming MODULES-PROVIDED lists kernel modules that are already +provided--e.g., in the initrd, return the list of missing kernel modules that +are required to access DEVICE." + (define aliases + ;; Attempt to load 'modules.alias' from the current kernel, assuming we're + ;; on Guix System, and assuming that corresponds to the kernel we'll be + ;; installing. + (known-module-aliases)) + + (if aliases + (let* ((modules (delete-duplicates + (append-map (cut matching-modules <> aliases) + (device-module-aliases device)))) + + ;; Module names (not file names) are supposed to use underscores + ;; instead of hyphens. MODULES is a list of module names, whereas + ;; LINUX-MODULES is file names without '.ko', so normalize them. + (provided (map file-name->module-name modules-provided))) + (remove (cut member <> provided) modules)) + '())) + ;;; linux-modules.scm ends here |