nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

linux-modules: 'load-linux-module*' honors BLACK-LIST in recursive calls. 

* gnu/build/linux-modules.scm (load-linux-module*): Pass BLACK-LIST in
recursive call.
This commit is contained in:
Ludovic Courtès 2018-03-18 18:26:12 +01:00
parent a57df67b59
commit 675e81a082
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/build/linux-modules.scm
View File

@ -206,7 +206,9 @@ appears in BLACK-LIST are not loaded."
(define (load-dependencies file) (define (load-dependencies file)
(let ((dependencies (module-dependencies file))) (let ((dependencies (module-dependencies file)))
(every (cut load-linux-module* <> #:lookup-module lookup-module) (every (cut load-linux-module* <>
#:lookup-module lookup-module
#:black-list black-list)
(map lookup-module dependencies)))) (map lookup-module dependencies))))
(and (not (black-listed? (file-name->module-name file))) (and (not (black-listed? (file-name->module-name file)))