diff options
author | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-05-14 14:05:36 +0200 |
---|---|---|
committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-05-15 09:28:45 +0200 |
commit | 3114786e3ed1cadf993d9ae87baa2a0a96a2c36c (patch) | |
tree | b8a03e68d77890d1f3496adbb1b9e907797a0e52 | |
parent | ba2d913192813a8fe57c69c2df19f9db767e174d (diff) | |
download | guix-3114786e3ed1cadf993d9ae87baa2a0a96a2c36c.tar guix-3114786e3ed1cadf993d9ae87baa2a0a96a2c36c.tar.gz |
installer: Increase backtrace verbosity.
* gnu/installer.scm (installer-program): Set terminal-width to 200 to
make guile backtraces more verbose.
-rw-r--r-- | gnu/installer.scm | 7 |
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)) |