~ruther/guix-local

cd19c920b7bf15af6b8ea06aa5021487d65773a6 — Tobias Geerinckx-Rice 5 years ago 9060434
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.
1 files changed, 4 insertions(+), 0 deletions(-)

M gnu/system/linux-initrd.scm
M gnu/system/linux-initrd.scm => gnu/system/linux-initrd.scm +4 -0
@@ 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)