diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-12-18 14:55:26 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-12-18 17:52:58 +0100 |
| commit | 399993f8040a18d0e38217d2949822954f45dc0e (patch) | |
| tree | bfafff9e7d9bd13380620835d5311c674c97281f /guix/ui.scm | |
| parent | 9f1e39d1fcca0525bc51dc0eedd11a902089bba4 (diff) | |
| download | gnu-guix-399993f8040a18d0e38217d2949822954f45dc0e.tar gnu-guix-399993f8040a18d0e38217d2949822954f45dc0e.tar.gz | |
ui: Non-zero exit for compound '&message' and '&error-location' conditions.
* guix/ui.scm (call-with-error-handling): When both 'message?' and
'error-location?' are true, add call to 'exit'.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index fa747b7b08..2b7cc3d41a 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -621,7 +621,8 @@ directories:~{ ~a~}~%") (format (current-error-port) (G_ "~a: error: ~a~%") (location->string (error-location c)) - (gettext (condition-message c) %gettext-domain))) + (gettext (condition-message c) %gettext-domain)) + (exit 1)) ((message-condition? c) ;; Normally '&message' error conditions have an i18n'd message. (leave (G_ "~a~%") |