[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/09: services: virtual-build-machine: Use a larger partition by defaul
From: |
guix-commits |
Subject: |
02/09: services: virtual-build-machine: Use a larger partition by default. |
Date: |
Mon, 12 Feb 2024 06:21:29 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit e0ade40c2b7f39dc109ef03d43241033e14c4d4a
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Feb 12 11:22:00 2024 +0100
services: virtual-build-machine: Use a larger partition by default.
So far the partition had too little free space.
* gnu/services/virtualization.scm
(%default-virtual-build-machine-image-size):
New variable.
(virtual-build-machine-default-image): Define ‘partitions’ field.
Change-Id: Iffe0f316eecad8754d29f8c811cdc4836a818a3f
---
gnu/services/virtualization.scm | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index e1970e2b09..0fbd51de8d 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -57,7 +57,7 @@
#:autoload (guix self) (make-config.scm)
#:autoload (guix platform) (platform-system)
- #:use-module (srfi srfi-1)
+ #:use-module ((srfi srfi-1) #:hide (partition))
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-26)
@@ -1225,6 +1225,11 @@ authpriv.*;auth.info /var/log/secure
(delete mingetty-service-type)
(delete console-font-service-type))))))
+(define %default-virtual-build-machine-image-size
+ ;; Size of the default disk image of virtual build machines. It should be
+ ;; large enough to let users build a few things.
+ (* 20 (expt 2 30)))
+
(define (virtual-build-machine-default-image config)
(let* ((type (lookup-image-type-by-name 'mbr-raw))
(base (os->image %virtual-build-machine-operating-system
@@ -1235,7 +1240,15 @@ authpriv.*;auth.info /var/log/secure
(format 'compressed-qcow2)
(partition-table-type 'mbr)
(shared-store? #f)
- (size (* 10 (expt 2 30))))))
+ (size %default-virtual-build-machine-image-size)
+ (partitions (match (image-partitions base)
+ ((root)
+ ;; Increase the size of the root partition to match
+ ;; that of the disk image.
+ (let ((root-size (- size (* 50 (expt 2 20)))))
+ (list (partition
+ (inherit root)
+ (size root-size))))))))))
(define (virtual-build-machine-account-name config)
(string-append "build-vm-"
- branch master updated (faeae5114c -> 5a61ce6bcf), guix-commits, 2024/02/12
- 03/09: git authenticate: Gracefully handle invalid fingerprints., guix-commits, 2024/02/12
- 01/09: services: virtual-build-machine: Add base file systems to default OS., guix-commits, 2024/02/12
- 05/09: swh: Add bindings for the “ExtID” API., guix-commits, 2024/02/12
- 06/09: swh: Add ‘swh-download-directory-by-nar-hash’., guix-commits, 2024/02/12
- 04/09: swh: ‘vault-fetch’ follows redirects., guix-commits, 2024/02/12
- 02/09: services: virtual-build-machine: Use a larger partition by default.,
guix-commits <=
- 07/09: lint: archival: Check with ‘lookup-directory-by-nar-hash’., guix-commits, 2024/02/12
- 08/09: git-download: Download from SWH by nar hash when possible., guix-commits, 2024/02/12
- 09/09: swh: Fix docstring of ‘lookup-directory’., guix-commits, 2024/02/12