ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: Use os-defined initrd intead of base-initrd.

Browse source 
* gnu/system/vm.scm (system-disk-image, system-qemu-image,
  virtualized-operating-system): Replace base-initrd by
  (operating-system-initrd os).

The system produced were always using base-initrd even if the user had
defined a custom initrd based on raw-initrd in the os declaration.
This commit is contained in:
Mathieu Othacehe 2017-11-24 17:35:12 +01:00
parent 64047c850f
commit b8e7781122
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/system/vm.scm
View file

@ -423,7 +423,8 @@ (define file-systems-to-keep
;; install QEMU networking or anything like that. Assume USB
;; mass storage devices (usb-storage.ko) are available.
(initrd (lambda (file-systems . rest)
(apply base-initrd file-systems
(apply (operating-system-initrd os)
file-systems
#:volatile-root? #t
rest)))
@ -488,7 +489,8 @@ (define file-systems-to-keep
(let ((os (operating-system (inherit os)
;; Use an initrd with the whole QEMU shebang.
(initrd (lambda (file-systems . rest)
(apply base-initrd file-systems
(apply (operating-system-initrd os)
file-systems
#:virtio? #t
rest)))
@ -574,7 +576,8 @@ (define virtual-file-systems
(target "/dev/vda")))
(initrd (lambda (file-systems . rest)
(apply base-initrd file-systems
(apply (operating-system-initrd os)
file-systems
#:volatile-root? #t
#:virtio? #t
rest)))