From 98f035482fcb32683429a474f4071bd530c3c1b8 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 26 Apr 2019 14:08:39 +0200
Subject: installer: Actually reboot when the user presses "Reboot."

* gnu/installer/newt/final.scm (run-install-success-page): Return
'success.
* gnu/installer.scm (installer-program): Check the result of the 'final
step and reboot upon success.
---
 gnu/installer/newt/final.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'gnu/installer/newt/final.scm')

diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm
index f470a90004..e8d3c48a36 100644
--- a/gnu/installer/newt/final.scm
+++ b/gnu/installer/newt/final.scm
@@ -56,7 +56,10 @@ (define (run-install-success-page)
    (G_ "Reboot")
    (G_ "Congratulations!  Installation is now complete.  \
 You may remove the device containing the installation image and \
-press the button to reboot.")))
+press the button to reboot."))
+
+  ;; Return success so that the installer happily reboots.
+  'success)
 
 (define (run-install-failed-page)
   (choice-window
-- 
cgit v1.2.3