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:
Danny Milosavljevic 2017-04-15 15:49:47 +02:00
parent 99828febe0
commit 0ab1e8ae88
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 2 additions and 2 deletions

View File

@ -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