From 10be642df0d2ce699f850d67e68d52aa4b85933a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 31 Oct 2019 20:27:31 -0700 Subject: [PATCH] ignore special paths in preheat --- pollen/private/file-utils.rkt | 2 +- pollen/private/preheat-cache.rkt | 2 +- pollen/private/ts.rktd | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/private/file-utils.rkt b/pollen/private/file-utils.rkt index 0836b37..f037376 100644 --- a/pollen/private/file-utils.rkt +++ b/pollen/private/file-utils.rkt @@ -299,7 +299,7 @@ (and (regexp-match pat str) #t)) -(define (special-path? path) +(define+provide (special-path? path) (define special-paths (append default-cache-names '("compiled" ".git" ".gitignore" ".hg" ".svn" "CVS" "Makefile"))) (and (member (path->string (last (explode-path path))) special-paths) #t)) diff --git a/pollen/private/preheat-cache.rkt b/pollen/private/preheat-cache.rkt index 054bd8b..569b593 100644 --- a/pollen/private/preheat-cache.rkt +++ b/pollen/private/preheat-cache.rkt @@ -25,7 +25,7 @@ ;; if a file is already in the cache, no need to hit it again. ;; this allows partially completed preheat jobs to resume. (define uncached-paths - (for/list ([path (in-directory starting-dir)] + (for/list ([path (in-directory starting-dir (λ (p) (not (special-path? p))))] #:when (for/or ([proc (in-list (list preproc-source? markup-source? markdown-source? diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index fdfd6d4..a1af5c2 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1572061641 +1572578851