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 /gnu | |
| parent | ba2d913192813a8fe57c69c2df19f9db767e174d (diff) | |
installer: Increase backtrace verbosity.
* gnu/installer.scm (installer-program): Set terminal-width to 200 to
make guile backtraces more verbose.
Diffstat (limited to 'gnu')
| -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 ea7bd1c932d..1452c4dc7ed 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm | |||
| @@ -337,6 +337,8 @@ selected keymap." | |||
| 337 | (gnu services herd) | 337 | (gnu services herd) |
| 338 | (guix i18n) | 338 | (guix i18n) |
| 339 | (guix build utils) | 339 | (guix build utils) |
| 340 | ((system repl debug) | ||
| 341 | #:select (terminal-width)) | ||
| 340 | (ice-9 match)) | 342 | (ice-9 match)) |
| 341 | 343 | ||
| 342 | ;; Initialize gettext support so that installers can use | 344 | ;; Initialize gettext support so that installers can use |
| @@ -360,6 +362,11 @@ selected keymap." | |||
| 360 | (bindtextdomain "xkeyboard-config" | 362 | (bindtextdomain "xkeyboard-config" |
| 361 | #+(file-append xkeyboard-config "/share/locale")) | 363 | #+(file-append xkeyboard-config "/share/locale")) |
| 362 | 364 | ||
| 365 | ;; Initialize 'terminal-width' in (system repl debug) | ||
| 366 | ;; to a large-enough value to make backtrace more | ||
| 367 | ;; verbose. | ||
| 368 | (terminal-width 200) | ||
| 369 | |||
| 363 | (let* ((current-installer newt-installer) | 370 | (let* ((current-installer newt-installer) |
| 364 | (steps (#$steps current-installer))) | 371 | (steps (#$steps current-installer))) |
| 365 | ((installer-init current-installer)) | 372 | ((installer-init current-installer)) |
