summary refs log tree commit diff
path: root/gnu
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 /gnu
parent99828febe05663c5d93dc52594eab28c6a1fe3d8 (diff)
downloadguix-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).
Diffstat (limited to 'gnu')
-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