bug#34890: guix system: error: failed to install bootloader

[Jack Hill <jackhill@jackhill.us>]

Hi Guix,

Today after a guix pull to commit 
e3545ffcf95bffbbd967efd852715f4f0a9be290, guix system reconfigure fails to 
install grub (bios grub on x86_64) with

guix system: error: failed to install bootloader /gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer

/gnu/store/45myfaqas69fnp3mfbqlsf9lafm30cl0-bootloader-installer is

(eval-when (expand load eval) (set! %load-path (cons 
"/gnu/store/wa7bn283y9pg2h5g75j1fmqbp1m5js7w-module-import" (append (map 
(lambda (extension) (string-append extension "/share/guile/site/" 
(effective-version))) (quote ())) %load-path))) (set! %load-compiled-path 
(cons "/gnu/store/w5a1xk656i0sw15mqj7bz8zp130c8m27-module-import-compiled" 
(append (map (lambda (extension) (string-append extension "/lib/guile/" 
(effective-version) "/site-ccache")) (quote ())) 
%load-compiled-path))))(begin (use-modules (gnu build bootloader) (guix 
build utils) (ice-9 binary-ports) (srfi srfi-34) (srfi srfi-35)) (guard (c 
((message-condition? c) (format (current-error-port) "error: ~a~%" 
(condition-message c)) (exit 1))) ((lambda (bootloader device mount-point) 
(let ((grub (string-append bootloader "/sbin/grub-install")) (install-dir 
(string-append mount-point "/boot"))) (setenv "GRUB_ENABLE_CRYPTODISK" 
"y") (invoke/quiet grub "--no-floppy" "--target=i386-pc" 
"--boot-directory" install-dir device))) 
"/gnu/store/shbswxl2g7n6fvi6gq45bvan4saygkv2-grub-2.02" "/dev/sda" "/") 
(format #t "bootloader successfully installed on '~a'~%" device)))

Unfortunately, I don't remember the last commit for which I successfully 
reconfigured and installed gurb. My operating system definition is below.

Best,
Jack

;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.

(use-modules (gnu) (gnu system nss) (gnu services xorg))
(use-service-modules desktop)
(use-package-modules certs gnome scanner)

(operating-system
   (host-name "alperton")
   (timezone "America/New_York")
   (locale "en_US.utf8")

   (bootloader (bootloader-configuration
                 (bootloader grub-bootloader)
                 (target "/dev/sda")))

   ;; Specify a mapped device for the encrypted root partition.
   ;; The UUID is that returned by 'cryptsetup luksUUID'.
   (mapped-devices
    (list (mapped-device
           (source (uuid "f7776767-70c9-44e3-9973-c1334d301348"))
           (target "alperton_root")
           (type luks-device-mapping))))

   (file-systems (cons*
 	               ;; (file-system
 	               ;;  (device (file-system-label "boot"))
 	               ;;  (mount-point "/boot")
 	               ;;  (type "ext4"))
 	               (file-system
                         (device (file-system-label "alperton_root"))
                         (mount-point "/")
                         (type "ext4")
                         (dependencies mapped-devices))
                       %base-file-systems))

   (users (cons (user-account
                 (name "jackhill")
                 (comment "Jack Hill")
                 (group "users")
                 (supplementary-groups '("wheel" "netdev"
                                         "audio" "video"))
                 (home-directory "/home/jackhill"))
                %base-user-accounts))

   ;; This is where we specify system-wide packages.
   (packages (cons* nss-certs         ;for HTTPS access
                    gvfs              ;for user mounts
 		   network-manager-openvpn
                    %base-packages))

   ;; Add GNOME and/or Xfce---we can choose at the log-in
   ;; screen with F1.  Use the "desktop" services, which
   ;; include the X11 log-in service, networking with
   ;; NetworkManager, and more.
   (services (cons* (gnome-desktop-service)
 		   (service gdm-service-type)
 		   (simple-service 'sane-udev-rules udev-service-type (list sane-backends))
 		   (filter (lambda (x)
 			     (not (eq? (service-kind x) slim-service-type))) %desktop-services)))

   ;; Allow resolution of '.local' host names with mDNS.
   (name-service-switch %mdns-host-lookup-nss))