From 0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Sat, 15 Apr 2017 15:49:47 +0200 Subject: [PATCH] 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 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