summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-11-10 14:40:20 +0100
committerLudovic Courtès <ludo@gnu.org>2020-11-10 14:40:20 +0100
commit362529963ea38dd0d9bcdd54d5fced5243427f3d (patch)
tree81bf22270e1187b0bbac7320dae1d2d9ce0515bd
parent7a20c1676a8421f3ac06a2634a27c2837293df0b (diff)
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.
-rw-r--r--guix/ui.scm2
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)