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.
This commit is contained in:
Ludovic Courtès 2020-11-10 14:40:20 +01:00
parent 7a20c1676a
commit 362529963e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -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)