diff --git a/src/members-print.scm b/src/members-print.scm index 4cc4b3e..4111bf6 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -412,6 +412,13 @@ (string-intersperse (map car dwpu) ", ")))) + (let ((dwmu (find-members-by-predicate mb (compose not brmember-dokuwiki-groups-ok?)))) + (when (not (null? dwmu)) + (newline) + (print "Members in wrong dokuwiki group(s): " + (string-intersperse + (map brmember-nick dwmu) + ", ")))) ) ;; Prints the stats in format used by gnuplot.