guix system: Fix bootloader config file generation by 'guix system roll-back'.
Fixes <https://bugs.gnu.org/33623>.
Reported by Diego Nicola Barbato <dnbarbato@posteo.de>.
Regression introduced in commit
46c296dcc4.
* guix/scripts/system.scm (reinstall-bootloader): Add call to
'lower-object'.
			
			
This commit is contained in:
		
							parent
							
								
									6eac835f17
								
							
						
					
					
						commit
						6ddc63e599
					
				
					 1 changed files with 4 additions and 3 deletions
				
			
		|  | @ -497,9 +497,10 @@ STORE is an open connection to the store." | |||
|          (old-entries (map boot-parameters->menu-entry old-params))) | ||||
|     (run-with-store store | ||||
|       (mlet* %store-monad | ||||
|           ((bootcfg ((bootloader-configuration-file-generator bootloader) | ||||
|                      bootloader-config entries | ||||
|                      #:old-entries old-entries)) | ||||
|           ((bootcfg (lower-object | ||||
|                      ((bootloader-configuration-file-generator bootloader) | ||||
|                       bootloader-config entries | ||||
|                       #:old-entries old-entries))) | ||||
|            (bootcfg-file -> (bootloader-configuration-file bootloader)) | ||||
|            (target -> "/") | ||||
|            (drvs -> (list bootcfg))) | ||||
|  |  | |||
		Reference in a new issue