summaryrefslogtreecommitdiff
path: root/guix/scripts/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-03-17 16:22:43 +0100
committerLudovic Courtès <ludo@gnu.org>2019-03-17 16:30:00 +0100
commit8ffab257ddb6c5df1ac43b9baeb5f0373bffb482 (patch)
treee0118bb605e508d290a76c411b5b3d941e3ef70c /guix/scripts/system.scm
parent3822003082478fb3d24af1b411ffe17406a83e93 (diff)
downloadguix-patches-8ffab257ddb6c5df1ac43b9baeb5f0373bffb482.tar
guix-patches-8ffab257ddb6c5df1ac43b9baeb5f0373bffb482.tar.gz
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 21fcfe1ee969cc477dc41486ae4074e655d44274. * guix/scripts/system.scm (bootloader-installer-script): Ungexp DEVICE.
Diffstat (limited to 'guix/scripts/system.scm')
-rw-r--r--guix/scripts/system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index b4bf66819f..97508f4bd6 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -818,7 +818,7 @@ and TARGET arguments."
(exit 1)))
(#$installer #$bootloader #$device #$target)
(format #t "bootloader successfully installed on '~a'~%"
- device))))))
+ #$device))))))
(define* (perform-action action os
#:key skip-safety-checks?