aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-04-15 15:49:47 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-04-15 15:49:47 +0200
commit0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d (patch)
tree2a2187434185c3ca3a702eddd9f00e70979ed1fd
parent99828febe05663c5d93dc52594eab28c6a1fe3d8 (diff)
downloadguix-0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d.tar
guix-0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d.tar.gz
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).
-rw-r--r--gnu/system/grub.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm
index 4f9bde6a62..bcfc3beae6 100644
--- a/gnu/system/grub.scm
+++ b/gnu/system/grub.scm
@@ -298,9 +298,9 @@ corresponding to old generations of the system."
#$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