brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Print both errors and problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-28 19:02:34 +02:00
parent a849da5418
commit da29baa991
3 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
members-base.scm
View file

@ -372,7 +372,16 @@
#:row-border #t
#:col-border #t
)))
(let ((pmrs (filter-members-by-predicate mb member-has-issues?)))
(let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
(when (not (null? pmrs))
(newline)
(print "Member files with errors: "
(string-intersperse
(map member-file-path pmrs)
", "))))
(let ((pmrs (filter-members-by-predicate mb (lambda (mr)
(and (member-has-highlights? mr)
(not (member-has-problems? mr)))))))
(when (not (null? pmrs))
(newline)
(print "Member files with issues: "