[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#40367] [PATCH v3] lint: Display result of checkers on stdout.
From: |
Brice Waegeneire |
Subject: |
[bug#40367] [PATCH v3] lint: Display result of checkers on stdout. |
Date: |
Thu, 21 May 2020 21:08:38 +0200 |
* guix/scripts/lint.scm (emit-warnings): Use 'current-output-port'
instead of 'current-error-port'.
---
This version remove an extra space and correctly indent the patch.
guix/scripts/lint.scm | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 97ffd57301..5445645b53 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -10,6 +10,7 @@
;;; Copyright © 2017, 2018 Efraim Flashner <address@hidden>
;;; Copyright © 2018, 2019 Arun Isaac <address@hidden>
;;; Copyright © 2019 Simon Tournier <address@hidden>
+;;; Copyright © 2020 Brice Waegeneire <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -47,11 +48,15 @@
;; provided MESSAGE.
(for-each
(lambda (lint-warning)
- (let ((package (lint-warning-package lint-warning))
- (loc (lint-warning-location lint-warning)))
- (info loc (G_ "~a@~a: ~a~%")
- (package-name package) (package-version package)
- (lint-warning-message lint-warning))))
+ (let* ((package (lint-warning-package lint-warning))
+ (name (package-name package))
+ (version (package-version package))
+ (loc (lint-warning-location lint-warning))
+ (message (lint-warning-message lint-warning)))
+ (parameterize
+ ((guix-warning-port (current-output-port)))
+ (info loc (G_ "~a@~a: ~a~%")
+ name version message))))
warnings))
(define* (run-checkers package checkers #:key store)
--
2.26.2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#40367] [PATCH v3] lint: Display result of checkers on stdout.,
Brice Waegeneire <=