diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-11-10 14:40:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-10 14:40:20 +0100 |
| commit | 362529963ea38dd0d9bcdd54d5fced5243427f3d (patch) | |
| tree | 81bf22270e1187b0bbac7320dae1d2d9ce0515bd /guix/ui.scm | |
| parent | 7a20c1676a8421f3ac06a2634a27c2837293df0b (diff) | |
| download | guix-362529963ea38dd0d9bcdd54d5fced5243427f3d.tar guix-362529963ea38dd0d9bcdd54d5fced5243427f3d.tar.gz | |
ui: Use the right accessor when reporting '&gexp-input-error'.
* guix/ui.scm (call-with-error-handling): In the 'gexp-input-error?'
case, use 'gexp-error-invalid-input' as the accessor.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index d5327a5b08..4e686297e8 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -718,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) |