[PATCH 1/2] linux-initrd: Introduce way to add more packages to initrd.

["Tomáš Čech" <sleep_walker@gnu.org>]

* 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 bbaa5c0..1676684 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -138,6 +138,7 @@ MODULES and taken from LINUX."
                       qemu-networking?
                       (virtio? #t)
                       volatile-root?
+                      (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
@@ -208,7 +209,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