summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/lint.scm14
1 files changed, 4 insertions, 10 deletions
diff --git a/guix/lint.scm b/guix/lint.scm
index e1a77e8ac7..91dbc806dc 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -663,17 +663,11 @@ from ~a")
(define (check-patch-file-names package)
"Emit a warning if the patches requires by PACKAGE are badly named or if the
patch could not be found."
- (guard (c ((message-condition? c) ;raised by 'search-patch'
- (list
- ;; Use %make-warning, as condition-mesasge is already
- ;; translated.
- (%make-warning package (condition-message c)
- #:field 'patch-file-names)))
- ((formatted-message? c)
+ (guard (c ((formatted-message? c) ;raised by 'search-patch'
(list (%make-warning package
- (apply format #f
- (G_ (formatted-message-string c))
- (formatted-message-arguments c))))))
+ (formatted-message-string c)
+ (formatted-message-arguments c)
+ #:field 'source))))
(define patches
(match (package-source package)
((? origin? origin) (origin-patches origin))