ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Support XFS.

Browse source 
* 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:
Tobias Geerinckx-Rice 2021-09-23 13:14:52 +02:00
parent 90604348e1
commit cd19c920b7
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/system/linux-initrd.scm
View file

@ -290,6 +290,9 @@ (define* (file-system-packages file-systems #:key (volatile-root? #f))
'()) '())
,@(if (find (file-system-type-predicate "f2fs") file-systems) ,@(if (find (file-system-type-predicate "f2fs") file-systems)
(list f2fs-fsck/static) (list f2fs-fsck/static)
'())
,@(if (find (file-system-type-predicate "xfs") file-systems)
(list xfs_repair/static)
'()))) '())))
(define-syntax vhash ;TODO: factorize (define-syntax vhash ;TODO: factorize
@ -322,6 +325,7 @@ (define file-system-type-modules
("iso9660" => '("isofs")) ("iso9660" => '("isofs"))
("jfs" => '("jfs")) ("jfs" => '("jfs"))
("f2fs" => '("f2fs" "crc32_generic")) ("f2fs" => '("f2fs" "crc32_generic"))
("xfs" => '("xfs"))
(else '()))) (else '())))
(define (file-system-modules file-systems) (define (file-system-modules file-systems)