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

[Brett Gilio]

Jack Hill writes:

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

I can replicate this bug, however it is still successfully installing a
new system configuration. The error printout seems erroneous (pun
intended).

I am sure there is a regression somewhere, but it does not seem to
adversely effect the method in question.