diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index f98a8a70e3..a7d81feb4a 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -508,13 +508,11 @@ (define* (system-qemu-image/shared-store (define* (system-qemu-image/shared-store-script os #:key - (qemu (package (inherit qemu) - ;; FIXME/TODO: Use 9p instead of this hack. - (source (package-source qemu/smb-shares)))) + (qemu qemu) (graphic? #t)) "Return a derivation that builds a script to run a virtual machine image of OS that shares its store with the host." - (let* ((initrd (qemu-initrd #:mounts `((cifs "/store" ,(%store-prefix))) + (let* ((initrd (qemu-initrd #:mounts `((9p "store" ,(%store-prefix))) #:volatile-root? #t)) (os (operating-system (inherit os) (initrd initrd)))) (define builder @@ -531,9 +529,9 @@ (define builder (lambda (port) (display (string-append "#!" ,bash " -# TODO: -virtfs local,path=XXX,security_model=none,mount_tag=store exec " ,qemu " -enable-kvm -no-reboot -net nic,model=virtio \ - -net user,smb=$PWD \ + -virtfs local,path=" ,(%store-prefix) ",security_model=none,mount_tag=store \ + -net user \ -kernel " ,kernel " -initrd " ,(string-append (derivation->output-path initrd) "/initrd") " \ -append \"" ,(if graphic? "" "console=ttyS0 ")