system: grub: Use (first all-entries) instead of (first entries).
* gnu/system/grub.scm (grub-configuration-file): Use (first all-entries) instead of (first entries).
This commit is contained in:
parent
99828febe0
commit
0ab1e8ae88
|
@ -298,9 +298,9 @@ corresponding to old generations of the system."
|
||||||
#$initrd)))))
|
#$initrd)))))
|
||||||
|
|
||||||
(mlet %store-monad ((sugar (eye-candy config
|
(mlet %store-monad ((sugar (eye-candy config
|
||||||
(menu-entry-device (first entries))
|
(menu-entry-device (first all-entries))
|
||||||
(menu-entry-device-mount-point
|
(menu-entry-device-mount-point
|
||||||
(first entries))
|
(first all-entries))
|
||||||
#:system system
|
#:system system
|
||||||
#:port #~port)))
|
#:port #~port)))
|
||||||
(define builder
|
(define builder
|
||||||
|
|
Loading…
Reference in New Issue