02/03: installer: Propose the user to report a "guix system init" failure.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 2a5c2a6184d65a1314fdf15bcfa5ddda5756ec18
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Oct 14 17:33:28 2022 +0200

    installer: Propose the user to report a "guix system init" failure.
    
    * gnu/installer/newt/final.scm (run-install-failed-page): Add a "Report the
    failure" button.
---
 gnu/installer/newt/final.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm
index 7c3f73ee82..6e55be5067 100644
--- a/gnu/installer/newt/final.scm
+++ b/gnu/installer/newt/final.scm
@@ -80,16 +80,21 @@ press the button to reboot.")))
 (define (run-install-failed-page)
   (match (current-clients)
     (()
-     (match (choice-window
+     (match (ternary-window
              (G_ "Installation failed")
              (G_ "Resume")
              (G_ "Restart the installer")
+             (G_ "Report the failure")
              (G_ "The final system installation step failed.  You can resume 
from \
 a specific step, or restart the installer."))
        (1 (abort-to-prompt 'installer-step 'abort))
        (2
         ;; Keep going, the installer will be restarted later on.
-        #t)))
+        #t)
+       (3 (raise
+           (condition
+            (&message
+             (message "User abort.")))))))
     (_
      (send-to-clients '(installation-failure))
      #t)))