summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/linux-initrd.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index 0efb8fb2224..dcc9b6b9370 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -3,6 +3,7 @@
3;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> 3;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
4;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> 4;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
5;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com> 5;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
6;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
6;;; 7;;;
7;;; This file is part of GNU Guix. 8;;; This file is part of GNU Guix.
8;;; 9;;;
@@ -30,6 +31,7 @@
30 #:use-module (gnu packages compression) 31 #:use-module (gnu packages compression)
31 #:use-module (gnu packages disk) 32 #:use-module (gnu packages disk)
32 #:use-module (gnu packages linux) 33 #:use-module (gnu packages linux)
34 #:use-module (gnu packages file-systems)
33 #:use-module (gnu packages guile) 35 #:use-module (gnu packages guile)
34 #:use-module ((gnu packages xorg) 36 #:use-module ((gnu packages xorg)
35 #:select (console-setup xkeyboard-config)) 37 #:select (console-setup xkeyboard-config))
@@ -240,6 +242,9 @@ FILE-SYSTEMS."
240 '()) 242 '())
241 ,@(if (find (file-system-type-predicate "btrfs") file-systems) 243 ,@(if (find (file-system-type-predicate "btrfs") file-systems)
242 (list btrfs-progs/static) 244 (list btrfs-progs/static)
245 '())
246 ,@(if (find (file-system-type-predicate "jfs") file-systems)
247 (list jfs_fsck/static)
243 '()))) 248 '())))
244 249
245(define-syntax vhash ;TODO: factorize 250(define-syntax vhash ;TODO: factorize
@@ -269,6 +274,7 @@ FILE-SYSTEMS."
269 ("9p" => '("9p" "9pnet_virtio")) 274 ("9p" => '("9p" "9pnet_virtio"))
270 ("btrfs" => '("btrfs")) 275 ("btrfs" => '("btrfs"))
271 ("iso9660" => '("isofs")) 276 ("iso9660" => '("isofs"))
277 ("jfs" => '("jfs"))
272 (else '()))) 278 (else '())))
273 279
274(define (file-system-modules file-systems) 280(define (file-system-modules file-systems)