From c7b5cfb014243528f481e8bb95b7a58de17d0772 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Tue, 31 Dec 2019 01:37:23 +0100 Subject: linux-initrd: Add support for JFS. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/system/linux-initrd.scm (file-system-packages): Add jfs_fsck/static. (file-system-type-modules): Add ‘jfs’ module. --- gnu/system/linux-initrd.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnu/system/linux-initrd.scm') diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm index 0efb8fb222..dcc9b6b937 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2016 Mark H Weaver ;;; Copyright © 2016 Jan Nieuwenhuizen ;;; Copyright © 2017, 2019 Mathieu Othacehe +;;; Copyright © 2019 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,6 +31,7 @@ (define-module (gnu system linux-initrd) #:use-module (gnu packages compression) #:use-module (gnu packages disk) #:use-module (gnu packages linux) + #:use-module (gnu packages file-systems) #:use-module (gnu packages guile) #:use-module ((gnu packages xorg) #:select (console-setup xkeyboard-config)) @@ -240,6 +242,9 @@ (define* (file-system-packages file-systems #:key (volatile-root? #f)) '()) ,@(if (find (file-system-type-predicate "btrfs") file-systems) (list btrfs-progs/static) + '()) + ,@(if (find (file-system-type-predicate "jfs") file-systems) + (list jfs_fsck/static) '()))) (define-syntax vhash ;TODO: factorize @@ -269,6 +274,7 @@ (define file-system-type-modules ("9p" => '("9p" "9pnet_virtio")) ("btrfs" => '("btrfs")) ("iso9660" => '("isofs")) + ("jfs" => '("jfs")) (else '()))) (define (file-system-modules file-systems) -- cgit v1.2.3