summaryrefslogtreecommitdiff
path: root/gnu/installer.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2019-05-14 14:05:36 +0200
committerMathieu Othacehe <m.othacehe@gmail.com>2019-05-15 09:28:45 +0200
commit3114786e3ed1cadf993d9ae87baa2a0a96a2c36c (patch)
treeb8a03e68d77890d1f3496adbb1b9e907797a0e52 /gnu/installer.scm
parentba2d913192813a8fe57c69c2df19f9db767e174d (diff)
downloadpatches-3114786e3ed1cadf993d9ae87baa2a0a96a2c36c.tar
patches-3114786e3ed1cadf993d9ae87baa2a0a96a2c36c.tar.gz
installer: Increase backtrace verbosity.
* gnu/installer.scm (installer-program): Set terminal-width to 200 to make guile backtraces more verbose.
Diffstat (limited to 'gnu/installer.scm')
-rw-r--r--gnu/installer.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm
index ea7bd1c932..1452c4dc7e 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -337,6 +337,8 @@ selected keymap."
(gnu services herd)
(guix i18n)
(guix build utils)
+ ((system repl debug)
+ #:select (terminal-width))
(ice-9 match))
;; Initialize gettext support so that installers can use
@@ -360,6 +362,11 @@ selected keymap."
(bindtextdomain "xkeyboard-config"
#+(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)
(steps (#$steps current-installer)))
((installer-init current-installer))