me/guix
Archived
1
0
Fork 0
Code Activity

system: vm: Use operating-system-kernel-arguments.

Browse source 
* gnu/system/vm.scm (system-qemu-image/shared-store-script):
Use operating-system-kernel-arguments.
This commit is contained in:
Danny Milosavljevic 2017-04-21 14:37:11 +02:00
parent 0315abe608
commit 83071b052a
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/system/vm.scm
View file

@ -490,11 +490,8 @@ it is mostly useful when FULL-BOOT? is true."
#:full-boot? full-boot? #:full-boot? full-boot?
#:disk-image-size disk-image-size))) #:disk-image-size disk-image-size)))
(define kernel-arguments (define kernel-arguments
#~(list "--root=/dev/vda1" #~(list #$@(if graphic? #~() #~("console=ttyS0"))
(string-append "--system=" #$os-drv) #+@(operating-system-kernel-arguments os os-drv "/dev/vda1")))
(string-append "--load=" #$os-drv "/boot")
#$@(if graphic? #~() #~("console=ttyS0"))
#+@(operating-system-user-kernel-arguments os)))
(define qemu-exec (define qemu-exec
#~(list (string-append #$qemu "/bin/" #$(qemu-command (%current-system))) #~(list (string-append #$qemu "/bin/" #$(qemu-command (%current-system)))