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

View file

@ -298,9 +298,9 @@ (define entry->gexp
#$initrd)))))
(mlet %store-monad ((sugar (eye-candy config
(menu-entry-device (first entries))
(menu-entry-device (first all-entries))
(menu-entry-device-mount-point
(first entries))
(first all-entries))
#:system system
#:port #~port)))
(define builder