diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/linux-initrd.scm | 6 |
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) |
