vm: 'system-disk-image' honors #:substitutable? for ISO9660 images.
This is a followup to a328f66a9e.
* gnu/system/vm.scm (iso9660-image): Add #:substitutable? and pass it to
'expression->derivation-in-linux-vm'.
(system-disk-image): Pass #:substitutable? to 'iso9660-image'.
			
			
This commit is contained in:
		
							parent
							
								
									abc33218f1
								
							
						
					
					
						commit
						74f01059cb
					
				
					 1 changed files with 5 additions and 2 deletions
				
			
		| 
						 | 
					@ -283,7 +283,8 @@ substitutable."
 | 
				
			||||||
                        bootloader
 | 
					                        bootloader
 | 
				
			||||||
                        (register-closures? (has-guix-service-type? os))
 | 
					                        (register-closures? (has-guix-service-type? os))
 | 
				
			||||||
                        (inputs '())
 | 
					                        (inputs '())
 | 
				
			||||||
                        (grub-mkrescue-environment '()))
 | 
					                        (grub-mkrescue-environment '())
 | 
				
			||||||
 | 
					                        (substitutable? #t))
 | 
				
			||||||
  "Return a bootable, stand-alone iso9660 image.
 | 
					  "Return a bootable, stand-alone iso9660 image.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
INPUTS is a list of inputs (as for packages)."
 | 
					INPUTS is a list of inputs (as for packages)."
 | 
				
			||||||
| 
						 | 
					@ -354,6 +355,7 @@ INPUTS is a list of inputs (as for packages)."
 | 
				
			||||||
   #:make-disk-image? #f
 | 
					   #:make-disk-image? #f
 | 
				
			||||||
   #:single-file-output? #t
 | 
					   #:single-file-output? #t
 | 
				
			||||||
   #:references-graphs inputs
 | 
					   #:references-graphs inputs
 | 
				
			||||||
 | 
					   #:substitutable? substitutable?
 | 
				
			||||||
 | 
					
 | 
				
			||||||
   ;; Xorriso seems to be quite memory-hungry, so increase the VM's RAM size.
 | 
					   ;; Xorriso seems to be quite memory-hungry, so increase the VM's RAM size.
 | 
				
			||||||
   #:memory-size 512))
 | 
					   #:memory-size 512))
 | 
				
			||||||
| 
						 | 
					@ -735,7 +737,8 @@ substitutable."
 | 
				
			||||||
                       #:inputs `(("system" ,os)
 | 
					                       #:inputs `(("system" ,os)
 | 
				
			||||||
                                  ("bootcfg" ,bootcfg))
 | 
					                                  ("bootcfg" ,bootcfg))
 | 
				
			||||||
                       #:grub-mkrescue-environment
 | 
					                       #:grub-mkrescue-environment
 | 
				
			||||||
                       '(("MKRESCUE_SED_MODE" . "mbr_hfs")))
 | 
					                       '(("MKRESCUE_SED_MODE" . "mbr_hfs"))
 | 
				
			||||||
 | 
					                       #:substitutable? substitutable?)
 | 
				
			||||||
        (qemu-image #:name name
 | 
					        (qemu-image #:name name
 | 
				
			||||||
                    #:os os
 | 
					                    #:os os
 | 
				
			||||||
                    #:bootcfg-drv bootcfg
 | 
					                    #:bootcfg-drv bootcfg
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue