scripts: system: Use the disk-image size argument for VM generation.
* guix/scripts/system.scm (system-derivation-for-action): Use the given image-size unconditionnaly when calling system-qemu-image/shared-store-script.
This commit is contained in:
		
							parent
							
								
									c37cd41764
								
							
						
					
					
						commit
						bce55cec88
					
				
					 1 changed files with 1 additions and 4 deletions
				
			
		| 
						 | 
				
			
			@ -710,10 +710,7 @@ checking this by themselves in their 'check' procedure."
 | 
			
		|||
                                              #:full-boot? full-boot?
 | 
			
		||||
                                              #:volatile? volatile?
 | 
			
		||||
                                              #:graphic? graphic?
 | 
			
		||||
                                              #:disk-image-size
 | 
			
		||||
                                              (if full-boot?
 | 
			
		||||
                                                  image-size
 | 
			
		||||
                                                  (* 70 (expt 2 20)))
 | 
			
		||||
                                              #:disk-image-size image-size
 | 
			
		||||
                                              #:mappings mappings))
 | 
			
		||||
      ((image disk-image vm-image docker-image)
 | 
			
		||||
       (when (eq? action 'disk-image)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue