Some progress information for static rendering

This commit is contained in:
Tony Garnock-Jones 2016-08-10 13:04:50 -04:00
parent bd111aa447
commit 0319278193

View File

@ -1463,7 +1463,12 @@
(if items-to-rerender
(filter symbol? items-to-rerender)
(all-package-names)))
(for ((p packages-to-rerender))
(define total-packages-to-rerender (length packages-to-rerender))
(for [(p packages-to-rerender) (i (in-naturals))]
(log-info "rerendering package ~a, ~a of ~a in this batch"
p
(+ i 1)
total-packages-to-rerender)
(update-external-package-information! p)
(static-render! #:mime-type "text/html"
relative-named-url