me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/installer/newt/final.scm (run-install-failed-page): Add a "Report the
failure" button.
This commit is contained in:
Mathieu Othacehe 2022-10-14 17:33:28 +02:00
parent 96bb00d203
commit 2a5c2a6184
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/installer/newt/final.scm
View file

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