diff options
| author | Marius Bakke <marius@gnu.org> | 2020-11-15 23:45:34 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-11-15 23:45:34 +0100 |
| commit | 4e5e05d40908e9f1336ffc5a6c4928ab61ad034c (patch) | |
| tree | ad6d6be0ece396ba3353871a5691e514253508f8 /guix/ui.scm | |
| parent | 2c400ae94207b3b84fcdcaa21c122076c050d307 (diff) | |
| parent | e1fa3ea9fe8d01dd124c5e304bde9243876378ba (diff) | |
Merge branch 'master' into staging
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 8d7bc238bc..4e686297e8 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -435,6 +435,7 @@ exiting. ARGS is the list of arguments received by the 'throw' handler." (gettext (condition-message obj) %gettext-domain))) ((formatted-message? obj) (warning (G_ "failed to load '~a': ~a~%") + file (apply format #f (gettext (formatted-message-string obj) %gettext-domain) @@ -717,7 +718,7 @@ evaluating the tests and bodies of CLAUSES." (package-full-name package) (build-system-name system)))) ((gexp-input-error? c) - (let ((input (package-error-invalid-input c))) + (let ((input (gexp-error-invalid-input c))) (leave (G_ "~s: invalid G-expression input~%") (gexp-error-invalid-input c)))) ((profile-not-found-error? c) |