me
/
guix
Archived
1
0
Fork 0
Code

profiles: Reindent 'linux-module-database'. 

* guix/profiles.scm (linux-module-database): Reindent.
master
Ludovic Courtès 2020-06-18 14:33:55 +02:00
parent 3b72618f6e
commit fea072d727
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 15 additions and 14 deletions

11
guix/profiles.scm
View File

@ -1205,14 +1205,15 @@ This is meant to be used as a profile hook."
(define kmod ; lazy reference
(module-ref (resolve-interface '(gnu packages linux)) 'kmod))
(define build
(with-imported-modules
(source-module-closure '((guix build utils)
(with-imported-modules (source-module-closure
'((guix build utils)
(gnu build linux-modules)))
#~(begin
(use-modules (ice-9 ftw)
(ice-9 match)
(srfi srfi-1) ; append-map
(gnu build linux-modules))
(let* ((inputs '#$(manifest-inputs manifest))
(module-directories
(map (lambda (directory)
@ -1220,9 +1221,9 @@ This is meant to be used as a profile hook."
inputs))
(directory-entries
(lambda (directory)
(scandir directory (lambda (basename)
(not
(string-prefix? "." basename))))))
(scandir directory
(lambda (basename)
(not (string-prefix? "." basename))))))
;; Note: Should usually result in one entry.
(versions (delete-duplicates
(append-map directory-entries