Show flags for problematic members.

This commit is contained in:
Dominik Pantůček 2023-05-11 09:13:41 +02:00
parent 64ca870a52
commit 7509c8e230

View file

@ -226,7 +226,7 @@
(members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)"))) (members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)")))
(if (null? problem-mrs) (if (null? problem-mrs)
#f #f
(members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E")) (members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A"))
)) ))
#:ansi #t #:ansi #t
#:row-border #t #:row-border #t