* gnu/system/linux-initrd.scm(base-initrd): Add `extra-packages' parameter.
---
gnu/system/linux-initrd.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index 4934c92..1ba6692 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -139,6 +139,7 @@ MODULES and taken from LINUX."
(virtio? #t)
volatile-root?
(linux-modules #f)
+ (extra-packages '())
(extra-modules '()))
"Return a monadic derivation that builds a generic initrd, with kernel
modules taken from LINUX. FILE-SYSTEMS is a list of file-systems to be
@@ -209,7 +210,8 @@ loaded at boot time in the order in which they appear."
'())
,@(if volatile-root?
(list unionfs-fuse/static)
- '())))
+ '())
+ ,@extra-packages))
(define device-mapping-commands
;; List of gexps to open the mapped devices.
--
2.9.2
