From c78490bf6d7517226b5a7c72fa7bf76b2bbe1e4b Mon Sep 17 00:00:00 2001 From: Brice Waegeneire Date: Wed, 1 Apr 2020 15:19:25 +0200 Subject: lint: Display result of checkers on stdout. * guix/scripts/lint.scm (emit-warnings): Use 'current-output-port' instead of 'current-error-port'. --- guix/scripts/lint.scm | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 97ffd57301..28b4db656c 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2017, 2018 Efraim Flashner ;;; Copyright © 2018, 2019 Arun Isaac ;;; Copyright © 2019 Simon Tournier +;;; Copyright © 2020 Brice Waegeneire ;;; ;;; This file is part of GNU Guix. ;;; @@ -46,13 +47,17 @@ ;; given, the location of PACKAGE otherwise, the full name of PACKAGE and the ;; 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)))) - warnings)) + (lambda (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) "Run the given CHECKERS on PACKAGE." -- cgit v1.2.3