correct minor logic error in `raco pollen render`

pull/134/head
Matthew Butterick 8 years ago
parent ab46c7173e
commit 6c58225121

@ -98,16 +98,15 @@ version print the version" (current-server-port) (make-publish-di
(define static-pagetrees (filter pagetree-source? dirlist)) (define static-pagetrees (filter pagetree-source? dirlist))
;; if there are no static pagetrees, use make-project-pagetree ;; if there are no static pagetrees, use make-project-pagetree
;; (which will synthesize a pagetree if needed, which includes all sources) ;; (which will synthesize a pagetree if needed, which includes all sources)
(define preprocs-and-static-pagetrees (append preprocs static-pagetrees))
(define batch-to-render (define batch-to-render
(map very-nice-path (map very-nice-path
(cond (cond
[(null? preprocs-and-static-pagetrees) [(null? static-pagetrees)
(displayln (format "rendering generated pagetree for directory ~a" dir)) (displayln (format "rendering generated pagetree for directory ~a" dir))
(cdr (make-project-pagetree dir))] (cdr (make-project-pagetree dir))]
[else [else
(displayln (format "rendering preproc & pagetree files in directory ~a" dir)) (displayln (format "rendering preproc & pagetree files in directory ~a" dir))
preprocs-and-static-pagetrees]))) (append preprocs static-pagetrees)])))
(apply render-batch batch-to-render) (apply render-batch batch-to-render)
(when (render-recursively?) (when (render-recursively?)
(for ([path (in-list dirlist)] (for ([path (in-list dirlist)]

@ -1 +1 @@
1480440813 1482010405

Loading…
Cancel
Save