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

Print more information about invalid ids.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 19:16:07 +01:00
parent c94d8f4184
commit 4f752d81f0
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
members-base.scm
View file

@ -364,7 +364,14 @@
(print " Invalid: " (print " Invalid: "
(length iids) (length iids)
" (" " ("
(string-intersperse (map number->string iids) ", ") (string-intersperse
(map (lambda (id)
(let ((mr (find-member-by-id MB id)))
(member-format
"~I - ~N"
mr)))
iids)
", ")
")")))) ")"))))
;; Performs self-tests of this module. ;; Performs self-tests of this module.