summaryrefslogtreecommitdiff
path: root/gnu/system/linux-initrd.scm
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-03-18 10:38:51 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2017-03-18 10:38:51 +0100
commit7208995426714c9fc3ad59cadc3cc0f52df0f018 (patch)
tree1dbe0160254181c37a8de36af8896979b1d5c0c1 /gnu/system/linux-initrd.scm
parent84aac61c819cf2c82d8d4b54cdf53ed9e713a82f (diff)
downloadpatches-7208995426714c9fc3ad59cadc3cc0f52df0f018.tar
patches-7208995426714c9fc3ad59cadc3cc0f52df0f018.tar.gz
file-systems: Factorize file-system-packages.
* gnu/system/linux-initrd.scm (base-initrd): Move helper-packages body to ... * gnu/system/file-systems.scm (file-system-packages): ... here. New variable. Also export it.
Diffstat (limited to 'gnu/system/linux-initrd.scm')
-rw-r--r--gnu/system/linux-initrd.scm18
1 files changed, 1 insertions, 17 deletions
diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index 81c1278c0c..1f1c306828 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -272,23 +272,7 @@ loaded at boot time in the order in which they appear."
,@extra-modules))
(define helper-packages
- ;; Packages to be copied on the initrd.
- `(,@(if (find (lambda (fs)
- (string-prefix? "ext" (file-system-type fs)))
- file-systems)
- (list e2fsck/static)
- '())
- ,@(if (find (lambda (fs)
- (string-suffix? "fat" (file-system-type fs)))
- file-systems)
- (list fatfsck/static)
- '())
- ,@(if (find (file-system-type-predicate "btrfs") file-systems)
- (list btrfs-progs/static)
- '())
- ,@(if volatile-root?
- (list unionfs-fuse/static)
- '())))
+ (file-system-packages file-systems #:volatile-root? volatile-root?))
(raw-initrd file-systems
#:linux linux