diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-20 01:31:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-20 01:32:18 +0200 |
| commit | 3d33c93cef67d88bdc9409959f3c1f3857af09cf (patch) | |
| tree | 896f87b2fcae97ccb168e71283377a78f28337f4 | |
| parent | 674b9df37da90ec6536e0ea7a5ab36785b732ae5 (diff) | |
| download | guix-3d33c93cef67d88bdc9409959f3c1f3857af09cf.tar.gz | |
lint: Use the 'warning' procedure for messages.
* guix/scripts/lint.scm (emit-warnings): Use 'warning' instead of 'format'.
| -rw-r--r-- | guix/scripts/lint.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 98ee469501..ee1c826d2e 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -46,10 +46,9 @@ (lambda (lint-warning) (let ((package (lint-warning-package lint-warning)) (loc (lint-warning-location lint-warning))) - (format (guix-warning-port) "~a: ~a@~a: ~a~%" - (location->string loc) - (package-name package) (package-version package) - (lint-warning-message lint-warning)))) + (warning loc (G_ "~a@~a: ~a~%") + (package-name package) (package-version package) + (lint-warning-message lint-warning)))) warnings)) (define (run-checkers package checkers) |