diff options
| author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2021-01-14 19:02:09 +0100 |
|---|---|---|
| committer | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2021-01-14 20:18:09 +0100 |
| commit | 5b785b2a62b885a65aeece1399f7e3a732dd1cea (patch) | |
| tree | 9a6d603f70cbdd337a81a3a8bd881bcc5f2a0a72 /gnu/services/virtualization.scm | |
| parent | 93309e25c7c3da5744b0a3304b89effed949f844 (diff) | |
| download | guix-5b785b2a62b885a65aeece1399f7e3a732dd1cea.tar guix-5b785b2a62b885a65aeece1399f7e3a732dd1cea.tar.gz | |
services: hurd-vm: Respect hurd-vm-configuration's disk-size.
This is a follow-up to commit 859b362f81598830d7ff276b96a8724aee3c4db7.
* gnu/services/virtualization.scm (hurd-vm-disk-image): Use diks-size from
config to set image's size.
Diffstat (limited to 'gnu/services/virtualization.scm')
| -rw-r--r-- | gnu/services/virtualization.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm index f435630faf..f8d413d18e 100644 --- a/gnu/services/virtualization.scm +++ b/gnu/services/virtualization.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Ryan Moe <ryan.moe@gmail.com> ;;; Copyright © 2018, 2020 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -917,7 +917,9 @@ is added to the OS specified in CONFIG." (disk-size (hurd-vm-configuration-disk-size config)) (type (lookup-image-type-by-name 'hurd-qcow2)) (os->image (image-type-constructor type))) - (system-image (os->image os)))) + (system-image + (image (inherit (os->image os)) + (size disk-size))))) (define (hurd-vm-port config base) "Return the forwarded vm port for this childhurd config." |