linux-initrd: Adjust 'base-initrd-modules' to fallback to 'linux-libre'.

* gnu/system/linux-initrd.scm (base-initrd-modules): Adjust to fallback to
'linux-libre' modules if the provided kernel package misses the
'base-initrd-modules' package property.

Fixes: #10859
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #10885

1 files changed, 5 insertions, 1 deletions

diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index b56e6cf5d42..6ace2985dae 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -375,7 +375,11 @@ FILE-SYSTEMS."
                       (%current-system))))
   "Return a list of modules tailored to KERNEL for SYSTEM to include in the
 initrd by default."
-  (assoc-ref (assoc-ref (package-properties kernel) 'base-initrd-modules)
+  (define (modules package)
+    (assoc-ref (package-properties package) 'base-initrd-modules))
+
+  (assoc-ref (or (modules kernel)
+                 (modules linux-libre))
              system))
 
 (define* (base-initrd file-systems