linux-modules: Fix module dependency loading.
* gnu/build/linux-modules.scm (dot-ko): Make COMPRESSION optional, as expected by callers RECURSIVE-MODULE-DEPENDENCIES and LOAD-LINUX-MODULE*.
This commit is contained in:
parent
ced8b56090
commit
47e265af75
|
@ -2,6 +2,7 @@
|
||||||
;;; Copyright © 2014, 2016, 2018, 2019, 2022 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2014, 2016, 2018, 2019, 2022 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||||
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
|
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
|
||||||
|
;;; Copyright © 2023 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -208,7 +209,7 @@ modules that can be postloaded, of the soft dependencies of module FILE."
|
||||||
(string-take filename extension)
|
(string-take filename extension)
|
||||||
filename)))
|
filename)))
|
||||||
|
|
||||||
(define (dot-ko name compression)
|
(define* (dot-ko name #:optional compression)
|
||||||
(let ((suffix (match compression
|
(let ((suffix (match compression
|
||||||
('xz ".ko.xz")
|
('xz ".ko.xz")
|
||||||
('gzip ".ko.gz")
|
('gzip ".ko.gz")
|
||||||
|
|
Loading…
Reference in New Issue