Print more information about invalid ids.

2023-03-20 19:16:07 +01:00 · 2023-03-20 19:16:07 +01:00 · 4f752d81f0
commit 4f752d81f0
parent c94d8f4184
1 changed files with 8 additions and 1 deletions
--- a/members-base.scm
+++ b/members-base.scm
@ -364,7 +364,14 @@
       (print "      Invalid: "
 	      (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.