guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

scripts: lint: Display result of checkers on stdout. 

* guix/scripts/lint.scm (emit-warnings): Use 'current-output-port'
instead of 'current-error-port'.

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Brice Waegeneire 2020-05-21 21:08:38 +02:00 committed by Christopher Baines
parent 90eb5dd6b5
commit becfa42ea7
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
guix/scripts/lint.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019, 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;;
;;; 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)