installer: Resume newt in exit-error procedure.

Fixes: <https://issues.guix.gnu.org/58734>

* gnu/installer/newt.scm (exit-error): Resume it.
This commit is contained in:
Mathieu Othacehe 2022-10-23 15:34:50 +02:00
parent 88fa3e6c3e
commit bf5e78d59f
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 3 additions and 0 deletions

View File

@ -62,6 +62,9 @@
(clear-screen))
(define (exit-error error)
;; Newt may be suspended in the context of the "install-system"
;; procedure. Resume it unconditionnally.
(newt-resume)
(newt-set-color COLORSET-ROOT "white" "red")
(define action
(run-textbox-page