diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-10-14 17:33:28 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-10-20 10:50:50 +0200 |
| commit | 2a5c2a6184d65a1314fdf15bcfa5ddda5756ec18 (patch) | |
| tree | 6dcec8f03b87d4325475d3ea279c9e3bd3e23294 | |
| parent | 96bb00d20336f43fac2c42662e4b1d300e624738 (diff) | |
| download | guix-2a5c2a6184d65a1314fdf15bcfa5ddda5756ec18.tar.gz | |
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.
| -rw-r--r-- | gnu/installer/newt/final.scm | 9 |
1 files 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))) |