diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-11-12 09:29:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-12 09:29:05 +0100 |
| commit | b73981369e414bfef6c4f8e48fc457a43c0e12cb (patch) | |
| tree | 74eb567e9b1a95e0bb8b580fa455eb2c95cfcfb4 | |
| parent | 1cbda46d4aae5ba9bd89a1837f0d81a29653ed7b (diff) | |
| download | guix-b73981369e414bfef6c4f8e48fc457a43c0e12cb.tar.gz | |
lint: patch-file-names: Simplify 'search-patch' error handling.
* guix/lint.scm (check-patch-file-names): Remove 'message-condition?' guard, which is useless since d51bfe242fbe6f3f8f71d723e8fe0c7bbe711ba1. Remove call to 'format' in the 'formatted-message?' case.
| -rw-r--r-- | guix/lint.scm | 14 |
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)) |