David Craven <da...@craven.ch> skribis:

> * gnu/system/vm.scm (common-qemu-options): Add 'QEMU_FLAGS' and
> 'QEMU_NET_FLAGS'.
> ---
>  gnu/system/vm.scm | 4 ++--
>  1 file changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
> index c31e3a8..9f52909 100644
> --- a/gnu/system/vm.scm
> +++ b/gnu/system/vm.scm
> @@ -462,11 +462,11 @@ with '-virtfs' options for the host file systems listed 
> in SHARED-FS."
>             "")
>       " -no-reboot -net nic,model=virtio \
>    " #$@(map virtfs-option shared-fs) " \
> -  -net user \
> +  -net user,$QEMU_NET_FLAGS \
>    -vga std \
>    -drive file=" #$image
>    ",if=virtio,cache=writeback,werror=report,readonly \
> -  -m 256"))
> +  -m 256 $QEMU_FLAGS"))

When is this needed?  ‘guix system vm’ returns a script that appends its
arguments, so you can do:

  $(guix system vm foo.scm) -m 1024 -net foo,bar

Ludo’.

Reply via email to