~ruther/guix-local: system: grub: Use (first all-entries) instead of (first entries).

0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d — Danny Milosavljevic 9 years ago 99828fe

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).

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M gnu/system/grub.scm

M gnu/system/grub.scm => gnu/system/grub.scm +2 -2

@@ 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