diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-07 22:07:53 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-07 23:46:39 +0100 |
| commit | 4a8d536ffe4cac1822d9655e0871fdc1684d569b (patch) | |
| tree | a7b92c2e0bfa2d85f07083b765bae2fa008b6276 /guix/ui.scm | |
| parent | b94f250e5a8a2263a89f61c6d3f7a69abe2984e3 (diff) | |
| download | gnu-guix-4a8d536ffe4cac1822d9655e0871fdc1684d569b.tar gnu-guix-4a8d536ffe4cac1822d9655e0871fdc1684d569b.tar.gz | |
ui: Display hints that come along with '&message' conditions.
* guix/ui.scm (call-with-error-handling): Add case for message and
fix-hint?.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 6e08a611cd..895179744b 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -623,6 +623,12 @@ directories:~{ ~a~}~%") (location->string (error-location c)) (gettext (condition-message c) %gettext-domain)) (exit 1)) + ((and (message-condition? c) (fix-hint? c)) + (format (current-error-port) "~a: error: ~a~%" + (program-name) + (gettext (condition-message c) %gettext-domain)) + (display-hint (condition-fix-hint c)) + (exit 1)) ((message-condition? c) ;; Normally '&message' error conditions have an i18n'd message. (leave (G_ "~a~%") |