02/02: system: grub: Use (first all-entries) instead of (first entries).

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d
Author: Danny Milosavljevic <address@hidden>
Date:   Sat Apr 15 15:49:47 2017 +0200

    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).
---
 gnu/system/grub.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm
index 4f9bde6..bcfc3be 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