guix system: Fix success report of the bootloader installation.

Fixes <https://bugs.gnu.org/34890>.
Reported by Jack Hill <jackhill@jackhill.us>.

Regression introduced in 21fcfe1ee9.

* guix/scripts/system.scm (bootloader-installer-script): Ungexp DEVICE.
This commit is contained in:
Ludovic Courtès 2019-03-17 16:22:43 +01:00
parent 3822003082
commit 8ffab257dd
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -818,7 +818,7 @@ (define (bootloader-installer-script installer
(exit 1))) (exit 1)))
(#$installer #$bootloader #$device #$target) (#$installer #$bootloader #$device #$target)
(format #t "bootloader successfully installed on '~a'~%" (format #t "bootloader successfully installed on '~a'~%"
device)))))) #$device))))))
(define* (perform-action action os (define* (perform-action action os
#:key skip-safety-checks? #:key skip-safety-checks?