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).
2017-04-15 15:49:47 +02:00 · 2017-04-15 15:49:47 +02:00 · 0ab1e8ae88
parent 99828febe0
commit 0ab1e8ae88
1 changed files with 2 additions and 2 deletions
--- 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