me
/
guix
Archived
1
0
Fork 0
Code

guix lint: Remove "guix lint: " prefix from warnings. 

This allows editors to parse warnings correctly.

* guix/scripts/lint.scm (emit-warning): Use 'format' instead of
  'warning', to avoid the "guix lint: " prefix in messages.
* tests/lint.scm (call-with-warnings): Indent.
master
Ludovic Courtès 2014-09-03 09:01:28 +02:00
parent 52bd0810a8
commit b002e9d08e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/scripts/lint.scm
View File

@ -81,10 +81,10 @@ Run a set of checkers on the specified package; if none is specified, run the ch
;; provided MESSAGE. ;; provided MESSAGE.
(let ((loc (or (package-field-location package field) (let ((loc (or (package-field-location package field)
(package-location package)))) (package-location package))))
(warning (_ "~a: ~a: ~a~%") (format (guix-warning-port) (_ "~a: ~a: ~a~%")
(location->string loc) (location->string loc)
(package-full-name package) (package-full-name package)
message))) message)))
;;; ;;;

8
tests/lint.scm
View File

@ -39,10 +39,10 @@
(home-page #f) (license #f) )) (home-page #f) (license #f) ))
(define (call-with-warnings thunk) (define (call-with-warnings thunk)
(let ((port (open-output-string))) (let ((port (open-output-string)))
(parameterize ((guix-warning-port port)) (parameterize ((guix-warning-port port))
(thunk)) (thunk))
(get-output-string port))) (get-output-string port)))
(test-assert "synopsis: ends with a period" (test-assert "synopsis: ends with a period"
(->bool (->bool