summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-14 18:05:10 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-14 18:05:10 +0200
commit932e1f92404d917a91af28737d6631ec45b56875 (patch)
tree229e08423a840fecbe86b61eee2155b54ae6a250
parent246a8106ffcc2d8d4b66355219f9dced2137544f (diff)
downloadguix-932e1f92404d917a91af28737d6631ec45b56875.tar.gz
vm: Make sure disk image initrds load 'usb-storage.ko'.
Reported by David Thompson <dthompson2@worcester.edu>.

* gnu/system/vm.scm (system-disk-image): Add usb-storage.ko to the
  initrd.
-rw-r--r--gnu/system/vm.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index ab3997bd5d..db78c56683 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -287,10 +287,12 @@ to USB sticks meant to be read-only."
             (operating-system-file-systems os)))
 
   (let ((os (operating-system (inherit os)
-              ;; Since this is meant to be used on real hardware, don't set up
-              ;; QEMU networking.
+              ;; Since this is meant to be used on real hardware, don't
+              ;; install QEMU networking or anything like that, but make sure
+              ;; USB mass storage devices are available.
               (initrd (cut base-initrd <>
-                           #:volatile-root? volatile?))
+                           #:volatile-root? #t
+                           #:extra-modules '("usb-storage.ko")))
 
               ;; Force our own root file system.
               (file-systems (cons (file-system