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

Improve how missing keys are shown.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 17:45:36 +02:00
parent fc6c67004e
commit 640af5af19
1 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
member-print.scm
View file

@ -117,17 +117,13 @@
v))
#:col-border #t)))
(else
(list k v)))))
(if v
(list k v)
(list (ansi-string #:red #:bold (symbol->string k))
(ansi-string #:red #:bold "---")))))))
sikeys))
(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))))
(result (filter identity (append head body))))
(print (table->string result #:table-border #t #:row-border #t #:col-border #t #:ansi #t))))
;; Nicely prints the member source with any errors recorded.
(define (print-member-source mr)