mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
linux-initrd: Support XFS.
* gnu/system/linux-initrd.scm (file-system-packages): Add xfs_repair/static when needed. (file-system-type-modules): Add ‘xfs’ module when needed.
This commit is contained in:
parent
90604348e1
commit
cd19c920b7
1 changed files with 4 additions and 0 deletions
|
@ -290,6 +290,9 @@ (define* (file-system-packages file-systems #:key (volatile-root? #f))
|
|||
'())
|
||||
,@(if (find (file-system-type-predicate "f2fs") file-systems)
|
||||
(list f2fs-fsck/static)
|
||||
'())
|
||||
,@(if (find (file-system-type-predicate "xfs") file-systems)
|
||||
(list xfs_repair/static)
|
||||
'())))
|
||||
|
||||
(define-syntax vhash ;TODO: factorize
|
||||
|
@ -322,6 +325,7 @@ (define file-system-type-modules
|
|||
("iso9660" => '("isofs"))
|
||||
("jfs" => '("jfs"))
|
||||
("f2fs" => '("f2fs" "crc32_generic"))
|
||||
("xfs" => '("xfs"))
|
||||
(else '())))
|
||||
|
||||
(define (file-system-modules file-systems)
|
||||
|
|
Loading…
Reference in a new issue