12/17: linux-initrd: Support XFS.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit cd19c920b7bf15af6b8ea06aa5021487d65773a6
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Thu Sep 23 13:14:52 2021 +0200

    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.
---
 gnu/system/linux-initrd.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index dc0f419..a083292 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -290,6 +290,9 @@ FILE-SYSTEMS."
           '())
     ,@(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 @@ FILE-SYSTEMS."
                     ("iso9660" => '("isofs"))
                     ("jfs" => '("jfs"))
                     ("f2fs" => '("f2fs" "crc32_generic"))
+                    ("xfs" => '("xfs"))
                     (else '())))
 
 (define (file-system-modules file-systems)