diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-10-31 13:03:46 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-11-02 15:52:19 +0100 |
| commit | 80387bc7c3966602800116f5be3893c3d3044a96 (patch) | |
| tree | ce2398404fea5837748fb58d6f1faa34de0e17ad /gnu/installer/newt | |
| parent | 868a1e7f320616e6a13aa23ea1ab86f7d40ddfdb (diff) | |
| download | guix-80387bc7c3966602800116f5be3893c3d3044a96.tar.gz guix-80387bc7c3966602800116f5be3893c3d3044a96.zip | |
installer: Add core dump support.
Fixes: <https://issues.guix.gnu.org/58733>
* gnu/installer.scm (installer-program): Enable core dump generation.
* gnu/installer/dump.scm (%core-dump): New variable.
(prepare-dump): Copy the core dump file.
* gnu/installer/newt/welcome.scm (run-welcome-page): Propose to report an
installation that previously generated a core dump.
Diffstat (limited to 'gnu/installer/newt')
| -rw-r--r-- | gnu/installer/newt/welcome.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gnu/installer/newt/welcome.scm b/gnu/installer/newt/welcome.scm index 0bca44d1b2..5d47591d67 100644 --- a/gnu/installer/newt/welcome.scm +++ b/gnu/installer/newt/welcome.scm @@ -20,6 +20,7 @@ (define-module (gnu installer newt welcome) #:use-module ((gnu build linux-modules) #:select (modules-loaded)) + #:use-module (gnu installer dump) #:use-module (gnu installer steps) #:use-module (gnu installer utils) #:use-module (gnu installer newt page) @@ -132,6 +133,20 @@ work well with only free software. Expect trouble. If after installation, the system does not boot, perhaps you will need to add nomodeset to the kernel arguments and need to configure the uvesafb kernel module.") (G_ "Pre-install warning"))) + (when (file-exists? %core-dump) + (match + (choice-window + (G_ "Previous installation failed") + (G_ "Continue") + (G_ "Report the failure") + (G_ "It seems that the previous installation exited unexpectedly \ +and generated a core dump. Do you want to continue or to report the failure \ +first?")) + (1 #t) + (2 (raise + (condition + (&message + (message "User abort."))))))) (run-menu-page (G_ "GNU Guix install") (G_ "Welcome to GNU Guix system installer! |