17 lines
518 B
Scheme
17 lines
518 B
Scheme
(define (perfdata-handler _)
|
|
(let* ((stats (gc-stats))
|
|
(dump-alist-aux (lambda (entry)
|
|
`(tr (td ,(format #f "~a" (car entry)))
|
|
(td ,(format #f "~a" (cdr entry))))))
|
|
(dump-alist (lambda (lst)
|
|
(map dump-alist-aux lst))))
|
|
(respond-html
|
|
`("Performance information"
|
|
(table (@ (class "standard-table"))
|
|
(tr (th (@ (colspan 2)) "GC Stats"))
|
|
,(dump-alist stats))))))
|
|
|
|
(set! dataserver-handlers
|
|
(cons* `(("perfdata") . ,perfdata-handler)
|
|
dataserver-handlers))
|