* bug#45867: hurd-vm: custom disk-size ignored
@ 2021-01-14 18:03 Jan Nieuwenhuizen
2021-01-14 19:21 ` Jan Nieuwenhuizen
0 siblings, 1 reply; 2+ messages in thread
From: Jan Nieuwenhuizen @ 2021-01-14 18:03 UTC (permalink / raw)
To: 45867
On current master, setting a bigger disk-size for a childhurd
--8<---------------cut here---------------start------------->8---
(service hurd-vm-service-type
(hurd-vm-configuration
(disk-size (* 12 (expt 2 30))) ;12GiB
--8<---------------cut here---------------end--------------->8---
is being ignored. I am suspecting
> commit 859b362f81598830d7ff276b96a8724aee3c4db7
> Author: Ludovic Courtès <ludo@gnu.org>
> AuthorDate: Mon Dec 7 12:38:25 2020 +0100
>
> services: hurd-vm: Avoid circular dependency with (gnu system images hurd).
>
> * gnu/services/virtualization.scm (hurd-vm-disk-image): Use
> 'lookup-image-type-by-name' instead of referring to 'hurd-disk-image'
> from (gnu system images hurd).
> ---
> gnu/services/virtualization.scm | 15 ++++++---------
> 1 file changed, 6 insertions(+), 9 deletions(-)
>
> diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
> index eaf0bbd..f435630 100644
> --- a/gnu/services/virtualization.scm
> +++ b/gnu/services/virtualization.scm
[..]
> @@ -913,14 +912,12 @@ that will be listening to receive secret keys on port 1004, TCP."
> (define (hurd-vm-disk-image config)
> "Return a disk-image for the Hurd according to CONFIG. The secret-service
> is added to the OS specified in CONFIG."
> - (let ((os (secret-service-operating-system (hurd-vm-configuration-os config)))
> - (disk-size (hurd-vm-configuration-disk-size config)))
> - (system-image
> - (image
> - (inherit hurd-disk-image)
> - (format 'compressed-qcow2)
> - (size disk-size)
> - (operating-system os)))))
This system-image included (size disk-size), and here
> + (let* ((os (secret-service-operating-system
> + (hurd-vm-configuration-os 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))))
disk-size goes unused. So we probably need something like
diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index f435630faf..3ede822183 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -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."
Greetings,
Janneke
--
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
^ permalink raw reply related [flat|nested] 2+ messages in thread
* bug#45867: hurd-vm: custom disk-size ignored
2021-01-14 18:03 bug#45867: hurd-vm: custom disk-size ignored Jan Nieuwenhuizen
@ 2021-01-14 19:21 ` Jan Nieuwenhuizen
0 siblings, 0 replies; 2+ messages in thread
From: Jan Nieuwenhuizen @ 2021-01-14 19:21 UTC (permalink / raw)
To: 45867-done
Jan Nieuwenhuizen writes:
> On current master, setting a bigger disk-size for a childhurd
>
> (service hurd-vm-service-type
> (hurd-vm-configuration
> (disk-size (* 12 (expt 2 30))) ;12GiB
>
>
> is being ignored. I am suspecting
[..]
> disk-size goes unused. So we probably need something like
>
> diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
> index f435630faf..3ede822183 100644
> --- a/gnu/services/virtualization.scm
> +++ b/gnu/services/virtualization.scm
> @@ -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."
I can connfirm this works, pushed to master as 5b785b2a62b885a65aeece1399f7e3a732dd1cea.
> Greetings,
> Janneke
--
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2021-01-14 19:34 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-01-14 18:03 bug#45867: hurd-vm: custom disk-size ignored Jan Nieuwenhuizen
2021-01-14 19:21 ` Jan Nieuwenhuizen
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).