nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootloader: Remove deprecated 'device' field. 

The 'device' field had been deprecated in commit
045ebb3e58 (August 2017).

* gnu/bootloader.scm (<bootloader-configuration>)[device]: Remove.
[target]: Change getter to 'bootstrap-configuration-target'.
(bootstrap-configuration-target): Remove.
This commit is contained in:
Ludovic Courtès 2019-01-16 13:42:34 +01:00
parent 5c215c9e47
commit 5f7467f046
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/bootloader.scm
View File

@ -105,9 +105,7 @@
bootloader-configuration make-bootloader-configuration bootloader-configuration make-bootloader-configuration
bootloader-configuration? bootloader-configuration?
(bootloader bootloader-configuration-bootloader) ; <bootloader> (bootloader bootloader-configuration-bootloader) ; <bootloader>
(device bootloader-configuration-device ; string (target bootloader-configuration-target ; string
(default #f))
(target %bootloader-configuration-target ; string
(default #f)) (default #f))
(menu-entries bootloader-configuration-menu-entries ; list of <boot-parameters> (menu-entries bootloader-configuration-menu-entries ; list of <boot-parameters>
(default '())) (default '()))
@ -128,15 +126,6 @@
(additional-configuration bootloader-configuration-additional-configuration ; record (additional-configuration bootloader-configuration-additional-configuration ; record
(default #f))) (default #f)))
(define (bootloader-configuration-target config)
(or (%bootloader-configuration-target config)
(let ((device (bootloader-configuration-device config)))
(when device
(warning
(G_ "The 'device' field of bootloader configurations is deprecated.~%"))
(warning (G_ "Use 'target' instead.~%")))
device)))
;;; ;;;
;;; Bootloaders. ;;; Bootloaders.