Show missing keys.

This commit is contained in:
Dominik Pantůček 2023-03-27 07:46:04 +02:00
parent babe6ffce4
commit f06949b545
2 changed files with 16 additions and 1 deletions

View file

@ -116,7 +116,14 @@
(else
(list k v)))))
sikeys))
(result (filter identity (append head body))))
(misskeys (member-missing-keys mr))
(miss (if (null? misskeys)
'()
(list (list "Missing keys:"
(string-intersperse
(map symbol->string misskeys)
", ")))))
(result (filter identity (append head body miss))))
(print (table->string result #:table-border #t #:row-border #t #:col-border #t))))
;; Nicely prints the member source with any errors recorded.