01/07: maint: Pass '--image-size=30G' to 'guix system vm-image'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit dbab5eb8f52963ffff5742ebbdf6ce7919e18ab1
Author: Ludovic Courtès <address@hidden>
Date:   Sat Apr 27 09:56:45 2019 +0200

    maint: Pass '--image-size=30G' to 'guix system vm-image'.
    
    * Makefile.am (GUIX_SYSTEM_VM_IMAGE_FLAGS): New variable.
    (release): Use it.
---
 Makefile.am | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Makefile.am b/Makefile.am
index 99d6ed6..f25900d 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -684,6 +684,10 @@ GUIX_SYSTEM_IMAGE_BASE = 
guix-system-install-$(PACKAGE_VERSION)
 # Prefix of the Guix VM image file name.
 GUIX_SYSTEM_VM_IMAGE_BASE = guix-system-vm-image-$(PACKAGE_VERSION)
 
+# Flags for 'guix system vm-image'.  By default create a VM image that appears
+# to have a 20G hard disk.
+GUIX_SYSTEM_VM_IMAGE_FLAGS ?= --image-size=30G
+
 # Return the sequence of '-s' flags for the given systems.
 system_flags = $(foreach system,$(1),-s $(system))
 
@@ -750,7 +754,7 @@ release: dist
        done
        for system in $(GUIX_SYSTEM_VM_SYSTEMS) ; do                            
        \
          image=`$(top_builddir)/pre-inst-env                                   
        \
-           guix system vm-image                                                
        \
+           guix system vm-image $(GUIX_SYSTEM_VM_IMAGE_FLAGS)                  
        \
            --system=$$system                                                   
        \
            gnu/system/examples/vm-image.tmpl` ;                                
        \
          if [ ! -f "$$image" ] ; then                                          
        \