nobody else would bother

dev-nonsettable
Matthew Butterick 4 years ago
parent 149f2cc389
commit cca0fa0848

@ -3,6 +3,7 @@
racket/path racket/path
racket/place racket/place
racket/match racket/match
racket/format
"file-utils.rkt" "file-utils.rkt"
"cache-utils.rkt" "cache-utils.rkt"
"log.rkt") "log.rkt")
@ -65,7 +66,7 @@
[(? null?) (loop null actives)] [(? null?) (loop null actives)]
[(cons path rest) [(cons path rest)
(place-channel-put wp path) (place-channel-put wp path)
(message (format "caching @ job ~a: ~a" (add1 wpidx) (find-relative-path starting-dir path))) (message (format "caching @ job ~a: ~a" (~r (add1 wpidx) #:min-width (string-length (~r job-count)) #:pad-string " ") (find-relative-path starting-dir path)))
(loop rest (cons wpidx actives))])] (loop rest (cons wpidx actives))])]
[(list wpidx wp 'job-finished path result) [(list wpidx wp 'job-finished path result)
(if result (if result

@ -1 +1 @@
1588815041 1588816473

@ -2,6 +2,7 @@
(require racket/file (require racket/file
racket/path racket/path
racket/match racket/match
racket/format
racket/place racket/place
racket/list racket/list
racket/dict racket/dict
@ -140,7 +141,7 @@
['finished-job ['finished-job
(message (message
(format "rendered parallel @ job ~a /~a ~a" (format "rendered parallel @ job ~a /~a ~a"
(add1 wpidx) (~r (add1 wpidx) #:min-width (string-length (~r job-count)) #:pad-string " ")
(find-relative-path (current-project-root) (->output-path path)) (find-relative-path (current-project-root) (->output-path path))
(if (< ms 1000) (format "(~a ms)" ms) (format "(~a s)" (/ ms 1000.0)))))] (if (< ms 1000) (format "(~a ms)" ms) (format "(~a s)" (/ ms 1000.0)))))]
[_ [_

Loading…
Cancel
Save