installer: Increase backtrace verbosity.
* gnu/installer.scm (installer-program): Set terminal-width to 200 to make guile backtraces more verbose.
This commit is contained in:
parent
ba2d913192
commit
3114786e3e
|
@ -337,6 +337,8 @@ selected keymap."
|
||||||
(gnu services herd)
|
(gnu services herd)
|
||||||
(guix i18n)
|
(guix i18n)
|
||||||
(guix build utils)
|
(guix build utils)
|
||||||
|
((system repl debug)
|
||||||
|
#:select (terminal-width))
|
||||||
(ice-9 match))
|
(ice-9 match))
|
||||||
|
|
||||||
;; Initialize gettext support so that installers can use
|
;; Initialize gettext support so that installers can use
|
||||||
|
@ -360,6 +362,11 @@ selected keymap."
|
||||||
(bindtextdomain "xkeyboard-config"
|
(bindtextdomain "xkeyboard-config"
|
||||||
#+(file-append xkeyboard-config "/share/locale"))
|
#+(file-append xkeyboard-config "/share/locale"))
|
||||||
|
|
||||||
|
;; Initialize 'terminal-width' in (system repl debug)
|
||||||
|
;; to a large-enough value to make backtrace more
|
||||||
|
;; verbose.
|
||||||
|
(terminal-width 200)
|
||||||
|
|
||||||
(let* ((current-installer newt-installer)
|
(let* ((current-installer newt-installer)
|
||||||
(steps (#$steps current-installer)))
|
(steps (#$steps current-installer)))
|
||||||
((installer-init current-installer))
|
((installer-init current-installer))
|
||||||
|
|
Loading…
Reference in New Issue