Show member files with issues.

This commit is contained in:
Dominik Pantůček 2023-03-28 11:59:38 +02:00
parent bb970b6eb9
commit e861e31a53
3 changed files with 15 additions and 2 deletions

View file

@ -371,7 +371,14 @@
#:ansi #t
#:row-border #t
#:col-border #t
))))
)))
(let ((pmrs (filter-members-by-predicate mb member-has-issues?)))
(when (not (null? pmrs))
(newline)
(print "Member files with issues: "
(string-intersperse
(map member-file-path pmrs)
", ")))))
;; Prints the stats in format used by gnuplot.
(define (print-members-base-stats ms)